Árvore de páginas

Versões comparadas

Chave

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

...

def temp-table tmp-campos-layout-recebido no-undo
    field cd-transacao-ptu

...

               as char format "x(05)"
    field tp-cliente                    

...

 as char format "x(15)"
    field cd-unidade-origem              

...

as char format "x(04)"
    field cd-unidade-destino            

...

 as char format "x(04)"
    field nr-ident-origem                

...

as char format "x(10)"
    field nr-ident-destino              

...

 as char format "x(10)"
    field cd-unidade                    

...

 as char format "x(04)"
    field id-beneficiario                

...

as char format "x(13)"
    field nr-via-cartao

...

                 

...

as char format "x(02)"
    field cd-cid                        

...

 as char format "x(04)"
    field id-alto-custo                  

...

as char format "x(01)"
    field nm-prestador

...

                 

...

 as char format "x(25)"
    field ds-observacao

...

                 

...

as char format "x(

...

999)"
    field

...

cd-unidade-

...

prestador-

...

req      

...

 as char format "x(

...

04)"
    field

...

cd-

...

prestador-req              

...

 as char format "x(

...

08)"
    field cd-unidade-prestador

...

           as char format "x(04)"
    field cd-prestador

...

                   as char format "x(08)"
    field cd-

...

especialidade-prestador    

...

 as char format "x(

...

03)"
    field

...

ds-just-

...

internacao            

...

 as char format "x(

...

200)"
    field

...

qt-dias-

...

evol-patol              as char format "x(

...

4)"
    field

...

tp-

...

atendimento                

...

 as char format "x(

...

1)"
    field

...

tp-

...

carater-

...

atend                as char format "x(1)"
    field dt-atendimento                  as char format "x(

...

8)"

...

    field ds-linha-origem                 as char format "x(256)"
    field in-classe-nota                

...

 as char format "x(02)"
    field id-rn                           as char format "x(01)"
    field tp-inter                        as char format "x(01)"
    field id-acidente                     as char format "x(01)"
    field dt-sug-internacao               as char format "x(08)"
    field id-ordem-servico                as char format "x(01)"
    field nr-ident-os                     as char format "x(10)"
    field nr-ver-tiss                     as char format "x(07)"
    field cd-uni-atend                    as char format "x(04)"
    field nr-versao-ptu                   as char format "x(03)"
    field nm-pro-solic-opme               as char format "x(70)"
    field nr-telefone-opme                as char format "x(11)"
    field end-email-opme                  as char format "x(60)"
    field ds-diag-cit-hist-quimio         as char format "x(1000)"
    field ds-diag-cit-hist-radio          as char format "x(1000)"
    field ds-inf-relev-quimio             as char format "x(1000)"
    field ds-inf-relev-radio              as char format "x(1000)"
    field ds-pl-terap                     as char format "x(999)"
    field ds-quimio                       as char format "x(1000)"
    field ds-radio                        as char format "x(1000)"
    field ds-opme                         as char format "x(1000)"
    field ds-just-tec                     as char format "x(999)"
    field ds-mat-solic                    as char format "x(999)"
    field id-anexo                        as char format "x"
    field tp-sexo                         as char format "x"
    field nr-idade                        as char format "x(3)"
    field tpRedeMIN                       as char format "x(01)"
    field idLiminar                       as char format "x(01)"
    field cdIBGE                          as int
    field protocoloAtendimento            as char format "x(20)"
    field token                           as char format "x(6)"
    field tipoEtapaAutorizacao            as int
    field dataSolicitacao                 as date
    field tipoGuia                        as int
    field tpAcomodacao                    as char
    field cd-prest-solic-recebido         as char
    field exec-numero-cbo                 as char
    field nomePrestadorSolic              as char
    field siglaConselho                   as char
    field numeroConselho                  as char
    field unidadeFederativa               as char
    field numeroCBO                       as char
    field idCoberturaEspecial             as char
    field saudeOcupacional                as int
    index i-campos                        is unique primary
          cd-transacao-ptu.


