CPC-RC0311A7.P0

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.