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.

Localização

• Dentro do ac0006r.p após a busca do período de movimentação padrão do sistema. 

Ponto de Utilização

• "BUSCA-PERIODO"

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. 
• 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 int
field nr-sequencia as int
field in-servico as char format "x(01)"
field tp-servico as char format "x(02)"
field cd-servico as char format "x(10)"
field qt-ser-sol as dec format ">>>>9.999"
field qt-ser-per as dec format ">>>>9.999"
field 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 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 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

• dt-anoref – Indica o ano de referência a qual o período ser refere.
• nr-perref - Indica o período de movimentação.