CPC-AT1000.p

• Rotina utilizada para permitir a operadora alterar a situação da AIH, quando a mesma solicitada via portal WAC;
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

...

__RefHeading__86827_1756225838Localização

• Após a criação da AIH, dentro do programa at1000.p. Ressalta-se que somente será chamada a CPC caso ela esteja ativa, no cadastro de CPC.
• Antes da

...

• chamada das APIS do Modulo de Atendimento, responsáveis pela criação da Guia de Atendimento. Permite consistir os movimentos antes da inclusão da Guia de Atendimento.
• Antes da transação que cria a temporária da guiautor

...

• (tmp-guiautor). Antes da chamadas das apis que realizam a criação da guia.

...

__RefHeading__20167_2053127524__RefHeading__20167_2053127524 Âncora__RefHeading__6322_486694287__RefHeading__6322_486694287 Âncora__RefHeading__1533_213273755__RefHeading__1533_213273755 Âncora__RefHeading__10931_644533341__RefHeading__10931_644533341 Âncora__RefHeading__86829_1756225838__RefHeading__86829_1756225838Ponto de Utilização

• "ATUALIZA-STATUS": considera 2 eventos: "INCLUI" e "MOD".
• "CONSISTE-MOVTOS"
• "LOC-TIP-GUIA"
• "ANTES-ENVIA-IE"
• "AUT-AUTOMATICO"

...

• "ALTERA-CART"
• "CONS_ANEST"
• "APOS-AUTOR-AUTO"
• "LOC-TIP-GUIA"
• "VALOR-GUIA"
• "COMUNICA-INTERC"
• "APOS-ATAPI020" - a partir da versão 12.1.2209
• "TRATA-PROCED" - a partir da versão 12.1.2209 
• "INI-TRAT-RET-AU" - a partir da versão 12.1.2305
• "ANT-SOLIC-FOUND" - a partir da versão 12.1.23411

...

Include das definições das tabelas temporárias

• cpc-at1000.i

...

__RefHeading__20171_2053127524__RefHeading__20171_2053127524 Âncora__RefHeading__6326_486694287__RefHeading__6326_486694287 Âncora__RefHeading__1537_213273755__RefHeading__1537_213273755 Âncora__RefHeading__10935_644533341__RefHeading__10935_644533341 Âncora__RefHeading__86833_1756225838__RefHeading__86833_1756225838Tabelas de entrada e saída
anchor__RefHeading__20173_2053127524__RefHeading__20173_2053127524 Âncora__RefHeading__6328_486694287__RefHeading__6328_486694287 Âncora__RefHeading__1539_213273755__RefHeading__1539_213273755 Âncora__RefHeading__10937_644533341__RefHeading__10937_644533341 Âncora__RefHeading__86835_1756225838__RefHeading__86835_1756225838

Tabela de entrada tmp-cpc- at1000 -entrada

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

field in-evento-programa                       as char format "x(06)"
field nm-ponto-chamada-cpc

...

               as char format "x(15)"
field cd-clinica

...

                                       like clinpres.cd-clinica
field cd-unidade

...

                                     like clinpres.cd-unidade
field cd-prestador                                   like clinpres.cd-prestador
field in-liberado-guias

...

                           like guiautor.in-liberado-guias
field lg-glosa

...

                                         as log
field cd-tipo-guia

...

                                   like guiautor.cd-tipo-guia
field cd-unidade-carteira                       like car-ide.cd-unimed
field lg-sadt

...

                                           as log
field lg-aih

...

                                             as log
field cd-carteira-usuario                       as decimal
field nr-rowid-guiaautor

...

                       as rowid
field aa-guia-atendimento

...

                   like guiautor.aa-guia-atendimento
field nr-guia-atendimento                     like guiautor.nr-guia-atendimento
field lg-autoriza-aut

...

                             as log
field lg-libera-aut                                  as log
field cd-transacao                                like guiautor.cd-transacao
field h-tmp-procguia                            as handle
field h-tmp-insuguia                            as handle
field cd-servico                                   as int
field h-tmp-guia                                  as handle
field h-tmp-servico                             as handle
field cd-local-autorizacao                   as int
field aa-guia-atendimento-ant            like guiautor.aa-guia-atendimento-ant
field nr-guia-atendimento-ant             like guiautor.nr-guia-atendimento-ant
field h-tmp-mensa-guiautor                as handle
field h-pacproce                                  as handle
field h-buffer-tmp-cabecalho-guia    as handle.

...

Tabela de entrada tmp-cpc- at1000 -movtos

def temp-table tmp-cpc-at1000-movtos no-undo

field cd-procedimento                   like ambcbhpm.cd-amb
field cd-tipo-insumo

...

                     like insumos.cd-tipo-insumo
field cd-insumo                             like insumos.cd-insumo

...

field cd-unidade                            like clinpres.cd-unidade
field cd-prestador                         like clinpres.cd-prestador
field qt-movimentos                      as int.

...

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

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

field lg-undo-retry

...

                       as log.
field in-liberado-guias                 like guiautor.in-liberado-guias
field cd-erro-sistema                   like mensauto.cd-retorno
field lg-cria-guia

...

                         as log
field lg-comunica-scs                 as log
field ds-observ-guia

...

                   as char
field cd-tipo-guia                         like guiautor.cd-tipo-guia
field cd-transacao                       like guiautor.cd-transacao
field ds-mensagem                     as char
field cd-unidade-carteira             like guiautor.cd-unidade-carteira

...

field cd-carteira-usuario              like usuario.cd-identific-uni-destino
field lg-continua                          as log init yes
field cd-local-autorizacao           as int

field lg-retorno-trata-proc          as log..

...