CPC-RC0511N.P

Rotina utilizada para:

• Permitir a entrada de documento com a série duplicada, quando parametrizado na transação "Tipo de Seqüência = 04 –Seq. Serie/Documento";
• Permtir o bloqueio da importação de movimento, por prestador principal do(s) documento(s);
• Efetuar a conversão do código do procedimento, por vinculo e especialidade médica.
• Obrigar ou não que seja informada a data de recebimento da fatura.
• Retornar se será ou não mostrado o erro "Campo doc.ident.benef. da tabela temporaria difere doc.ident.benef. da guia "."
• Alterar o prestador executante dos movimentos.
• Criar movimentos.
• Armazenar informações especificas do movimento.
• 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.
• No programa RC0511N.p foi incluído um ponto de chamada para CPC-RC0511N.P. O ponto GLOSA-IMPORT.
• O mesmo é chamado:
• Antes da validação da Guia do documento.
• Antes da validação da carteira do beneficiário.
• Antes da validação dos procedimentos do documento.
• Antes da validação dos insumos do documento.
• Quando ativada a CPC o programa sempre entrará na mesma onde fara as consistências dos campos acima e se necessário substituirá os mesmos.

Localização

• Dentro do programa rc0511n.p:
• Quando da consistência do número do documento com o parâmetro, da transação, "Tipo de Seqüência = 04 –Seq. Serie/Documento" ;
• Quando da carga dos movimentos (procedimento, insumos ou pacote);
• Quando da consistência do código do procedimento;
• Quando do acesso a rotina de consistência/gravação da tabela NOTAPRES, para o ponto de "DATA-RECEBIM".
• Quando do processamento do Registro 502 Documento ao localizar a Guia de Atendimento associada ao documento, permitir que o documento seja importado com a Transacao da Guia de Atendimento.
• Quando os dados importados diferem da Guia de Autorização.
• Antes de gravar o prestador executante do movimento (procedimento/insumo).
• Após realização da carga dos movimentos (procedimento/insumo).
• Após a criação de cada movimento (procedimento/insumo).
• Ao efetuar a verificação da existência do prestador no cadastro de prestadores e efetuar a conversão.

Ponto de Utilização

• "SEQ-SERIE-DOCTO";DATA-RECEBIM"
• "LOC-TRANS-GUIA"
• "SEQ-SERIE-DOCTO""RESTRI-PREST";
• "TRATA-PROC" e 
• "DATARESTRI-RECEBIMPREST"
• "LOCCART-TRANS-GUIAANT"
• "CARTDADOS-ANTINTERN".
• "GLOSA-IMPORT".
• "ENTIDADE";
• "HORA-URGENCIA"
• "ALTERA-PREST";
• "CRIA-COMPL-MOVTO"
• "CRIA-MOVTOS";
• "COMPLCONVER-MOVTOPREST";
• "ANTAPOS-INCCARGA-PACOTEPROC"

Include das definições das tabelas temporárias

• CPC-RC0511N.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0511n-entrada

...

• "ANTES-PTUINTAB"
• "VERIF-PREST-EXE" - Ponto alterado a partir da 12.1.2209, sempre será considerado o valor retornado na temporária de saída da cpc (tmp-cpc-rc0511n-

...

• saida.lg-verif-prest-exe), independente do parâmetro "Exec igual Princ" do menu Manutenção Parâmetros Importação Prestador (RC0510L).
• "COMPL-MOVTO"

Include das definições das tabelas temporárias

• cpc-rc0511n.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0511n-entrada

