Procedure

LoadSizes

Module

rMisc

Last Modified

7/15/2014 3:26:44 PM

Scope

Global

Declaration

procedure LoadSizes;

Called-By Hierarchy


                                        LoadSizes
                                  SetUserBounds┤ 
                   TfrmFrame.LoadSizesForUser┘ │ 
              TfrmFrame.LoadUserPreferences┘   │ 
                     TfrmFrame.UMInitiate┘     │ 
                                 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.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...┘ │ 
                                  SetUserWidths┤ 
                TfrmFrame.LoadSizesForUser...┘ │ 
                                 SetUserColumns┘ 
                TfrmFrame.LoadSizesForUser...┘   

Called-By

Name Declaration Comments
SetUserBounds procedure SetUserBounds(var AControl: TControl); -
SetUserBounds2 procedure SetUserBounds2(AName: string; var v1, v2, v3, v4: integer); -
SetUserColumns procedure SetUserColumns(var AControl: TControl); -
SetUserWidths procedure SetUserWidths(var AControl: TControl); -


Source

242   procedure LoadSizes;
243   var
244     i, p: Integer;
245   begin
246     uBounds  := TStringList.Create;
247     uWidths  := TStringList.Create;
248     uColumns := TStringList.Create;
249     CallV('ORWCH LOADALL', [nil]);
250     with RPCBrokerV do
251     begin
252       for i := 0 to Results.Count - 1 do    // change '^' to '='
253       begin
254         p := Pos(U, Results[i]);
255         if p > 0 then Results[i] := Copy(Results[i], 1, p - 1) + '=' +
256                                     Copy(Results[i], p + 1, Length(Results[i]));
257       end;
258       ExtractItems(uBounds,  RPCBrokerV.Results, 'Bounds');
259       ExtractItems(uWidths,  RPCBrokerV.Results, 'Widths');
260       ExtractItems(uColumns, RPCBrokerV.Results, 'Columns');
261     end;
262   end;