Histórico da Página

...

• "GUIA-ORIGEM" ,"VALIDA-PROC", "ANTES-MODIFICA", "ALTERA-GUIA-SCS" e "VALOR-INSUMO".
• "VALIDA-PREST", "VALIDA-PREST-SO"
• "GRAVA-GUIA"
• "CON-CART-BENEF"
• "APOS-BUSCA-GUIA"
• "FIM-GRAVA-GUIA"
• "ANEXOS-GUIA"
• "APOS-OBSERVACAO"
• "APOS-SOLIC"

Include das definições das tabelas temporárias

...

field in-evento-programa                            as char format "x(10)"
field nm-ponto-chamada-cpc                     as char format "x(15)"
field cd-tipo-guia                                        like tip-guia.cd-tipo-guia
field cd-unidade-carteira                            like unimed.cd-unimed
field cd-cateira-usuario                              like guiautor.cd-carteira-usuario
field cd-unidade-exec                                like preserv.cd-unidade
field cd-prestador-exec                             like preserv.cd-prestador
field cd-esp-exec                                      like procguia.cd-esp-prest-executante
field cd-unidade-princ                               like preserv.cd-unidade
field cd-prestador-princ                            like preserv.cd-prestador
field cd-unidade-solic                               like preserv.cd-unidade
field cd-prestador-solic                             like preserv.cd-prestador
field cd-proced-completo                          as int format "99999999"
field cd-modalidade                                  like modalid.cd-modalidade
field cd-plano                                            like propost.cd-plano
field cd-tipo-plano                                     like propost.cd-tipo-plano
field ds-motivo                                          as char format "x(750)"
field r-guiautor                                          as rowid
field vl-custo-op                                        as dec
field vl-taxa-part                                        as dec
field vl-tot-val                                            as dec
field lg-dados-internacao                          like tranrevi.lg-dados-internacao
field r-propost                                           as rowid
field cd-unid-neg                                       as int
field cd-transacao                                     like tranrevi.cd-transacao
field nr-proposta                                       like propost.nr-proposta
field cd-usuario                                        like guiautor.cd-usuario
field aa-guia-atendimento                        like guiautor.aa-guia-atendimento
field nr-guia-atendimento                         like guiautor.nr-guia-atendimento
field dt-interna-ini                                     as date format 99/99/9999
field dt-interna-fim                                    as date format 99/99/9999
field r-usuario                                           as rowid

field in-classe-nota                                   as int.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama CPC-AT0112C.P. O valor desse campo pode ser "MODIFICA;
• nm-ponto-chamada-cpc – "GUIA-ORIGEM ", "ALTERA-GUIA-SCS" e "VALIDA-PROC"
• cd-tipo-guia – Código do tipo da guia utilizado pela Guia (AIH);
• cd-unidade-carteira – Código da unidade da carteira do beneficiário;
• cd-carteira-usuario – Código da carteira do beneficiário;
• cd-unidade-exec – Código da unidade do prestador executante;
• cd-prestador-exec – Código do prestador executante;
• cd-esp-exec – Código da especialidade do prestador executante;
• cd-unidade-princ – Código da unidade do prestador principal;
• cd-prestador-princ – Código do prestador principal;
• cd-unidade-solic – Código da unidade do prestador solicitante;
• cd-prestador-solic - Código do prestador solicitante;
• cd-proced-completo – Código do procedimento em autorização completo, ou seja, com oito dígitos;
• r-guiautor – Rowid da tabela guiautor;
• vl-custo-op – Valor do custo operacional;
• vl-taxa-part – Valor da taxa de participação;
• vl-tot-val - Total da guia (custo operacional + taxa de participação)
• lg-dados-internacao - Dados internação
• r-propost - Rowid da tabela propost.
• cd-unid-neg - Unidade
• cd-transacao - Transação
• nr-proposta - Número da proposta.
• cd-usuario - Código do usuário.
• aa-guia-atendimento - Ano da guia de atendimento.
• nr-guia-atendimento - Número da guia de atendimento.
• dt-interna-ini - Data internação inicial
• dt-interna-fim - - Data internação final
• r-usuario - Rowid da tabela usuario.
  
• in-classe-nota - Classe de nota.

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

...

field lg-erro                          as log
field ds-mensagem             as char format "x(75)"
field ds-motivo                    as char format "x(750)"
field lg-undo-retry               as log
field lg-dados-aux-guia       as log
field lg-bloq-mod-insu         as log
field dt-interna-ini                as date
field dt-interna-fim               as date

field lg-alerta                       as log
field lg-altera-dados            as log.

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

• lg-erro – Indica a ocorrência de erro no processo de verificar/consistir a autorização origem, quando do processo de alteração de guia;
• ds-mensagem – E a mensagem que a operadora quer que seja apresentada ao usuário quando da ocorrência de erro/restrição no processo de verificação/consistencia da autorização origem ,quando do processo da alteração de guia;
• ds-motivo – Variável que retorna os motivos para alterar ou não alterar o registro.
• 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.
• lg-dados-aux-guia
• lg-bloq-mod-insu
• dt-interna-iniini - Data internação inicial
• dt-interna-fim - fimData internação final
• lg-alerta - Retorna se a mensagem deverá ser somente um alerta, sem parar o processo.
• lg-altera-dados - Retorna se a mensagem deverá ser somente um alerta.

Tabela de entrada tmp-cpc-at0112c-insuguia

...