CPC-API-LOTE-GUIA.P

• Rotina utilizada para permitir a operadora controlar os dados do beneficiários 
• 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-CARTEIRA", dentro do programa API-LOTE-GUIA.p após a leitura da carteira do beneficiário;
• Para o ponto de chamada "CONS-PRESTADOR", dentro do programa API-LOTE-GUIA.p antes da leitura da tabela PRESERV.
• Para o ponto de chamada "PERC-ACRESDESC", dentro do programa API-LOTE-GUIA.P após a leitura da tag de aplicação de percentual de acréscimo ou desconto da TAG <ans:reducaoAcrescimo>1.00</ans:reducaoAcrescimo>.
• Para o ponto de chamada "LOCAL-TRANS" dentro do programa API-LOTE-GUIA.P após a identificação da guia SADT/SP, dentro da procedure guia-sadt.
• Para o ponto de chamada "MEMBRO-EQUIPE", dentro do programa API-LOTE, onde possibilita alterar ou desconsiderar o prestador da TAG MEMBRO EQUIPE do XML Lote Guias. Para Guias de SADT e Resumo de Internação (XML TISS)
• Para o ponto de chamada "CONS-PREST-EXEC" dentro do programa API-LOTE-GUIA.P após a identificação dos Prestadores Executantes do Arquivo XML.
• Para o ponto de chamada "SETA-NR-DOC" dentro do programa API-LOTE-GUIA.P após a criação do num erro do documento do revisão do contas.
• Para o ponto de chamada "ALTERA-LOTEIMP" dentro do programa API-LOTE-GUIA.P. Este ponto de CPC permitirá identificar o tipo de lote (Local ou Intercâmbio) e o tipo de atndimento (Ambulatorial ou Internação).
• Para o ponto de chamada "PREST-NAO-VINC" dentro do programa API-LOTE-GUIA.P quando da criação dos movimentos (procedimento e insumos).
• Para o ponto de chamada "DIV-HONOSADT" dentro do programa API-LOTE-GUIA.P quando da validação do procedimento e do prestador executante complementar das Guia de SP/SADT.
• Para o ponto de chamada "DEF-PRE-SOLIC" dentro do programa API-LOTE-GUIA.P quando da validação/consistência do prestador solicitante dos documentos.
• Para o ponto de chamada "NR-AUTOR-SADT" dentro do programa API-LOTE-GUIA.P quando da validação/consistência do numero da autorização (guia de autorização) recebida no documento de SP/SADT.
• Para o ponto de chamada "NIVEL-PRESTADOR" dentro do programa API-LOTE-GUIA.P quando da validação/consistência do código da posição na equipe X nível do prestador, para os documentos referentesa honorários individual.
• Para o ponto de chamada "BUSCA-TP-PERC" dentro do programa API-LOTE-GUIA.P quando da validação/consistência do percentual de redução e acréscimo recebido para os movimentos.
• Para o ponto de chamada "BUSCA-TRANS", dentro do programa API-LOTE-GUIA.p, onde possibilita alterar a transação do documento que está sendo importado.
• Para o ponto de chamada "FATOR-NIVEL-AUX", dentro do programa API-LOTE-GUIA.P, onde possibilita alterar o percentual de redução-acrescimo do procedimento.
• Para o ponto de chamada "PREST-EXECUT", dentro do programa API-LOTE-GUIA.P, onde possibilita alterar o prestador executante do procedimento.
• Para o ponto de chamada "VALIDA-INSUMO" dentro do programa API-LOTE-GUIA.P, onde possibilita validar o insumo antes da importação do lote de movimentos do revisão de contas.
• Para o ponto de chamada "FIM-PRO-DOCRE" dentro do programa API-LOTE-GUIA.P, onde o mesmo é chamado após criar a temp-table tmp-docretmp-aux. 

Ponto de Utilização

• "CONS-CARTEIRA".
• "CONS-PRESTADOR".
• "PERC-ACRESDESC".
• "LOCAL-TRANS".
• "MEMBRO-EQUIPE".
• "CONS-PREST-EXEC"
• "HORA-URGENCIA" 
• "SETA-NR-DOC"
• "ALTERA-LOTEIMP"
• "PREST-NAO-VINC"
• "DIV-HONOSADT"
• "DEF-PRE-SOLIC"
• "NR-AUTOR-SADT"
• "NIVEL-PRESTADOR"
• "BUSCA-TP-PERC"
• "BUSCA-TRANS"
• "FATOR-NIVEL-AUX"
• "PREST-EXECUT"
• "VALIDA-INSUMO"
• "FIM-PRO-DOCRE"

