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"

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 int format "99999999"
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.

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 
• ds-observacao
• cd-codigo
• tp-tipoTransacao
• 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
• 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
• nr-versao - Versão TISS.
• nr-guia-prestador - Número guia prestador.
• nr-guia-operadora - Número guia operadora.

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 int format "999999999"
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

• • 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  cd-unidade-prestador-exec                 like preserv.cd-unidade
field  cd-prestador-exec                               like preserv.cd-prestador.

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
• aa-guia-atendimento - Ano da guia de atendimento.
• nr-guia-atendimento - Número da guia de atendimento.
• tp-movto
• cd-tipo-insumo
• cd-servico
• lg-simulacao
• lg-modulo-odonto
• lg-retorno-erro
• lg-grava-erro
• lg-tem-serious
• cd-unidade-prestador-exec - Código da unidade do prestador executante. 
• cd-prestador-exec - Código do prestador executante.