Linha de Produto: | Microsiga Protheus | ||||||||||
Segmento: | Saúde | ||||||||||
Módulo: | Plano de Saúde - SIGAPLS | ||||||||||
Rotina: |
| ||||||||||
Ponto de Entrada: | O mesmo Ponto de Entrada atende todos os relatórios, recebendo por parâmetro qual relatório o está chamando. PLR46XP1 - Ponto de entrada para filtragem de Tipos de Cobrança PLR46XP2 - Ponto de entrada para trocar descrição de Tipos de Títulos PLR46XP3 - Ponto de entrada para implementar filtro de registros na consulta principal dos relatórios de contraprestações | ||||||||||
País(es): | Brasil | ||||||||||
Banco(s) de Dados: | Top Connect. | ||||||||||
Sistema(s) Operacional(is): | Todos. |
Adequação dos Relatórios Registros Auxiliares - Receitas - Fase I, para contemplar requisitos da instrução normativa RN 390.
Procedimento para Implantação
O sistema é atualizado logo após a aplicação do pacote de atualizações (Patch) deste chamado.
CONFIGURAÇÃO DE MENUS
1. No Configurador (SIGACFG), acesse Ambientes/Cadastro/Menu (CFGX013). Informe a nova opção de menu do Plano de Saúde - SIGAPLS, conforme instruções a seguir:
Menu | Relatórios |
Submenu | Livros A.N.S. |
Nome da Rotina | Contrap.Emitidas |
Programa | PLSR461 |
Módulo | SIGAPLS |
Tipo | Função Protheus |
Menu | Relatórios |
Submenu | Livros A.N.S. |
Nome da Rotina | Contrap. a Receb. |
Programa | PLSR462 |
Módulo | SIGAPLS |
Tipo | Função Protheus |
Menu | Relatórios |
Submenu | Livros A.N.S. |
Nome da Rotina | Contrap.Recebidas |
Programa | PLSR463 |
Módulo | SIGAPLS |
Tipo | Função Protheus |
Menu | Relatórios |
Submenu | Livros A.N.S. |
Nome da Rotina | Contrap.Canceladas |
Programa | PLSR464 |
Módulo | SIGAPLS |
Tipo | Função Protheus |
Exemplo:
1. No Plano de Saúde (SIGAPLS), acesse Relatórios / Livros A.N.S.
Para o relatório Contraprestações a Receber, ao acioná-lo será solicitado o preenchimento da seguinte parametrização:
Para os demais relatórios, ao acioná-los será solicitado o preenchimento da seguinte parametrização:
2. Confirme a Parametrização.
3. Irá aparecer a tela de configuração de impressão do relatório padrão gráfico Protheus.
4. Confira os dados e confirme.
ATENÇÃO: Os Pontos de Entrada são atuantes em todos os relatórios citados neste documento.
Descrição: | PLR46XP1 - Ponto de entrada para criação de filtro específico de Tipos de Cobrança. | ||||||||||||||||
Localização: | Relatórios / Livros A.N.S. | ||||||||||||||||
Evento: | Permitir a escolha dos Tipos de Cobrança que serão considerados no relatório, bem como retornar o Tipo de Mensalidade de cada lançamento. | ||||||||||||||||
Programa Fonte: | PLSR461 / PLSR462 / PLSR463 / PLSR464 | ||||||||||||||||
Função: | SIGAPLS | ||||||||||||||||
| Envio: | Sempre é enviado o tipo do relatório que acionou o ponto de entrada, e deve ser recebido na primeira posição da variável ParamIxb.
| ||||||||||||||||
Retorno: | Array de retorno multidimensional com três colunas, sendo necessário retornar o conteúdo do Tipo de Lançamento de Faturamento na primeira coluna (BM1_CODTIP), Tipo de Lançamento Débito/Crédito na segunda coluna (BM1_CODEVE - somente quando necessário) e na terceira coluna retornar o Tipo de Mensalidade, sendo 1-Participante e 2-Patronal.
|
Exemplo:
#Include 'Protheus.ch'
User Function PLR46XP1()
Local aRet := {}
Local cRelOri := IIf(Empty(ParamIxb[1]),'',ParamIxb[1])
// Ponto de entrada para filtragem de Tipos de Cobrança
// Roger C. - 05/12/2016
// Parâmetros de Entrada
// cRelOri - 461O - Relatorio Receitas Emitidas - Beneficiario da Operadora
// cRelOri - 461C - Relatorio Receitas Emitidas - Beneficiario da Operadora
// cRelOri - 462O - Relatorio Receitas a Receber - Beneficiario da Operadora
// cRelOri - 462C - Relatorio Receitas a Receber - Beneficiario da Operadora
// cRelOri - 463O - Relatorio Receitas Recebidas - Beneficiario da Operadora
// cRelOri - 463C - Relatorio Receitas Recebidas - Beneficiario da Operadora
// cRelOri - 464O - Relatorio Receitas Canceladas - Beneficiario da Operadora
// cRelOri - 464C - Relatorio Receitas Canceladas - Beneficiario da Operadora
// Parâmetros de Retorno
// aRet - Array de retorno multidimensional com três colunas, sendo necessário retornar
// o conteudo do Tipo de Lançamento de Faturamento na primeira coluna (BM1_CODTIP)
// e Tipo de Lançamento Débito/Crédito na segunda coluna (BM1_CODEVE), quando necessário.
// Na terceira coluna retornar o Tipo de Mensalidade, sendo 1-Participante e 2-Patronal
// Exemplo: No relatorio deve considerar o Lançamento de Faturamento 101 - PRODUTO/PLANO (MENSALIDADE) independente
// do produto e também o Lançamento de Faturamento 113 - DEBITOS SERV.MEDICOS somente para o Lançamento Débito/Crédito
// 006 - Débito Mensalidade Retroativa
// O ponto de entrada deve retornar o seguinte:
// aRet := { { '101', '','1'}, {'113','006','1'})
If cRelOri == '461O' // Rel Receitas Emitidas - Beneficiário da Operadora
aAdd(aRet, {'101', '', '1' } )
aAdd(aRet, {'113', '006', '1' } )
aAdd(aRet, {'901', '', '1' } )
aAdd(aRet, {'906', '', '2' } )
aAdd(aRet, {'917', '', '1' } )
aAdd(aRet, {'922', '', '2' } )
aAdd(aRet, {'940', '', '1' } )
aAdd(aRet, {'941', '', '1' } )
aAdd(aRet, {'963', '', '2' } )
aAdd(aRet, {'972', '', '1' } )
aAdd(aRet, {'973', '', '1' } )
ElseIf cRelOri $ '461C' // Rel Receitas Emitidas - Coparticipação
aAdd(aRet, {'116', '', '1' } )
Else
aAdd(aRet, {'' , '' , '' } )
EndIf
Return(aRet)
Descrição: | PLR46XP2 - Ponto de entrada para trocar descrição de Tipos de Títulos | ||||||||||||
Localização: | Relatórios / Livros A.N.S. | ||||||||||||
Evento: | Permitir a escolha da descrição de Tipos de Títulos | ||||||||||||
Programa Fonte: | PLSR461 / PLSR462 / PLSR463 / PLSR464 | ||||||||||||
Função: | SIGAPLS | ||||||||||||
| Envio: | Sempre é enviado o tipo do relatório que acionou o ponto de entrada, e deve ser recebido na primeira posição da variável ParamIxb.
| ||||||||||||
Retorno: | aRet - Array de retorno multidimensional com duas colunas, sendo necessário retornar o conteúdo do Tipo de Título na primeira coluna (E1_TIPO) e a nova descrição na segunda coluna (X5_DESCRI),
|
Exemplo:
#Include 'Protheus.ch'
User Function PLR46XP2(cRelOri)
Local aRet := {}
Local cRelOri := IIf(Empty(ParamIxb[1]),'',ParamIxb[1])
// Ponto de entrada para trocar descrição de Tipos de Títulos
// Roger C. - 05/12/2016
// Parâmetros de Entrada
// cRelOri - 461O - Relatorio Receitas Emitidas - Beneficiario da Operadora
// cRelOri - 461C - Relatorio Receitas Emitidas - Cooparticipacao
// cRelOri - 462O - Relatorio Receitas a Receber - Beneficiario da Operadora
// cRelOri - 462C - Relatorio Receitas a Receber - Cooparticipacao
// cRelOri - 463O - Relatorio Receitas Recebidas - Beneficiario da Operadora
// cRelOri - 463C - Relatorio Receitas Recebidas - Cooparticipacao
// cRelOri - 464O - Relatorio Receitas Canceladas - Beneficiario da Operadora
// cRelOri - 464C - Relatorio Receitas Canceladas - Cooparticipacao
// Parâmetros de Retorno
// aRet - Array de retorno multidimensional com duas colunas, sendo necessário retornar
// o conteúdo do Tipo de Título na primeira coluna (E1_TIPO) e a nova descrição na segunda coluna (X5_DESCRI),
// quando necessário.
// Exemplo: quanto for um Tipo de Título DP, descrição é trocada para 'DUPLICADA PARA PAGAMENTO'
// O ponto de entrada deve retornar o seguinte:
// aRet := {{'DP','COBRANÇA VIA DUPLICATA'}}
If cRelOri == '461O'
aAdd(aRet, {'DP', 'COBRANÇA VIA DUPLICATA'} )
EndIf
Return(aRet)
Descrição: | PLR46XP3 - Ponto de entrada para implementar filtros na consulta principal dos relatórios de contraprestações | ||||||||
Localização: | Relatórios / Livros A.N.S. | ||||||||
Evento: | Permitir a escolher registros que serão considerados conforme o relatório, atuando na consulta principal das tabelas | ||||||||
Programa Fonte: | PLSR461 / PLSR462 / PLSR463 / PLSR464 | ||||||||
Função: | SIGAPLS | ||||||||
| Envio: | Sempre é enviado o tipo do relatório que acionou o ponto de entrada, e deve ser recebido na primeira posição da variável ParamIxb.
| ||||||||
Retorno: | cWhere - texto formato SQL para implementar em meio a query, devendo ser utilizado AND e finalizado com espaço em branco. Caso a consulta para determinado relatório não precise de filtros, deve-se retornar uma variável caracter vazia ( '' ).
|
Exemplo:
#Include 'Protheus.ch'
User Function PLR46XP3(cRelOri)
Local aRet := {}
Local cRelOri := IIf(Empty(ParamIxb[1]),'',ParamIxb[1])
Local cWhere := ''
// Ponto de entrada para implementar filtros na consulta principal dos relatorios de contraprestações
// Roger C. - 05/12/2016
// Parâmetros de Entrada
// cRelOri - 461O - Relatorio Receitas Emitidas - Beneficiario da Operadora
// cRelOri - 461C - Relatorio Receitas Emitidas - Cooparticipacao
// cRelOri - 462O - Relatorio Receitas a Receber - Beneficiario da Operadora
// cRelOri - 462C - Relatorio Receitas a Receber - Cooparticipacao
// cRelOri - 463O - Relatorio Receitas Recebidas - Beneficiario da Operadora
// cRelOri - 463C - Relatorio Receitas Recebidas - Cooparticipacao
// cRelOri - 464O - Relatorio Receitas Canceladas - Beneficiario da Operadora
// cRelOri - 464C - Relatorio Receitas Canceladas - Cooparticipacao
// Parâmetros de Retorno
// cWhere - texto formato SQL para implementar em meio a query, devendo ser utilizado AND e finalizado com espaço em branco.
// Exemplo: Para filtrar no relatorio Emitidas - Coparticipacao trazendo somente o grupo empresa '0002'.
// O ponto de entrada deve retornar o seguinte:
// cWhere := "AND BM1_CODEMP = '0002' "
If cRelOri == '461C'
cWhere := "AND BM1_CODEMP = '0002' "
EndIf
Return(cWhere)
