CPC-AC1000.p
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | cpc-ac1000.p |
- Esta rotina possui dois pontos de chamada dentro do programa ac1000.p com objetivos distintos:
- Ponto de chamada INICIO-PROCESSO: utiliza-se a cpc para indicar se o programa ac1000.p deve apenas simular a inclusão de movimento(s) ou deve incluir efetivamente o(s) movimento(s) no sistema, usado tambem para fazer a verificação e realizar, se necessário, a conversão da unidade da carteira.
- Ponto de chamada FINAL-PROCESSO: utiliza-se a cpc para mudar a resposta da automação.
- Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não, para ambos pontos de chamada.
- 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 ac1000.p:
- Ponto de chamada IINICIO-PROCESSO: antes do processamento das transações.
- Ponto de chamada FINAL-PROCESSO: após o processamento das transações.
Ponto(s) de Utilização
- "INICIO-PROCESSO".
- "FINAL-PROCESSO".
Include das definições das tabelas temporárias
- cpc-ac1000.i
- ac1006d.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-ac1000-entrada
def temp-table tmp-cpc-ac1000-entrada no-undo
fields in-evento-programa as char format "x(06)"
fields nm-ponto-chamada-cpc as char format "x(15)"
fields lg-mensagem-na-tela as logical
fields in-tipo-processamento as char format "x(01) "
fields segmento-requisicao as char format "x(8000)"
fields segmento-resposta as char format "x(8000)".
Definição campo a campo da tabela de entrada
- in-evento-programa – Evento do programa que chama a cpc-ac1000.
- nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
- lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem-relatorio deve ser preenchido. (não obrigatório).
- In-tipo-processamento – Indica o tipo de processamento ("O" – ON-Line; "W" – Web; "I" – Importação; "U" – URA e "G" – Integração Sistema).
- seguimento-requisicao – O Seguimento de requisição para a Automação.
- seguimento-resposta – Segmento de resposta antes de ser modificado pela CPC.
Tabela de entrada tmp-servicos-req
def temp-table tmp-servicos-req no-undo
field in-ordem as int
field tp-servico as char format "x(12)"
field tp-insumo as char format "99"
field qt-servico as char format "999"
field qt-servico-dec as char format "999"
field cd-servico as char format "99999999"
field cd-tipo-percentual as char format "99"
field vl-servico as char format "x(9)"
field cd-prest-exec as char format "x(15)"
field cd-prest-divisao as char format "x(15)"
field cd-grau-part as char format "x(2)"
field cd-via-acesso as char
field cd-tecnica as char
field cd-servico-generico as char format "99999999"
field nm-prof-exec as char format "x(70)"
field cons-prof-compl as char
field num-cons-compl as char
field uf-compl as char
field cd-cbos-compl as char
field nr-cpf-compl as char
field hr-inicial as char
field hr-final as char
field dt-realizacao as date
field cd-variacao as int
field cd-servico-principal-pacote as char /* Servico principal utilizado no pacote */
field cr-solicitacao as char /* U - Urgencia E - Eletivo */
field tp-comb as char
field ds-servico as char.
Tabela de saída tmp-cpc-ac1000-saida
def temp-table tmp-cpc-ac1000-saida no-undo
fields lg-undo-retry as logical
fields ds-mensagem-relatorio as char format "x(75)"
fields lg-simulacao as logical
fields segmento-resposta as char format "x(8000)".
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.
- ds-mensagem-relatorio - Mensagem retornada pela cpc.
- lg-simulacao – Indica se o programa ac1000.p deve apenas simular a inclusão de movimento(s) ou deve incluir efetivamente o(s) movimento(s) no sistema.
- segmento-resposta - Segmento de resposta depois de ser modificado pela CPC.
- segmento-resposta – Segmento de Resposta depois de modificado conforme a atuação da CPC.
Tabela de saída tmp-retorno-serv
def temp-table tmp-retorno-serv no-undo
field id-autoriza as char
field in-servico as char
field tp-servico as char
field cd-servico as int64
field qt-ser-per as dec
field vl-part-cob as dec
field cd-erro-sistema as char
field cd-pacote as char.