Procedure

TfrmOrders.mnuViewDfltShowClick

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmOrders

Declaration

procedure mnuViewDfltShowClick(Sender: TObject);

Calls Hierarchy


TfrmOrders.mnuViewDfltShowClick
 ├TfrmOrders.CanChangeOrderView
 │ └ActiveOrdering
 ├LoadOrderViewDefault
 ├TfrmOrders.lstSheetsClick
 │ ├CloseOrdering
 │ ├TfrmOrders.PtEvtCompleted
 │ │ ├IsCompletedPtEvt
 │ │ ├TfrmOrders.GroupChangesUpdate
 │ │ │ ├TChanges.ChangeOrderGrp
 │ │ │ └TChanges.ReplaceODGrpName
 │ │ ├TfrmOrders.InitOrderSheetsForEvtDelay
 │ │ │ ├TfrmOrders.InitOrderSheets
 │ │ │ │ ├TfrmOrders.ClearOrderSheets
 │ │ │ │ ├LoadOrderSheetsED
 │ │ │ │ ├DGroupAll
 │ │ │ │ └EventInfo
 │ │ │ └TfrmOrders.DfltViewForEvtDelay
 │ │ │   ├TfrmOrders.CanChangeOrderView...
 │ │ │   └LoadOrderViewDefault
 │ │ ├TfrmOrders.lstSheetsClick...
 │ │ └TfrmOrders.RefreshOrderList
 │ │   ├LoadOrdersAbbr
 │ │   │ ├ClearOrders
 │ │   │ ├LoadDGroupMap
 │ │   │ ├ExpiredOrdersStartDT
 │ │   │ ├FMNow
 │ │   │ └SeqOfDGroup
 │ │   │   └LoadDGroupMap
 │ │   ├ClearOrders
 │ │   ├LoadOrdersAbbr
 │ │   │ ├LoadDGroupMap
 │ │   │ ├FMNow
 │ │   │ └SeqOfDGroup...
 │ │   ├TfrmOrders.ExpandEventSection
 │ │   ├TfrmOrders.CompressEventSection
 │ │   ├SortOrders
 │ │   │ ├InverseByGroup
 │ │   │ │ └TChanges.Exist
 │ │   │ ├ForwardByGroup
 │ │   │ │ └TChanges.Exist
 │ │   │ ├InverseChrono
 │ │   │ └ForwardChrono
 │ │   ├TfrmOrders.AddToListBox
 │ │   │ └TfrmOrders.GetPlainText
 │ │   │   └TfrmOrders.GetOrderText
 │ │   │     ├LoadFlagReason
 │ │   │     ├TfrmOrders.GetStartStopText
 │ │   │     └NameOfStatus
 │ │   └DGroupAll
 │ ├DeleteEmptyEvt
 │ │ ├PtEvtEmpty
 │ │ ├GetEventName
 │ │ └DeletePtEvent
 │ ├TfrmOrders.ChangesUpdate
 │ │ ├TheParentPtEvt
 │ │ └TChanges.Remove
 │ │   ├UnlockOrder
 │ │   └UnlockDocument
 │ ├TfrmOrders.InitOrderSheetsForEvtDelay...
 │ ├..(rec)..
 │ ├LoadWriteOrdersED
 │ ├LoadWriteOrders
 │ ├TfrmOrders.RefreshOrderList...
 │ ├PtEvtEmpty
 │ └DeletePtEvent
 └TfrmOrders.RefreshOrderList...

Called-By Hierarchy


TfrmOrders.mnuViewDfltShowClick
       TfrmOrders.DisplayPage┘ 

Calls

Name Declaration Comments
TfrmOrders.CanChangeOrderView function CanChangeOrderView: Boolean; -
LoadOrderViewDefault procedure LoadOrderViewDefault(AView: TOrderView); -
TfrmOrders.lstSheetsClick procedure lstSheetsClick(Sender: TObject); -
TfrmOrders.RefreshOrderList procedure RefreshOrderList(FromServer: Boolean; APtEvtID: string = ''); -

Called-By

Name Declaration Comments
TfrmOrders.DisplayPage procedure DisplayPage; override; -


Source

968   procedure TfrmOrders.mnuViewDfltShowClick(Sender: TObject);
969   begin
970     inherited;
971     if not CanChangeOrderView then Exit;
972     if HighlightFromMedsTab > 0 then
973       lstSheets.ItemIndex := lstSheets.SelectByIEN(HighlightFromMedsTab);
974     if lstSheets.ItemIndex < 0 then
975       lstSheets.ItemIndex := 0;
976     FCurrentView := TOrderView(lstSheets.Items.Objects[lstSheets.ItemIndex]);
977     LoadOrderViewDefault(TOrderView(lstSheets.Items.Objects[0]));
978     lstSheets.Items[0] := 'C;0^' + TOrderView(lstSheets.Items.Objects[0]).ViewName;
979     if lstSheets.ItemIndex > 0 then
980       lstSheetsClick(Application)
981     else
982       RefreshOrderList(FROM_SERVER);
983     if HighlightFromMedsTab > 0 then
984       HighlightFromMedsTab := 0;
985   end;