CPC-CG0115D.p

• 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 dec-1                                   as dec format "9999999999"
field log-2                                    like previesp.log-2
field ds-tipo-cont                         as char format "x(09)"
field prev-int1                              like previesp.int-1
field prev-log11                           like previesp.log-11
field prev-date1                           like previesp.date-1
field prev-log12                           like previesp.log-12
field prev-date2                           like previesp.date-2
field dt-atualizacao                      like previesp.dt-atualizacao
field log-5                                    like previesp.log-5
field nm-descr-espec                  as char format "x(20)"
field cd-tit-cert-esp                      as char format "x(65)".

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
  • dec-1 - Registro Espec 2
  • log-2 - Resid. Reconhecida
  • Ds-tipo-cont – descrição do tipo da contratualização
  • prev-int1 - Titulo CFM
  • prev-log11 - Obtenção titulo Via AMB
  • prev-date1 - Data da obtenção (AMB)
  • prev-log12 - Obtenção titulo. Via Residencia
  • prev-date2 - Data da obtenção (Residencia)
  • Dt-atualizacao – data de atualização do registro
  • log-5 - Espec.PTU
  • nm-descr-espec - Espec. Profis.
  • cd-tit-cert-esp - Código Titulo Cert. Especialidade Médica.