...
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 |
|
|
| Retorno: | aDados - Retorno com os mesmos dados de entrada, porém manipulados conforme a necessidade |
03. DEMAIS INFORMAÇÕES
Exemplo PLSA420IM
| Bloco de código |
|---|
| language | vb |
|---|
| theme | FadeToGrey |
|---|
| firstline | 1 |
|---|
| title | Exemplo PLS420IM |
|---|
| linenumbers | true |
|---|
|
#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
