Histórico da Página

...

def temp-table tmp-campos-layout-recebido recebido        no-undo
    field cd-transacao-ptu ptu                                         as char format "x(05)"
    field tp-cliente cliente                                                     as char format "x(15)"
    field cd-unidade-origem origem                                    as  as char format "x(04)"
    field cd-unidade-destino destino                                     as char format "x(04)"
    field nr-ident-origem origem                                          as  as char format "x(10)"
    field nr-ident-destino destino                     as char format "x(10)"
    field cd-unidade                      as char format "x(0410)"
    field id-beneficiario cd-unidade                            as char format "x(13)"
    field nr-via-cartao                   as char format "x(0204)"
    field cdid-cid   beneficiario                         as char format "x(04)"
    field id-alto-custo                   as char format "x(0113)"
    field nm-prestador nr-via-cartao                           as char format "x(25)"
    field ds-observacao                   as char format "x(99902)"
    field cd-unidade-prestador-req cid                                                             as as char format "x(04)"
    field cdid-prestador-req alto-custo                                                 as as char format "x(0801)"
    field cd-unidade-prestador nm-prestador                         as char format "x(04)"
    field cd-prestador                    as char format "x(0825)"
    field cd-especialidade-prestador      as char format "x(03)"
    field ds-just-internacao ds-observacao                                               as as char format "x(200999)"
    field qtcd-diasunidade-evol-patol prestador-req                           as char format "x(404)"
    field tp-atendimento cd-prestador-req                         as char format "x(1)"
    field tp-carater-atend                as as char format "x(108)"
    field dtcd-unidade-atendimento prestador                                   as char format "x(804)"
    field ds-linha-origem cd-prestador                                                  as char format "x(25608)"
    field incd-classe-nota especialidade-prestador                           as char format "x(0203)"
    field id-rn ds-just-internacao                                          as  as char format "x(01200)"
    field tp-inter qt-dias-evol-patol                                           as char format "x(014)"
    field idtp-acidente atendimento                        as char format "x(01)"
    field dt-sug-internacao                         as char format "x(081)"
    field idtp-ordem-servico carater-atend                       as char format "x(01)"
    field nr-ident-os                     as  as char format "x(101)"
    field nr-ver-tiss dt-atendimento                        as char format "x(07)"
    field cd-uni-atend                    as char format "x(048)"
    field nrds-versao-ptu linha-origem                            as char format "x(03)"
    field nm-pro-solic-opme               as  as char format "x(70256)"
    field nrin-telefone-opme classe-nota                                                 as as char format "x(1102)"
    field end-email-opme id-rn                                                               as char format "x(6001)"
    field ds-diag-cit-hist-quimio tp-inter              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(100001)"
    field ds-pl-terap id-acidente                        as char format "x(999)"
    field ds-quimio                       as char format "x(100001)"
    field ds-radio dt-sug-internacao                                       as char format "x(100008)"
    field ds-opme id-ordem-servico                                        as  as char format "x(100001)"
    field dsnr-just-tec ident-os                            as char format "x(999)"
    field ds-mat-solic                    as as char format "x(99910)"
    field idnr-ver-anexo tiss                         as char format "x"
    field tp-sexo                         as char format "x(07)"
    field nr-idade cd-uni-atend                                 as char format "x(3)"
    field tpRedeMIN                       as char format "x(0104)"
    field idLiminar nr-versao-ptu                                              as  as char format "x(0103)"
    field cdIBGE nm-pro-solic-opme                           as int
    field protocoloAtendimento            as as char format "x(2070)"
    field token nr-telefone-opme                                        as  as char format "x(611)"
    field tipoEtapaAutorizacao   end-email-opme           as int
    field dataSolicitacao                 as date
    field tipoGuia                        as int as char format "x(60)"
    field tpAcomodacao ds-diag-cit-hist-quimio                     as char
    field cd-prest-solic-recebido         as char format "x(1000)"
    field exec-numero-cbo ds-diag-cit-hist-radio                  as char
    field nomePrestadorSolic              as char format "x(1000)"
    field siglaConselho ds-inf-relev-quimio                    as char
    field numeroConselho                  as char
    field unidadeFederativa as char format "x(1000)"
    field ds-inf-relev-radio                                        as char as char format "x(1000)"
    field numeroCBO ds-pl-terap                                  as char
    field idCoberturaEspecial             as char as char format "x(999)"
    field saudeOcupacional ds-quimio                 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
