Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

 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

 

WSPLSXFUNAlteração- 

 Este documento é material de especificação dos requisitos de inovação, trata-se de conteúdo extremamente técnico.