Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Saúde Planos

Linha de Produto:

Linha Protheus  -

Segmento:

Saude 

Módulo:PLANO DE SAUDE SIGAPLS
Função:PLSA090;
PLSA790;
plstrtptu_scs2
Ticket:10390124
Requisito/Story/Issue (informe o requisito relacionado) :DSAUBE-13435


02. SITUAÇÃO/REQUISITO

Ponto de Entrada para realizar o De-para de códigos de procedimentos/materiais/medicamentos/taxas/pacotes nas transações de envio ou recebimento do PTU online, para códigos existentes ou não na terminologia TISS.

03. SOLUÇÃO

Incluído novos parâmetros nos pontos de entrada já existente para adequar ao PTU Online:

Tipo de Tabela do Procedimento:

Ponto de Entrada PLSVATBI
Parâmetros

1 - cTpTab = Tipo de Tabela Padrão (Tabela vinculada com a terminologia TISS – BTU)
2 - lTbTISS = Lógico se será retornado o tipo de tabela 18/19/20/22/98/00.
3 - lRfTISS = Lógico se será retornado a tabela de referência quando o tipo de tabela for 00 (Tabela Própria das Operadoras).

Retorno

Tipo de Tabela (Caractere)

Observação sobre o PLSVATBI: 
Quando o lTbTISS for .T. e o lRfTISS for .F. deverá retornar a tabela TISS do PTU: 18,19,20,22,98 e 00.
Quando o lTbTISS for .T. e o lRfTISS for .T., deverá retornar a tabela de referencia (18,19,20,22) quando o tipo de tabela for 00 (Tabela Própria das Operadoras), caso contrario deverá retornar em branco.

A tabela BR8 do Procedimento está posicionada nesse momento.


Ponto de Entrada PLPTUBTU
Parâmetros

8 = Tabela de Referência quando o Tipo de tabela for 00 (Tabela Própria das Operadoras)
9 = Se é uma De-para de PTU Online

Retorno

Array de dados no modelo {CODPAD,CODIGO,DESCRIÇÃO}

Documentação completa do PLPTUBTU no link em Assuntos Relacionados


Exemplo da utilização:

#include "PROTHEUS.CH"

User Function PLPTUBTU()

Local lReceb := PARAMIXB[1]
Local lEnvio := PARAMIXB[2]
Local cTipTab := PARAMIXB[3]
Local cCodPad := PARAMIXB[4]
Local cCodPro := PARAMIXB[5]
Local aRet := PARAMIXB[6]
Local nRecno := PARAMIXB[7]
Local cTabRef := PARAMIXB[8]
Local lRegraPTU := PARAMIXB[9]

// Tratamento

Return aRet

#include "PROTHEUS.CH"

User Function PLSVATBI()

Local cTpTab := PARAMIXB[1]
Local lTbTISS := PARAMIXB[2]
Local lRfTISS := PARAMIXB[3]

// Tratamento

Return cTpTab

04. DEMAIS INFORMAÇÕES

Não se aplica

05. ASSUNTOS RELACIONADOS

        DSAUATE-3785 DT Criado Ponto de Entrada "PLPTUBTU"