Definição campo a campo da tabela de entrada e saída – Dados do documento

  • cd-transacao-ptu – Código da transação PTU conforme manual PTU 2.8.
  • tp-cliente – Código definido no manual PTU 2.8 campo TP_CLIENTE
  • cd-unidade-origem – Código da unidade que originou a solicitação.
  • cd-unidade-destino – Código da unidade que recebeu a solicitação.
  • nr-ident-origem – Numero da solicitação da unidade que originou a solicitação.
  • nr-ident-destino – Numero da guia de autorização da unidade que recebeu a solicitação.
  • cd-unidade – Código da unidade do beneficiário.
  • id-beneficiario – Código de identificação do beneficiário.
  • nr-via-cartao – Numero da via do documento de identificação do beneficiário.
  • cd-cid – Código do CID.
  • id-ato-custo – campo ID_ALTO_CUSTO do PTU 2.8
  • nm-prestador – Nome do prestador.
  • ds-observacao1, 2 e 3 – Observações gerais.
  • cd-unidade-prestador-req – Código da unidade do prestasdor requisitante
  • cd-prestador-req – Código do prestador requisitante
  • cd-unidade-prestador – Código da unidade do prestador executante
  • cd-prestador – Código do prestador executante
  • dDs-linha-origem – Descrição de observação oriunda da unidade que solicitou a autorização
  • in-classe-nota –

Definição campo a campo da tabela de entrada e saída – Dados do documento

  • cd-transacao-ptu – Código da transação PTU conforme manual PTU 2.8.
  • tp-cliente – Código definido no manual PTU 2.8 campo TP_CLIENTE
  • cd-unidade-origem – Código da unidade que originou a solicitação.
  • cd-unidade-destino – Código da unidade que recebeu a solicitação.
  • nr-ident-origem – Numero da solicitação da unidade que originou a solicitação.
  • nr-ident-destino – Numero da guia de autorização da unidade que recebeu a solicitação.
  • cd-unidade – Código da unidade do beneficiário.
  • id-beneficiario – Código de identificação do beneficiário.
  • nr-via-cartao – Numero da via do documento de identificação do beneficiário.
  • cd-cid – Código do CID.
  • id-ato-custo – campo ID_ALTO_CUSTO do PTU 2.8
  • nm-prestador – Nome do prestador.
  • ds-observacao1, 2 e 3 – Observações gerais.
  • cd-unidade-prestador-req – Código da unidade do prestasdor requisitante
  • cd-prestador-req – Código do prestador requisitante
  • cd-unidade-prestador – Código da unidade do prestador executante
  • cd-prestador – Código do prestador executante
  • dDs-linha-origem – Descrição de observação oriunda da unidade que solicitou a autorização
  • in-classe-nota – Código da classe da nota para identificação do tipo da guia de autorização que deve ser gerada. Seu conteúdo pode ser:

...

def temp-table tmp-campos-layout-bl-servic no-undo

...

   

...

field nr-servico                      

...

as int
    field tp-tabela                      

...

Definição campo a campo da tabela de entrada e saída – Dados dos movimentos

  • nr-servico – Numero do serviço , na ordem de entrada da solicitação.
  • Tp-tabela – Tipo da tabela no manual PTU 2.8 TP_TABELA .
  • Cd-servico – Código do movimento.
  • Qt-servico – Quantidade do serviço solicitado.

Tabela de entrada e saída tmp-campos-layout-retorno – Dados dos movimentos

def temp-table tmp-campos-layout-retorno no-undo

...

 as char format "x(01)"
    field cd-servico                       as char
    field tp-tabela-recebido               as char format "x(01)"
    field cd-servico-recebido              as char
    field qt-servico                      

...

as char format "x(

...

08)"
    field

...

ds-

...

opme                        

...

 as char format "x(

...

80)"
    field

...

vl-servico                      

...

as char format "x(

...

14)"

...


    field

...

vl-

...

uni-servico                  

...

as char format "x(

...

14)"
    field

...

cd-

...

anvisa-

...

inf                    as char format "x(

...

15)"
    field

...

cd-

...

ref-

...

fab                       as char format "x(

...

60)"
    field

...

tp-

...

anexo                        

...

as char format "x(01)"
    field

...

dt-

...

provavel                    

...

 as char format "x(

...

08)"
    field

...

cd-via-

...

admin                    

...

as char format "x(

...

2)"
    field

...

qt-

...

frequencia                  

...

 as char format "x(

...

2)"
    field

...

id-pacote                        as char format "x(

...

1)"
    field tp-

...

ordem                        

...

as char format "x(

...

