Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 22

changes.mady.by.user Renan Martins de Almeida

Gravado em

comparado com

Nova versão 23

changes.mady.by.user Thiago Rodrigues da Silva

Gravado em

Chave

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

...

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

DefaultDescriçã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

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}         

08. ALTERAÇÕES VIGÊNCIA 25/02/2022

  • O sistema identificará de forma automática qual versão deve validar através da tag nrVerTra_PTU, se quando estiver lendo o arquivo, identificar que o valor da tag esta como "2" saberá que deve validar nos schemas da versão atual  1.1

    IMPORTANTE

  • Para isso será necessário a criação da subpasta  V1_1 dentro da pasta de Schemas já existente: Protheus_data\plsptu\schemas ,para armazenar os novos Schemas. 
    Portanto  para funcionamento correto da versão 1.1 os novos schemas devem ficar no diretório: Protheus_data\plsptu\schemas\V1_1


09. MENU

  • No Configurador (SIGACFG), acesse Ambientes/Cadastro/Menu (CFGX013). Informe a nova opção de menu do SIGAPLS, conforme instruções a seguir:

Menu

Miscelânea

Submenu

Unimed

SubmenuImportação

Nome da Rotina

PTU A500

Programa

PLSP500X

Módulo

Plano de Saúde

...



10. ALTERAÇÕES DICIONÁRIO

  • No Configurador (SIGACFG), acesse Banco de Dados/Dicionário/Bases de Dados, expanda o menu a esquerda, clique em Dicionário de Dados, clique na Lupa(Pesquisar) e procure por BCI clique em Editar, expanda o menu a esquerda, clique em Campos, clique em Incluir, preencha os dados conforme tabela abaixo

    Campo

    Valor

    Campo

    BCI_LOTEDI

    TipoCaracter

    Tamanho

    8

    Contexto

    Real

    Propriedade

    Visualizar

    TítuloSeq.Import.
    DescriçãoSequencia da Importacao

  • É necessário alterar o X2_UNICO da tabela B6L - PTU Online x Pacote, para adicionar os campos B6L_CODPEG + B6L_NUMERO na chave, devendo ficar:

    Tabela B6L - X2_UNICO
    X2_UNICOB6L_FILIAL+B6L_OPEMOV+B6L_ANOAUT+B6L_MESAUT+B6L_NUMAUT+B6L_SEQUEN+B6L_ALIAS+B6L_NRTROL +B6L_CODPEG + B6L_NUMERO
    Nota

    É necessário realizar a alteração do X2_UNICO da tabela BRJ, incluindo o seguinte valor: BRJ_FILIAL+BRJ_CODIGO+BRJ_REGPRI

...