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 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)
3) 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("PLGRVBOW")
ExecBlock("PLGRVBOW",.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. |
---|