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"
• "ANT-COND-SAUD" - a partir da versão 12.1.2301
• "BUTTON-PROC" - a partir da versão 12.1.2301
• "MOSTRA-PROC" - a partir da versão 12.1.2301

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 h-tp-procedimento                        as handle
field h-tp-condsaud                               as handle
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 – Nome do ponto de cpc
• in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que está sendo chamada.
• cd-modalidade – Código da modalidade do beneficiário que esta tendo a declaração de saúde alterada.
• nr-proposta - Número da proposta do beneficiário que esta tendo a declaração de saúde alterada.
• cd-usuario – Código do beneficiário que esta tendo a declaração de saúde alterada.
• cd-modalidade-fim – Código da modalidade final do beneficiário que esta tendo a declaração de saúde alterada (utilizado no evento GERTMP).
• nr-proposta-fim - Número da proposta final do beneficiário que esta tendo a declaração de saúde alterada (utilizado no evento GERTMP).
• cd-usuario-fim – Código do beneficiário final que esta tendo a declaração de saúde alterada (utilizado no evento GERTMP).
• cd-cid – Código do CID que está sendo alterado.
• cd-cid-fim – Código do CID final que está sendo incluído (utilizado no evento GERTMP).
• cd-condicao-saude – Código da condição de saúde do beneficiário.
• cd-condicao-saude – Código da condição de saúde final para o beneficiário (utilizado no evento GERTMP).
• nr-carencia-cpt – Núumero de dias de carência para a cobertura parcial temporária.
• lg-verifica-procedimento – Log que indica se o cálculo da CPT deve verificar cobertura do procedimento.
• ds-observação – Se referem a 3 campos para observações gerais.
• h-tp-procedimento - Handle da temp-table dos procedimentos.
• h-tp-condsaud - Handle da temp-table das condição de saúde.

Tabela de entrada e saida tmp-cpc-cg0210o 

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 – Número de dias de carência para cpt.
• ds-observação – Observações gerais.
• lg-elimina – Log que indica 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)"
fields lg-enable-proced                      as logical.

Definição campo a campo da tabela de saída

• lg-erro – Log que indica se ocorreu algum erro durante o processamento.
• ds-mensagem-retorno – Campos que retorna a mensagem correspondente ao erro, caso o campo lg-erro esteja ligado.
• lg-enable-proced - Log que indica se há procedimento ou insumo.