CPC-RTAPI026.P

• Rotina utilizada para:
• Tratar a obrigatoriedade da autorização de acordo com lógica específica do cliente.
• Tratar o responsável pela autorização de acordo com lógica específica do cliente.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída.

...

Localização

...

• Dentro da rotina rtautpro e rtapi026 no final do processamento após a consistência do sistema.
• Na rtapi026, logo após a busca pelo responsável da autorização.

...

__RefHeading__88501_1756225838__RefHeading__88501_1756225838Pontos de Utilização

"AUTORIZACAO"
"RESP-AUTORIZA"

...

__RefHeading__3207_213273755 Âncora__RefHeading__12605_644533341__RefHeading__12605_644533341 Âncora__RefHeading__88503_1756225838__RefHeading__88503_1756225838Include das definições das tabelas temporárias

...

• cpc-rtapi026.i

...

Tabelas de entrada e saída
Âncora__RefHeading__21845_2053127524__RefHeading__21845_2053127524 Âncora__RefHeading__8000_486694287__RefHeading__8000_486694287 Âncora__RefHeading__3211_213273755__RefHeading__3211_213273755 Âncora__RefHeading__12609_644533341__RefHeading__12609_644533341 Âncora__RefHeading__88507_1756225838__RefHeading__88507_1756225838

Tabela de entrada tmp-cpc-rtapi026-entrada

def temp-table tmp-cpc-rtapi026-entrada no-undo

field nm-ponto-chamada-cpc                             as char format "x(15)"
field cd-local-atendimento

...

                                 as int format '999'
field cd-modalidade                                           as int format '99'
field cd-plano                                                     as int format '99'
field cd-tipo-plano

...

                                             as int format '99'
field cd-unidade-prestador                                 as int format '9999'
field cd-prestador                                               as int format '99999999'
field cd-procedimento

...

                                       as int format '99999999'
field cd-modulo

...

                                                 as int format '99'
field cd-grau-parentesco

...

                                   as int format '99'

...

...

Definição campo a campo da tabela de entrada

• • nm-ponto-chmada-cpc – Ponto de chamada da CPC

...

• • .
  • "AUTORIZACAO".
  • "RESP-AUTORIZA".
  • cd-local-atendimetno – Código do local de atendimento.
  • cd-modalidade – Código da modalidade

...

• • .
  • cd-plano – Código do plano

...

• • .
  • cd-tipo-plano – Código do tipo de plano

...

• • .
  • cd-unidade-prestador – Código da unidade do prestador executante

...

• • .
  • cd-prestador – Código do prestador executante

...

• • .
  • cd-procedimento – Código do procedimento (8 dígitos).
  • cd-modulo – Código do módulo de cobertura.
  • cd-grau-parentesco – Código do grau de parentesco.
    
    

Âncora__RefHeading__21849_2053127524__RefHeading__21849_2053127524 Âncora__RefHeading__8004_486694287__RefHeading__8004_486694287 Âncora__RefHeading__3215_213273755__RefHeading__3215_213273755 Âncora__RefHeading__12613_644533341__RefHeading__12613_644533341 Âncora__RefHeading__88511_1756225838__RefHeading__88511_1756225838Tabela de saída tmp-cpc-rtapi026-saida

def temp-table tmp-cpc-rtapi026-saida no-undo

field lg-erro

...

                                                       as logical
field ds-mensagem-erro

...

                                   as char format "x(100)"
field lg-autoriza                                                 as log
field in-responsavel-autorizacao

...

                       as char format "x(1)"

...

...

Definição campo a campo da tabela de saída

• lg-erro – indica que ocorreu algum erro durante o processamento

...

• .
• ds-mensagem-erro – Retorna a mensagem de errro

...

• .
• lg-autoriza – indica se a autorização não é obrigatória (quando Yes)

...

• .
• in-responsavel-autorizacao – Responsável pela autorização, E – Empresa, U – Unidade, A - Ambos, N - Não Necessário

...

• .