• ds-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:

01 – Consulta
02 – Exames SADT
03 – Atendimento Ambulatorial
04 – Internação Clínica
05 – Internação Cirúrgica
06 – Internação Obstétrica
07 – Odontologia
08 – Consulta em Emergência
09 - Internacao Hospital Dia
10 - Internacao Domiciliar
11 - Internacao Pediatrica
12 - Internacao Psiquiatrica
13 - Consultas Medicina Ocupacional
14 - Exames medicina ocupacional
15 - Remocao
16 - Pequena cirurgia
17 - Terapias
18 - Atendimento domiciliar
19 - SADT internado
20 - Quimioterapia
21 - Radioterapia
22 - TRS (terapia renal substitutiva)
23 - Consulta (primeira consulta)
24 - Consulta (seguimento)
25 - Consulta (pré-natal)

• id-rn - Indica se o beneficiário é recém-nato
• tp-inter - Indica o Tipo de Internação
• id-acidente - Indicador de Acidente 
• dt-sug-internacao - Data sugerida para a internação
• id-ordem-servico - Indica se o pedido de autorização foi gerado através de uma comunicação de Ordem de Serviço
• nr-ident-os - Número da Transação da Ordem de Serviço
• nr-ver-tiss - Número de versão da TISS que o prestador enviou a transação
• cd-uni-atend - Código da Unimed na qual o Beneficiário será atendido
• nr-versao-ptu - Versão do PTU da Unimed Prestadora
• nm-pro-solic-opme - Nome do Profissional Solicitante de OPME 
• nr-telefone-opme - Número de Telefone do Profissional Solicitante de OPME 
• end-email-opme - Endereço de E-mail do Profissional Solicitante de OPME 
• ds-diag-cit-hist-quimio - Descrição do diagnóstico citopatológico e histopatológico
• ds-diag-cit-hist-radio - Descrição do diagnóstico citopatológico e histopatológico
• ds-inf-relev-quimio - Informações relevantes a serem fornecidas pelo profissional solicitante para esclarecimento do caso.
• ds-inf-relev-radio - Informações relevantes a serem fornecidas pelo profissional solicitante para esclarecimento do caso.
• ds-pl-terap - Plano Terapêutico proposto pelo profissional solicitante 
• ds-quimio - Observação da Quimioterapia 
• ds-radio - Observação da Radioterapia
• ds-opme - Observação do OPME
• ds-just-tec - Relatório profissional embasando a solicitação
• ds-mat-solic - Descrição do Material Solicitado 
• id-anexo - Indica a existência de um anexo na transação
• tp-sexo - Sexo do Beneficiário
• nr-idade - Idade do Beneficiário           
• tpRedeMIN - Tipo de Rede conforme Manual do Intercâmbio Nacional
• idLiminar  - Indica se o pedido está sendo realizado a partir de uma demanda judicial 
• cdIBGE - Código IBGE 
• protocoloAtendimento -  Protocolo de Atendimento  
• token - Validação do beneficiário
• tipoEtapaAutorizacao - Indica a etapa da solicitação de autorização 
• dataSolicitacao - Momento em que a Unimed Prestadora toma conhecimento do pedido
• tipoGuia - Classifica o tipo de Guia TISS
• tpAcomodacao - Tipo de acomodação na qual o beneficiário será submetido
• cd-prest-solic-recebido - Código do Prestador Solicitante
• exec-numero-cbo - Código na Classificação Brasileira de Ocupações do executante
• nomePrestadorSolic - Razão Social, nome fantasia ou nome do prestador que está solicitando o procedimento 
• siglaConselho - Conselho profissional do solicitante
• numeroConselho - Número do solicitante no conselho profissional
• unidadeFederativa - UF do conselho do profissional solicitante
• numeroCBO - Código na Classificação Brasileira de Ocupações do solicitante 
• idCoberturaEspecial - Indica cobertura especial de atendimento
• saudeOcupacional - Classifica o tipo de atendimento quando se tratar de Saúde Ocupacional 

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

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-observacao – 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.
• ds-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:

