Procedure

SelectPatient

Module

fPtSel

Last Modified

7/15/2014 3:26:38 PM

Comments

Displays patient selection dialog (with optional notifications), updates Patient object

Scope

Interfaced

Declaration

procedure SelectPatient(ShowNotif: Boolean; FontSize: Integer; var UserCancelled: boolean);

Calls Hierarchy


SelectPatient
 ├TfrmBase508Form.Create
 │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ ├UnfocusableControlEnter
 │ └AdjustControls
 │   ├TfrmBase508Form.ModifyUnfocusableControl
 │   └..(rec)..
 ├TfrmPtSel.AdjustFormSize
 │ ├SetFormPosition
 │ │ └TSizeHolder.GetSize
 │ ├SetUserBounds2
 │ │ └LoadSizes
 │ ├TfrmPtSel.AdjustButtonSize
 │ └TfrmPtSel.AdjustNotificationButtons
 ├DfltPtList
 ├TfrmPtSelOptns.SetDefaultPtList
 ├TNotifications.Clear
 ├TfrmPtSel.AlertList
 │ └LoadNotifications
 ├TfrmPtSel.ClearIDInfo
 │ └TfrmPtSelDemog.ClearIDInfo
 └TfrmPtSel.RPLDisplay

Called-By Hierarchy


                                SelectPatient
                 TfrmFrame.mnuFileOpenClick┘ 
                     TfrmFrame.UMInitiate┤   
               TfrmFrame.mnuFileNextClick┤   
          TfrmFrame.mnuFileOpenClick...┤ │   
      TfrmFrame.mnuFileNotifRemoveClick┤ │   
              TfrmFrame.NextButtonClick┘ │   
            TfrmFrame.SetUpNextButton┘   │   
      TfrmFrame.mnuFileOpenClick...┤     │   
               TfrmFrame.FormResize┘     │   
             TfrmFrame.ChangeFont┘       │   
     TfrmFrame.LoadSizesForUser┤         │   
TfrmFrame.LoadUserPreferences┘ │         │   
       TfrmFrame.UMInitiate┘   │         │   
     TfrmFrame.mnuFontSizeClick┘         │   
            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┘     

Calls

Name Declaration Comments
TfrmPtSel.AdjustFormSize procedure AdjustFormSize(ShowNotif: Boolean; FontSize: Integer); -
TfrmPtSel.AlertList procedure AlertList; -
TNotifications.Clear procedure Clear; -
TfrmPtSel.ClearIDInfo procedure ClearIDInfo; -
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -
DfltPtList function DfltPtList: string; -
TfrmPtSel.RPLDisplay procedure RPLDisplay; -
TfrmPtSelOptns.SetDefaultPtList procedure SetDefaultPtList(Dflt: string); -

Called-By

Name Declaration Comments
TfrmFrame.mnuFileOpenClick procedure mnuFileOpenClick(Sender: TObject); -


Source

140   procedure SelectPatient(ShowNotif: Boolean; FontSize: Integer; var UserCancelled: boolean);
141   { displays patient selection dialog (with optional notifications), updates Patient object }
142   var
143     frmPtSel: TfrmPtSel;
144   begin
145     frmPtSel := TfrmPtSel.Create(Application);
146     RPLProblem := false;
147     try
148       with frmPtSel do
149       begin
150         AdjustFormSize(ShowNotif, FontSize);           // Set initial form size
151         FDfltSrc := DfltPtList;
152         FDfltSrcType := Piece(FDfltSrc, U, 2);
153         FDfltSrc := Piece(FDfltSrc, U, 1);
154         if (IsRPL = '1') then                          // Deal with restricted patient list users.
155           FDfltSrc := '';
156         frmPtSelOptns.SetDefaultPtList(FDfltSrc);
157         if RPLProblem then
158            begin
159             frmPtSel.Release;
160             Exit;
161           end;
162         Notifications.Clear;
163         FsortCol := -1;
164         AlertList;
165         ClearIDInfo;
166         if (IsRPL = '1') then                          // Deal with restricted patient list users.
167           RPLDisplay;                                  // Removes unnecessary components from view.
168         FUserCancelled := FALSE;
169         ShowModal;
170         UserCancelled := FUserCancelled;
171       end;
172     finally
173       frmPtSel.Release;
174     end;
175   end;