CPC-RTCOBVAL.P
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | cpc-rtcobval.p |
- Verificar o tipo de cobertura (normal, intercambio ou repasse) para valorizacao de procedimentos e 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.
Localização
- Dentro do programa rtcobval.p, o ponto de chamada "TAXA-ADM-ESPEC" para calcular a taxa de intercambio especifica.
- Dentro do programa rtcobval.p, o ponto de chamada "APOS-ORD-SERV" após verificação se a unidade utiliza Ordem de Serviço.
Ponto de Utilização
"TAXA-ADM-ESPEC"
"APOS-ORD-SERV"
"ANT-UNI-TAXA" - a partir da versão 12.1.2407
Include das definições das tabelas temporárias
- cpc-rtcobval.i
Tabelas de entrada e saída
Tabela de entrada tt-cpc-rtcobval-entrada
def temp-table tt-cpc-rtcobval-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field lg-mensagem-na-tela as logical
field nr-rowid-out-uni as rowid
field nr-rowid-usuario as rowid
field cd-tab-preco-proc as character format "xxx/99"
field lg-procedimento as logical
field cd-unidade-executante as int.
Definição campo a campo da tabela de entrada
- in-evento-programa- Identifica qual evento deve ser executado no momento que está sendo chamada.
- nm-ponto-chamada-cpc – Ponto de chamada da cpc.
- lg-mensagem-tela – Indicador de que as mensagens geradas na CPC poderão ou não ser mostradas em tela.
- nr-rowid-out-uni – Rowid para a tabela de beneficiários de outras unidades (tabela out-uni).
- nr-rowid-usuario - rowid para a tabela de usuários da base (tabela "usuario").
- cd-tab-preco-proc – Código da tabela de preço do Procedimento.
- lg-procedimento – Indicador de que a chamada foi feita para um Procedimento ("P").
- cd-unidade-executante – Código da unidade do prestador executante.
Tabela de saída tt-cpc-rtcobval-saida
def temp-table tt-cpc-rtcobval-saida no-undo
field lg-undo-retry as logical
field ds-mensagem-relatorio as char format "x(75)"
field pc-taxa-aca-par as dec format ">>9.99999"
field pc-taxa-acp-par as dec format ">>9.99999"
field lg-continua as logical
field lg-altera-tab-preco-proc-cob as logical
field cd-tab-preco-proc-cob like moviproc.cd-tab-preco-proc-cob
field lg-retorna as logical
field lg-atualiza-pc-taxa-aca as logical
field lg-atualiza-pc-taxa-acp as logical.
Definição campo a campo da tabela de saída
- lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC.
- ds-mensagem-relatorio – Variável que recebe a descrição dos erros que ocorreram na CPC.
- pc-taxa-aca-par – Percentual de taxa a ser cobrada sobre os atos cred. auxiliares.
- pc-taxa-acp-par – Percentual de taxa a ser cobrada sobre os atos cred. principais.
- lg-continua – Indica se irá continuar ou não a execução do processo.
- lg-altera-tab-preco-proc-cob – Indica se irá alterar a tabela de preço de cobrança.
- cd-tab-preco-proc-cob – Retorna a tabela de preço de cobrança alterada.
- lg-retorna - indica se deve retornar do bloco corrente no programa de produto.
- lg-atualiza-pc-taxa-aca - indica se deve atualizar o percentual de taxa sobre os atos cred. auxiliares.
- lg-atualiza-pc-taxa-acp - indica se deve atualizar o percentual de taxa sobre os atos cred. principais.