Histórico da Página
Este documento é material de especificação dos requisitos de inovação, trata-se de conteúdo extremamente técnico. |
---|
Informações Gerais
Especificação | |||
Produto | Microsiga Protheus | Módulo | SIGAPLS - Plano de Saúde |
Segmento Executor | Saúde | ||
Projeto | M_SAU_PLS002 | IRM | PCREQ-5688 |
Requisito | PCREQ-6241 | Subtarefa | PCSFL-235 |
Release de Entrega Planejada | 12.1.8 | Réplica | Não se aplica |
País | (x) Brasil ( ) Argentina ( ) Mexico ( ) Chile ( ) Paraguai ( ) Equador ( ) USA ( ) Colombia ( ) Outro _____________. |
Objetivo
Esta especificação visa detalhar a criação de Pontos de Entrada previstos na solução para a NEG 235, a qual consiste nas regras e modalidades da CEMIG Saúde para reembolso.
Definição da Regra de Negócio
Pontos de entrada para desenvolvimento específico:
1) PLSBTA480: Para permitir inclusão Permite a inclusão de novas opções do menu Outras Ações da janela da rotina de grupos de cobertura PLSA480:
- No Fonte PLSA480, Função MenuDef()
- Após a definição dos botões da rotina e do ponto de entrada "PL480RT1"
- Adicionar o ponto de entrada PLSBTA480:
If ExistBlock("PLSBTA480")
aAuxRot := ExecBlock("PLSBTA480",.F.,.F.,)
If ValType(aAuxRot) == "A"
If Len(aAuxRot) > 0
For i := 1 to Len(aAuxRot)
aadd(aRotina, aAuxRot[i])
Next
EndIf
EndIf
EndIf
- O ponto de entrada irá retornar um array com as opções a serem incluidas. A função MenuDef() irá adicionar essas opções no menu existente.
2) Para Alteração das opções do menu Outras Ações do Browse (aRotina)
de cobertura. Esse ponto de entrada já existe no sistema: PL480RT1 (para adicionar itens no menu ações relacionadas da rotina "Grupo de Cobertura") e PL480RT2 (para adicionar itens no menu ações relacionadas da rotina "Grupo de Cobertura>Procedimentos").
2) PLSGCOBA: Possibilita a verificação e determinação do Grupo de Cobertura3) Para Gravação do protocolo de reembolso (Protheus)
- No Fonte PLSA001A, Função PBOWFinal
- Após a finalização da gravação (Histórico):
If lRet .AND. nOpc <> K_Excluir
PLGRVBOX(BOW->BOW_PROTOC,BOW->BOW_MATRIC,BOW->BOW_STATUS, /*cNumMov*/, /*cNumCC*/, /*dDtBaix*/, BOW->BOW_OBS,/*cLocate*/, /*cCodPeg*/, /*cOrigem*/,BOW->BOW_NPROCE )
EndIf
- Adicione o Bloco a seguir:
If ExistBlock("PLGRVBOWPLSGCOBA")
ExecBlock("PLGRVBOWPLSGCOBA",.F.,.F.,{BOW->(Recno())})
Endif
O ponto de entrada irá receber o RECNO posicionado da BOW (que é o que acabou de ser criado/alterado pela gravação) com isso é possível recuperar as informações necessárias para chegar nos registros vinculados à ele e dar o tratamento pretendido)
4) Para Gravação do protocolo de reembolso (Portal)
- No WebService WSPLSXFUN, Método PutReembBen
Após a finalização da gravação (Itens):
BOW->(MsUnlock())
PlsGrvB1N(cProtocolo,::ItensReemb,aNomBen)
ConfirmSX8()
- Adicione o Bloco a seguir:
If ExistBlock("PLWEBBOW")
ExecBlock("PLWEBBOW",.F.,.F.,{BOW->(Recno())})
Endif
- O ponto de entrada irá receber o RECNO posicionado da BOW (que é o que acabou de ser criado/alterado pela gravação) com isso é possível recuperar as informações necessárias para chegar nos registros vinculados à ele e dar o tratamento pretendido)
5) Para Validação do Protocolo de Reembolso (Remote)
- No fonte PLSA001A, Função PBOWVld
- Após a finalização da validação padrão
If lAviso .AND. lRet
If M->BOW_STATUS == '3'
If !MsgYesNo(STR0173)
lRet := .F.
EndIf
EndIf
EndIf
EndIf
Endif
EndIf
- Adicione o Bloco a seguir:
If ExistBlock("PLVLD01A")
lRet := ExecBlock("PLVLD01A",.F.,.F.,{lRet, oEncAuto, nOpc})
EndIf
Rotina | Tipo de Operação | Opção de Menu | Regras de Negócio |
PLSA001A | Alteração | Atualizações -> Atendimento -> Protocolo de Reembolso |
|
WSPLSXFUN | Alteração | - |
Este documento é material de especificação dos requisitos de inovação, trata-se de conteúdo extremamente técnico. |
---|