Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  • "MUDA-QT-REPASSE"
  • "ALTERA-QTD-AUT"
  • "VALIDA-JUSTIFIC"

Include das definições das tabelas temporárias

...

Tabela de entrada tmp-cpc-at0112c2-entrada

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

field in-evento-programa                    as char format "x(10)"
field nm-ponto-chamada-cpc             as char format "x(15)"
field cd-modalidade                            like propost.cd-modalidade
field cd-plano                                      like propost.cd-plano
field cd-tipo-plano                               like propost.cd-tipo-plano
field qt-repasse-cob                            like procguia.qt-repasse-cob
field cd-unid-princ                               like presev.cd-unidade
field cd-prestador-princ                      like preserv.cd-prestador
field cd-unid-solic                               like presev.cd-unidade
field cd-prestador-solic                      like preserv.cd-prestador
field cd-unid-exec                               like presev.cd-unidade
field cd-prestador-exec                      like preserv.cd-prestador
field r-usuario                                     as rowid
field r-outuni                                       as rowid
field cd-procedimento                        as int format "99999999".
field nr-guia-atendimento                   like procguia.nr-guia-atendimento
field aa-guia-atendimento                  like procguia.aa-guia-atendimento
field dt-emissao-guia                         like guiautor.dt-emissao-guia
field lg-ja-possui-autorizacao             as log
field in-acao-retorno-autor                 as int
field cd-classe-erro-autor                    as int
field lg-possui-anterior-valido             as log
field in-acao-retorno-realiz                 as int
field cd-classe-erro-realiz                    as int
field lg-qtd-maior-solic                       as log
field in-acao-retorno-qtd                   as int
field cd-classe-erro-qtd                     as int.

Definição campo a campo da tabela de entrada

      • in-evento-programa – Evento do programa que chama CPC-AT0112C2.P. 
      • nm-ponto-chamada-cpc – Nome do ponto de cpc
      • cd-modalidade – Código da modalidade de comercialização;
      • cd-plano – Código de identificação do Plano no produto;
      • cd-tipo-plano - Código de identificação do Tipo de Plano no produto;
      • qt-repasse-cob – Quantidade de vezes, default da parametrização do sistema, que cobra a tabela médica do beneficiário.
      • cd-unid-princ – Código da unidade do prestador principal;
      • cd-prestador-princ – Código do prestadoe principal;
      • cd-unid-solic – Código da unidade do prestador solicitante;
      • cd-prestador-solic – Código do prestadoe solicitante;
      • cd-unid-exec – Código da unidade do prestador executante;
      • cd-prestador-exex – Código do prestadoe executante;
      • r-usuario – Rowid da tabela USUARIO, caso o beneficiário for da base,
      • r-outuni – Rowid da tabela OUT-UNI, caso o beneficiário for de intercãmbio,
      • cd-procedimento – Código do procedimento que está sendo incluído.
      • Nr-guia-atendimento - Número da guia de atendimento
      • Aa-guia-atendimento – Ano da guia de atendimento
      • Dt-emissao-guia – Data da emissão da guiaR-guiautor – Rowid da tabela guiautor
      • lg-ja-possui-autorizacao - Já possui Autorização.
      • in-acao-retorno-autor - Ação de retorno da classe de erro 147.
      • cd-classe-erro-autor - Classe de erro 147.
      • lg-possui-anterior-valido - Possui Autorização Anterior valida.
      • in-acao-retorno-realiz - Ação de retorno da classe de erro 163.
      • cd-classe-erro-realiz - Classe de erro 163 
      • lg-qtd-maior-solic - Quantidade maior que solicitado.
      • in-acao-retorno-qtd - Ação de retorno da classe de erro 201.
      • cd-classe-erro-qtd - Classe de erro 201.


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

...