CPC-RTDECSAU.p

• Rotina utilizada para exibir de os insumos relacionados a declaração de saúde (tabela especifica), na tabela de procedimentos das declarações de saúde do beneficiário.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro do programa rtdecsau.p e em três pontos diferentes, sendo eles:  logo no inicio do programa, após a busca pelo procedimento e e dentro da rotina de exibição do procedimento.
• Ressalta-se que somente será chamada a CPC caso ela esteja ativa, no cadastro de CPC, e não tenha ocorrido nenhum erro na execução do programa do produto.

Ponto de Utilização

• "INICIO-PROG"
• "BUTTON-INSU"
• "MOSTRA-INSU"

Include das definições das tabelas temporárias

• cpc-rtdecsau.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtdecsau-entrada

     def temp-table tmp-cpc-rtdecsau-entrada no-undo

         field nm-ponto-chamada-cpc  as char
         field in-evento-programa         as char
         field cd-modalidade                 like usuario.cd-modalidade             
         field nr-proposta                      like usuario.nr-proposta               
         field cd-usuario                        like usuario.cd-usuario   
         field cd-condicao-saude          like dzdeccid.cd-condicao-saude                            
         field h-tp-procedimento          as handle
         field h-tp-condsaud                  as handle.

  Definição campo a campo da tabela de entrada

• nm-ponto-chamada-cpc - Nome do ponto de cpc.
• in-evento-programa - Nome do evento do ponto da cpc.
• cd-modalidade        – Código da modalidade.
• nr-proposta             – Número da proposta.
• cd-usuario               – Código do usuário.
• cd-condicao-saude – Código da condição de saúde.
• h-tp-procedimento – Tipo do procedimento.
• h-tp-condsaud        – Tipo da condição de saúde.

Tabela de entrada tmp-cpc-rtdecsau-saida

    def temp-table tmp-cpc-rtdecsau-saida no-undo
         field lg-undo-retry              as log
         field ds-mensagem-erro     as char format "x(75)"
         field lg-enable-proced        as logical.

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

• lg-undo-retry           - Indica se houve erro na cpc.
• ds-mensagem-erro  - Mostra mensagem de erro retornada pelo ponto de cpc.
• lg-enable-proced      - Habilita botão para procedimento de acordo com a lógica da cpc.