Página editado por Tiago Drehmer CPC-BOSAU-IMPORT-A500.P Produto: Gestão de Planos de Saúde Módulo:HRC Versão:A partir da 12.1.29.11, 12.1.31.6 e 12.1.32.1 Assuntos: cpc-bosau-import-A500 Programa para importação do PTU A500 XML. Caso o cliente não queira executar a chamada da CPC deve colocar "CPC ativo" como "não" no seu cadastro. Pontos de utilização "GLOSA-IMPORT" "DATA-RECEBIM" "TRATA-PROC" "DADOS-INTERN" "LOC-TRANS-GUIA" "BUSCA-TRANS-DOC" Include das definições das tabelas temporárias cpc-bosau-import-A500.i Tabelas de entrada e de saída Tabela de entrada: tmp-cpc-import-A500-entrada def temp-table tmp-cpc-import-a500-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 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 cd-unidade-solicitante like docrecon.cd-unidade-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 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 field recid-guia-autor as recid field in-classe-nota like guiautor.in-classe-nota field lg-movto-divi as log field cd-tipo-vinculo like moviproc.cd-tipo-vinculo field cd-esp-prest-executante like moviproc.cd-esp-prest-executante field dt-realizacao like moviproc.dt-realizacao field aa-guia-atendimento like guiautor.aa-guia-atendimento field nr-guia-atendimento like guiautor.nr-guia-atendimento field cd-serie-nf like notapres.cd-serie-nf field aa-fatura like notapres.aa-fatura field nr-fatura like notapres.cod-fatur-ap field dt-emissao like notapres.dt-emissao field dt-recebimento like notapres.dt-recebimento field cd-unidade-ant like car-ide.cd-unimed field cd-carteira-usuario-ant like car-ide.cd-carteira-inteira field cd-modalidade-ant like docretmp.cd-modalidade field cd-usuario-ant like docretmp.cd-usuario field nr-ter-adesao-ant like docretmp.nr-ter-adesao field nr-via-carteira-ant like docretmp.nr-via-carteira field cd-unidade-carteira like car-ide.cd-unimed field cd-carteira-usuario like car-ide.cd-carteira-inteira field nr-via-carteira like car-ide.nr-carteira field in-glosa as int field cd-proc-insu like presmovt.cd-proc-insu field cd-unidade-executante like preserv.cd-unidade field cd-prestador-executante 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 moviptmp.nr-seq-digitacao field in-tipo-movimento as int field cd-unidade-imp like moviproc.cd-unidade-imp field cd-prestador-imp like moviproc.cd-prestador-imp field nr-lote-imp like moviproc.nr-lote-imp field nr-sequencia-imp like moviproc.nr-sequencia-imp field in-ato-medico as int field r-movto as recid field linha-arquivo as char field tp-atend as char field tp-nota as char field cd-trans-classe like pipresta.cd-trans-classe field rowid-servico-ptu as rowid. Definição campo a campo da tabela de entrada in-evento-programa - nome do evento (utilizado para pontos que possuem múltiplas chamadas); nm-ponto-chamada-cpc - nome do ponto de chamada da CPC; 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; cd-unidade-solicitante - código da unidade solicitante; cd-prestador-solicitante - código do prestador solicitante; nr-serie-doc-original - série do documento; nr-doc-original - número do documento; in-tp-movto - tipo do movimento; cd-tipo-insumo - código do tipo do insumo; cd-movto - código do movimento; lg-benef-base - indica se beneficiário é da base ou não; recid-benef - identificador do usuário; recid-guia-autor - identificador da guia; in-classe-nota - identificador da classe de nota; lg-movto-divi - identificador; cd-tipo-vinculo - identificador do tipo de vínculo; cd-esp-prest-executante - código da especialidade; dt-realizacao - data de realização; aa-guia-atendimento - ano da guia; nr-guia-atendimento - número da guia; cd-serie-nf - série da fatura; aa-fatura - ano da fatura; nr-fatura - número da fatura; dt-emissao - data de emissão; dt-recebimento - data de recebimento; cd-unidade-ant - código da unidade anterior; cd-carteira-usuario-ant - código da carteira anterior; cd-modalidade-ant - código da modalidade anterior; cd-usuario-ant - código do usuário anterior; nr-ter-adesao-ant - número do termo de adesão anterior; nr-via-carteira-ant - número da via da carteira anterior; cd-unidade-carteira - código da unidade da carteira; cd-carteira-usuario - número da carteira do usuário; nr-via-carteira - número da via da carteira; in-glosa - identificador do tipo de glosa; cd-proc-insu - código do procedimento/insumo; cd-unidade-executante - código da unidade executante; cd-prestador-executante - código do prestador executante; lg-urgencia - indicador de urgência; lg-layout-serious - identificador de layout Serious ou PTU; lg-utiliza-palm - indica se utiliza palm; nr-seq-interno - número sequencial interno; nr-processo - número do processo; nr-seq-digitacao - número da sequencia de digitação; in-tipo-movimento - procedimento ou insumo - P ou I; cd-unidade-imp - código da unidade de importação; cd-prestador-imp - código da unidade de importação; nr-lote-imp - número do lote de importação; nr-sequencia-imp - número da sequencia do lote de importação; in-ato-medico - identifica o tipo de ato médico; r-movto - identificador do movimento; linha-arquivo - número da linha do arquivo; tp-atend - indicador do tipo de atendimento; tp-nota - indicador do tipo da nota; cd-trans-classe - código da associativa transação x classe de nota rowid-serivco-ptu - rowid do registro lido da tabela serivco-ptu. Tabela de saída: tmp-cpc-export-A500-saida def temp-table tmp-cpc-import-a500-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. Definição campo a campo da tabela de saída lg-undo-retry - campo que indica se ocorreram erros na CPC. Deve retornar "yes" se ocorrer algum erro ou "no" se o processo for concluído sem erros; ds-mensagem - mensagem de erro que deve ser retornada para o programa chamador caso ocorra algum erro na CPC; cd-movto-saida - código procedimento na saída da cpc; cd-transacao - código da transação; lg-obriga-dt-receb - indica se obriga informar data de recebimento do arquivo; lg-glosa-movimento - indica se vai glosar o movimento; lg-cart-ant - indica se busca o beneficiário pela carteira antiga; cd-carteira-benef - código da unidade da carteira; aa-guia-atendimento - ano da guia; nr-guia-atendimento - número da guia; cd-unidade-carteira - número da carteira do usuário; cd-tipo-insumo - código do tipo do insumo; lg-urgencia - indicador de urgência; cd-unidade-prestador - código da unidade do prestador; cd-prestador - código do prestador; lg-desconsidera-internacao - indicador se considera ou não internação; lg-verif-prest-exe - indica se o prestador executante será igual ao principal. Mostrar online · Ver Alterações Online Continue reading...