Histórico da Página
CPC-WAC0018A1.P
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | 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.
Ponto de Utilização
"ANTES-GRAVAR"
"COMPR-NEGATIVA"
Include das definições das tabelas temporárias
- cpc-wac0018a1.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-wac0018a1-entrada
def temp-table tmp-cpc-wac0018a1-entrada no-undo
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 format "999999999"
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.
Tabela de saída tmp-cpc-wac0018a1-saida
def temp-table tmp-cpc-wac0018a1-saida no-undo
field lg-undo-retry
...
as log
field cd-erro-sistema
...
as int
field lg-troca-prestador
...
as logical initial no
field r-tmp-servico as rowid
field cd-unidade
...
like procguia.cd-unidade
field cd-prestador
...
like procguia.cd-prestador
field ds-mensagem as char format "x(75)"
...
Definição campo a campo da tabela de saída
- lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
- Cd-erro-sistema – Código do erro se ocorrer algum erro.
- Lg-troca-prestador – Indica se haverá troca do prestador executante do serviço.
- r-tmp-servico – Rowid da tabela tmp-servico.
- Cd-unidade – Unidade do prestador. Substituirá a unidade do prestador executante quando o lg-troca-prestador estiver ativo.
- Cd-prestador - Código do prestador. Substituirá o prestador executante quando o lg-troca-prestador estiver ativo.
- ds-mensagem - Variável que retorna mensagem de erro, se ocorrido dentro da CPC.