Procedure

CheckSensitiveRecordAccess

Module

rCore

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure CheckSensitiveRecordAccess(const DFN: string; var AccessStatus: Integer;
  var MessageText: string);

Called-By Hierarchy


                   CheckSensitiveRecordAccess
              AllowAccessToSensitivePatient┘ 
                     TfrmPtSel.cmdOKClick┤   
           TfrmPtSel.cboPatientDblClick┘ │   
               TfrmFrame.mnuFileNextClick┘   
             TfrmFrame.mnuFileOpenClick┤     
                 TfrmFrame.UMInitiate┤ │     
        TfrmFrame.mnuFileNextClick...┤ │     
        TfrmFrame.mnuFileRefreshClick┤ │     
        TfrmOrders.CheckOrderStatus┤ │ │     
    TfrmOrders.mnuActChgEvntClick┤ │ │ │     
       TfrmOrders.mnuActHoldClick┤ │ │ │     
     TfrmOrders.mnuActUnholdClick┤ │ │ │     
      TfrmOrders.mnuActRenewClick┤ │ │ │     
     TfrmOrders.mnuActChangeClick┤ │ │ │     
       TfrmOrders.mnuActCopyClick┘ │ │ │     
             TfrmMeds.mnuActDCClick┤ │ │     
            TfrmMeds.CheckMedStatus┘ │ │     
         TfrmMeds.mnuActHoldClick┤   │ │     
        TfrmMeds.mnuActRenewClick┤   │ │     
       TfrmMeds.mnuActUnholdClick┤   │ │     
       TfrmMeds.mnuActChangeClick┤   │ │     
         TfrmMeds.mnuActCopyClick┤   │ │     
       TfrmMeds.mnuActRefillClick┘   │ │     
                   TfrmFrame.ViewInfo┘ │     
                TfrmDCSumm.ViewInfo┤   │     
              TfrmConsults.ViewInfo┤   │     
      TfrmFrame.pnlRemindersMouseUp┤   │     
       TfrmFrame.RemindersChanged┘ │   │     
           TfrmFrame.FormCreate┘   │   │     
             TfrmFrame.pnlCIRNClick┤   │     
       TfrmFrame.pnlVistaWebClick┤ │   │     
            TfrmFrame.FormKeyDown┘ │   │     
          TfrmFrame.pnlPatientClick┤   │     
            TfrmFrame.pnlVisitClick┤   │     
      TfrmFrame.pnlPrimaryCareClick┤   │     
        TfrmFrame.pnlRemindersClick┤   │     
         TfrmFrame.pnlPostingsClick┤   │     
             TfrmFrame.pnlFlagClick┤   │     
               TfrmFrame.laMHVClick┤   │     
              TfrmFrame.laVAA2Click┤   │     
                TfrmOrders.ViewInfo┤   │     
                  TfrmMeds.ViewInfo┤   │     
               TfrmSurgery.ViewInfo┤   │     
                 TfrmNotes.ViewInfo┤   │     
              TfrmProblems.ViewInfo┘   │     
      TfrmFrame.mnuFileNotifRemoveClick┤     
              TfrmFrame.NextButtonClick┘     
            TfrmFrame.SetUpNextButton┘       
      TfrmFrame.mnuFileOpenClick...┤         
               TfrmFrame.FormResize┘         
             TfrmFrame.ChangeFont┘           
     TfrmFrame.LoadSizesForUser┤             
TfrmFrame.LoadUserPreferences┘ │             
       TfrmFrame.UMInitiate┘   │             
     TfrmFrame.mnuFontSizeClick┘             

Called-By

Name Declaration Comments
AllowAccessToSensitivePatient function AllowAccessToSensitivePatient(NewDFN: string; var AccessStatus: integer): boolean; -


Source

964   procedure CheckSensitiveRecordAccess(const DFN: string; var AccessStatus: Integer;
965     var MessageText: string);
966   begin
967     CallV('DG SENSITIVE RECORD ACCESS', [DFN]);
968     AccessStatus := -1;
969     MessageText := '';
970     with RPCBrokerV do
971     begin
972       if Results.Count > 0 then
973       begin
974         AccessStatus := StrToIntDef(Results[0], -1);
975         Results.Delete(0);
976         if Results.Count > 0 then MessageText := Results.Text;
977       end;
978     end;
979   end;