PE PLS420IM Manipular Dados do Relatório Guia de Solicitação de Internação

01. DADOS GERAIS

Produto:	TOTVS Saúde Planos
Linha de Produto:	Linha Protheus
Segmento:	Saúde
Módulo:	Planos - Linha Protheus - Atendimento
Função:	Solicitação de Internação
País:	Brasil

02. DESCRIÇÃO

Ponto de entrada PLSA420IM no fonte PLSR420N, para manipular dados da guia de impressão de Solicitação de Internação

Rotina:	Impressão de Guia de Solicitação de Internação - PLSR420N
Ponto de Entrada:	PLSA420IM

O Retorno da função deve respeitar a seguinte estrutura:

aDados[1] := {

1 - Registro ANS aDados[1]
2- Nº Guia no Prestador aDados[02]
3 - Número da Guia Atribuído pela Operadora aDados[3]
4 - Data da Autorização aDados[4]
5 - Senha aDados[5]
6 - Data de Validade da Senha aDados[6]

Versão Tiss > 4
Dados do Beneficiário
7 - Número da Carteira aDados[7]
8 - Validade da Carteira aDados[8]
9 - Atendimento de RN aDados[9]
10 - Nome aDados[10]

Dados do Contratado Solicitante

12 - Código na Operadora aDados[12]
13 - Nome do Contratado aDados[13]
14 - Nome do Profissional Solicitante aDados[14]
15 - Conselho Profissional aDados[15]
16 - Número no Conselho aDados[16]
17 - UF aDados[17]
18 - Código CBO aDados[18]

Dados do Hospital /Local Solicitado / Dados da Internação
19 - Código na Operadora / CNPJ aDados[19]
20 - Nome do Hospital/Local Solicitado aDados[20]
21 - Data sugerida para internação aDados[21]
22 - Caráter do Atendimento aDados[22]
23 - Tipo de Internação aDados[23]
24 - Regime de Internação aDados[24]
25 - Qtde. Diárias Solicitadas aDados[25]
26 - Previsão de uso de OPME aDados[26]
27 - Previsão de uso de quimioterápico aDados[27]
28 - Indicação Clínica aDados[28]

Hipóteses Diagnósticas
29 - CID 10 Principal (opcional) aDados[29]
30 - CID 10 (2) (opcional) aDados[30]
31 - CID 10 (3) (opcional) aDados[31]
32 - CID 10 (4) (opcional) aDados[32] ca
33 - Indicação de Acidente (acidente ou doença relacionada) aDados[33]

Procedimentos Solicitados
Os dados do procedimento são pegos diretamente da guia principal - tabela BEA

34 ao 38

Dados da Autorização
39 - Data Provável da Admissão Hospitalar aDados[39]
40 - Qtde. Diarias Autorizadas aDados[40] o
41 - Tipo da Acomodação Autorizada aDados[41]
42 - Código na Operadora / CNPJ autorizado aDados[42]
43 - Nome do Hospital / Local Autorizado aDados[43]
44 - Código CNES aDados[44]
45 - Observação / Justificativa
46 - Data da Solicitação aDados[46]
47-Assinatura do Profissional Solicitante
48-Assinatura do Beneficiário ou Responsável
49-Assinatura do Responsável pela Autorização

50 - Nome Social aDados[50] }

Importante: O retorno deve respeitar a mesma estrutura do primeiro parâmetro de entrada, a incorreta devolução do retorno do ponto de entrada pode ocasionar em inconsistências na impressão da guia e erros na execução do programa.

Ponto de Entrada

Eventos:

Manipulação de dados da impressão de Guia de Solicitação de Internação

Programa Fonte:

PLSR420N.PRW

Função:

R420NIMP

Parâmetros de Entrada:

Nome

Tipo

Descrição

nGuia

Numérico

1- Guia de Solicitação de Internação

2- Guia de Resumo de Internação

3- Guia de Solicitação de Prorrogação de Internação

aDados

Array

Posição	Nome	Tipo
1	Registro ANS	Caractere
2	Nº Guia no Prestador	Caractere
3	Nº da Guia Atribuído pela Operadora	Caractere
4	Data da Autorização	Caractere
5	Senha	Caractere
6	Data de Validade da Senha	Caractere
7	Nº da Carteira	Caractere
8	Data de Validade da Carteira	Caractere
9	Atendimento de Recém Nascido	Caractere
10	Nome	Caractere
11	Cartão Nacional de Saúde	Caractere
12	Código na Operadora	Caractere
13	Nome do Contratado	Caractere
14	Nome do Profissional Solicitante	Caractere
15	Conselho Profissional	Caractere
16	Nº do Conselho	Caractere
17	UF	Caractere
18	Código CBO	Caractere
19	Código na Operadora	Caractere
20	Nome do Hospital/Local Solicitado	Caractere
21	Data Sugerida para Internação	Caractere
22	Caráter de Atendimento	Caractere
23	Tipo de Internação	Caractere
24	Regime de Internação	Caractere
25	Qtde. Diárias Solicitadas	Numérico
26	Previsão de Uso de OPME	Caractere
27	Previsão de Uso de Quimioterápico	Caractere
28	Indicação Clinica	Caractere
29	CID 10 Principal	Caractere
30	CID 10 (2)	Caractere
31	CID 10 (3)	Caractere
32	CID 10 (4)	Caractere
33	Indicação de Acidente (acidente ou doença relacionada)	Caractere
34 ao 38	Os dados do Procedimento
34	Tabela	Caractere
35	Código do Procedimento	Caractere
36	Descrição	Caractere
37	Qtde. Solicitada	Numérico
38	Qtde. Autorizada	Numérico
39	Data Provável da Admissão Hospitalar	Caractere
40	Qtde. de Diárias Autorizadas	Numérico
41	Tipo da Acomodação Autorizada	Caractere
42	Código na Operadora/CNPJ Autorizado	Caractere
43	Nome do Hospital	Caractere
44	Código CNES	Caractere
45	Observação/Justificativa	Caractere
46	Data da Solicitação	Caractere
47	Assinatura do Profissional Solicitante	Não Necessário
48	Assinatura do Beneficiário ou Responsável	Não Necessário
49	Assinatura do Responsável pela Autorização	Não Necessário
50	Nome Social	Caractere

03. DEMAIS INFORMAÇÕES

Exemplo PLSA420IM

Exemplo PLS420IM

#INCLUDE 'PROTHEUS.CH' 
User FUNCTION PLS420IM()
Local nGuia := ParamIxb[1]
Local aDados := ParamIxb[2]

msgalert("Atenção: Execução do Ponto de Entrada PLS420IM")

If nGuia == '1'
	aDados := {// Regras Especificas do Cliente}
Elseif nGuia == '2'
	aDados := {// Regras Especificas do Cliente}
Else 
	aDados := {// Regras Especificas do Cliente}
EndIf

Return aDados

04. ASSUNTOS RELACIONADOS

Árvore de páginas