CPC-BOTISSLOTEGUIA.P

...

field nm-ponto-chamada-cpc as                                          as char format "x(15)"
field in-evento-programa                                                 as char format "x(10)"
field nr-carteira-benef as char format "x(17                                                    as char format "x(17)"
field nr-prestador as                                                            as char
field cd-unidade-prestador like moviptmp                                             like moviptmp.cd-unidade
field cd-prestador like                                                            like moviptmp.cd-prestador
field nr-lote as dec
field pc-red-acr like moviptmp.pc-red-acr
field nr-cnpj-principal as char
field in-tipo as char format "x(01)"
field cd-unid-prest-membro-eqp like moviptmp.cd-unidade
field cd-prestador-membro-eqp like moviptmp.cd-prestador
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field cd-procedimento as int format '99999999'
field lg-urgencia as log
field cd-uni-carteira like car-ide.cd-unimed
field nr-guia-prestador as char format "x(20)"
field cd-conselho like preserv.cd-conselho
field nr-registro like preserv.nr-registro
field cd-uf-conselho like preserv.cd-uf-conselho
field in-tipo-guia as int
field cd-id-contratado as dec
field nm-contratado as char format "x(70)"
field cd-id-contratado-executante as dec
field nm-contratado-executante as char format "x(70)"
field nm-profissional-executante as char format "x(70)"
field cd-unidade like moviptmp.cd-unidade
field cd-unidade-prestadora like moviptmp.cd-unidade-prestadora
field cd-transacao like moviptmp.cd-transacao
field nr-serie-doc-original like moviptmp.nr-serie-doc-original
field nr-doc-original like docrecon.nr-doc-original
field recid-lote as recid
field lg-base as log
field lg-gri as log
field nr-seq-interno like moviptmp.nr-seq-interno
field cd-insumo like mov-itmp.cd-insumo
field nr-processo like moviptmp.nr-processo
field nr-seq-digitacao like moviptmp.nr-seq-digitacao
field cd-unidade-solicitante like moviptmp.cd-unidade
field cd-prestador-solicitante like moviptmp.cd-prestador
field nr-guia-operadora as char
field nr-guia-principal as char
field cd-unidade-principal like moviptmp.cd-unidade
field cd-prestador-principal like moviptmp.cd-prestador
field tp-atendimento like docretmp.tp-atend
field nr-guia as dec
field cd-pos-equipe like moviptmp.cd-pos-equipe
field in-nivel-prestador like moviptmp.in-nivel-prestador
field dt-realizacao like moviproc.dt-realizacao
field cd-unidade-dh                                                                      as dec
field pc-red-acr                                                                like moviptmp.pc-red-acr
field nr-cnpj-principal                                                      as char
field in-tipo                                                                      as char format "x(01)"
field cd-unid-prest-membro-eqp                                     like moviptmp.cd-unidade
field cd-prestador-membro-eqp                                      like moviptmp.cd-prestador
field aa-guia-atendimento                                               like guiautor.aa-guia-atendimento
field nr-guia-atendimento                                                like guiautor.nr-guia-atendimento
field cd-procedimento                                                    as int format '99999999'
field lg-urgencia                                                             as log
field cd-uni-carteira                                                        like car-ide.cd-unimed
field nr-guia-prestador                                                   as char format "x(20)"
field cd-conselho                                                            like preserv.cd-conselho
field nr-registro                                                               like preserv.nr-registro
field cd-uf-conselho                                                        like preserv.cd-uf-conselho
field in-tipo-guia                                                             as int
field cd-id-contratado                                                     as dec
field nm-contratado                                                        as char format "x(70)"
field cd-id-contratado-executante                                  as dec
field nm-contratado-executante                                     as char format "x(70)"
field nm-profissional-executante                                    as char format "x(70)"
field cd-unidade                                                             like moviptmp.cd-unidade
field cd-prestador-dh unidade-prestadora                                           like moviptmp.cd-unidade-prestadorprestadora
field cd-trans-classe like pipresta.cd-trans-classe
field in-classe-nota like assotrcl.in-classe-nota
field tp-atend as char format "x(2)"
field cr-solicitacao as char format "x(1)"
field cd-unid-princ like moviptmp.cd-unidade
field cd-prest-princ like moviptmp.cd-prestador
field cd-via-acesso like moviptmp.cd-via-acesso
field vl-cobrado like moviptmp.vl-cobrado
field cd-tab-preco-proc-pag like preinpr.cd-tab-preco-proc
field in-tp-guia as int
field cd-modalidade like modalid.cd-modalidade
field nr-ter-adesao like propost.nr-ter-adesao
field cd-usuario like usuario.cd-usuario
field tp-consulta like docrecon.tp-consulta
field cd-tipo-insumo like mov-itmp.cd-tipo-insumo
field nr-rowid-usuario as rowid
field nr-rowid-out-uni as rowid
field cd-plano like pla-sau.cd-plano
field cd-tipo-plano like ti-pl-sa.cd-tipo-plano
field dt-atend-movto as date format "99/99/9999"
field tp-tabela as int format "99"
field nr-versao-aux as char initial ""
field cd-id as int
field hr-realizacao like moviptmp.hr-realizacao
field cd-unidade-executante like moviptmp.cd-unidade
field cd-prestador-executante like transacao                                                          like moviptmp.cd-transacao
field nr-serie-doc-original                                               like moviptmp.nr-serie-doc-original
field nr-doc-original                                                        like docrecon.nr-doc-original
field recid-lote                                                                as recid
field lg-base                                                                   as log
field lg-gri                                                                       as log
field nr-seq-interno                                                        like moviptmp.nr-seq-interno
field cd-insumo                                                              like mov-itmp.cd-insumo
field nr-processo                                                            like moviptmp.nr-processo
field nr-seq-digitacao                                                     like moviptmp.nr-seq-digitacao
field cd-unidade-solicitante                                            like moviptmp.cd-unidade
field cd-prestador-solicitante                                          like moviptmp.cd-prestador
field nr-recid-perimovi as recid
field nr-recid-tranrevi as recid
field nm-prestador like preserv.nm-prestador
field dt-suspensao-par like sitprest.dt-inicio-suspensao
field h-tmp-lote-guia-tiss as handle
field h-tmp-sadt-loteguia as handle
field h-tmp-desp-sadt-loteguia as handle
field h-tmp-equip-loteguias as handle
field h-tmp-internacao-loteguia as handle
field h-tmp-declara-inter-loteguias as handle
field h-tmp-diag-inter-loteguias as handle
field h-tmp-honorarios-loteguia as handle
field h-tmp-proc-loteguia as handle
field h-tmp-consulta-loteguia as handle
field h-tmp-odonto-loteguia as handle
field h-tmp-odont-inic-odonto-loteguia as handle
field h-tmp-dentes-odonto-loteguias as handle
field h-tmp-proced-odonto-loteguias as handle
field h-tmp-param-lote-guia as handle
field in-tipo-pessoa as char.

