CPC-AT0112C2.p

• Rotina utilizada pela operadora de saúde para efetuar a atualização da informação "Qt Rep.Cob" (Quantidade de vezes que cobra a tabela médica do beneficiário) quando da alteração de procedimento, via manual, no módulo AT.
• Alertar que a guia é direcionada e caso seja alterado o prestador executante adicionar os valores das quantidades solicitadas. Registro da tabela específica deqtdedirec.
• Permite indicar se o usuário terá ou na permissão para alterar a quantidade solicitada de procedimentos.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Quando da solicitação da informação "Qt Rep.Cob" (Quantidade de vezes que cobra a tabela médica do beneficiário), no processo de alteração de procedimento do módulo AT, e o parâmetro "Muda qt.vezes tab." do tipo de Guia estiver definido igual a "Não".
• Antes da solicitação da justificativa do procedimento.

Ponto de Utilização

• "MUDA-QT-REPASSE"
• "ALTERA-QTD-AUT"
• "VALIDA-JUSTIFIC"

Include das definições das tabelas temporárias

• CPC-AT0112C2.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-at0112c2-entrada

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

field in-evento-programa                    as char format "x(10)"
field nm-ponto-chamada-cpc             as char format "x(15)"
field cd-modalidade                            like propost.cd-modalidade
field cd-plano                                      like propost.cd-plano
field cd-tipo-plano                               like propost.cd-tipo-plano
field qt-repasse-cob                            like procguia.qt-repasse-cob
field cd-unid-princ                               like presev.cd-unidade
field cd-prestador-princ                      like preserv.cd-prestador
field cd-unid-solic                               like presev.cd-unidade
field cd-prestador-solic                      like preserv.cd-prestador
field cd-unid-exec                               like presev.cd-unidade
field cd-prestador-exec                      like preserv.cd-prestador
field r-usuario                                     as rowid
field r-outuni                                       as rowid
field cd-procedimento                        as int format "99999999".
field nr-guia-atendimento                   like procguia.nr-guia-atendimento
field aa-guia-atendimento                  like procguia.aa-guia-atendimento
field dt-emissao-guia                         like guiautor.dt-emissao-guia
field lg-ja-possui-autorizacao             as log
field in-acao-retorno-autor                 as int
field cd-classe-erro-autor                    as int
field lg-possui-anterior-valido             as log
field in-acao-retorno-realiz                 as int
field cd-classe-erro-realiz                    as int
field lg-qtd-maior-solic                       as log
field in-acao-retorno-qtd                   as int
field cd-classe-erro-qtd                     as int.

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama CPC-AT0112C2.P. 
    • nm-ponto-chamada-cpc – Nome do ponto de cpc
    • cd-modalidade – Código da modalidade de comercialização;
    • cd-plano – Código de identificação do Plano no produto;
    • cd-tipo-plano - Código de identificação do Tipo de Plano no produto;
    • qt-repasse-cob – Quantidade de vezes, default da parametrização do sistema, que cobra a tabela médica do beneficiário.
    • cd-unid-princ – Código da unidade do prestador principal;
    • cd-prestador-princ – Código do prestadoe principal;
    • cd-unid-solic – Código da unidade do prestador solicitante;
    • cd-prestador-solic – Código do prestadoe solicitante;
    • cd-unid-exec – Código da unidade do prestador executante;
    • cd-prestador-exex – Código do prestadoe executante;
    • r-usuario – Rowid da tabela USUARIO, caso o beneficiário for da base,
    • r-outuni – Rowid da tabela OUT-UNI, caso o beneficiário for de intercãmbio,
    • cd-procedimento – Código do procedimento que está sendo incluído.
    • Nr-guia-atendimento - Número da guia de atendimento
    • Aa-guia-atendimento – Ano da guia de atendimento
    • Dt-emissao-guia – Data da emissão da guia
    • lg-ja-possui-autorizacao - Já possui Autorização.
    • in-acao-retorno-autor - Ação de retorno da classe de erro 147.
    • cd-classe-erro-autor - Classe de erro 147.
    • lg-possui-anterior-valido - Possui Autorização Anterior valida.
    • in-acao-retorno-realiz - Ação de retorno da classe de erro 163.
    • cd-classe-erro-realiz - Classe de erro 163 
    • lg-qtd-maior-solic - Quantidade maior que solicitado.
    • in-acao-retorno-qtd - Ação de retorno da classe de erro 201.
    • cd-classe-erro-qtd - Classe de erro 201.

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

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

field lg-erro                           as log
field ds-mensagem              as char format "x(75)"
field qt-repasse-cob             like procguia.qt-repasse-cob
field lg-alt-qtd-aut                 as log.

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

• • • lg-erro – Indica a ocorrência de erro no processamento da CPC;
    • ds-mensagem – E a mensagem que a operadora quer que seja apresentada ao usuário quando da ocorrência de erro no processamento da CPC;
    • qt-repasse-cob - Quantidade de vezes que cobra a tabela médica do beneficiário, definido pela operadora.
    • lg-alt-qtd-aut - Autoriza quantidade autorizada (Sim/Não)