Histórico da Página
CPC-AT0120C.p
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | cpc-at0120c.p |
- Rotina permite ao cliente implementar a função cliente.
- 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
- Para o ponto de chamada "CONS-CLIENTE", dentro do programa at0120c.p antes de mostrar as guias;
Ponto de Utilização
- "ANTES-MOST-GUIA"
- "ANTES-CRIA-TEMP"
Include das definições das tabelas temporárias
- cpc-at0120c.i
Tabelas de entrada Entrada e saídaSaída
Tabela de entrada tmp-cpc-at0115u-entrada
def temp-table tmp-cpc-at0120c-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc
...
as char format "x(15)"
field aa-guia-atendimento
...
like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento.
Definição campo a campo da tabela de entrada
- in-evento-programa – Evento do programa que chama a cpc;
- nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
- AA-guia-atendimento – Indica o ano da guia.
- Nr-guia-atendimento – Indica o número da guia.
Tabela de saída tmp-cpc-at0115u-saida
def temp-table tmp-cpc-at0120c-saida no-undo
field lg-undo-retry
...
as log
field ds-mensagem as char format "x(75)"
field lg-mens-tela
...
as log init no.
Definição campo a campo da tabela de saída
- lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC;
- ds-mensagem – Variável que recebe a descrição dos erros que ocorreram na CPC;
- LG-mens-tela – Variável indica se deverá ser mostrada a mensagem em tela;