cpc-rc0311a7.p4

Rotina utilizada para:
 Efetuar a consistência da quantidade de insumos digitados para um determindado contratante/prestador e
 Inicializar a hora (inicial e final) de utilização dos movimentos.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro ou não possuir nenhum registro um erro será reportado.
Localização
Dentro do programa de inclusão de insumos do processo de inclusão de movimentos do RC.
Pontos de Utilização
"APÓS-QUANTIDADE", "CONS-ESPECIALID" e "HORA-REALIZACAO"
"INCLUI-NRLOTE"
Include das definições das tabelas temporárias
cpc-rc0311a7.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0311a7-entrada
def temp-table tmp-cpc-rc0311a7-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field lg-mensagem-na-tela as logical
field cd-unidade-carteira like docrecon.cd-unidade-carteira
field cd-carteira-usuario like docrecon.cd-carteira-usuario
field cd-unidade-pre-princ like preserv.cd-unidade
field cd-prestador-princ like preserv.cd-prestador
field cd-unidade-pre-solic like preserv.cd-unidade
field cd-prestador-solic like preserv.cd-prestador
field cd-unidade-pre-execu like preserv.cd-unidade
field cd-prestador-execu like preserv.cd-prestador
field cd-tipo-insumo like insuguia.cd-tipo-insumo
field cd-insumo like insuguia.cd-insumo
field qt-insumo like insuguia.qt-insumo
field cd-tipo-vinculo like esp-med.cd-especialid
field lg-trabalho-medico like moviproc.lg-trab-cooperado
field cd-esp-prest-exec like tipovinc.cd-tipo-vinculo
field cd-unidade-prestador-ant like moviproc.cd-unidade-prestador
field cd-prestador-ant like moviproc.cd-prestador
field cd-transacao like docrecon.cd-transacao
field dt-realizacao like moviproc.dt-realizacao.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa de chamada da CPC (inclui);
nm-ponto-chmada-cpc – Ponto de chamada da CPC (após-quantidade);
Lg-mensagem-tela – indica se as mensagens de erro, que ocorreram dentro da cpc, serão ou não visualizadas em tela;
Cd-unidade-carteira – unidade da carteira do beneficiário;
Cd-carteira-usuario – código da carteira do beneficiário;
Cd-unidade-pre-princ – unidade do prestador principal;
Cd-prestador-princ – código do prestador principal
Cd-unidade-pre-solic – unidade do prestador solicitante;
Cd-prestador-solic - código do prestador solicitante
Cd-unidade-pre-execu – unidade do prestador executante;
Cd-prestador-execu - código do prestador executante
Cd-tipo-insumo – código do tipo de insumo
Cd-insumo – código do insumo
Qt-insumo – quantidade do insumo
Cd-tipo-vinculo – tipo de vinculo
Lg-trabalho-medico – Inidicador trabalhjo médico
cd-esp-prest-exec – Espedie do prestador executante
cd-unidade-prestador-ant – Unidade do prestador
cd-prestador-ant – Codigo do prestador
Cd-transacao – Código da transacao
Dt-realizacao – data de realização do movimento.
Tabela de saída tmp-cpc-rc0311a7-saida
def temp-table tmp-cpc-rc0311a7-saida no-undo
fields lg-undo-retry as logical
fields ds-mensagem-relatorio as char format "x(75)"
fields cd-tipo-vinculo like esp-med.cd-especialid
fields lg-trabalho-medico like moviproc.lg-trab-cooperado
fields cd-esp-prest-exec like tipovinc.cd-tipo-vinculo
field hr-realizacao-ini like moviproc.hr-realizacao
field hr-realizacao-fim like moviproc.hr-realizacao.

Definição campo a campo da tabela de saída
lg-undo-retry – indica que ocorreu algum erro durante o processamento.
Ds-mensagem-relatorio – retorna a mensagem correspondente ao erro, caso o campo lg-erro esteja ligado.
Cd-tipo-vinculo – tipo de vinculo
Lg-trabalho-medico – Inidicador trabalhjo médico
cd-esp-prest-exec – Espedie do prestador executante
Hr-realizacao-ini – Hora de realização inicial;
Hr-realizacao-fim – Hora de realização final.