Procedure

SelectOrderView

Module

fOrderVw

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure SelectOrderView(var OrderView: TOrderView);

Calls Hierarchy


SelectOrderView
 ├TfrmBase508Form.Create
 │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ ├UnfocusableControlEnter
 │ └AdjustControls
 │   ├TfrmBase508Form.ModifyUnfocusableControl
 │   └..(rec)..
 └TfrmOrderView.SynchViewData
   ├TfrmOrderView.chkDateRangeClick
   │ └TfrmOrderView.UpdateViewName
   └TfrmOrderView.UpdateViewName

Called-By Hierarchy


                SelectOrderView
TfrmOrders.mnuViewCustomClick┘ 

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -
TfrmOrderView.SynchViewData procedure SynchViewData; -

Called-By

Name Declaration Comments
TfrmOrders.mnuViewCustomClick procedure mnuViewCustomClick(Sender: TObject); -


Source

73    procedure SelectOrderView(var OrderView: TOrderView);
74    var
75      frmOrderView: TfrmOrderView;
76    begin
77      frmOrderView := TfrmOrderView.Create(Application);
78      try
79        ResizeFormToFont(TForm(frmOrderView));
80        with frmOrderView do
81        begin
82          FDGroup    := OrderView.DGroup;
83          FFilter    := OrderView.Filter;
84          FInvChrono := OrderView.InvChrono;
85          FByService := OrderView.ByService;
86          FTimeFrom  := OrderView.TimeFrom;
87          FTimeThru  := OrderView.TimeThru;
88          SynchViewData;
89          ShowModal;
90          if FChanged then
91          begin
92            OrderView.Changed   := FChanged;
93            OrderView.DGroup    := FDGroup;
94            OrderView.Filter    := FFilter;
95            OrderView.InvChrono := FInvChrono;
96            OrderView.ByService := FByService;
97            OrderView.TimeFrom  := FTimeFrom;
98            OrderView.TimeThru  := FTimeThru;
99            OrderView.CtxtTime  := 0;                // set by RefreshOrderList
100           OrderView.TextView  := 0;                // set by RefreshOrderList
101           OrderView.ViewName  := lblView.Caption;
102           OrderView.EventDelay.EventType := 'C';
103           OrderView.EventDelay.Specialty := 0;     // treating specialty only for event delayed
104           OrderView.EventDelay.Effective := 0;     // effective date only for discharge orders
105         end
106         else OrderView.Changed := False;
107       end; {with}
108     finally
109       frmOrderView.Release;
110     end;
111   end;