def temp-table tmp-cpc-rc0511n-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    

    field in-evento-programa                 as char format "x(06)"

    field nm-ponto-chamada-cpc            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 docreconpreserv.cd-unidade-principal
        field cd-prestadorunidade-principal prestadora              like docreconlike preserv.cd-prestador-principal    unidade
    field cd-transacao                  like docrecon.cd-transacao
    field cd-unidade-solicitante   principal            like docrecon.cd-unidade-solicitanteprincipal
        field cd-prestador-solicitante     principal        like docrecon.cd-prestador-solicitanteprincipal
        field nrcd-serieunidade-doc-original solicitante                 like  like docrecon.nrcd-serie-doc-original    field nrunidade-solicitante
    field cd-prestador-solicitante      like docrecon.cd-prestador-solicitante
    field nr-serie-doc-original         like docrecon.nr-serie-doc-original 
    field nr-doc-original               like docrecon.nr-doc-original
        field in-tp-movto                            as as char format "x(01)"
        field cd-tipo-insumo                        like insumos.cd-tipo-insumo
        field cd-movto                                like insumos.cd-insumo
        field lg-benef-base                         as log
        field recid-benef                     as recid
       as recid    field recid-guia-autor                  as recid
    as recid    field in-classe-nota                        like guiautor.in-classe-nota
        field lg-movto-divi                     as log 
     as log    field cd-tipo-vinculo                       like moviproc.cd-tipo-vinculo
        field cd-esp-prest-executante          like like moviproc.cd-esp-prest-executante
        field dt-realizacao                          like like moviproc.dt-realizacao
        field aa-guia-atendimento               like guiautor.aa-guia-atendimento
        field nr-guia-atendimento                like like guiautor.nr-guia-atendimento
        field cd-serie-nf                             like notapres.cd-serie-nf  nf   
        field aa-fatura                               like notapres.aa-fatura        fatura     
    field nr-fatura                                like like notapres.nr-fatura        cod-fatur-ap     
    field dt-emissao                             like  like notapres.dt-emissao       emissao    
    field dt-recebimento                       like  like notapres.dt-recebimento
        field cd-unidade-ant                       like  like car-ide.cd-unimed             unimed          
    field cd-carteira-usuario-ant            like like car-ide.cd-carteira-inteira
        field cd-modalidade-ant                 like docretmp.cd-modalidade
        field cd-usuario-ant                       like  like docretmp.cd-usuario
        field nr-ter-adesao-ant                   like docretmp.nr-ter-adesao
        field nr-via-carteira-ant                  like like docretmp.nr-via-carteira
        field cd-unidade-carteira               like car-ide.cd-unimed
        field cd-carteira-usuario                like like car-ide.cd-carteira-inteira
        field nr-via-carteira                       like car-ide.nr-carteira
        field in-glosa                            as int
    as int    field cd-proc-insu                          like presmovt.cd-proc-insu
        field cd-unidade-executante          like like preserv.cd-unidade
        field cd-prestador-executante        like like preserv.cd-prestador
        field lg-urgencia                           as log
        field lg-layout-serious                   as log
        field lg-utiliza-palm                       as log
        field nr-seq-interno                      like docretmp.nr-seq-interno
        field nr-processo                         like moviptmp.nr-processo
        field nr-seq-digitacao                   like  like moviptmp.nr-seq-digitacao
    field     field in-tipo-movimento                as as int
        field cd-unidade-imp                   like  like moviproc.cd-unidade-imp
        field cd-prestador-imp                 like  like moviproc.cd-prestador-imp
        field nr-lote-imp                          like like moviproc.nr-lote-imp
        field nr-sequencia-imp                 like  like moviproc.nr-sequencia-imp
        field in-ato-medico                 as int
     as int    field r-movto                       as recid
    field linha-arquivo                  as recid    field in-obriga-para as char
    field tp-atend                      like presmovt.int-1.  

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama a cpc-rc0511n.p.
  •  “IMPORTACAO” ou  “BUSCA-GUIA”.
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rc0511n.p:
  •  “SEQ-SERIE-DOCTO”, “RESTRI-PREST”, “TRATA-PROC” , “DATA-RECEBIM”, LOC-TRANS-GUIA”, “CART-ANT”, “ALTERA-PREST”, “CRIA-COMPL-MOVTO” e “CRIA-MOVTOS”.
  • 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 do prestador principal;
  • cd-prestador-principal – Código do prestador Principal;
  • nr-serie-doc-original – Número da Série do documento;
  • nr-doc-original –  Número do documento;
  • in-tp-movimento – Indicador que represanta o tipo do movimento (“P” – Procedimento, “I” – Insumo e “A” – Pacote);
  • cd-tipo-insumo – Código do tipo do insumo. Somente terá conteúdo quando o parâmetro in-tp-movimento for igual a “I”.
  • cd-movto – Código do movimento. Quando o parâmetro in-tp-movimento for igual a “I”, então será o código do insumo, quando o parâmetro in-tp-movimento for igual a “P”, então será o código do procedimento e quando o parâmetro in-tp-movimento for igual a “A”, então será o código do pacote.
  • lg-benef-base – parâmetro que indica se o beneficiário é ou não da operadora base ou de intercãmbio;
  • recid-benef – Recid da tabela USUARIO, quando o beneficiário for da base e da tabela OUT-UNI, quando o beneficiário for de intercâmbio;
  • recid-guia-autor – Recid da tabela GUIAUTOR, quando existir uma guia de autorização para o beneficiário;
  • in-classe-nota – Código da classe de nota do documento (Consulta, SP/SADT, Internação,...);
  • lg-movto-div – Indica se o movimento é ou não da divisão de honorários;
  • cd-tipo-vinculo – Código do tipo do vinculo do prestador executante;
  • cd-esp-prest-executante – Código da especialidade do prestador executante;
  • dt-realizacao – Data de realização do movimento;
  • aa-guia-atendimento – Ano da Guia de Atendimento informada no arquivo texto associada ao documento.
  • nr-guia-atendimento – Numero da Guia de Atendimento informada no arquivo texto associada ao documento.
  • cd-serie-fatura – Série da fatura;
  • aa-fatura – Ano Base da fatura;
  • nr-fatura – Número da fatura;
  • dt-emissao – Data de emissão da fatura;
  • dt-recebimento – Data de recebimento da fatura
  • cd-carteira-usuario-ant – código da carteira do usuário;
  • cd-modalidade-ant- código da modalidade;
  • cd-usuario-ant- código do usuário;
  • nr-ter-adesao-ant- Número do termo de adesão;
  • nr-via-carteira-ant – Número da via da carteira;
  • cd-unidade-carteira – Unidade da Carteira para validação;
  • cd-carteira-usuario – Código da Carteira para validação;
  • nr-via-carteira – Via da carteira para validação;
  • in-glosa – Para validação de Glosa.
  • cd-proc-insu – Código do Procedimento/Insumo.
  • lg-urgencia – Indicador de procedimento com urgência.
  • Lg-layout-serious – Indica se esta sendo utilizado o layout serious ou ptu.
  • Lg-utiliza-plam – Indica  se utiliza palm.
  • Nr-seq-interno - Número da sequencia interna do movimento.
  • Nr-processo – Número do processo do movimento.
  • Nr-seq-digitacao – Número seqüencial de digitação do movimento.
  • In-tipo-movimento – indica se o movimento é pertencente ao PTU A500 ou PTU A700.
  • Cd-unidade-imp – Código da unidade do prestador de importação;
  • Cd-prestador-imp – Código do prestador da unidade de importação;
  • Nr-lote-imp – Número do lote de importação;
  • Nr-sequencia-imp – Sequencia do lote de importação;
  • In-ato-medico – Indicador de ato principal ou auxiliar;
  • R-movto – Recid da temporária tmp-moviptmp quando in-tp-movimento for igual a “P” ou o recid da temporária tmp-mov-itmp quando in-tp-movimento for igual a “I”.
  • In-obriga-para – Indica se é obrigatorio considerar regra parametrizada

