Procedure

TfrmOrders.UMEventOccur

Directives

Message

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

Function PatientStatusChanged: boolean;

Visibility

Private

Owner

TfrmOrders

Declaration

procedure UMEventOccur(var Message: TMessage); message UM_EVENTOCCUR;

Calls Hierarchy


TfrmOrders.UMEventOccur
 ├TfrmOrders.GroupChangesUpdate
 │ ├TChanges.ChangeOrderGrp
 │ └TChanges.ReplaceODGrpName
 ├TfrmOrders.InitOrderSheetsForEvtDelay
 │ ├TfrmOrders.InitOrderSheets
 │ │ ├TfrmOrders.ClearOrderSheets
 │ │ ├LoadOrderSheetsED
 │ │ ├DGroupAll
 │ │ └EventInfo
 │ └TfrmOrders.DfltViewForEvtDelay
 │   ├TfrmOrders.CanChangeOrderView
 │   │ └ActiveOrdering
 │   └LoadOrderViewDefault
 ├TfrmOrders.lstSheetsClick
 │ ├CloseOrdering
 │ ├TfrmOrders.PtEvtCompleted
 │ │ ├IsCompletedPtEvt
 │ │ ├TfrmOrders.GroupChangesUpdate...
 │ │ ├TfrmOrders.InitOrderSheetsForEvtDelay...
 │ │ ├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...

Calls

Name Declaration Comments
TfrmOrders.GroupChangesUpdate procedure GroupChangesUpdate(GrpName: string); -
TfrmOrders.InitOrderSheetsForEvtDelay procedure InitOrderSheetsForEvtDelay; -
TfrmOrders.lstSheetsClick procedure lstSheetsClick(Sender: TObject); -
TfrmOrders.RefreshOrderList procedure RefreshOrderList(FromServer: Boolean; APtEvtID: string = ''); -


Source

3287  procedure TfrmOrders.UMEventOccur(var Message: TMessage);
3288  begin
3289    InfoBox('The event "Delayed ' + FCurrentView.EventDelay.EventName + '" ' + TX_CMPTEVT, 'Warning', MB_OK or MB_ICONWARNING);
3290    GroupChangesUpdate('Delayed '+ frmOrders.TheCurrentView.EventDelay.EventName);
3291    InitOrderSheetsForEvtDelay;
3292    lstSheets.ItemIndex := 0;
3293    lstSheetsClick(self);
3294    RefreshOrderList(True);
3295  end;