01 – Consulta
02 – Exames SADT
03 – Atendimento Ambulatorial
04 – Internação Clínica
05 – Internação Cirúrgica
06 – Internação Obstétrica
07 – Odontologia
08 – Consulta em Emergência
09 - Internacao Hospital Dia
10 - Internacao Domiciliar
11 - Internacao Pediatrica
12 - Internacao Psiquiatrica
13 - Consultas Medicina Ocupacional
14 - Exames medicina ocupacional
15 - Remocao
16 - Pequena cirurgia
17 - Terapias
18 - Atendimento domiciliar
19 - SADT internado
20 - Quimioterapia
21 - Radioterapia
22 - TRS (terapia renal substitutiva)
23 - Consulta (primeira consulta)
24 - Consulta (seguimento)
25 - Consulta (pré-natal).

• id-rn - Indica se o beneficiário é recém-nato.
• tp-inter - Indica o Tipo de Internação.
• id-acidente - Indicador de Acidente. 
• dt-sug-internacao - Data sugerida para a internação.
• id-ordem-servico - Indica se o pedido de autorização foi gerado através de uma comunicação de Ordem de Serviço.
• nr-ident-os - Número da Transação da Ordem de Serviço.
• nr-ver-tiss - Número de versão da TISS que o prestador enviou a transação.
• cd-uni-atend - Código da Unimed na qual o Beneficiário será atendido.
• nr-versao-ptu - Versão do PTU da Unimed Prestadora.
• nm-pro-solic-opme - Nome do Profissional Solicitante de OPME. 
• nr-telefone-opme - Número de Telefone do Profissional Solicitante de OPME. 
• end-email-opme - Endereço de E-mail do Profissional Solicitante de OPME. 
• ds-diag-cit-hist-quimio - Descrição do diagnóstico citopatológico e histopatológico.
• ds-diag-cit-hist-radio - Descrição do diagnóstico citopatológico e histopatológico.
• ds-inf-relev-quimio - Informações relevantes a serem fornecidas pelo profissional solicitante para esclarecimento do caso.
• ds-inf-relev-radio - Informações relevantes a serem fornecidas pelo profissional solicitante para esclarecimento do caso.
• ds-pl-terap - Plano Terapêutico proposto pelo profissional solicitante .
• ds-quimio - Observação da Quimioterapia. 
• ds-radio - Observação da Radioterapia.
• ds-opme - Observação do OPME.
• ds-just-tec - Relatório profissional embasando a solicitação.
• ds-mat-solic - Descrição do Material Solicitado. 
• id-anexo - Indica a existência de um anexo na transação.
• tp-sexo - Sexo do Beneficiário.
• nr-idade - Idade do Beneficiário .          
• tpRedeMIN - Tipo de Rede conforme Manual do Intercâmbio Nacional.
• idLiminar  - Indica se o pedido está sendo realizado a partir de uma demanda judicial. 
• cdIBGE - Código IBGE. 
• protocoloAtendimento -  Protocolo de Atendimento.  
• token - Validação do beneficiário.
• tipoEtapaAutorizacao - Indica a etapa da solicitação de autorização. 
• dataSolicitacao - Momento em que a Unimed Prestadora toma conhecimento do pedido.
• tipoGuia - Classifica o tipo de Guia TISS.
• tpAcomodacao - Tipo de acomodação na qual o beneficiário será submetido.
• cd-prest-solic-recebido - Código do Prestador Solicitante.
• exec-numero-cbo - Código na Classificação Brasileira de Ocupações do executante.
• nomePrestadorSolic - Razão Social, nome fantasia ou nome do prestador que está solicitando o procedimento. 
• siglaConselho - Conselho profissional do solicitante.
• numeroConselho - Número do solicitante no conselho profissional.
• unidadeFederativa - UF do conselho do profissional solicitante.
• numeroCBO - Código na Classificação Brasileira de Ocupações do solicitante. 
• idCoberturaEspecial - Indica cobertura especial de atendimento.
• saudeOcupacional - Classifica o tipo de atendimento quando se tratar de Saúde Ocupacional.

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

