CPC-CG0210O.p

• Rotina utlizada ao criar, alterar e eliminar a associação CID x Beneficiario.
• 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 do programa de manutenção da declaração de saúde do beneficiário, ao incluir, alterar ou excluir cids do beneficiário.(USUCID)
• Após a inclusão de CPT do beneficiário. (EMITE-CPT).

Pontos de Utilização

• "USUCID"
• "EMITE-CPT"

Include das definições das tabelas temporárias

• cpc-cg0210o.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-cg0210o-entrada

def temp-table tmp-cpc-cg0210o-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-modalidade-fim                         like modalid.cd-modalidade
field nr-proposta-fim                             like propost.nr-proposta
field cd-usuario-fim                              like usuario.cd-usuario
field cd-cid                                          like dzdeccid.cd-cid
field cd-cid-fim                                    like dzdeccid.cd-cid
field cd-condicao-saude                       like dzdeccid.cd-condicao-saude
field cd-condicao-saude-fim                  like dzdeccid.cd-condicao-saude
field nr-carencia-cpt                             like dzdeccid.nr-carencia-cpt
field lg-verifica-procedimento                like dzdeccid.lg-verifica-procedimento
field ds-observacao1                            as char
field ds-observacao2                            as char
field ds-observacao3                            as char.

Definição campo a campo da tabela de entrada

• nm-ponto-chamada-cpc – "USUCID".
• in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que está sendo chamada. Valores possíveis:
• "ELICID" – chamado quando uma associação CID x Beneficiário é eliminada.
• "MANTMP" – chamado quando uma associação CID x Beneficiário é incluída ou alterada.
• "ATUSIS" – chamada no momento em que o beneficiário confirma atualização dos dados.
• "ELITMP" – chamada no momento em que o beneficiário confirma atualização dos dados, para limpar a tabela temporária tmp-cpc-cg0210o.
• "GERTMP" – chamada na opção geração, para cada associação CID x Beneficiário criada.
• cd-modalidade – modalidade do beneficiário que esta tendo a declaração de saúde alterada.
• nr-proposta - proposta do beneficiário que esta tendo a declaração de saúde alterada.
• cd-usuario – beneficiário que esta tendo a declaração de saúde alterada.
• cd-modalidade-fim – modalidade final do beneficiário que esta tendo a declaração de saúde alterada (utilizado no evento GERTMP).
• nr-proposta-fim - proposta final do beneficiário que esta tendo a declaração de saúde alterada (utilizado no evento GERTMP).
• cd-usuario-fim – beneficiário final que esta tendo a declaração de saúde alterada (utilizado no evento GERTMP).
• cd-cid – CID que está sendo alterado.
• cd-cid-fim – CID final que está sendo incluído (utilizado no evento GERTMP).
• cd-condicao-saude – condição de saúde do beneficiário.
• cd-condicao-saude – condição de saúde final para o beneficiário (utilizado no evento GERTMP).
• nr-carencia-cpt – numero de dias de carência para a cobertura parcial temporária.
• lg-verifica-procedimento – indica se o calculo da CPT deve verificar cobertura do procedimento.
• ds-observação – 3 campos para observações gerais.

Tabela temporaria tmp-cpc-cg0210o (para armazenamento temporário de informações)

def temp-table tmp-cpc-cg0210o no-undo

fields cd-cid                                    as char
fields cd-procedimento                     as inte
fields ds-procedimento                     like ambproce.ds-procedimento-reduz
fields nr-carencia-cpt                        as inte
fields ds-observacao                        as char extent 3
fields lg-elimina                               as log.

Definição campo a campo da tabela temporaria

• cd-cid – código do Cid.
• cd-procedimento – código do procedimento.
• ds-procedimento – descrição do procedimento.
• nr-carencia-cpt – numero de dias de carência para cpt.
• ds-observação – observações gerais.
• lg-elimina – indicador se deve eliminar o registro.

Tabela de saída tmp-cpc-cg0210o-saida

def temp-table tmp-cpc-cg0210o-saida no-undo

fields lg-erro                                   as logical
fields ds-mensagem-retorno              as char format "x(75)".

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.