CPC-AT1000-SOLIC.p

• Rotina utilizada para permitir a operadora alterar a situação da GUIA, quando a mesma solicitada via TRANSAÇÃO XML de SOLICITAÇÃO DE PROCEDIMENTO;
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

...

Âncora__RefHeading__1553_213273755__RefHeading__1553_213273755 Âncora__RefHeading__10951_644533341__RefHeading__10951_644533341 Âncora__RefHeading__86849_1756225838__RefHeading__86849_1756225838Localização

• Após a criação da GUIA, dentro do programa AT1000-SOLIC.P. Ressalta-se que somente será chamada a CPC caso ela esteja ativa, no cadastro de CPC.

...

__RefHeading__20189_2053127524__RefHeading__20189_2053127524 Âncora__RefHeading__6344_486694287__RefHeading__6344_486694287 Âncora__RefHeading__1555_213273755__RefHeading__1555_213273755 Âncora__RefHeading__10953_644533341__RefHeading__10953_644533341 Âncora__RefHeading__86851_1756225838__RefHeading__86851_1756225838Ponto de Utilização

• "ATUALIZA-STATUS"
• "LOC-TIP-GUIA"
• "ANTES-ENVIA-IE"

...

Âncora__RefHeading__10955_644533341__RefHeading__10955_644533341 Âncora__RefHeading__86853_1756225838__RefHeading__86853_1756225838Include das definições das tabelas temporárias

• CPC-AT1000-SOLIC.I

...

__RefHeading__86855_1756225838Tabelas de entrada e saída
Âncora__RefHeading__20195_2053127524__RefHeading__20195_2053127524 Âncora__RefHeading__6350_486694287__RefHeading__6350_486694287 Âncora__RefHeading__1561_213273755__RefHeading__1561_213273755 Âncora__RefHeading__10959_644533341__RefHeading__10959_644533341 Âncora__RefHeading__86857_1756225838__RefHeading__86857_1756225838

Tabela de entrada tmp-cpc-at1000-solic-entrada

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

field in-evento-programa                 as char format "x(10)"
field nm-ponto-chamada-cpc           as char format "x(15)"
field cd-clinica                               like clinpres.cd-clinica
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-solicitante             like guiautor.cd-unidade-solicitante
field cd-prestador-solicitante           like guiautor.cd-prestador-solicitante
field cd-unidade-principal               like guiautor.cd-unidade-principal
field cd-prestador-principal             like guiautor.cd-prestador-principal
field cd-unidade-carteira                 like guiautor.cd-unidade-carteira
field cd-carteira-usuario

...

                 like guiautor.cd-carteira-usuario
field r-guiautor

...

                             as rowid.

...

...

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a CPC-AT1000.P. Os valores desse campo podem ser:
• "INCLUI".
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa AT1000-SOLIC.P:
• "ATUALIZA-STATUS"
• cd-clinica – Código da clinica que está solicitando a GUIA;
• in-liberado-guias – Indicador da situação atual da GUIA;
• lg-glosa – Variável que indica se ocorreu glosa em algum movimento (procedimentos e insumos) da GUIA.
• cd-tipo-guia – Código do tipo da guia vinculada a GUIA solicitada.
• cd-unidade-solicitante - Código da unidade do prestador solicitante da GUIA.
• cd-prestador-solicitante - Código do prestador solicitante da GUIA.
• cd-unidade-principal - Código da unidade do prestador principal da GUIA.
• cd-prestador-principal - Código do prestador principal da GUIA.
• cd-unidade-carteira - Código da unidade da carteira do beneficiário da GUIA.
• cd-carteira-usuario - Código da carteira do beneficiário da GUIA.
• r-guiautor – RECID de acesso a tabela GUIAUTOR.

...

...

Tabela de entrada tmp-cpc-at1000-solic-movtos

def temp-table tmp-cpc-at1000-solic-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 insuguia.cd-unidade-prestador
field cd-prestador                 like insuguia.cd-prestador
field lg-glosa

...

                      as log.

...

Definição campo a campo da tabela de movtos

• cd-procedimento – Código do procedimento que está associado a GUIA.
• cd-tipo-insumo - Código do tipo do insumo, vinculado ao insumo, que está associado a GUIA..
• cd-insumo - Código do insumo que está associado a GUIA..
• cd-unidade – Código da unidade do prestador executante do movimento.
• cd-prestador – Código do prestador executante do movimento.
• Lg-glosa – Indicador da ocorrência de glosa no movimento, associado a GUIA.

...

...

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

def temp-table tmp-cpc-at1000-solic-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 cd-tipo-guia                     like guiautor.cd-tipo-guia
field ds-mensagem

...

                 as char
field cd-unidade-carteira

...

         like guiautor.cd-unidade-carteira.

...

...

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.
• In-liberado-guias – Variável que indicará a NOVA situação da GUIA, conforme necessidade da operadora.
• cd-erro-sistema – Código do erro processado dentro da CPC, quando o parâmetro lg-undo-retry estiver habilitado.
• cd-tipo-guia – Código do tipo da guia.
• Ds-mensagem – Descricao da mensagem de erro.
• Cd-unidade-carteira – código da unidade do beneficiario.

...