def temp-table tmp-campos-layout-bl-servic           no-undo
    field nr-servico                                                       as int
    field tp-tabela                                                        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                  def temp-table tmp-campos-layout-bl-servic no-undo
    field nr-servico                       as  as int
    field tp-tabela       totalDosagem                   as char format "x(01)"
    field cd-servico                       as chardec 
    field tpqt-tabela-recebido pacote-solic                          as char format "x(01)"
    field cd-servico-recebido              as charint
    field qt-servico seq-item-pacote                          as char format "x(08)"
    field ds-opme          as int
    index i-servico               as char format "x(80)"
    field vl-servico                       as char format "x(14)"
    field vl-uni-servico        is unique primary
            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.

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.
• tp-tabela-recebido - Identifica o Tipo de Tabela utilizado no Serviço Médico. 
• cd-servico-recebido - Código do Serviço.
• qt-servico – Quantidade do serviço solicitado.
• ds-opme - Observação do OPME.
• vl-servico - Valor do serviço.
• vl-uni-servico - Valor unitário do serviço. 
• cd-anvisa-inf - Código ANVISA do Material/Medicamento
• cd-ref-fab - Referencia do Material no Fabricante.
• tp-anexo - Indicador de Anexo.
• dt-provavel - Data provável da administração.
• cd-via-admin - Via Administração.
• qt-frequencia - Frequência da administração.
• id-pacote - Identifica se o serviço faz parte de um pacote.
• tp-ordem - Indica a ordem de preferência do profissional solicitante em relação ao fabricante do material solicitado 
• sqItem - Sequencia do item solicitado.
• unMedicamento - Unidade de medida do medicamento.
• totalDosagem - Dosagem total do medicamento no ciclo atual.
• qt-pacote-solic - Quantidade pacote solicitado.
• seq-item-pacote - Sequencia do item
• 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 ptu                                 as char format "x(05)"
    field tp-cliente cliente                                             as char format "x(15)"
    field cd-unidade-origem origem                            as  as char format "x(04)"
    field cd-unidade-destino destino                             as as char format "x(04)"
    field nr-ident-origem origem                                  as char format "x(10)"
    field nr-ident-destino destino                                 as char format "x(10)"
    field cd-unidade                    field cd-unidade                      as char format "x(04)"
    field id-beneficiario beneficiario                                    as char format "x(13)"
    field nm-beneficiario beneficiario                                as  as char format "x(25)"
    field ds-observacao observacao                                  as  as char format "x(120)"
    field ds-linha-origem origem                                as char format "x(256)"
    index i-campos campos                                           is is unique primary
          cd-transacao-ptu.

...

• 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
• _CLIENTE
• cd-unidade-origem – Código nr-ident-origem – Numero da solicitação da unidade que originou a solicitação.
• nrcd-identunidade-destino – Numero da guia de autorização Código da unidade que recebeu a solicitação.
• id-status – Status do registro. Seu conteúdo pode ser:

1 – Não Autorizado
2 - Autorizado
3 – Pendencias/Glosas

• 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.
• nm-beneficiario – Nome do Beneficiario.
• ds-observacao
• 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.
• 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

...

def temp-table tmp-campos-layout-ret-bl-serv  no-undo
    field nr-servico -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 int
    field tp-tabela                       as  as char format "x(0180)"
    field cd-servico qt-servico                             as char
    field ds-servico                      as char format "x(8008)"
    field qt-servico id-autoriza                                                     as as char format "x(08)"
    field id-autoriza 01)"
    field cd-mens-espec-1                                        as  as char format "x(0104)"
    field cd-mens-espec-1 2                                        as  as char format "x(04)"
    field cd-mens-espec-2 3                                        as  as char format "x(04)"
    field cd-mens-espec-3 4                                        as  as char format "x(04)"
    field cd-mens-espec-4 5                                        as  as char format "x(04)"
    field cd-mensservico-espec-5 convertido                  as char format "x(04)"
    field cd-servico-convertido           as  as char format "x(08)"
    field sqItem sqItem                                                         as int
    index i-campos campos                                                     is is unique primary
          nr-servico.

...