Definição campo a campo da tabela de entrada

• in-tipo-pessoa - Indica o tipo de pessoa (F - Fisica ou J - Jurídica);

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

def temp-table tmp-cpc-botissloteguia-saida no-undo

guia-operadora                                                  as char
field nr-guia-principal                                                     as char
field cd-unidade-principal                                               like moviptmp.cd-unidade
field cd-prestador-principal                                            like moviptmp.cd-prestador
field tp-atendimento                                                       like docretmp.tp-atend
field nr-guia                                                                    as dec
field cd-pos-equipe                                                        like moviptmp.cd-pos-equipe
field in-nivel-prestador                                                   like moviptmp.in-nivel-prestador
field dt-realizacao                                                          like moviproc.dt-realizacao
field cd-unidade-dh                                                        like moviptmp.cd-unidade
field cd-prestador-dh                                                     like moviptmp.cd-prestador
field cd-trans-classe                                                      like pipresta.cd-trans-classe
field in-classe-nota                                                        like assotrcl.in-classe-nota
field tp-atend                                                                 as char format "x(2)"
field cr-solicitacao                                                         as char format "x(1)"
field cd-unid-princ                                                         like moviptmp.cd-unidade
field cd-prest-princ                                                        like moviptmp.cd-prestador
field cd-via-acesso                                                        like moviptmp.cd-via-acesso
field vl-cobrado                                                             like moviptmp.vl-cobrado
field cd-tab-preco-proc-pag                                          like preinpr.cd-tab-preco-proc
field in-tp-guia                                                               as int
field cd-modalidade                                                      like modalid.cd-modalidade
field nr-ter-adesao                                                        like propost.nr-ter-adesao
field cd-usuario                                                             like usuario.cd-usuario
field tp-consulta                                                            like docrecon.tp-consulta
field cd-tipo-insumo                                                      like mov-itmp.cd-tipo-insumo
field nr-rowid-usuario                                                   as rowid
field nr-rowid-out-uni                                                    as rowid
field cd-plano                                                               like pla-sau.cd-plano
field cd-tipo-plano                                                        like ti-pl-sa.cd-tipo-plano
field dt-atend-movto                                                     as date format "99/99/9999"
field tp-tabela                                                               as int format "99"
field nr-versao-aux                                                       as char initial ""
field cd-id                                                                     as int
field hr-realizacao                                                        like moviptmp.hr-realizacao
field cd-unidade-executante                                        like moviptmp.cd-unidade
field cd-prestador-executante                                      like moviptmp.cd-prestador
field nr-recid-perimovi                                                  as recid
field nr-recid-tranrevi                                                    as recid
field nm-prestador                                                        like preserv.nm-prestador
field dt-suspensao-par                                                 like sitprest.dt-inicio-suspensao
field h-tmp-lote-guia-tiss                                              as handle
field h-tmp-sadt-loteguia                                              as handle
field h-tmp-desp-sadt-loteguia                                     as handle
field h-tmp-equip-loteguias                                          as handle
field h-tmp-internacao-loteguia                                    as handle
field h-tmp-declara-inter-loteguias                               as handle
field h-tmp-diag-inter-loteguias                                    as handle
field h-tmp-honorarios-loteguia                                   as handle
field h-tmp-proc-loteguia                                             as handle
field h-tmp-consulta-loteguia                                       as handle
field h-tmp-odonto-loteguia                                         as handle
field h-tmp-odont-inic-odonto-loteguia                        as handle
field h-tmp-dentes-odonto-loteguias                           as handle
field h-tmp-proced-odonto-loteguias                           as handle
field h-tmp-param-lote-guia                                        as handle
field in-tipo-pessoa                                                     as char

