cpc-botisssolicproc.p

• Rotina utilizada ao processar solicitação de procedimento TISS via WebService.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

• Dentro da solicitação de procedimento TISS. 

Ponto de Utilização

• "PREST-EXECUT" => Ao consultar o prestador executante informado no WebService (codigoProfExec, codigoIndicadonaOperadora ou codigonaOperadora).
• "ANTES-OUT-UNI"
• "APOS-BUSCA-GUIA"
• "GUIA-AUT"
• "GUIA-PRORROGA"
• "GERA-SIMULACAO"
• "TRATA-ODONTO"
• "VERIFICA-BENEF" => Ao buscar informações do beneficiário informado no WebService (dadosBeneficiario > numeroCarteira), caso encontre o cadastro do mesmo, aciona CPC.
• "VALIDA-VARIACAO"
• "CODIGO-INSUMO" => Antes de realizar a pesquisa do insumo informado no WebService, é possível manipular a informação dos campos "Tipo de Insumo" e "Código do insumo" que serão utilizados.

• "ANTES-ASSOTGCL" => Disponível a partir da versão 12.1.2407.

Include das definições das tabelas temporárias

• cpc-botisssolicproc.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-botisssolicproc-entrada

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

field in-evento-programa                    as char format "x(10)"
field nm-ponto-chamada-cpc             as char format "x(15)"
field nr-guiautor                                  as rowid
field nr-procguia                                 as rowid
field cd-unidade-carteira                    like guiautor.cd-unidade-carteira
field cd-carteira-usuario                     like guiautor.cd-carteira-usuario
field cd-unidade-principal                   like guiautor.cd-unidade-principal
field cd-prestador-principal                 like guiautor.cd-prestador-principal
field cd-servico                                   as int64 format "9999999999"
field tp-tabela                                     as int format "99"
field ds-observacao                           as char
field cd-codigo                                   as char
field tp-tipoTransacao                        as char
field cd-unidade-prestador-exec        like preserv.cd-unidade
field cd-prestador-exec                      like preserv.cd-prestador
field cd-esp-prest-executante            like previesp.cd-especialid
field in-carater-internacao                  as char
field qt-servico                                   as char
field qt-us                                           as char
field nm-prest-exec-compl                 like guiainod.nm-prest-exec-compl
field char-3                                        like guiainod.char-2
field nr-registro                                  like guiainod.nr-conse-prest-exec-compl
field uf-conselho                                like guiainod.uf-conse-prest-exec-compl
field char-2                                        like guiainod.char-2
field lg-odonto                                   as log
field nr-versao                                   as char
field nr-guia-prestador                      like guiautor.nr-guia-atendimento
field nr-guia-operadora                     as char
field identificador-beneficiario           as char
field id-pessoa                                  like usuario.id-pessoa
field cd-modalidade                          like usuario.cd-modalidade
field nr-proposta                               like usuario.nr-proposta
field cd-usuario                                like usuario.cd-usuario
field cd-unidade-prestador-solic      like preserv.cd-unidade
field cd-prestador-solic                    like preserv.cd-prestador

field ds-movimento                          as char

field in-tipo-guia                      as char
field id                                as int
field h-tmp-proced-solicproc            as handle
field dt-emissao                        as date.

Definição campo a campo da tabela de entrada