1)"

...

    field sqItem                          

...

as int
    field unMedicamento                

...

   as int
    field totalDosagem                     as

...

dec 
    field qt-pacote-solic                

...

 as int
    field seq-item-pacote                

...

 as int
    index i-servico                        is unique primary
         

...

nr-servico.

Definição campo a campo da tabela de entrada e saída – Dados dos movimentos

  • nr-servico – Numero do serviço , na ordem de entrada da solicitação.
  • Tp-tabela – Tipo da tabela no manual PTU 2.8 TP_TABELA .
  • Cd-servico – Código do movimento.
  • Qt-servico – Quantidade do serviço solicitado.


Tabela de entrada e saída tmp-campos-layout-retorno – Dados dos movimentos

def temp-table tmp-campos-layout-retorno  no-undo
    field cd-transacao-ptu              

...

 as char format "x(

...

05)"
    field tp-

...

cliente                    

...

 as char format "x(

...

15)"
    field

...

cd-

...

unidade-origem              

...

as char format "x(

...

04)"
    field cd-

...

unidade-

...

destino            

...

 as char format "x(04)"
    field

...

nr-

...

ident-

...

origem                

...

as char format "x(

...

10)"
    field

...

nr-

...

ident-

...

destino              

...

 as char format "x(

...

10)"
    field cd-

...

unidade                    

...

 as char format "x(04)"
    field

...

id-beneficiario                 as char format "x(

...

13)"

...

    field nm-beneficiario                 as char format "x(

...

25)"
    field ds-observacao

...

                  as char format "x(

...

120)"
    field ds-linha-origem                

...

as char format "x(256)"
    index i-campos                        is unique primary
         

...

cd-transacao-ptu.

Definição campo a campo da tabela de entrada e saída – Dados dos movimentos

...

  • cd-unidade – Código da unidade do beneficiário.
  • id-beneficiario – Código de identificação do beneficiário.
  • nm-beneficiario – Nome do Beneficiario.
  • tp-sexo-beneficiario – Sexo do Beneficiário.
  • tp-inscr-beneficiario – Tipo de Inscricao do Beneficiario.
  • dt-nascimento – Data de Nascimento do Beneficiário.
  • tp-mens-geral-1, 2, 3, 4, 5 – Tipo de mensagem, conforme status do registro.
  • ds-mens-geral-1, 2, 3, 4, 5 – Descrição da Mensagem.
  • do Beneficiário.
  • tpcd-mens-geral-1, 2, 3, 4, 5 – Codigo da Mensagem.ds-observacao-1, 2, 3 – Observações geraisTipo de mensagem, conforme status do registro.
  • ds-linha-origem – Observações internas.

Tabela de entrada e saída tmp-campos-layout-ret-bl-servic – Dados dos movimentos

def temp-table tmp-campos-layout-ret-bl-serv no-undo

...

  • mens-geral-1, 2, 3, 4, 5 – Descrição da Mensagem.
  • cd-mens-geral-1, 2, 3, 4, 5 – Codigo da Mensagem.
  • ds-observacao-1, 2, 3 – Observações gerais.
  • ds-linha-origem – Observações internas.


Tabela de entrada e saída tmp-campos-layout-ret-bl-servic – Dados dos movimentos

def temp-table tmp-campos-layout-ret-bl-serv  no-undo
    field nr-servico                

...

     as int
    field tp-tabela                       as char format "x(01)"
    field

...

cd-servico                    

...

 as char
    field ds-servico                    

...

 as char format "x(

...

80)"
    field

...

qt-servico                    

...

 as char format "x(

...

08)"
    field

...

id-autoriza                     as char format "x(

...

01)"
    field cd-mens-espec-

...

1                 as char format "x(04)"
    field

...

cd-mens-espec-

...

2                 as char format "x(

...

04)"
    field

...

cd-mens-espec-

...

3                 as char format "x(

...

04)"
    field cd-mens-espec-4                 as char format "x(04)"
    field

...

cd-mens-espec-5                 as char format "x(

...

04)"
    field

...

cd-

...

servico-

...

convertido          

...

as char format "x(

...

08)"

...

    field sqItem                        

...

 as int
    index i-campos                      

...

 is unique primary
          nr-servico.

Definição campo a campo da tabela de entrada e saída – Dados dos movimentos

...