Definição campo a campo da tabela de entrada

• in-tipo-pessoa - Indica o tipo de pessoa (F - Fisica ou J - Jurídica);

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

def temp-table tmp-cpc-botissloteguia-saida no-undo

field cd-motivo-alta                                                as int
field cd-unidade-carteira                                        like docretmp.cd-unidade-carteira
field cd-carteira-usuario                                         like docretmp.cd-carteira-usuario
field cd-unidade-prestador                                     like preserv.cd-unidade
field cd-prestador                                                   like preserv.cd-prestador
field cd-tipo-percentual                                          as int
field cd-transacao                                                  as int
field ds-mensagem                                                as char format "x(75)"
field ds-caminho-xml-tiss                                       as char format "x(200)"
field dt-internacao-aux                                           as date
field dt-alta-aux                                                      as date
field hr-internacao-aux                                           as char
field hr-alta-aux                                                      as char
field in-nivel-prestador                                           as int
field lg-erro                                                            as logical
field lg-undo-retry                                                  as logical
field nr-serie-doc-original                                      like docrecon.nr-serie-doc-original
field nr-cpf                                                             like preserv.nr-cgc-cpf
field nr-lote                                                            as int
field nr-sequencia                                                 as dec
field pc-red-acr                                                     as dec
field ds-mensagem-retorno                                  as char format "x(75)"
field lg-grava-movto                                              as log
field lg-pc-red-acr-diferente                                  as log
field lg-urgencia                                                    as log
field nr-doc-original                                               like docrecon.nr-doc-original
field nr-guia                                                          as dec
field cd-unidade-dh                                              like moviptmp.cd-unidade
field cd-prestador-dh                                           like moviptmp.cd-prestador
field lg-div-honosadt                                            as log
field cd-unidade-solicitante                                  like field cd-motivo-alta as int
field cd-unidade-carteira like docretmp.cd-unidade-carteira
field cd-carteira-usuario like docretmp.cd-carteira-usuario
field cd-unidade-prestador like preserv.cd-unidade
field cd-prestador like preserv.cd-prestador
field cd-tipo-percentual as int
field cd-transacao as int
field ds-mensagem as char format "x(75)"
field ds-caminho-xml-tiss as char format "x(200)"
field dt-internacao-aux as date
field dt-alta-aux as date
field hr-internacao-aux as char
field hr-alta-aux as char
field in-nivel-prestador as int
field lg-erro as logical
field lg-undo-retry as logical
field nr-serie-doc-original like docrecon.nr-serie-doc-original
field nr-cpf like preserv.nr-cgc-cpf
field nr-lote as int
field nr-sequencia as dec
field pc-red-acr as dec
field ds-mensagem-retorno as char format "x(75)"
field lg-grava-movto as log
field lg-pc-red-acr-diferente as log
field lg-urgencia as log
field nr-doc-original like docrecon.nr-doc-original
field nr-guia as dec
field cd-unidade-dh like moviptmp.cd-unidade
field cd-prestador-dh solicitante                               like moviptmp.cd-prestador
field lg-div-honosadt as log
field cd-unidade-solicitante like moviptmp.cd-unidade
field cd-prestador-solicitante like moviptmp.cd-prestador
field dt-internacao dt-internacao                                                like docrecon.dt-internacao
field dt-alta                                                           like docrecon.dt-internacao alta
field dt-alta hr-internacao                                               like docrecon.dthr-alta internacao
field hr-internacao like alta                                                          like docrecon.hr-internacao
field hr-alta like docrecon.hr-alta
field aa-guia-atendimento                                   like docrecon.aa-guia-atendimento
field nr-guia-atendimento like nr-guia-atendimento                                    like docrecon.nr-guia-atendimento
field nr-processo                                                 as int
field cd-pacote as -pacote                                                    as int
field lg-resposta as                                                  as log
field lg-troca as logical.                                                       as logical

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

...