Procedure

TfrmMedCopy.fraEvntDelayListmlstEventsChange

Module

fMedCopy

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmMedCopy

Declaration

procedure fraEvntDelayListmlstEventsChange(Sender: TObject);

Calls Hierarchy


TfrmMedCopy.fraEvntDelayListmlstEventsChange
 └TfraEvntDelayList.mlstEventsChange
   ├isExistedEvent
   ├TfrmOrders.ClickLstSheet
   │ └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
   │   │ │   │ └ActiveOrdering
   │   │ │   └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
   ├isMatchedEvent
   └TfrmOrders.lstSheetsClick...

Calls

Name Declaration Comments
TfraEvntDelayList.mlstEventsChange procedure mlstEventsChange(Sender: TObject); -


Source

332   procedure TfrmMedCopy.fraEvntDelayListmlstEventsChange(Sender: TObject);
333   begin
334     fraEvntDelayList.mlstEventsChange(Sender);
335     if fraEvntDelayList.MatchedCancel then
336     begin
337       FOKPressed := False;
338       Close;
339       Exit;
340     end;
341   end;