Procedure

SetUserBounds2

Module

rMisc

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure SetUserBounds2(AName: string; var v1, v2, v3, v4: integer);

Calls Hierarchy


SetUserBounds2
 └LoadSizes

Called-By Hierarchy


                                   SetUserBounds2
                       TfrmPtSel.AdjustFormSize┤ 
                                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┘       │ 
                  TfrmFrame.LoadSizesForUser...┘ 

Calls

Name Declaration Comments
LoadSizes procedure LoadSizes; -

Called-By

Name Declaration Comments
TfrmPtSel.AdjustFormSize procedure AdjustFormSize(ShowNotif: Boolean; FontSize: Integer); -
TfrmFrame.LoadSizesForUser procedure LoadSizesForUser; -


Source

299   procedure SetUserBounds2(AName: string; var v1, v2, v3, v4: integer);
300   var
301     x: string;
302   begin
303     if uBounds = nil then LoadSizes;
304     x := uBounds.Values[AName];
305     v1 := StrToIntDef(Piece(x, ',', 1), 0);
306     v2 := StrToIntDef(Piece(x, ',', 2), 0);
307     v3 := StrToIntDef(Piece(x, ',', 3), 0);
308     v4 := StrToIntDef(Piece(x, ',', 4), 0);
309   end;