Histórico da Página

Informações Gerais

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

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