cpc-ac0006r.p1

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. 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 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(08)"
field qt-ser-sol as dec format ">>>>9.999"
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 cd-modulo like moviproc.cd-modulo.
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.