Histórico da Página

...

Ponto de Entrada

PLS500UNM

Descrição

O Ponto de Entrada (P.E.) PLS500UNM está localizado nos fontes PLSP500X e PLSUA500X, ele é acionado uma única vez quando a tela inicial da rotina é aberta.

Ele permite a manipulação das variáveis que indicam o tipo de unidade (BD7_CODUNM) a serem exportados e importados de acordo com a regra do PTU A500.(vl_ServCobrado, vl_CO_Cobrado ,vl_FilmeCobrado)

Fonte

PLSP500X,PLSUA500X

Parâmetros

O P.E. recebe os seguintes parâmetros:

Parâmetro	Tipo	Default	Descrição
cServ	Caractere	PPM,HM,HMR,VMT,VMD,REA,VTX,VDI	Unidades de honorário médico
cAux	Caractere	AUX,AUR	Unidades de auxiliar
cAnest	Caractere	PAP,PA,PAR	Unidades de porta anestésico
cCusOpe	Caractere	UCO,COR,VMT,VMD,REA,COP,VTX,VDIUCO	Unidades de custo operacional
cFilm	Caractere	FIL	Unidades de filme

Retorno

O P.E. deve retornar uma string, contendo os códigos de unidade.

Parâmetro	Variável	Descrição	Obrigatório
cServ	Caractere	Unidades de honorário médico	Sim
cAux	Caractere	Unidades de auxiliar	Sim
cAnest	Caractere	Unidades de porta anestésico	Sim
cCusOpe	Caractere	Unidades de custo operacional	Sim
cFilm	Caractere	Unidades de filme	Sim

Exemplo

#INCLUDE "PROTHEUS.CH"

USER FUNCTION PLS500UNM()
local aParam := paramixb
local cServ := aParam[1]
local cAux := aParam[2]
local cAnest := aParam[3]
local cCusOpe := aParam[4]
local cFilm := aParam[5]

cAnest += "XPA"

Return {cServ,cAux,cAnest,cCusOpe,cFilm}

...

Árvore de páginas

Versões comparadas

Versão antiga 16

Nova versão 17

Chave