cpc-at0112c2.p1

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"
Ponto de Utilização
"MUDA-QT-REPASSE"
"GUIA-DIREC"
"ALTERA-QTD-AUT"
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.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama CPC-AT0112C2.P. O valor desse campo pode ser "ALTERA", "MODIFICA"; "ALTERA-QTD-AUT",;
nm-ponto-chamada-cpc – " MUDA-QT-REPASSE ", "GUIA-DIREC";
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
R-guiautor – Rowid da tabela guiautor.
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)