Tabela de saída tmp-cpc-rc0511n-saida

def temp-table tmp-cpc-rc0511n-saida     no-undo

...

 as char
    field tp-nota                       as char
    field cd-tipo-tab                   as int
    field cd-cont-movto                 as int.      

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama a cpc-rc0511n.p.
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
  • 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 do prestador principal;
  • cd-prestador-principal – Código do prestador Principal;
  • nr-serie-doc-original – Número da Série do documento;
  • nr-doc-original –  Número do documento;
  • in-tp-movimento – Indicador que represanta o tipo do movimento (“P” – Procedimento, “I” – Insumo e “A” – Pacote);
  • cd-tipo-insumo – Código do tipo do insumo. Somente terá conteúdo quando o parâmetro in-tp-movimento for igual a “I”.
  • cd-movto – Código do movimento. Quando o parâmetro in-tp-movimento for igual a “I”, então será o código do insumo, quando o parâmetro in-tp-movimento for igual a “P”, então será o código do procedimento e quando o parâmetro in-tp-movimento for igual a “A”, então será o código do pacote.
  • lg-benef-base – parâmetro que indica se o beneficiário é ou não da operadora base ou de intercãmbio;
  • recid-benef – Recid da tabela USUARIO, quando o beneficiário for da base e da tabela OUT-UNI, quando o beneficiário for de intercâmbio;
  • recid-guia-autor – Recid da tabela GUIAUTOR, quando existir uma guia de autorização para o beneficiário;
  • in-classe-nota – Código da classe de nota do documento (Consulta, SP/SADT, Internação,...);
  • lg-movto-div – Indica se o movimento é ou não da divisão de honorários;
  • cd-tipo-vinculo – Código do tipo do vinculo do prestador executante;
  • cd-esp-prest-executante – Código da especialidade do prestador executante;
  • dt-realizacao – Data de realização do movimento;
  • aa-guia-atendimento – Ano da Guia de Atendimento informada no arquivo texto associada ao documento.
  • nr-guia-atendimento – Numero da Guia de Atendimento informada no arquivo texto associada ao documento.
  • cd-serie-fatura – Série da fatura;
  • aa-fatura – Ano Base da fatura;
  • nr-fatura – Número da fatura;
  • dt-emissao – Data de emissão da fatura;
  • dt-recebimento – Data de recebimento da fatura
  • cd-carteira-usuario-ant – código da carteira do usuário;
  • cd-modalidade-ant- código da modalidade;
  • cd-usuario-ant- código do usuário;
  • nr-ter-adesao-ant- Número do termo de adesão;
  • nr-via-carteira-ant – Número da via da carteira;
  • cd-unidade-carteira – Unidade da Carteira para validação;
  • cd-carteira-usuario – Código da Carteira para validação;
  • nr-via-carteira – Via da carteira para validação;
  • in-glosa – Para validação de Glosa.
  • cd-proc-insu – Código do Procedimento/Insumo.
  • lg-urgencia – Indicador de procedimento com urgência.
  • Lg-layout-serious – Indica se esta sendo utilizado o layout serious ou ptu.
  • Lg-utiliza-plam – Indica  se utiliza palm.
  • Nr-seq-interno - Número da sequencia interna do movimento.
  • Nr-processo – Número do processo do movimento.
  • Nr-seq-digitacao – Número seqüencial de digitação do movimento.
  • In-tipo-movimento – indica se o movimento é pertencente ao PTU A500 ou PTU A700.
  • Cd-unidade-imp – Código da unidade do prestador de importação;
  • Cd-prestador-imp – Código do prestador da unidade de importação;
  • Nr-lote-imp – Número do lote de importação;
  • Nr-sequencia-imp – Sequencia do lote de importação;
  • In-ato-medico – Indicador de ato principal ou auxiliar;
  • R-movto – Recid da temporária tmp-moviptmp quando in-tp-movimento for igual a “P” ou o recid da temporária tmp-mov-itmp quando in-tp-movimento for igual a “I”.
  • In-obriga-para – Indica se é obrigatorio considerar regra parametrizada
  • linha-arquivo - Linha do Arquivo A500 Serious
  • tp-atend - Indica o tipo de atendimento PTU
  • tp-nota - Indica o tipo de nota
  • cd-tipo-tab - Indica o tipo de tabela de insumos
  • cd-cont-movto - Indica o tipo do movimento PTU.

