CPC-AF0510C.p

• Rotina chamada quando da leitura/identificação da indicação da forma do Segmento Assistencial.
• 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. Caso possuir mais de um registro um erro será reportado.

Localização

• Dentro do programa af0510c.p, quando da leitura/identificação da forma do Segmento Assistencial.

Ponto de Utilização

• "LER-SEG-ASSIST"

...

• "VERIFICA-IMPRIM"

Include das definições das tabelas temporárias

...

Tabela de entrada tmp-cpc-af0510c-entrada

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

field in-evento-programa            as as char format "x(06)"
field nm-ponto-chamada-cpc      as as char format "x(15)"
field r-proposta                         as rowid
field r-usuario                           as rowid.

...

as rowid
field lg-incluso-ativo-com-cco as log
field lg-incluso-ativo-sem-cco as log
field lg-incluso-dt-exclusao-com-cco as log
field lg-incluso-dt-exclusao-sem-cco as log
field dt-inclusao as date
field dt-exclusao as date
field cd-controle-oper-ans like usuario.cd-controle-oper-ans
field lg-com-cco as log
field lg-sem-cco as log
field lg-continua as log
field nr-idade-aux as int
field aa-ini-aux as int
field aa-ini as int
field mm-ini as int
field mm-ini-aux as int
field nr-meses as int
field cd-abrangencia-plano-aux as int
field ds-abrangencia-aux as char
field cd-cobertura-aux as int
field ds-cobertura-aux as char format "x(16)" extent 14
field lg-faixa-aux as log
field lg-resumido-aux as log.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-af0510c, que deve ser "INC".
• nm-ponto-chamada – Nome do Ponto de Utilização, que deve ser "LER-SEG-ASSIST".
• r-proposta – Rowid da proposta do beneficiário.
• r-usuario - rowid do beneficiario ;

...

• lg-incluso-ativo-com-cco –
• lg-incluso-ativo-sem-cco –
• lg-incluso-dt-exclusao-com-cco –
• lg-incluso-dt-exclusao-sem-cco –
• dt-inclusao –
• dt-exclusao –
• cd-controle-oper-ans –
• lg-com-cco –
• lg-sem-cco –
• lg-continua –
• nr-idade-aux –
• aa-ini-aux –
• aa-ini –
• mm-ini –
• mm-ini-aux –
• nr-meses –
• cd-abrangencia-plano-aux –
• ds-abrangencia-plano-aux –
• cd-cobertura-aux –
• ds-cobertura-aux –
• lg-faixa-aux –
• lg-resumido-aux –

Tabela de saída tmp-cpc-af0510c-saida

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

field lg-undo-retry              as as log
field ds-mensagem            as as char format "x(100)"
field in-seg-assist              as int.

...

as int
field lg-incluso-ativo-com-cco as log
field lg-incluso-ativo-sem-cco as log
field lg-incluso-dt-exclusao-com-cco as log
field lg-incluso-dt-exclusao-sem-cco as log.

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

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
• ds-mensagem – Deve conter mensagens de erro caso ocorram.
• in-seg-assist – Deverá conter o código do Segmento Assistencial. Este parâmetro somente é utilizado quando do acesso a CPC com o ponto de chamada "GERA-SEG-ASSIST". Ressalto que o segmento assistência a ser retornado deverá estar dentro do intervalo 01 até 14 (01 – AMBULATORIAL, 02 - HOSPITALAR C/ OBSTETRICIA, 03 - HOSPITALAR S/ OBSTETRICIA, 04 – ODONTOLOGICO, 05 – REFERENCIA, 06 - AMBULATORIAL + HOSPITALAR C/OBSTETRICIA, 07 - AMBULATORIAL + HOSPITALAR S/OBSTETRICIA, 08 - AMBULATORIAL + ODONTOLOGICO, 10 - HOSPITALAR C/ OBSTETRICIA + ODONTOLOGICO, 11 - HOSPITALAR S/ OBSTETRICIA + ODONTOLOGICO, 13 - AMBULAT. + HOSPIT. C/ OBSTETR. + ODONTO. ou 14 - AMBULAT. + HOSPIT. S/ OBSTETR. + ODONTO.)

...

• lg-incluso-ativo-com-cco –
• lg-incluso-ativo-sem-cco –
• lg-incluso-dt-exclusao-com-cco –
• lg-incluso-dt-exclusao-sem-cco –