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: Permite a inclusão de novas opções do menu Outras Ações da janela da rotina de grupos 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 Cobertura

• No Fonte PLSA001APLSXAUT, Função PBOWFinalFunção PLSVLDGRU
  
  
• 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("PLSGCOBA")

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

• declaração de todas as variáveis e todas as definições DEFAULT e antes da instrução DbSelectArea, adicionar o seguinte trecho:     

         If ExistBlock("PLSGCOBA")
              cChaveAux := ExecBlock("PLSGCOBA",.F.,.F.,{

• cAlias,

• cFilSeek,

• cChaveAux})
       Endif