Include das definições das tabelas temporárias

• cpc-api-lote-guia.i 

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-api--lote-guia-entrada

def temp-table tmp-cpc-api-lote-guia-entrada no-undo

field nm-ponto-chamada-cpc                         as char format "x(15)"
field in-evento-programa                                as char format "x(10)"
field nr-carteira-benef                                     as char format "x(17)"
field nr-prestador                                            as char
field cd-unidade-prestador                             like moviptmp.cd-unidade 
field cd-prestador                                           like moviptmp.cd-prestador
field pc-red-acr                                               like moviptmp.pc-red-acr
field nr-cnpj-principal                                      as char
field in-tipo                                                     as char format "x(01)"
field cd-unid-prest-membro-eqp                     like moviptmp.cd-unidade 
field cd-prestador-membro-eqp                      like moviptmp.cd-prestador
field aa-guia-atendimento                              like guiautor.aa-guia-atendimento
field nr-guia-atendimento                               like guiautor.nr-guia-atendimento
field cd-procedimento                                    as int format '99999999'
field lg-urgencia                                             as log
field cd-uni-carteira                                        like car-ide.cd-unimed
field nr-guia-prestador                                    as char format "x(20)"
field cd-conselho                                           like preserv.cd-conselho 
field nr-registro                                              like preserv.nr-registro 
field cd-uf-conselho                                       like preserv.cd-uf-conselho 
field in-tipo-guia                                            as int 
field cd-id-contratado                                    as dec 
field nm-contratado                                      as char format "x(70)" 
field cd-id-contratado-executante                  as dec 
field nm-contratado-executante                    as char format "x(70)"
field nm-profissional-executante                   as char format "x(70)"
field cd-unidade                                            like moviptmp.cd-unidade
field cd-unidade-prestadora                          like moviptmp.cd-unidade-prestadora
field cd-transacao                                         like moviptmp.cd-transacao
field nr-serie-doc-original                               like moviptmp.nr-serie-doc-original
field nr-doc-original                                       like docrecon.nr-doc-original
field recid-lote                                              as recid 
field lg-base                                                 as log 
field lg-gri                                                     as log
field nr-seq-interno                                       like moviptmp.nr-seq-interno
field cd-insumo                                            like mov-itmp.cd-insumo
field nr-processo                                          like moviptmp.nr-processo
field nr-seq-digitacao                                    like moviptmp.nr-seq-digitacao
field cd-unidade-solicitante                           like moviptmp.cd-unidade 
field cd-prestador-solicitante                         like moviptmp.cd-prestador
field nr-guia-operadora                                 as char
field nr-guia-principal                                    as char
field cd-unidade-principal                             like moviptmp.cd-unidade 
field cd-prestador-principal                           like moviptmp.cd-prestador
field tp-atendimento                                     like docretmp.tp-atend
field nr-guia                                                  as dec
field cd-pos-equipe                                      like moviptmp.cd-pos-equipe
field in-nivel-prestador                                  like moviptmp.in-nivel-prestador
field dt-realizacao                                        like moviproc.dt-realizacao
field cd-unidade-dh                                      like moviptmp.cd-unidade 
field cd-prestador-dh                                    like moviptmp.cd-prestador
field cd-trans-classe                                     like pipresta.cd-trans-classe
field in-classe-nota                                      like assotrcl.in-classe-nota 
field tp-atend                                               as char format "x(2)" 
field cr-solicitacao                                        as char format "x(1)"
field cd-unid-princ                                        like moviptmp.cd-unidade 
field cd-prest-princ                                       like moviptmp.cd-prestador
field cd-via-acesso                                       like moviptmp.cd-via-acesso
field vl-cobrado                                            like moviptmp.vl-cobrado
field cd-tab-preco-proc-pag                          like preinpr.cd-tab-preco-proc
field in-tp-guia                                              as intnr-rowid-usuario
field cd-modalidade                                     like modalid.cd-modalidade
field nr-ter-adesao                                       like propost.nr-ter-adesao
field cd-usuario                                           like usuario.cd-usuario
field tp-consulta                                          like docrecon.tp-consulta
field cd-tipo-insumo                                     like mov-itmp.cd-tipo-insumo
field cd-plano                                              like pla-sau.cd-plano 
field cd-tipo-plano                                       like ti-pl-sa.cd-tipo-plano 
field dt-atend-movto                                    as date format "99/99/9999"
field tp-tabela                                              as int format "99"
field nr-versao-aux                                      as char initial ""

