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	COR,COP,UCO	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}

Nome:

PTUDEPARAI

DEPARAIMP

Descrição:

Este Ponto de Entrada permite a manipulação do código de tabela e procedimento a serem importados.

Exemplo:

user function

PTUDEPARAI

DEPARAIMP()

cCodPad := paramixb[1]
cCodPro := paramixb[2]

cDatPro

cDatPro := paramixb[3]

cCodRda := paramixb[4]

return {.t.,"22","10101012"}

Função:

dePara

Localização:

Importação PTU A500

Parâmetros:

conteúdo das tags: dt_Execucao, tp_Tabela

e

, cd_Servico e codigo da rda

Programa Fonte:

PLSP500X

Retorno:

aRet

aRet[1] - lAchou - Variável lógica, se retornar .T. irá considerar o retorno do PE e não fará o de-para padrão na BTU, se retornar .F. irá realizar o de-para padrão do sistema.

aRet[2]- cCodPad - Código da tabela padrão tiss (00,18,19,20,22 e etc)

aRet[3] - cCodPro - Código de procedimento.

08. ALTERAÇÕES DA VERSÃO 1.1

...

Árvore de páginas

Versões comparadas

Versão antiga 25

Nova versão 26

Chave

08. ALTERAÇÕES DA VERSÃO 1.1