Tabela de saída tmp-cpc-rc0511n-saida

def temp-table tmp-cpc-rc0511n-saida no-undo

    field lg-undo-retry                 as log
    field ds-mensagem                   as char format "x(75)"
    field cd-movto-saida                like ambcbhpm.cd-amb
    field cd-transacao                  like moviproc.cd-transacao
    field lg-obriga-dt-receb            as log
    field lg-glosa-movimento            as log
    field lg-cart-ant                   as log
    field cd-carteira-benef             like car-ide.cd-carteira-inteira
    field aa-guia-atendimento           like guiautor.aa-guia-atendimento  
    field nr-guia-atendimento           like guiautor.nr-guia-atendimento
    field cd-unidade-carteira           like car-ide.cd-unimed
    field cd-tipo-insumo                like tipoinsu.cd-tipo-insumo
    field lg-urgencia                   as log
    field

...

cd-unidade-prestador          like moviproc.cd-unidade-prestador
    field cd-prestador                

...

 like moviproc.cd-

...

prestador
    field

...

lg-desconsidera-internacao    as log
    field lg-verif-prest-exe            as log
   

...

field cd-

...

tipo-insumo-saida          as int
   

...

field

...

cd-

...

insumo-

...

saida              

...

as int
   

...

field cd-tipo-

