cpc-rc0313a.p0

Rotina para consultar dados na exclusão do documento.
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
Dentro do programa rc0313a.p, o ponto de chamada "CONS-PRESTADOR" é chamado após informar os dados do prestador.
Ponto de Utilização
"CONS-PRESTADOR"
Include das definições das tabelas temporárias
cpc-rc0313a.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0313a-entrada
def temp-table tmp-cpc-rc0313a-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field tp-exclusao as char format "x(15)"
field cd-unidade like preserv.cd-unidade
field cd-unidade-prestadora like preserv.cd-unidade
field cd-transacao like docrecon.cd-transacao
field cd-unidade-principal like docrecon.cd-unidade-principal
field cd-prestador-principal like docrecon.cd-prestador-principal
field nr-serie-doc-original like docrecon.nr-serie-doc-original
field nr-doc-original like docrecon.nr-doc-original
field nr-doc-sistema like docrecon.nr-doc-sistema
field aa-guia-atend like docrecon.aa-guia-atendimento
field nr-guia-atend like docrecon.nr-guia-atendimento
field cd-unidade-seccional like preserv.cd-unidade-seccional.
Definição campo a campo da tabela de entrada
in-evento-programa- Identifica qual evento deve ser executado no momento que está sendo chamada
nm-ponto-chamada-cpc – Ponto de chamada da cpc
tp-exclusao – Tipo de exclusão
cd-unidade – Código da unidade
cd-unidade-prestadora – Código da unidade prestadora
cd-transacao – Código da transação
cd-unidade-principal – Código da unidade principal
cd-prestador-principal – Código do prestador principal
nr-serie-doc-original – Numero de série do documento original
nr-doc-original – Numero do documento original
nr-doc-sistema – Numero do documento do sistema
aa-guia-atend – Ano da guia de atendimento
nr-guia-atend – Número da guia de atendimento
cd-unidade-seccional – Unidade seccional do prestador
Tabela de saída tmp-cpc-rc0313a-saida
def temp-table tmp-cpc-rc0313a-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char format "x(75)".
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.

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 int
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 "".
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.
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.