Histórico da Página

O ponto de entrada PLS500OK é executado no início da função PLSA500BOK e valida a digitação de todos os campos da guia, logo após a declaração de variáveis.

Ele é executado sempre ao clicar no botão de confirmação de uma guia no contas médicas, seja ela consulta, serviço ou qualquer outro tipo.

PLSA500.PRW

PLS500OK- Validação de Campos da Guia ( < ParamIxb[1]> , < ParamIxb[2]> , < @ParamIxb[3]> , < @ParamIxb[4]> ) --> lRet

lRet(logico)
• .T. ou .F. devolvendo se a guia poderá ser confirmada ou não.

 Tipos de Guia:

1 -  Consulta

2 - Serviço

3 - Internação

4 - Reembolso

_____________________________________________________

_____________________________________________________

Tipos de movimentação:

1 - Pesquisar

2 - Visualizar

3 - Incluir

4 - Alterar

5 - Excluir

_____________________________________________________

Array aHeader

Array contento os dados do aHeader conforme guia.
Sendo:
aHeader[1]  = aHeader BD5
aHeader[2]  = aHeader BD6
aHeader[3]  = aHeader BD7
aHeader[4]  = aHeader BE4

_____________________________________________________

Array aCols

Array contento os dados do aCols conforme guia.
Sendo:
aCols[1]  = aCols BD5
aCols[2]  = aCols BD6
aCols[3]  = aCols BD7
aCols[4]  = aCols BE4

User Function PLS500OK()	Local cTipoGuia	:=	paramixb[1] //Tipo da guia	Local nOpc    	:=	paramixb[2]	//Opcao	Local aTmpCols 	:=	paramixb[3] //aHeader	Local aTmpHead 	:=	paramixb[4] //aCols		Local nCols		:=	0   	Local cMsg		:=	""	Local lRet := .T.	//Customizações do usuário	If cTipoGuia == '01' .OR. cTipoGuia == '02'		For nCols := 1 to Len(aTmpCols)			If nCols == 1				cMsg += " aCols BD5 possue:" + Str(Len(aTmpCols[nCols])) + " itens." + chr(13)			ElseIf nCols == 2				cMsg += " aCols BD6 possue:" + Str(Len(aTmpCols[nCols])) + " itens." + chr(13)			ElseIf nCols == 3				cMsg += " aCols BD7 possue:" + Str(Len(aTmpCols[nCols])) + " itens." + chr(13)			ElseIf nCols == 4				cMsg += " aCols BE4 possue:" + Str(Len(aTmpCols[nCols])) + " itens." + chr(13)			EndIf		Next nCols		Alert(cMsg)		EndIf	Return(lRet)