...

tab-

...

saida            

...

as int
    field lg-verifica-ptuinsum        

...

 as log initial yes.

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 acontecerem e NÃO se o processo foi concluído por completo.
  • ds-mensagem – Mensagem de aviso ou de erro.
  • cd-movto-saida – Código do movimento convertido, se houve conversão do código do procedimento quando a rotina for chamada no ponto de chamada “TRATA-PROC”.
  • Cd-transacao – Indica o codigo da transação a ser utilizada após apassagem pela CPC para a importação do documento.
  • lg-obriga-dt-receb - Indicador de obrigatoriedade ou não da informação, por parte do usuário, da data de recebimento da fatura. Este indicador somente é utilizado no retorno do ponto de chamada “DATA-RECEBIM".
  • lg-cart-ant- Variável que controla se o erro "Campo doc.ident.benef. da tabela temporaria difere doc.ident.benef. da guia " deve ser mostrado ou não.
  • lg-carteira-benef – Indica se existe carteira do beneficiário.
  • aa-guia-atendimento – Ano da Guia de Atendimento.
  • nr-guia-atendimento – Número da Guia de Atendimento.
  • cd-unidade-carteira – Unidade da Carteira do Beneficiário.
  • cd-tipo-insumo – Código do tipo de insumo.
  • Cd-unidade-prestador – Código da unidade do prestador executante;
  • Cd-prestador – Código do prestador executante;
  • lg-cpc-ant-inc-pacote-restr – indica se o movimento deve ser restringido;
  • lg-desconsidera-internacao - Indica se desconsidera internação.
  • lg-verif-prest-exe - Verifica prestador executante.
  • cd-tipo-insumo-saida - indica o tipo de insumo.
  • cd-insumo-saida - código do insumo.
  • cd-tipo-tab-saida - indica o tipo da tabela de insumo.
  • lg-verifica-ptuinsum - variável que indica se o código insumo foi alterado ou não quando a rotina for chamada no ponto "ANTES-PTUINTAB"

field nr-guia-atendimento          like guiautor.nr-guia-atendimento

field cd-unidade-carteira           like car-ide.cd-unimed

field cd-tipo-insumo                  like tipoinsu.cd-tipo-insumo

field cd-unidade-prestador         like moviproc.cd-unidade-prestador

field cd-prestador                       like moviproc.cd-prestador

field lg-cpc-ant-inc-pacote-restr   as log.  

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 acontecerem e NÃO se o processo foi concluído por completo.
  • ds-mensagem – Mensagem de aviso ou de erro.
  • cd-movto-saida – Código do movimento convertido, se houve conversão do código do procedimento quando a rotina for chamada no ponto de chamada “TRATA-PROC”.
  • Cd-transacao – Indica o codigo da transação a ser utilizada após apassagem pela CPC para a importação do documento.
  • lg-obriga-dt-receb - Indicador de obrigatoriedade ou não da informação, por parte do usuário, da data de recebimento da fatura. Este indicador somente é utilizado no retorno do ponto de chamada “DATA-RECEBIM".
  • lg-cart-ant- Variável que controla se o erro "Campo doc.ident.benef. da tabela temporaria difere doc.ident.benef. da guia " deve ser mostrado ou não.
  • lg-carteira-benef – Indica se existe carteira do beneficiário.
  • aa-guia-atendimento – Ano da Guia de Atendimento.
  • nr-guia-atendimento – Número da Guia de Atendimento.
  • cd-unidade-carteira – Unidade da Carteira do Beneficiário.
  • cd-tipo-insumo – Código do tipo de insumo.
  • Cd-unidade-prestador – Código da unidade do prestador executante;
  • Cd-prestador – Código do prestador executante;
  • lg-cpc-ant-inc-pacote-restr – indica se o movimento deve ser restringido.