CPC-WAC0033A.P

Rotina utilizada para:

• Permitir visualizar o tipo de plano do beneficiário

...

• .

...

• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

...

__RefHeading__9050_486694287 Âncora__RefHeading__4261_213273755__RefHeading__4261_213273755 Âncora__RefHeading__13659_644533341__RefHeading__13659_644533341 Âncora__RefHeading__89557_1756225838__RefHeading__89557_1756225838Localização

• Dentro do programa wac0033a.p.

...

Âncora__RefHeading__89559_1756225838__RefHeading__89559_1756225838Ponto de Utilização

"TROCA-DESC"

 "BUSCA-REGRA"

Âncora__RefHeading__22899_2053127524__RefHeading__22899_2053127524 Âncora__RefHeading__9054_486694287__RefHeading__9054_486694287 Âncora__RefHeading__4265_213273755__RefHeading__4265_213273755 Âncora__RefHeading__13663_644533341__RefHeading__13663_644533341 Âncora__RefHeading__89561_1756225838__RefHeading__89561_1756225838Include das definições das tabelas temporárias

• cpc-wac0033a.i

...

Âncora__RefHeading__89563_1756225838__RefHeading__89563_1756225838Tabelas de entrada e saída
Âncora__RefHeading__22903_2053127524__RefHeading__22903_2053127524 Âncora__RefHeading__9058_486694287__RefHeading__9058_486694287 Âncora__RefHeading__4269_213273755__RefHeading__4269_213273755 Âncora__RefHeading__13667_644533341__RefHeading__13667_644533341 Âncora__RefHeading__89565_1756225838__RefHeading__89565_1756225838

Tabela de entrada tmp-cpc-

...

wac0033a-entrada

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

    field in-evento-programa

...

           as char format "x(06)"
    field nm-ponto-chamada-cpc          as char format "x(15)"
    field  in-tipo-regra               as char format "x(

...

3)"     
    field  cd-local-atend              as int  format 999        
    field  cd-unid-benef               as int  format 9999       
    field  dt-nascimento               as date format 99/99/9999 
    field  cd-unid-exec                as int  format 9999       
    field  cd-prest-exec               as int  format 99999999   
    field  cd-esp-prest-exec           as int  format 999        
    field  cd-procedimento             as int  format 99999999
    field  dt-realizacao               as date format 99/99/9999 
    field cd-modalidade                 like propost.cd-modalidade
    field cd-plano

...

                     like propost.cd-plano     
    field

...

 cd-tipo-plano               like propost.cd-tipo-plano

...

    field  nr-termo                    as int  format 999999     
    field  cd-usuario                  as int  format 999999
    field nr-rowid-mov                  as rowid
    field r-out-uni                     as recid.

...

Definição campo a campo da tabela de entrada

• • • in-evento-programa

...

• • • - Nome do evento do ponto de cpc
    • nm-ponto-chamada-cpc

...

• • • - Nome do ponto de

...

• • • cpc

...

• • • in-tipo-regra - campo definido como "REL" usado somente no ponto "BUSCA-REGRA"
    • cd-local-atend - Código do local de atendimento
    • cd-unid-benef - Código da unidade do beneficiário      
    • dt-nascimento  - Data de nascimento do beneficiário 
    • cd-unid-exec - Código da unidade do prestador executante      
    • cd-prest-exec - Código do prestador executante 
    • cd-esp-prest-exec - Código da especialidade do prestador executante 
    •  cd-procedimento - Código do procedimento
    • dt-realizacao - Data de realização do movimento
    • cd-modalidade - Código da modalidade do beneficiário
    • cd-plano - Código do plano do beneficiário
    • cd-tipo-plano

...

• • • - Código do tipo de plano do beneficiário

...

• • • nr-termo - Número do contrato do beneficiário
    • cd-usuario - Código do beneficiário
    • nr-rowid-mov - Rowid do movimento
    • r-out-uni  - Tabela de beneficiários de intercâmbio disponível na 12.1.2305

...

Tabela de saída tmp-cpc-

...

wac0033a-saida

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

field

...

 lg-undo-retry                as logical                                 
field ds-mensagem                as char format "x(75)"
field  lg-achou                        as log
field

...

 ds-servico                      as char format "x(

...

40)"
field ds-tipo-

...

plano                 like ti-pl-sa.nm-tipo-plano.

...

...

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

• • • 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 que deverá ser retornada ao usuário, quando indicação de ocorrência de erro

...

• • • .
    • lg-achou - Indica se encontrou algum serviço.
    • ds servico - Descrição do serviço.
    • ds-tipo-plano –

...

• • • Descrição do tipo de plano do beneficiário

...

• • • .