cpc-cg0115d.p1

Rotina utilizada para imprimir informações específicas na opção de Impressão da Manutenção prestador X Vínculo.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
Dentro do cg0115d.p, no momento de imprimir os dados.
Ponto de Utilização
" IMPRIMEI"
Include das definições das tabelas temporárias
CPC-CG0115D.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc- cg0115d-entrada
def temp-table tmp-cpc-cg0115d-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field in-classificacao-aux as int
field rw-previesp as rowid.
Definição campo a campo da tabela de entrada
in-evento-programa – Indica o evento a ser tratado na cpc;
nm-ponto-chamada-cpc - Indica o nome do ponto de chamada;
in-classificacao-aux – Indica o tipo da classificação informada no programa.
rw-previesp – Rowid da tabela previesp.
Tabela de entrada tmp-cpc-cg0115d -saida
def temp-table tmp-cpc-cg0115d-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char format "x(75)".
Definição campo a campo da tabela de movimento
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.
ds-mensagem – Mensagem da ocorrência do erro no processamento da CPC.
Tabela de entrada table tp-correto-cpc
def temp-table tp-correto-cpc no-undo
field cd-unidade like previesp.cd-unidade
field cd-prestador like previesp.cd-prestador
field nm-prestador like preserv.nm-prestador
field nr-cgc-cpf-numerica as decimal
field nr-cgc-cpf like preserv.nr-cgc-cpf
field in-tipo-pessoa like preserv.in-tipo-pessoa
field dt-exclusao like preserv.dt-exclusao
field dt-inicio-suspensao like sitprest.dt-inicio-suspensao
field cd-vinculo like previesp.cd-vinculo
field ds-tipo-vinculo like tipovinc.ds-tipo-vinculo
field cd-especialidade like previesp.cd-especialid
field ds-especialid like esp-med.ds-especialid
field dt-inicio-validade like previesp.dt-inicio-validade
field dt-fim-validade like previesp.dt-fim-validade
field log-4 as log format "Sim/Nao"
field lg-principal like previesp.lg-principal
field lg-considera-qt-vinculo like previesp.lg-considera-qt-vinculo
field cd-registro-especialidade like previesp.cd-registro-especialidade
field ds-tipo-cont as char format "x(09)"
field dt-atualizacao like previesp.dt-atualizacao.
Definição campo a campo da tabela
cd-unidade – Unidade do prestador.
cd-prestador – Código do prestador.
nm-prestador – Nome do prestador.
nr-cgc-cpf-numerica – Número do CGC/CPC do prestador (somente números).
nr-cgc-cpf - Número do CGC/CPC do prestador.
in-tipo-pessoa – Indicador de pessoa (Física/Jurídica).
dt-exclusao – Data de exclusão.
dt-inicio-suspensao – Data de início da suspensão.
cd-vinculo – Código do vínculo.
ds-tipo-vinculo – Descrição do tipo do vínculo
cd-especialidade – Código da especialidade.
Dt-inicio-validade – Inicio da validade
Dt-fim-validade – fim da validade
Log-4 – registro de certificação de especialista
LG-principal – especialidade principal do prestador
LG-considera-qt-vinculo – considera quantidade de vinculo
Cd-registro-especialidade – registro de especialidade
Ds-tipo-cont – descrição do tipo da contratualização
Dt-atualizacao – data de atualização do registro