• 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.
• ds-servico – Descrição do movimento.
• qt-servico – Quantidade do serviço solicitado.
• id-autoriza – Status do registro.
• tpcd-mens-espec-1, 2, 3, 4, 5 – Tipo de mensagem, conforme status do registro.ds-mens-espec-1, 2, 3, 4, 5 – Descrição Código da Mensagem.
• cd-mensservico-espec-1, 2, 3, 4, 5 – Codigo da Mensagem.convertido - Código do serviço convertido

Tabela de entrada tmp-cpc-atapi023-entrada

def temp-table tmp-cpc-atapi023-

...

entrada       no-undo
    field nm-ponto-chamada-

...

cpc                       as char format "x(15)"
    field ds-segmento-

...

recebido                         as char format "x(8000)"
    field ds-segmento-

...

retorno                           as char format "x(8000)"

...

    field r-guiautor                                             as recid
    field in-liberado-

...

guias                                 like guiautor.in-liberado-guias
    field aa-guia-

...

atendimento                           like guiautor.aa-guia-atendimento
    field nr-guia-

...

atendimento                           like guiautor.nr-guia

...

-atendimento
    field registro                                                as rowid
    field cd-classe-

...

erro                                      as int
    field cd-unidade-

...

principal                           like guiautor.cd-unidade-principal
    field cd-

...

prestador                                        as dec
    field cd-unidade-

...

prestador                         as int
    field cd-unidade-

...

carteira                             like guiautor.cd-unidade-carteira
    field cd-carteira-

...

usuario                               like guiautor.cd-carteira-usuario
    field nr-via-

...

carteira                                       like guiautor.nr-via-carteira
    field cd

...

-cla-hos                                            as int
    field cd-

...

transacao                                        as dec
    field authorization-

...

status                             as char
    field cd-erro-

...

retorno                                    as char format "x(4)"
    field status-guia-

...

negada                              like guia-negada.char-1
    field cd-tipo-insumo-

...

ptu                             like ptuinsum.cd-tipo-insumo-serious
    field cd-insumo-

...

ptu                                     like ptuinsum.cd-insumo-ptu

...

    field token                                                    as char

...

    field h-tmp-guiautor                                    as handle.

Definição campo a campo da tabela de entrada

...

def temp-table tmp-cpc-atapi023-saida saida        no-undo
    field in-liberado-

...

guias                                like guiautor.in-liberado-guias
    field cd-local-

...

autorizacao                          like guiautor.cd-local-autorizacao  
    field lg-undo

...

-retry                                     as log
    field ds-mensagem                                    as char
    field lg-id-

...

autoriza                                     as log
    field ds-observacao-

...

interna                       like guiautor.ds-observacao-interna
    field lg-

...

desconsidera                                  as log
    field cd-unidade-

...

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

...

prestador                                      as char format "x(08)"
    field in-classe-

...

nota                                    as char format "x(02)"
    field cd-cla-

...

hos                                         as int
    field authorization-status                          as char
    field status-guia-

...

negada                           like guia-negada.char-1
    field cd-tipo-insumo-

...

serious                     like ptuinsum.cd-tipo-insumo-serious
    field cd-insumo-

...

serious                            like ptuinsum.cd-insumo-serious
    field lg-alto-custo-tab-

...

propria                 as log
    field lg-busca-

...

insumo                              as logical initial yes
    field lg-busca-tmp-lay

...

-recebido              as log
    field lg-vincula-

...

pacote                             as log initial yes
    field lg-desvincula-

...

movto                        as log initial yes
    field lg-permite-guia-urg-

...

pendente        as logical
    field lg-valida-regra-urg-

...

eme                  as logical initial yes.

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

...

Tabela de saída tmp-ptu-servicos

def temp-table tmp-ptu-servicos no-undo
      field nr-servico -servicos                 no-undo
      field nr-servico                                        as int
      field tp-tabela as tabela                                         as char format "x(01)"
      field cd-servico as servico                                       as char format "x(08)"
      field tp-tabela-recebido as recebido                         as char format "x(01)"
      field cd-servico-recebido as recebido                       as char format "x(08)"
      field qt-servico as servico                                       as char format "x(08)"
      field ds-opme opme                                        as char format "x(80)"
      field vl-servico as servico                                       as char format "x(14)"
      index i-servico is servico                                       is unique primary
                nr-servico.

...