Histórico da Página
...
- "SUBST-PRES-EXEC"
- "CONTA-ANEST"
- "HORA-URGENCIA"
- "DATA-BASE-MOVTO"
- "MUDA-VEZES-TAB": Utilizado para modificar a quantidade de vezes que será aplicada a tabela de moedas.
- "ALTERA-VALOR": Utilizado para modificar o valor do procedimento
- "MODULO-COBERT": Permitir valorizar determinados procedimentos de pediatria, considerando o modulo de cobertura relacionado a outro procedimento.
- "APÓSAPOS-VALORIZA"
- "CONS-PRESTADOR"
- "CONS-PRAZO"
- "ANTES-CARENCIA"
- "VERIF-ANEST"
- "ANTES-GLOSAR"
- "APOS-GLOSA-53"
- "CONTR-QUANT": Utilizado para indicar se será feito o controle quantitativo do movimento.
- "COMPL-MOVTO" :Utilizado para criar complemento do movimento.
- "ALT-VALOR-COB" :Utilizado para alterar o valor de cobrança do movimento.
- "ANTES-GLO-BASE"
- "ANTES-GLO-PROC"
Include das definições das tabelas temporárias
- cpc-rcapi021.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rcapi021-entrada
def temp-table tmp-cpc-rcapi021-entrada no-undo
- "TRAB-COOPERADO"
- "ANT-RTVIGENCIA"
- "ANT-VERI-DUPLO": liberação a partir da 12.1.2301.
- "APOS-CRIA-COMPL": liberação a partir da 12.1.2301.
- "ANT-HR-URG-PAG" - a partir da versão 12.1.2301.
- "FIM-MANUTENCAO" - a partir da versão 12.1.2407.
Include das definições das tabelas temporárias
- cpc-rcapi021.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rcapi021-entrada
def temp-table tmp-cpc-rcapi021-entrada no-undo
field in-evento-programa field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as as char format "x(1510)"
field nm-ponto-chamada-cpc as char format "x(15)"
field in-entidade as char format "x(02)"
field dt-realizacao like moviproc.dt-base-valor
field dt-emissao like moviproc.dt-base-valor
field r-recid-periodo as recid
field r-recid-transacao as recid
field cd-uni-cart-ben like previesp.cd-unidade
field cd-uni-pres-exec like previesp.cd-unidade
field cd-pres-exec like previesp.cd-prestador
field dt-base-valor like moviproc.dt-base-valor
field dt-informada like moviproc.dt-base-valor
field cd-unidade-executante like moviproc.cd-unidade-prestador
field cd-prestador-executante like moviproc.cd-prestador
field cd-procedimento as int format 99999999
field lg-urgencia as log
field lg-anestesista as log
field cd-unidade like docrecon.cd-unidade
field cd-unidade-prestadora like docrecon.cd-unidade-prestadora
field cd-transacao like docrecon.cd-transacao
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 qt-fat-rep-urg like precproc.qt-fat-rep-urgencia
field vl-principal like moviproc.vl-principal
field vl-base-valor-sistema like moviproc.vl-base-valor-sistema
field vl-honorarios-medicos like moviproc.vl-honorarios-medicos
field qt-repasse like moviproc.qt-repasse
field qt-repasse-cob like moviproc.qt-repasse-cob
field lg-muda-qt-repasse like tranrevi.lg-muda-qt-repasse
field nr-rowid-precproc as rowid
field vl-cobrado like moviproc.vl-cobrado
field vl-auxiliar like moviproc.vl-auxiliar
field vl-taxa-out-uni-prin like moviproc.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi like moviproc.vl-taxa-out-uni-auxi
field aa-guia-atendimento like docrecon.aa-guia-atendimento
field nr-guia-atendimento like docrecon.nr-guia-atendimento
field lg-trab-cooperado like moviproc.lg-trab-cooperado
field pc-taxa-acp like moviproc.pc-aplicado
field pc-taxa-aca like moviproc.pc-aplicado
field nr-processo like moviproc.nr-processo
field nr-seq-digitacao like moviproc.nr-seq-digitacao
field vl-taxa-out-uni-cobrado like moviproc.vl-taxa-out-uni-cobrado
field cd-local-atendimento like locaaten.cd-local-atendimento.
field vl-cobrado-div-hono like moviproc.vl-cobrado
field vl-principal-div-hono like moviproc.vl-principal
field vl-auxiliar-div-hono like moviproc.vl-auxiliar
field vl-taxa-out-uni-cobrado-div-hono like moviproc.vl-taxa-out-uni-cobrado
field vl-taxa-out-uni-prin-div-hono like moviproc.vl-taxa-out-uni-cobrado
field vl-taxa-out-uni-prin-div-hono like moviproc.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi-div-hono like moviproc.vl-taxa-out-uni-auxi
field lg-simula as logical.
Definição campo a campo da tabela de entrada
-prin
field vl-taxa-out-uni-auxi-div-hono like moviproc.vl-taxa-out-uni-auxi
field lg-simula as logical
field cd-esp-amb like moviproc.cd-esp-amb
field cd-proce-amb like moviproc.cd-procedimento
field dv-procedimento like moviproc.dv-procedimento
field cd-motivo-alta like docrecon.cd-motivo-alta
field cd-faturamento like docrecon.cd-faturamento
field nm-decl-nasc-viv like docrecon.nm-decl-nasc-viv
field nm-decl-obito like docrecon.char-5
field cd-unidade-pagamento like moviproc.cd-unidade-pagamento
field cd-prestador-pagamento like moviproc.cd-prestador-pagamento
field tp-tec-util like moviproc.tp-tec-util
field h-moviproc as handle
field r-movto as rowid
field h-buffer-tmp-docrecon as handle
field h-buffer-tmp-moviproc as handle
field h-buffer-moviproc as handle
field h-buffer-movimen-proced-compl as handle
field cd-tab-preco-proc like moviproc.cd-tab-preco-proc
field dt-publicacao-pacote as date.
Definição campo a campo da tabela de entrada
- in-evento-programa – Evento do programa que chama a cpc-rcapi021.p.
- nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
- in-entidade – Identifica o modulo do sistema SERIOUS que esta efetuando acesso a rotina;
- dt-realização – Data de realização do movimento;
- dt-emissão – Data de emissão do movimento, se controle por fatura.
- r-recid-periodo – Recid da tabela PERIMOVI (Períodos de Movimentação);
- r-recid-transacao – Recid da tabela TRANREVI (Transação);
- cd-uni-cart-ben – Unidade da carteira do beneficiário;
- cd-uni-pres-exec – Unidade do prestador executante;
- cd-pres-exec – Prestador executante;
- dt-base-valor – Data base de valorização, selecionda pelo sistema;
- dt-informada – Data base para calculo informada.
- cd-unidade-executante – Código da unidade do prestador Executante.
- cd-prestador-executante – Código do prestador Executante.
- cd-procedimento – Código do procedimento atual.
- lg-urgencia – Log que define se o movimento é de urgência.
- cd-unidade – Código da unidade do beneficiário.
- cd-unidade-prestadora – Código da unidade prestadora.
- cd-transacao – Código da Transação.
- nr-serie-doc-original – Número da Série do documento Original.
- nr-doc-original – Número do documento Original.
- nr-doc-sistema – Número do documento no sistema.
- qt-fatrep-urgencia – Quantidade de vezes de pagamento da tabela quando estiver em urgência
- vl-principal – Valor do procedimento após a valorização do mesmo
- vl-base-valor-sistema - Valor que o sistema valorizou.
- vl-honorarios-medicos - Valor para honorários médicos.
- qt-repasse – Quantidade de vezes da tabela de moedas foi aplicada no procedimento
- qt-repasse-cob – Quantidade de vezes da tabela de moedas foi aplicada no procedimento para cobrança
- lg-muda-qt-repasse – Parâmetro da transação que informa se permite a modificação da quantidade da tabela
- nr-rowid-precproc – ROWID da tabela de moedas e carências utilizada
- vl-cobrado - Valor cobrado pelo prestador no procedimento.
- vl-auxiliar – Valor auxiliar cobrado pelo prestador no procedimento.
- vl-taxa-out-uni-prin – Valor da taxa quando prestador de outras unidades.
- vl-taxa-out-uni-auxi – Valor da taxa auxiliar quando prestador de outras unidades.
- aa-guia-atendimento – Ano da guia de atendimento.
- nr-guia-atendimento – N° da guia de atendimento.
- lg-trab-cooperado – Parâmetro de informação de trabalho cooperado.
- pc-taxa-acp – Percentual da taxa principal.
- pc-taxa-aca – Percentual da taxa auxiliar.
- nr-processo – Número do processo do movimento.
- nr-seq-digitacao – Número seqüencial de digitação do movimento.
- vl-taxa-out-uni-cobrado - Valor da taxa.
- dt-digitacao – Data de digitação do movimento.
- hr-realizacao – Hora de realização do movimento.
- cd-local-atendimento - Local de atendimento.
- vl-cobrado-div-hono - Valor cobrado referente à divisão de honorários.
- vl-principal-div-hono - Valor principal referente à divisão de honorários.
- vl-auxiliar-div-hono - Valor auxiliar referente à divisão de honorários.
- vl-taxa-out-uni-cobrado-div-hono - Valor da taxa referente ao valor cobrado da divisão de honorários
- in-evento-programa – Evento do programa que chama a cpc-rcapi021.p.
- nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
- in-entidade – Identifica o modulo do sistema SERIOUS que esta efetuando acesso a rotina;
- dt-realização – Data de realização do movimento;
- dt-emissão – Data de emissão do movimento, se controle por fatura.
- r-recid-periodo – Recid da tabela PERIMOVI (Períodos de Movimentação);
- r-recid-transacao – Recid da tabela TRANREVI (Transação);
- cd-uni-cart-ben – Unidade da carteira do beneficiário;
- cd-uni-pres-exec – Unidade do prestador executante;
- cd-pres-exec – Prestador executante;
- dt-base-valor – Data base de valorização, selecionda pelo sistema;
- dt-informada – Data base para calculo informada.
- cd-unidade-executante – Código da unidade do prestador Executante.
- cd-prestador-executante – Código do prestador Executante.
- cd-procedimento – Código do procedimento atual.
- lg-urgencia – Log que define se o movimento é de urgência.
- cd-unidade – Código da unidade do beneficiário.
- cd-unidade-prestadora – Código da unidade prestadora.
- cd-transacao – Código da Transação.
- nr-serie-doc-original – Número da Série do documento Original.
- nr-doc-original – Número do documento Original.
- nr-doc-sistema – Número do documento no sistema.
- qt-fatrep-urgencia – Quantidade de vezes de pagamento da tabela quando estiver em urgência
- vl-principal – Valor do procedimento após a valorização do mesmo
- vl-base-valor-sistema - Valor que o sistema valorizou.
- vl-honorarios-medicos - Valor para honorários médicos.
- qt-repasse – Quantidade de vezes da tabela de moedas foi aplicada no procedimento
- qt-repasse-cob – Quantidade de vezes da tabela de moedas foi aplicada no procedimento para cobrança
- lg-muda-qt-repasse – Parâmetro da transação que informa se permite a modificação da quantidade da tabela
- nr-rowid-precproc – ROWID da tabela de moedas e carências utilizada
- vl-cobrado - Valor cobrado pelo prestador no procedimento.
- vl-auxiliar – Valor auxiliar cobrado pelo prestador no procedimento.
- vl-taxa-out-uni-prin – -div-hono - Valor da taxa quando prestador de outras unidadesreferente ao valor principal da divisão de honorários.
- vl-taxa-out-uni-auxi – -div-hono - Valor da taxa auxiliar quando prestador de outras unidades.
- aa-guia-atendimento – Ano da guia de atendimento.
- nr-guia-atendimento – N° da guia de atendimento.
- lg-trab-cooperado – Parâmetro de informação de trabalho cooperado.
- pc-taxa-acp – Percentual da taxa principal.
- pc-taxa-aca – Percentual da taxa auxiliar.
- nr-processo – Número do processo do movimento.
- nr-seq-digitacao – Número seqüencial de digitação do movimento.
- vl-taxa-out-uni-cobrado - Valor da taxa.
- dt-digitacao – Data de digitação do movimento.
- hr-realizacao – Hora de realização do movimento.
- cd-local-atendimento - Local de atendimento.
- vl-cobrado-div-hono - Valor cobrado referente à divisão de honorários.
- vl-principal-div-hono - Valor principal referente à divisão de honorários.
- vl-auxiliar-div-hono - Valor auxiliar referente à divisão de honorários.
- vl-taxa-out-uni-cobrado-div-hono - Valor da taxa referente ao valor cobrado da divisão de honorários.
- vl-taxa-out-uni-prin-div-hono - Valor da taxa referente ao valor principal da divisão de honorários..
- vl-taxa-out-uni-auxi-div-hono - Valor da taxa referente ao valor auxiliar da divisão de honorários..
- referente ao valor auxiliar da divisão de honorários.
- lg-simula - Indica se o processo é uma simulação.
- cd-esp-amb - os dígitos 1-2 do código do procedimento;
- cd-proce-amb - os dígitos 5-7 do código do procedimento;
- dv-procedimento - dígito verificador do código do procedimento;
- cd-motivo-alta - código do motivo de alta;
- cd-faturamento - código do tipo de faturamento;
- nm-decl-nasc-viv - declaração de nascido vivo;
- nm-decl-obito - declaração de óbito;
- cd-unidade-pagamento - código da unidade do prestador de pagamento;
- cd-prestador - pagamento - código do prestador de pagamento;
- tp-tec-util - código da técnica utilizada
- h-moviproc - handle para a tabela temporária tmp-moviproc
- r-movto - rowid do procedimento (tabela ambproce)
- h-buffer-tmp-docrecon - handle para o buffer do registro corrente da tabela temporária tmp-docrecon
- h-buffer-tmp-moviproc - handle para o buffer do registro corrente da tabela temporária tmp-moviproc
- h-buffer-moviproc - handle para o buffer do registro corrente da tabela moviproc
- h-buffer-movimen-proced-compl - handle para o buffer do registro corrente da tabela movimen-proced-compl
- cd-tab-preco-proc - tabela de quantidade de moedas para pagamento
- dt-publicacao-pacote - data do pacote sispaclg-simula - Indica se o processo é uma simulação.
Tabela de saída tmp-cpc-rcapi021-saida
def temp-table tmp-cpc-rcapi021-saida no-undo-cpc-rcapi021-saida no-undo
field dt-base-valor like moviproc.dt-base-valor
field lg-undo-retry as log
field ds-mensagem field dt-base-valor as char
field cd-unidade-encaminhamento like moviproc.dt-base-valorcd-unidade-prestador
field cd-prestador-encaminhamento like moviproc.cd-prestador
field lg-undoespec-retry anest as log
field ds-mensagem cd-classe-erro as charlike movrcglo.cd-classe-erro
field cd-unidade-encaminhamento lg-urgencia like moviproc.cd-unidade-prestador
field cd-prestador-encaminhamento like moviproc.cd-prestadoras log
field lg-espec-anest qt-repasse as log like moviproc.qt-repasse
field cdqt-classerepasse-erro cob like movrcglomoviproc.cdqt-classerepasse-errocob
field lgvl-urgencia principal as log like moviproc.vl-principal
field qt-repasse vl-base-valor-sistema like moviproc.vl-base-valor-sistema
field vl-honorarios-medicos like like moviproc.qtvl-honorarios-repassemedicos
field qt-repasse-cob vl-cobrado like moviproc.qtvl-repasse-cobcobrado
field vlcd-principal modulo like like moviproc.vlcd-principalmodulo.
field vl-base-valor-sistema auxiliar like like moviproc.vl-base-valor-sistemaauxiliar
field vl-taxa-honorarios-medicos out-uni-prin like moviproc.vl-taxa-out-honorariosuni-medicosprin
field vl-cobrado -taxa-out-uni-auxi like moviproc.vl-cobrado-taxa-out-uni-auxi
field cd-modulo controla-quantitativo like like moviproc.cd-controla-modulo.quantitativo
field vllg-auxiliar continua like moviproc.vl-auxiliar as log
field vl-taxa-out-uni-prin cobrado like like moviproc.vl-taxa-out-uni-princobrado
field vl-taxa-out-uni-auxi dt-digitacao like like moviproc.vldt-taxa-out-uni-auxibase-valor
field cd-controla-quantitativo hr-realizacao like moviproc.cdhr-controla-quantitativorealizacao
field lg-continua prossegue as logas logical initial yes
field vllg-taxaaltera-out-uni-cobrado classe-erro like moviproc.vl-taxa-out-uni-cobrado
field dt-digitacao as logical
field lg-calcula-vl-glosado like moviproc.dt-base-valor
field hr-realizacao as logical initial yes
field lg-trab-cooperado like moviproc.hr-realizacao
field lg-prossegue as logical
field r-movto-saida as logical initial yesrowid
field lg-alt-cd-alteratab-classepreco-erro proc as logical
field cd-tab-preco-proc as logicallike moviproc.cd-tab-preco-proc.
Definição campo a campo da tabela de saída
- dt-base-valor – Data base para valorização do movimento. Esta data somente será considerada, quando retornada da CPC, se for válida;
- lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.cd-unidade-encaminhamento – Unidade a ser substituída pela Unidade Executante
- ds-mensagem – Variável que retornar mensagem de erro, se ocorrido dentro da CPC.
- cd-prestador-encaminhamento – Prestador a ser substituído pelo Prestador Executante.
- lg-espec-anest – Indicador de anestesista.
- cd-classe-erro – Código da classe de erro referente.
- lg-urgencia – Log que define se o movimento é de urgência.
- qt-repasse – Retorna a nova quantidade da tabela para ser aplicada
- qt-repasse-cob – Retorna a nova quantidade da tabela para ser aplicada para cobrança
- vl-principal – Retorna o novo valor do procedimento
- vl-base-valor-sistema - Valor que o sistema valorizou
- vl-honorarios-medicos - Valor para honorários médicos
- vl-cobrado – Retorna o novo valor cobrado pelo prestador para o procedimento
- cd-modulo – Retorna o novo modulo.vl-auxiliar – Valor auxiliar cobrado pelos prestadores.
- vl-auxiliar – Valor auxiliar cobrado pelos prestadores.
- vl-taxa-out-uni-prin – Valor da taxa quando prestador de outras unidades.
- vl-taxa-out-uni-auxi – Valor da taxa auxiliar quando prestador de outras unidades
- cd-controla-quantitativo – Indicador de controle quantitativo.
- lg-continua – Indica se deve continuar ou na a inclusão do movimento.
- vl-taxa-out-uni-prin cobrado – Valor da taxa quando prestador de outras unidades.
- vl-taxa-out-uni-auxi – Valor da taxa auxiliar quando prestador de outras unidades
- cd-controla-quantitativo – Indicador de controle quantitativo.
- lg-continua – Indica se deve continuar ou na a inclusão do movimento.
- vl-taxa-out-uni-cobrado – Valor da taxa.
- lg-prossegue - Indica se continua a execução ou não.
- .
- lg-prossegue - Indica se continua a execução ou não.
- lg-altera-classe-erro - Indica se irá alterar a classe de erro com a classe de erro informada na tabela de saída.
- lg-calcula-vl-glosado - indica para considerar valor glosado.
- lg-trab-cooperado - indica se o procedimento foi realizado por um médico cooperado
- r-movto-saida - rowid do procedimento (tabela ambproce)
- lg-alt-cd-tab-preco-proc - indica se a tabela de quantidade de moedas para pagamento deve ser alterada com a retornada da CPC
- cd-tab-preco-proc - tabela de quantidade de moedas para pagamentolg-altera-classe-erro - Indica se irá alterar a classe de erro com a classe de erro informada na tabela de saída.