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. 

...

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     as char format "x(17)"
field nr-prestador                                            as char
field cd-unidade-prestador                            like   like moviptmp.cd-unidade 
field cd-prestador like                                           like moviptmp.cd-prestador
field pc-red-acr like                                                moviptmplike moviptmp.pc-red-acr
field nr-cnpj-principal                                   as    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  like guiautor.aa-guia-atendimento
field nr-guia-atendimento                                like like guiautor.nr-guia-atendimento
field cd-procedimento                                   as  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  like preserv.nr-registro 
field cd-uf-conselho                                       like preserv.cd-uf-conselho 
field in-tipo-guia                                            as int 
field cd-id-contratado                                   as  as dec 
field nm-contratado                                     as  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  like moviptmp.cd-unidade
field cd-unidade-prestadora                         like  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 as log
field nr-seq-interno                                      like   like moviptmp.nr-seq-interno
field cd-insumo                                           like  like mov-itmp.cd-insumo
field nr-processo                                         like  like moviptmp.nr-processo
field nr-seq-digitacao                                   like  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 as char
field nr-guia-principal                                    as char
field cd-unidade-principal                            like   like moviptmp.cd-unidade 
field cd-prestador-principal                            like like moviptmp.cd-prestador
field tp-atendimento                                     like docretmp.tp-atend
field nr-guia                                                 as  as dec
field cd-pos-equipe                                     like  like moviptmp.cd-pos-equipe
field in-nivel-prestador                                 like  like moviptmp.in-nivel-prestador
field dt-realizacao                                       like  like moviproc.dt-realizacao
field cd-unidade-dh                                     like  like moviptmp.cd-unidade 
field cd-prestador-dh                                   like  like moviptmp.cd-prestador
field cd-trans-classe                                    like   like pipresta.cd-trans-classe
field in-classe-nota                                     like  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  like moviptmp.cd-unidade 
field cd-prest-princ                                        like like moviptmp.cd-prestador
field cd-via-acesso                                       like moviptmp.cd-via-acesso
field vl-cobrado                                           like  like moviptmp.vl-cobrado
field cd-tab-preco-proc-pag                           like  like preinpr.cd-tab-preco-proc
field in-tp-guia                                              as intintnr-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  as int format "99"
field nr-versao-aux 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  like preserv.cd-unidade
field cd-prestador                                        like preserv.cd-prestador
field lg-pc-red-acr-diferente                        as   as log 
field pc-red-acr                                           like moviptmp.pc-red-acr
field cd-tipo-percentual                              like   like moviptmp.cd-tipo-percentual
field cd-transacao                                       like guiautor.cd-transacao
field lg-urgencia                                       as    as log
field nr-doc-original                                     like docrecon.nr-doc-original
field lg-div-honosadt                                   as log
field cd-unidade-solicitante                          like like moviptmp.cd-unidade 
field cd-prestador-solicitante                      like   like moviptmp.cd-prestador
field nr-guia                                             as    as dec
field in-nivel-prestador                                like moviptmp.in-nivel-prestador
field cd-unidade-dh                                   like  like moviptmp.cd-unidade 
field cd-prestador-dh                                 like  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 like docrecon.hr-internacao 
field hr-alta                                                like docrecon.hr-alta
field aa-guia-atendimento                          like like docrecon.aa-guia-atendimento
field nr-guia-atendimento                           like  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.
 
• •