cpc-rtapi048.p1

Rotina utlizada ao calcular cobertura parcial temporária do beneficiário.
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 um erro será reportado.
Localização
Dentro da rotina de calculo da cpt do beneficiário, logo após buscar o numero de dias de carência cpt a ser utilizado.
Pontos de Utilização
"APOS-LER-CID"
Include das definições das tabelas temporárias
cpc-rtapi048.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rtapi048-entrada
def temp-table tmp-cpc-rtapi048-entrada no-undo
field nm-ponto-chamada-cpc as char
field in-evento-programa as char
field cd-modalidade like modalid.cd-modalidade
field nr-proposta like propost.nr-proposta
field cd-usuario like usuario.cd-usuario
field cd-condicao-saude like dzdeccid.cd-condicao-saude
field cd-cid like dzdeccid.cd-cid
field cd-procedimento as int.
Definição campo a campo da tabela de entrada
nm-ponto-chamada-cpc – "APOS-LER-CID".
in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que está sendo chamada. Valores possíveis:
"BENPRO" – chamado após buscar o numero de dias de carência cpt.
cd-modalidade – modalidade do beneficiário que esta tendo a cpt calculada.
nr-proposta - proposta do beneficiário que esta tendo a cpt calculada.
cd-usuario – beneficiário que esta tendo a cpt calculada.
cd-condicao-saude – condição de saúde do beneficiário.
cd-cid – CID que está sendo alterado.
cd-condicao-saude – condição de saúde final para o beneficiário (utilizado no evento GERTMP).
cd-procedimento – código do procedimento a ser utilizado para calcular cpt.
Tabela de saída tmp-cpc-rtapi048-saida
def temp-table tmp-cpc-rtapi048-saida no-undo
fields lg-erro as logical
fields ds-mensagem-retorno as char format "x(75)"
field nr-carencia-cpt like dzdeccid.nr-carencia-cpt.
Definição campo a campo da tabela de saída
lg-erro – indica que ocorreu algum erro durante o processamento.
ds-mensagem-retorno – retorna a mensagem correspondente ao erro, caso o campo lg-erro esteja ligado.
nr-carencia-cpt – numero de dias de carência cpt a ser utilizado ao retornar para o processamento normal da rotina.