CPC-WAC0018A1.P

• Rotina utilizada para realizar consistências e/ou alterações na guia antes de efetivar a guia no sistema através do WAC.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• São permitidos vários registros na tabela temporária de saída, sendo cada um deles correspondente a um movimento da guia.

Localização

• Dentro da rotina de manutenção de autorização TISS, antes de efetivar a nova guia.

...

field in-evento-programa                               as char format "x(06)"
field nm-ponto-chamada-cpc                        as char format "x(15)"
field tp-servico                                               as char format "x(01)"
field cd-tipo-insumo                                       like mov-insu.cd-tipo-insumo
field qt-servico                                               like insuguia.qt-insumo
field cd-servico                                              as int int64 format "9999999999999999999"
field vl-insumo                                               as dec format ">>>.999,99"
field r-tmp-servico                                          as rowid
field ds-sit-guia                                              as char
field ds-fundo                                                as char
field aa-guia-atendimento                             like guiautor.aa-guia-atendimento
field nr-guia-atendimento                              like guiautor.nr-guia-atendimento
field cd-clinica                                               as int
field cd-unidade-prestador                            as int
field cd-prestador                                          as int
field in-processo                                           as integer
field sh-prestador                                         as character
field sh-beneficiario                                      as character
field cd-transacao                                        as integer
field id-beneficiario                                       as character
field ds-macaddress                                     as character
field ls-programa                                          as character
field in-tipo-selecao                                      as character
field mostra-sit-guia                                      as char format "x(25)"

Definição campo a campo da tabela de entrada

...

• • • in-evento-programa – Evento do programa que chama a cpc-wac0018a1.p.
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
    • Tp-servico – Indica se o serviço é um procedimento, insumo ou pacote.
    • Cd-tipo-insumo – Tipo do insumo quando o servico for um insumo.
    • Qt-servico – quantidade do serviço executado.
    • Cd-servico – Código do serviço (código do procedimento ou código do insumo).
    • Vl-insumo – valor do serviço quando este for um insumo.
    • r-tmp-servico – rowid da tabela tmp-servico.
    • ds-sit-guia - Informa a situação da guia.
    • aa-guia-atendimento - Ano da guia.
    • nr-guia-atendimento - Número da guia.
    • cd-clinica - Código da clinica.
    • cd-unidade-prestador - Código da unidade do prestador.
    • in-processo - Define processo.
    • sh-prestador - Senha do prestador.
    • sh-benefeciario - Senha do beneficiário.
    • cd-transacao - Código da transação.
    • id-benefeciario - ID do beneficiário.
    • ds-macaddress - Descrição do Macaddress.
    • ls-programa - Id programa.
    • in-tipo-selecao - Tipo seleção.
    • mostra-sit-guia - Situação da guia.
      
      

...