Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Informações
titleImportante

Para usufruir de todos os facilitadores disponibilizados no processo de análise de contas para intercambio, recomendamos que sejam utilizados os processos deste manual: Pagamento e Cobrança de Intercambio - Plano de Saúde - P12

Diferente da versão batch onde era disponibilizado para o usuário a opção de criação do BD7 partindo do arquivo ou da TDE, na versão XML iremos mesclar as duas opções.

...

Ponto de Entrada 

PLS500UNM

Descrição

O Ponto de Entrada (P.E.) PLS500UNM está localizado no fontenos fontes PLSP500X 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

DefaultDescrição

cServ

Caractere

PPM,HM,HMR

Unidades de honorário médico

cAux

Caractere

AUX,AUR

Unidades de auxiliar

cAnest

Caractere

PAP,PA,PAR

Unidades de porta anestesicoanestésico

cCusOpe

Caractere

UCO,COR,VMT,VMD,REA,COP,VTX,VDI

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

CaractereUnidades de honorário médicoSim

cAux

CaractereUnidades de auxiliarSim

cAnest

CaractereUnidades de porta anestésicoSim

cCusOpe

CaractereUnidades de custo operacionalSim

cFilm

CaractereUnidades de filmeSim



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}         

...