CPC-API-RECEBE-PTU70.p

• Rotina permite ao cliente efetuar processos específicos após a leitura dos dados do beneficiário.
• Rotina permite ao cliente alterar se a unimed origem tem ou não serious.
• 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 "ANT-TEM-SERIOUS", dentro do programa API-RECEBE-PTU70.P antes de qualquer utilização da variável lg-tem-serious-aux;
• Para o ponto de chamada "ORDEM-SERVICO", dentro do programa API-RECEBE-PTU70.P;
• Para o ponto de chamada "APOS-CANCEL", dentro do programa API-RECEBE-PTU70.P;
• Para o ponto de chamada "DPS-TRATA-INS", dentro do programa API-RECEBE-PTU70.P;
• Para o ponto de chamada "DPS-CRIA-GUIA", dentro do programa API-RECEBE-PTU70.P;
• Para o ponto de chamada "DPS-TRATA-RESP", dentro do programa API-RECEBE-PTU70.P;
• Para o ponto de chamada "ATRIBUI-MENS", dentro do programa API-RECEBE-PTU70.P;
• Para o ponto de chamada "ANTE-CRIA-ORDEM", dentro do programa API-RECEBE-PTU70.P;
• Para o ponto de chamada "ALTERA-ALT-CUST", dentro do programa API-RECEBE-PTU70.P;
• Para o ponto de chamada "APOS-DADOS-BENE", dentro do programa API-RECEBE-PTU70.P após efetuar a leitura dos dados do beneficiário.

Ponto de Utilização

• "ANT-TEM-SERIOUS"

• "ORDEM-SERVICO"

• "APOS-CANCEL"

• "DPS-TRATA-INS"

• "DPS-CRIA-GUIA"

• "DPS-TRATA-RESP"

• "ATRIBUI-MENS"

• "ANTE-CRIA-ORDEM"

• "ALTERA-ALT-CUST"

• "APOS-DADOS-BENE"

Include das definições das tabelas temporárias

• cpc-api-recebe-ptu70.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-api-recebe-ptu70-entrada

              def temp-table tmp-cpc-api-recebe-ptu70-entrada no-undo
                    field in-evento-programa                             as char format "x(06)"
                    field nm-ponto-chamada-cpc                       as char format "x(15)"
                    field cd-unidade                                           like guiautor.cd-unidade
                    field aa-guia-atendimento                            like guiautor.aa-guia-atendimento
                    field nr-guia-atendimento                             like guiautor.nr-guia-atendimento
                    field cd-carteira-usuario                               as dec
                    field lg-tem-serious                                      as log
                    field r-procguia                                            as rowid
                    field ds-denial-mens                                    as char
                    field h-tmp-guiautor                                     as handle
                    field h-tmp-procguia                                    as handle
                    field h-tmp-insuguia                                    as handle
                    field h-buffer-tmp-guiautor                          as handle.

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;
    • cd-unidade – Código da unidade do prestador;
    • aa-guia-atendimento – Ano da guia de atendimento;
    • nr-guia-atendimento – Número da guia de atendimento;
    • cd-carteira-usuario - Documento de identificação do beneficiário
    • lg-tem-serious - Indica se a Unimed possui ou não serious; 
    • r-procguia - Identificador da tabela de procedimentos da guia
    • ds-denial-mens - Mensagem de retorno
    • h-tmp-guiautor - Tabela temporária de guias
    • h-tmp-procguia - Tabela temporária de procedimento da guia
    • h-tmp-insuguia - Tabela temporária de insumos da guia
    • h-buffer-tmp-guiautor - - Tabela temporária de guias

Tabela de saída tmp-cpc-api-recebe-ptu70-saida

              def temp-table tmp-cpc-api-recebe-ptu70-saida no-undo
                    field lg-undo-retry                         as logical
                    field ds-mensagem                       as char format "x(75)"
                    field lg-tem-serious                       as log
                    field nm-grupo                              as char
                    field id-autoriza                             as int
                    field lg-alto-custo                          as log

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-tem-serious – Indica se a Unimed possui serious ou não. 
    • nm-grupo - Nome do grupo do usuário do sistema
    • id-autoriza - Indicador de autorização: 1 Recusado 2 Autorizado, etc
    • lg-alto-custo - Indicador de alto custo.