field cd-local-atendimento                           like locaaten.cd-local-atendimento
 

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama CPC-API-LOTE-GUIA.P. O valor desse campo deve ser "CONSULTA";
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa API-LOTE-GUIA.P. Ex: "CONS-CARTEIRA";
  • nr-carteira-benef – Carteira do beneficiário (Unidade e carteira);
  • cd-unidade-prestador – Código da unidade do prestador;
  • cd-prestador – Código do prestador;
  • nr-prestador – Identificação do Prestador (CNPJ ou CPF ou Unidade do Prestador + Código do Prestador);
  • pc-red-acr – Fator de aplicação ao valor do movimento informado no arquivo XML.
  • nr-cnpj-principal – Identificação do Prestador Principal (CNPJ ou CPF ou Unidade do Prestador + Código do Prestador );
  • in-tipo – Tipo do prestador S – Solicitante, E – Executante ou sem valor quando Prestador Principal;
  • cd-unid-prest-membro-eqp
  • cd-prestador-membro-eqp
  • aa-guia-atendimento – Ano da guia de atendimento;
  • nr-guia-atendimento – Número da guia de atendimento.
  • cd-procedimento – Código do procedimento.
  • lg-urgencia – Log que indica se é um procedimento de urgência ou não.
  • cd-uni-carteira – Código da Unidade da Carteira 
  • nr-guia-prestador – Número da Guia do Prestador
  • cd-conselho – Código do conselho do profissional;
  • nr-regisro – Número de registro, no conselho, do profissional;
  • cd-uf-conselho – Código da Unidade federativa do conselho profissional;
  • in-tipo-guia – Código do tipo de guia (classe de nota);
  • cd-id-contratado – Código de identificação do profissional principal
  • nm-contratado – Nome do profissional principal;
  • cd-id-contratado-executante – Código de identificação do profissional executante;
  • nm-contratado-executante – Nome do profissional executante;
  • nm-profissional-executante – Nome do profissioal executante complementar;
  • cd-unidade – Código da Unidade do documento;
  • cd-unidade-prestadora – Código da Unidade Prestadora do serviço;
  • cd-trasancao – código da transação;
  • nr-serie-doc-original – Numero de serie do documento;
  • nr-doc-original – Número do documento do Revisão do Contas
  • recid-lote – Recid da loteimp
  • lg-base – Indica se o beneficiário é da base
  • lg-gri – Indica se é uma guai de internação
  • nr-seq-interno – Número da sequencia do documento;
  • cd-insumo – Código do insumo;
  • nr-processo – Numero do processo do movimento;
  • nr-seq-digitacao – Número da sequencia de digitação, dentro do processo, do movimento;
  • cd-undiade-solicitante – Código da unidade do prestador solicitante;
  • cd-prestador-solicitante – Código do prestador solicitante;
  • nr-guia-operadora – Código da Guia na operaroda, informado pelo prestador através do lote guias recebido;
  • nr-guia-principal – Código da Guia principal a qual o documento estaá vinculado, informado pelo prestador através do lote guias recebido;
  • cd-unidade-principal – Codigo da unidade pricipal
  • cd-prestador-principal – Codigo do prestador principal
  • tp-atendimetno – Tipo do atendimetno realizado
  • nr-guia – Número da Guia de Autorização;
  • cd-pos-equipe – Código da posição do profissional na equipe;
  • in-nivel-prestador – Código no nível do prestador;
  • dt-realizacao – Data de realização do movimento;
  • cd-unidade-dh – Código da Unidade do prestador da Divisão de Honorários;
  • cd-prestador-dh – Código do prestador da Divisão de Honorários.
  • cd-trans-classe – Código da Associativa Transação X Classe
  • in-classe-nota – Número da Classe da Nota
  • tp-atend – Tipo de Atendimento conforme códigos Pré-Estabelecidos
  • cr-solicitacao – Caráter da Internação da Solicitação
  • cd-unid-princ – Unidade do prestador principal
  • cd-prest-princ – Código do prestador principal
  • cd-via-acesso – Via de Acesso do procedimento
  • vl-cobrado – Valor cobrado
  • cd-tab-preco-proc-pag – Tabela de preço
  • in-tp-guia – Tipo de guia
  • cd-tipo-insumo – Tipo de insumo
  • cd-plano – Código do plano 
  • cd-tipo-plano – Código do tipo de plano 
  • dt-atend-movto – Data de atendimento da guia 
  • tp-tabela – Tipo de Tabela 
  • nr-versao-aux – Número da versão. 
  • cd-local-atendimento - Local de atendimento.

