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-usuariousuario                                        like  like usuario.cd-usuario
field cd-modalidade-fimfim                             like  like modalid.cd-modalidade
field nr-proposta-fim                              like      like propost.nr-proposta
field cd-usuario-fim                                 like usuario.cd-usuario
field cd-cid                                               like dzdeccid.cd-cid
field cd-cid-fim                                     like    like dzdeccid.cd-cid
field cd-condicao-saude                            like dzdeccid.cd-condicao-saude
field cd-condicao-saude-fim                   like  like dzdeccid.cd-condicao-saude
field nr-carencia-cpt                                  like dzdeccid.nr-carencia-cpt
field lg-verifica-procedimento                 like  like dzdeccid.lg-verifica-procedimento
field h-tp-procedimento                        as handle
field h-tp-condsaud                               as handle
field ds-observacao1observacao1                              as char
field ds-observacao2observacao2                              as char
field ds-observacao3observacao3                              as char.

Definição campo a campo da tabela de entrada

• nm-ponto-chamada-cpc – "USUCID".Nome do ponto de cpc
• 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 – 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 – numero Núumero de dias de carência para a cobertura parcial temporária.
• lg-verifica-procedimento – Log que indica se o calculo 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 Tabela temporaria tmp-cpc-cg0210o (para armazenamento temporário de informações)cg0210o 

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

fields cd-cid                                    as     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  as log.

Definição campo a campo da tabela temporaria

• cd-cid – código Código do Cid.
• cd-procedimento – código Código do procedimento.
• ds-procedimento – descrição Descrição do procedimento.
• nr-carencia-cpt – numero Número de dias de carência para cpt.
• ds-observação – observações Observações gerais.
• lg-elimina – indicador 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 erro                                      as  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 que 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.