CPC-AT0110C9.p

• Rotina utilizada para validar o módulo de cobertura dos insumos.
• 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.
• Enviara e recebera uma tabela temporária.

Localização

• Dentro do programa at0110c9.i após o ser informado o módulo de cobertura e dentro do programa atapi022.p após verificar a situação do prestador executante.
• Após validação RESTRICAO PRESTADOR PRINCIPAL X MOVIMENTO X PACOTE.
• Inicio da digitação do Insumo.
• Após digitação do Valor do Insumo.

Ponto de Utilização

• "VALIDAR-MODULO"
• "ENTIDADE"
• "VALIDA-INSUMO"
• "ANT-INC-PACOTE"
• "VALOR-UNIT"
• "PRES-EXE-INSU"
• "ALTERA-QTD-AUT"

Include das definições das tabelas temporárias

• cpc-at0110c9.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-at0110c9i-entrada

def temp-table tmp-cpc-at0110c9i-entrada no-undo                                    
    fields in-evento-programa               as char format "x(06)"                     
    fields nm-ponto-chamada-cpc        as char format "x(15) "                    
    fields cd-tipo-insumo-par                like insumos.cd-tipo-insumo     
    fields cd-insumo-par                        like insumos.cd-insumo          
    fields nr-rowid-usuario-par              as rowid                        
    fields nr-rowid-out-uni-par              as rowid                        
    fields nr-recid-mod-cob-par            as recid
    fields cd-unid-exec                           like presev.cd-unidade
    fields nr-guia-atendimento              like procguia.nr-guia-atendimento
    fields aa-guia-atendimento              like procguia.nr-guia-atendimento
    field cd-proc-insu                             like presmovt.cd-proc-insu
    field cd-tipo-insumo                         like presmovt.cd-tipo-insumo
    field cd-prestador                             like preserv.cd-prestador
    field cd-unidade-principal                like unimed.cd-unimed
    field cd-unidade-executante            like unimed.cd-unimed
    field cd-prestador-executante          like preserv.cd-prestador
    field lg-inclui-pacote                        as log
    field cd-tip-guia                                like tip-guia.cd-tipo-guia
    field vl-insumo-cob                          like insuguia.vl-insumo-cob
    field vl-taxa-participacao                  like insuguia.vl-taxa-participacao
    field dt-interna-ini                            as date format 99/99/9999
    field dt-interna-fim                           as date format 99/99/9999
    field qt-insumo                                 as int
    field h-frame-f-insumo                     as handle
    field nr-recid-usuario                        as recid
    field cd-cid-aux                                 as char format "x99.x" extent 4
    field mostra-cr-solic                          as char format "x(30)" .

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama a cpc-at0110c9. 
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. 
  • cd-tipo-insumo-par – Código do tipo de Insumo.
  • cd-insumo-par – Código do Insumo.
  • nr-rowid-usuario-par – Rowid do beneficiário (da base).
  • nr-rowid-out-uni-par – Rowid do beneficiário (de intercâmbio).
  • nr-recid-mod-cob-par – Recid do módulo de cobertura do insumo.
  • cd-unid-exec – Unidade da Unimed em execução.
  • nr-guia-atendimento – Número da Guia de Atendimento.
  • aa-guia-atendimento – Ano da Guia de Atendimento.
  • cd-proc-insu – Código do Insumo.
  • cd-tipo-insumo – Código do Tipo de Insumo.
  • cd-prestador – Código do Prestador referente.
  • cd-unidade-principal - Unidade do prestador principal.
  • cd-unidade-executante - Unidade do prestador executante.
  • cd-prestador-executante – Código prestador executante.
  • cd-tip-guia - Código tipo da Guia.
  • vl-insumo-cob - Valor Cobrança Insumo.
  • vl-taxa-participacao - Valor da taxa de Participação.
  • dt-interna-ini - Data de Internação Inicial.
  • dt-interna-fim - Data de Internação Final.
  • qt-insumo - Quantidade Insumo.
  • h-frame-f-insumo - Handle do Frame Insumo.
  • nr-recid-usuario - Recid do Beneficiario.
  • cd-cid-aux - Codigo do Cadastro iternacional de Doenças.
  • mostra-cr-solic - Carater da solicitação: "E" eletiva/ "U" urgencia.

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

def temp-table tmp-cpc-at0110c9i-saida     no-undo                                 
    field lg-undo-retry                        as logical                                 
    field ds-mensagem-relatorio        as char format "x(75)"
    field lg-restringe-movto               as logical
    field lg-alt-qtd-aut                        as log
    field ds-mes-alerta                       as char format "x(75)"
    field cd-insumo                            as int64
    field lg-cpc-ant-inc-pacote-restr  as log
    field cd-tipo-insumo                    as int
    field vl-insumo-cob                      like insuguia.vl-insumo-cob
    field vl-taxa-participacao              like insuguia.vl-taxa-participacao
    field lg-altera-part                       as log
    field in-cobra-participacao          like insuguia.in-cobra-participacao
    field dt-interna-ini                       as date format 99/99/9999
    field dt-interna-fim                      as date format 99/99/9999
    field lg-pede-valor                       as log
    field lg-erro-glosa                        as log.

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

• • • lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
    • ds-mensagem-relatorio – Variável que retornará a mensagem de erro/aviso após o processamento das informações pela CPC.
    • lg-restringe-movto – Variável que identifica se, não ocorrência de uma restrição, o insumo poderá ou não ser incluído.
    • lg-alt-qtd-aut – Variável que identifica se ocorre alteração da quantidade de autorizações.
    • Ds-mês-alerta – devolve mensagem de alerta em caso de algum erro ou confome regra especifica
    • lg-cpc-ant-inc-pacote-restr – indica se o movimento deve ser restringido.
    • cd-tipo-insumo - Código Tipo de Insumo.
    • vl-insumo-cob - Valor Cobrança Insumo.
    • vl-taxa-participacao - Valor Taxa Participação.
    • lg-altera-part - Altera Participação.
    • in-cobra-participacao - Cobrar Participação.
    • dt-interna-ini - Data Internação Inicial.
    • dt-interna-fim - Data Internação Final.
    • lg-pede-valor - Pede Valor Unitário.
    • lg-erro-glosa - verifica validaçao para gerar ou nao a glosa.

      Tabela de entrada temp-movtos-insu
def temp-table temp-movtos-insu no-undo      
    field cd-unidade-prestador       like guiautor.cd-unidade
    field aa-guia-atendimento        like guiautor.aa-guia-atendimento
    field nr-guia-atendimento        like guiautor.nr-guia-atendimento
    field cd-tipo-insumo             like insumos.cd-tipo-insumo
    field cd-insumo                  like insumos.cd-insumo
    field qt-insumo                  like insuguia.qt-insumo.

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

• • • cd-unidade-prestador  – Unidade do prestador.
    • aa-guia-atendimento – Ano da Guia de Atendimento.
    • nr-guia-atendimento – Número da Guia de Atendimento.
    • cd-tipo-insumo – Código Tipo de Insumo.
    • cd-insumo – Código Insumo.
    • qt-insumo – Quantidade Insumo.