Tabela de saída tmp-cpc-api-lote-guia-saida

def temp-table tmp-cpc-api-lote-guia-saida no-undo

field lg-undo-retry                                        as log
field ds-mensagem-retorno                         as char format "x(75)"
field cd-unidade-carteira                              like docretmp.cd-unidade-carteira
field cd-carteira-usuario                               like docretmp.cd-carteira-usuario
field cd-unidade-prestador                          like preserv.cd-unidade
field cd-prestador                                        like preserv.cd-prestador
field lg-pc-red-acr-diferente                         as log 
field pc-red-acr                                           like moviptmp.pc-red-acr
field cd-tipo-percentual                               like moviptmp.cd-tipo-percentual
field cd-transacao                                       like guiautor.cd-transacao
field lg-urgencia                                          as log
field nr-doc-original                                     like docrecon.nr-doc-original
field lg-div-honosadt                                   as log
field cd-unidade-solicitante                         like moviptmp.cd-unidade 
field cd-prestador-solicitante                       like moviptmp.cd-prestador
field nr-guia                                                as dec
field in-nivel-prestador                                like moviptmp.in-nivel-prestador
field cd-unidade-dh                                    like moviptmp.cd-unidade 
field cd-prestador-dh                                  like moviptmp.cd-prestador
field cd-motivo-alta                                     like docrecon.cd-motivo-alta
field dt-internacao                                      like docrecon.dt-internacao 
field dt-alta                                                like docrecon.dt-alta 
field hr-internacao                                     like docrecon.hr-internacao 
field hr-alta                                                like docrecon.hr-alta
field aa-guia-atendimento                         like docrecon.aa-guia-atendimento
field nr-guia-atendimento                          like docrecon.nr-guia-atendimento
field lg-grava-movto                                  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-retorno – Variável que recebe a descrição dos erros que ocorreram na CPC. 
  • cd-unidade-carteira – Unidade da carteira do beneficiário;
  • cd-carteira-usuario – Numero da carteira do beneficiário;
  • cd-unidade-prestador –Código da unidade do prestador;
  • cd-prestador – Código do prestador;
  • pc-red-acr – Fator de aplicação ao valor do movimento informado no arquivo XML.;
  • cd-tipo-percentual –
  • lg-pc-red-acr-diferente –
  • cd-transacao – Código da transação.
  • lg-urgencia – Log que indica se é um procedimento de urgência ou não. 
  • nr-doc-original – Número do documento do Revisão do Contas;
  • lg-div-honosadt – Indica se para o movimento em questão irá ou não ter divisão de honorários;
  • cd-unidade-solicitante – Codigo da Unidade do prestador solicitante;
  • cd-prestador-solicitante – Código do Prestador solicitante;
  • nr-guia – Numero da Guia de Autorização
  • in-nivel-prestador – Codigo do nível do prestador;
  • cd-unidade-dh – Código da Unidade do Prestador de Divisão de Honorários
  • cd-prestador-dh – Código do Prestador de Divisão de Honorários;
  • cd-motivo-alta - Código do motivo da alta.
  • dt-internacao - Data em que um beneficiário foi internado.
  • dt-alta – Data em que o beneficiário recebeu alta.
  • hr-internacao – Hora em que o beneficiário foi internado.
  • hr-alta – Hora em que o beneficiário recebeu alta
  • lg-grava-movto – Indica se, no retorno da CPC, o movimento será gravado ou não.