• in-evento-programa - Nome do evento relacionado ao ponto de CPC dentro do programa que a utiliza.
• nm-ponto-chamada-cpc – Nome do ponto de chamada da CPC dentro do programa que a utiliza. 
• nr-guiautor - Identificador do registro da guia.
• nr-procguia - Identificador do registro de procedimentos da guia.
• cd-unidade-carteira - Código da unidade do beneficiário.
• cd-carteira-usuario  - Código da carteira do beneficiário.
• cd-unidade-principal - Código da unidade do prestador principal.
• cd-prestador-principal - Código do prestador principal.
• cd-servico - Código do serviço.
• tp-tabela - Código da tabela
• ds-observacao - Observação
• cd-codigo - Código
• tp-tipoTransacao - Tipo da Transação
• cd-unidade-prestador-exec - Código da unidade do prestador executante. 
• cd-prestador-exec - Código do prestador executante. 
• cd-esp-prest-executante - Código da especialidade do prestador executante.
• in-carater-internação - Caráter da internação: Urgência ou Eletiva.
• qt-servico - Indica a quantidade do serviço.
• qt-us - Quantidade
• nm-prest-exec-compl - Nome do prestador
• char-3 - Código do conselho do prestador
• nr-registro - Número do registro do prestador
• uf-conselho - Unidade federativa do conselho do prestador
• char-2
• lg-odonto - Identifica se é referente a Odonto
• nr-versao - Versão TISS.
• nr-guia-prestador - Número guia prestador.
• nr-guia-operadora - Número guia operadora.
• identificador-beneficiario - Biometria do beneficiário.
• id-pessoa - Código da tabela pessoa do beneficiário.
• cd-modalidade - Código da modalidade do beneficiário.
• nr-proposta - Número da proposta do beneficiário.
• cd-usuario - Código do beneficiário.
• cd-unidade-prestador-solic - Código da unidade do solicitante.
• cd-prestador-solic - Código do prestador solicitante.
• ds-movimento - Descrição do movimento
• in-tipo-guia - indica o tipo da guia ("I" = internação; "P" = prorrogação; "S" =SADT; "O" = odontologia)
• id - ID da tabela temporária
• h-tmp-proced-solicproc - handle para a tabela temporária "tmp-proced-solicproc"
• dt-emissao - data de emissão da guia

Tabela de entrada de movimentos tmp-cpc-botisssolicproc-movtos

def temp-table tmp-cpc-botisssolicproc-movtos no-undo

field   cd-unidade                           like procguia.cd-unidade
field   cd-unidade-prestador-exec  like procguia.cd-unidade-prestador
field   cd-prestador-exec                like procguia.cd-prestador
field   qt-servico                             like insuguia.qt-insumo
field   tp-servico                             as char format "x(1)"
field   cd-servico                            as int64 format "9999999999"
field   tipo-insumo                          like mov-insu.cd-tipo-insumo
index serv-1 as primary
          cd-servico.

Definição campo a campo da tabela de entrada de movimentos

• • cd-unidade - Código da unidade.
  • cd-unidade-prestador-exec - Código da unidade do prestador executante. 
  • cd-prestador-exec - Código do prestador executante.
  • qt-servico - Indica a quantidade do serviço.
  • tp-servico - Indica o tipo do serviço: "A" Pacote, "I" Insumo e "P" Procedimento.
  • cd-servico - Código do serviço.
  • tipo-insumo - Tipo do Insumo - se tp-servico = "I".

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

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

field  lg-undo-retry                                        as log
field  ds-mensagem                                      as char
field  ds-observacao                                     as char
field  aa-guia-atendimento                            like guiautor.aa-guia-atendimento
field  nr-guia-atendimento                             like guiautor.nr-guia-atendimento
field  tp-movto                                               as char format "x(01)"
field  cd-tipo-insumo                                     as int format "99"
field  cd-servico                                            as int format "99999999"
field  lg-simulacao                                        as log
field  lg-modulo-odonto                                as log
field  lg-retorno-erro                                     as log
field  lg-grava-erro                                       as log
field  lg-tem-serious                                     as log

field id-seq-variacao                                    as dec
field  cd-unidade-prestador-exec                 like preserv.cd-unidade
field  cd-prestador-exec                               like preserv.cd-prestador

field lg-sobrepoe-classe-nota           as logical
field in-classe-nota                    as int.

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

• lg-undo-retry - Informa ao programa se ocorreu algum na CPC.
• ds-mensagem - Mensagem de erro retornada do programa CPC.
• ds-observacao - Observação
• aa-guia-atendimento - Ano da guia de atendimento.
• nr-guia-atendimento - Número da guia de atendimento.
• tp-movto - Indica o tipo do serviço: "A" Pacote, "I" Insumo e "P" Procedimento
• cd-tipo-insumo - Tipo do Insumo - se tp-movto = "I"
• cd-servico - Código do serviço.
• lg-simulacao - Identifica se é simulação
• lg-modulo-odonto - identifica se é referente a Odonto
• lg-retorno-erro - Identifica se é erro
• lg-grava-erro - identifica se grava erro
• lg-tem-serious - Identifica se é sistema Serious
• id-seq-variacao - Identificador da variação.
• cd-unidade-prestador-exec - Código da unidade do prestador executante. 
• cd-prestador-exec - Código do prestador executante. 
• lg-sobrepoe-classe-nota - indica se deve sobrepor a classe de nota
• in-classe-nota - código da classe de nota