Histórico da Página
CPC-AC0006R.p
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | cpc-ac0006r.p |
- Rotina utilizada para permitir buscar o período de movimentação para o prestador.
- Caso o cliente queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como sim, caso contrário, colocar não.
...
Include das definições das tabelas temporárias
- cpc-ac0006r.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-ac0006r-entrada
def temp-table tmp-cpc-ac0006r-entrada no-undo
field nm-ponto-chamada-cpc as char format "x(15)"
field dt-documento as date format "99/99/9999"
field cd-unidade like preserv.cd-unidade
field cd-prestador like preserv.cd-prestador
field cd-clinica like clinpres.cd-clinica.
Definição campo a campo da tabela de entrada
- nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa ac0006r.p:
"BUSCA-PERIODO"
- dt-documento – Indica a data de movimentação.
- cd-unidade – Indica o código da unidade do prestador.
- cd-prestador – Indica o código do prestador.
- cd-clinica - Indica o código da clinica
Tabela de entrada wk-cpc
def temp-table wk-cpc no-undo
field nr-processo as as int
field nr-sequencia as as int
field in-servico as char format "x(01)"
field tp-servico as char format "x(02)"
field cd-servico as as char format "x(0810)"
field qt-ser-sol as dec format ">>>>9.999"
field qt-ser-per as dec format ">>>>9.999"
field dt-realizacao as vl-servico as char format "x(14)"
field id-autoriza as char format "x(01)"
field cd-erro-sistema as char format "x(04)"
field dt-realizacao as date format "99/99/9999"
field hr-realizacao as as char
field cd-unidade-executante like moviproc.cd-unidade-prestador
field cd-prestador-executante like moviproc.cd-prestador
field cd-vinculo-executante like moviproc.cd-tipo-vinculo
field cd-esp-prest-executante like like moviproc.cd-esp-prest-executante
field lg-trab-medico like moviproc.lg-trab-cooperado
field nr-recid-preserv as recid
field cd-modulo like moviproc.cd-modulo
field cd-moeda like moviproc.cd-moeda
field vl-part-cob as dec format ">>>>>9.99"
field vl-part-pag as dec format ">>>>>9.99"
field qt-repasse-pag like moviproc.qt-repasse
field qt-repasse-cob like moviproc.qt-repasse
field cd-tab-prc-proc-pag like moviproc.cd-tab-preco-proc
field cd-tab-prc-proc-cob like moviproc.cd-tab-preco-proc-cob
field cd-porte-anest-pag like moviproc.cd-porte-anestesico
field cd-porte-anest-cob like moviproc.cd-porte-anestesico-cob
field cd-tab-preco-pag like moviproc.cd-tab-preco
field cd-tab-preco-cob like moviproc.cd-tab-preco-cob
field vl-taxa-out like moviproc.vl-taxa-out-uni-prin
field vl-taxa-out-auxi like moviproc.vl-taxa-out-uni-auxi
field vl-honor-medicos like moviproc.vl-honorarios-medicos
field vl-operacional like moviproc.vl-operacional
field vl-filme like moviproc.vl-filme
field vl-principal like moviproc.vl-principal
field vl-auxiliar like moviproc.vl-auxiliar
field pc-taxa-acp like unicamco.pc-taxa-acp
field cd-via-acesso like moviproc.cd-via-acesso
field vl-cobrado like moviproc.vl-cobrado
field cd-tipo-cob like moviproc.cd-tipo-cob
field vl-base-vl-sistema like moviproc.vl-base-valor-sistema
field cd-forma-pagto-pag like moviproc.cd-forma-pagto-cob
field cd-forma-pagto-cob like moviproc.cd-forma-pagto-cob
field cd-forma-pagto-modu like insuusos.cd-forma-pagto-modu
field lg-imp-recibo like guiautor.lg-imp-recibo
field cd-grupo-exame like ambproce.cd-grupo-proc
field lg-reconsulta as log
field lg-cobert-padrao as log
field vl-insumo like mov-insu.vl-insumo
field lg-preco-padrao like mov-insu.lg-preco-padrao
field cd-tipo-pag like mov-insu.cd-tipo-pag
field vl-taxa-out-insumo like mov-insu.vl-taxa-out-insumo
field ds-mensagem1 as char format "x(78)"
field ds-mensagem2 as char format "x(78)"
field qt-perc-cob like precproc.pc-part-cob-ele[1]
field in-tipo-retorno as int
field lg-manual as log
field cd-cod-glo like insuusos.cd-cod-glo
field cd-classe-erro like insuusos.cd-classe-erro
field in-cobra-participacao as int format "99"
field qt-faixa-participacao like insuusos.qt-faixa-participacao
field vl-taxa-out-cob-insu like insuusos.vl-taxa-out-insumo
field vl-glosado like moviproc.vl-cobrado
field cd-tipo-percentual like procusos.cd-tipo-percentual
field cd-unidade-prest-divi like moviproc.cd-unidade-prest-divi
field cd-prestador-divi-hono like moviproc.cd-prestador-divi-hono
field cd-tipo-vinc-divi-hono like moviptmp.cd-tipo-vinc-divi-hono
field cd-esp-prest-divi-hono like moviptmp.
...
cd-esp-prest-divi-hono
field in-resultado-divisao as char format "x(01)"
field lg-divisao-honorario as logical
field cd-controla-quantitativo like moviproc.cd-controla-quantitativo
field lg-anestesista like moviproc.lg-anestesista
field qt-moeda like moviproc.qt-moeda
field vl-moeda like moviproc.vl-moeda
field r-procusos as recid
field r-insuusos as recid
field cd-pacote like moviproc.cd-pacote
field lg-urgencia like moviproc.lg-urgencia
field nm-prest-exec like moviproc.char-4
field hr-fin-realiz like moviproc.char-5
field tp-tecnica-util like moviproc.tp-tec-util
field cd-pos-equipe like moviproc.cd-pos-equipe
field cd-pos-equipe-div like moviproc.cd-pos-equipe
field in-nivel-pres like moviproc.in-nivel-prestador
field ds-servico as char.
Definição campo a campo da tabela de entrada
- nr-processo : Número do Processo;
- nr-sequencia : Número da seqüência;
- in-servico : Indicação do tipo de Serviço (P – procedimento ou I – Insumo);
- tp-servico : Código do tipo do Insumo,se serviço (in-servico) for igual a I;
- cd-servico : Código do serviço (código do procedimento ou insumo);
- qt-ser-sol : Quantidade solicitada do serviço;
- dt-realizacao : Data de realização do serviço;
- hr-realizacao : Hora de realização do serviço;
- cd-unidade-executante : Código da Unidade do prestador executante;
- cd-prestador-executante : Código do prestador executante;
- cd-vinculo-executante : Código do vinculo do prestador executante;
- cd-esp-prest-executante : Código da especialidade do prestador executante;
- cd-modulo : Código do modulo de cobertura;
Tabela de saída tmp-cpc-ac0006r-saida
def temp-table tmp-cpc-ac0006r-saida no-undo
field dt-anoref like perimovi.dt-anoref
field nr-perref like perimovi.nr-perref.
...
Definição campo a campo da tabela de saída
...