Linha Microsiga Protheus

Page tree

Ponto de entrada na revalorização de cobrança e pagamento de guias

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Saúde

Módulo:

Plano de Saúde

Rotina:

Rotina

Nome Técnico

Revaloriza PagamentoPLSA500RPG
Revaloriza CobrançaPLSA500RCB
Revaloriza Cobrança e PagamentoPLSA500RCP

Parâmetro(s):

NomeTipoDescrição
cOpcCaracter

'0' - Chamada da revalorização de cobrança e pagamento;

'1' - Chamada da revalorização de cobrança apenas;

'2' - Chamada da revalorização de pagamento apenas.

cChaveGuiaCaracter

chave da guia a ser revalorizada no formato: CODOPE+CODPEG+COLDP+NUMERO+ORIMOV
(Operadora+Protocolo+Local Digitação+Origem da movimentação)

cAliasCaracter

alias do cabeçalho da guia (Ex.: BD5, BE4)

Ponto de Entrada:

PLSREVAL
Versão/Release:12.1.7

Descrição

Criado o ponto de entrada PLSREVAL, para que o cliente possa decidir sobre a revalorização de cobrança e pagamento de uma determinada guia.

Ponto de Entrada

Descrição:

O ponto de entrada será chamado durante a execução da revalorização de cobrança e/ou pagamento para que o usuário possa decidir se irá, ou não, executar a revalorização para determinada guia

Localização:

Atualizações / Proc. Contas / Rev. Cobr./Pagto

Eventos:

Proc. Contas

Programa Fonte:

PLSA500.PRW

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRetorno

lógico

Indica se deverá revalorizar ou não a guia

Sim

Exemplo:

#Include 'Protheus.ch'

User Function PLSRERVAL()

Local cOpc:= PARAMIXB[1]
Local cChaveGuia:= PARAMIXB[2]
Local cAlias:= PARAMIXB[3]
Local lRetorno := .T. 

If cAlias == 'BE4'

    lRetorno := .F.//Nao vai revalorizar guias de internação

EndIf

Return lRetorno