cpc-at0110c3.p0

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 inclusão de procedimento, via manual, no módulo AT.;
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 inclusã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".
Após localizar RESTRICAO PRESTADOR PRINCIPAL X MOVIMENTO X PACOTE.

Ponto de Utilização
"MUDA-QT-REPASSE"
"ENTIDADE"
"ANT-INC-PACOTE"

Include das definições das tabelas temporárias
CPC-AT0110C3.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc- at0110c3-entrada
def temp-table tmp-cpc-at0110c3-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.nr-guia-atendimento
field cd-proc-insu like presmovt.cd-proc-insu
field lg-inclui-pacote as log.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama CPC-AT0110C3.P. O valor desse campo pode ser "INCLUI;
nm-ponto-chamada-cpc – " MUDA-QT-REPASSE ";
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.
cd-proc-insu – código do Insumo.
lg-inclui-pacote - indica se o movimento está sendo incluído por um pacote.
Tabela de saída tmp-cpc-at0110c3-saida
def temp-table tmp-cpc-at0110c3-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
field lg-cpc-ant-inc-pacote-restr as log
field lg-undo-retry 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 – Identifica se foi alterada a quantidade de autorizações.
lg-cpc-ant-inc-pacote-restr – indica se o movimento deve ser restringido.
lg-undo-retry – Indica se deve realizar undo, retry no retorno da cpc.