Procedure

TfrmOrders.DisplayPage

Directives

Override

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public

Overrides

TfrmPage.DisplayPage

Owner

TfrmOrders

Declaration

procedure DisplayPage; override;

Calls Hierarchy


TfrmOrders.DisplayPage
 ├TfrmPage.DisplayPage
 ├TfrmFrame.ShowHideChartTabMenus
 │ └TfrmFrame.TabExists
 ├TfrmPage.GetInitPage
 ├TfrmPage.GetInitPatient
 ├LoadWriteOrders
 ├TfrmOrders.InitOrderSheets
 │ ├TfrmOrders.ClearOrderSheets
 │ ├LoadOrderSheetsED
 │ ├DGroupAll
 │ └EventInfo
 ├TfrmOrders.mnuViewDfltShowClick
 │ ├TfrmOrders.CanChangeOrderView
 │ │ └ActiveOrdering
 │ ├LoadOrderViewDefault
 │ ├TfrmOrders.lstSheetsClick
 │ │ ├CloseOrdering
 │ │ ├TfrmOrders.PtEvtCompleted
 │ │ │ ├IsCompletedPtEvt
 │ │ │ ├TfrmOrders.GroupChangesUpdate
 │ │ │ │ ├TChanges.ChangeOrderGrp
 │ │ │ │ └TChanges.ReplaceODGrpName
 │ │ │ ├TfrmOrders.InitOrderSheetsForEvtDelay
 │ │ │ │ ├TfrmOrders.InitOrderSheets...
 │ │ │ │ └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...
 └TfrmOrders.ProcessNotifications
   ├TNotifications.GetFollowUp
   ├TfrmOrders.ViewAlertedOrders
   │ ├DGroupAll
   │ ├ListDGroupAll
   │ ├TfrmOrders.SetOrderView
   │ │ ├TfrmOrders.CanChangeOrderView...
   │ │ ├StrToFMDateTime
   │ │ ├FMNow
   │ │ ├TfrmOrders.UseDefaultSort
   │ │ ├ExpiredOrdersStartDT
   │ │ └TfrmOrders.RefreshOrderList...
   │ └TNotifications.Delete
   │   └DeleteAlert
   ├AutoUnflagAlertedOrders
   ├UnsignedOrderAlertFollowup
   ├TNotifications.Delete...
   ├ReportBox
   │ └CreateReportBox
   │   └TfrmBase508Form.Create
   │     ├TfrmBase508Form.UpdateAccessibilityActions
   │     ├UnfocusableControlEnter
   │     └AdjustControls
   │       ├TfrmBase508Form.ModifyUnfocusableControl
   │       └..(rec)..
   ├ResultOrder
   ├ValidateOrderAction
   ├UpdateUnverifiedMedAlerts
   ├UpdateUnverifiedOrderAlerts
   ├UpdateExpiringFlaggedOIAlerts
   ├GetConsultOrderNumber
   ├TNotifications.GetAlertData
   │ └GetXQAData
   └TfrmOrders.mnuViewUnsignedClick
     ├TfrmOrders.SetOrderView...
     └DGroupAll

Calls

Name Declaration Comments
TfrmPage.DisplayPage procedure DisplayPage; virtual; -
TfrmPage.GetInitPage function GetInitPage: Boolean; -
TfrmPage.GetInitPatient function GetInitPatient: Boolean; -
TfrmOrders.InitOrderSheets procedure InitOrderSheets; -
LoadWriteOrders procedure LoadWriteOrders(Dest: TStrings); -
TfrmOrders.mnuViewDfltShowClick procedure mnuViewDfltShowClick(Sender: TObject); -
TfrmOrders.ProcessNotifications procedure ProcessNotifications; -
TfrmFrame.ShowHideChartTabMenus procedure ShowHideChartTabMenus(AMenuItem: TMenuItem); -


Source

411   procedure TfrmOrders.DisplayPage;
412   var
413     i: Integer;
414   begin
415     inherited DisplayPage;
416     frmFrame.ShowHideChartTabMenus(mnuViewChart);
417     frmFrame.mnuFilePrint.Tag := CT_ORDERS;
418     frmFrame.mnuFilePrint.Enabled := True;
419     frmFrame.mnuFilePrintSetup.Enabled := True;
420     if InitPage then
421     begin
422       // set visibility according to order role
423       mnuActComplete.Visible   := (User.OrderRole = OR_NURSE) or (User.OrderRole = OR_CLERK) or
424                                   (User.OrderRole = OR_PHYSICIAN);
425       mnuActVerify.Visible     := (User.OrderRole = OR_NURSE) or (User.OrderRole = OR_CLERK);
426       popOrderVerify.Visible   := (User.OrderRole = OR_NURSE) or (User.OrderRole = OR_CLERK);
427       sepOrderVerify.Visible   := (User.OrderRole = OR_NURSE) or (User.OrderRole = OR_CLERK);
428       mnuActChartRev.Visible   := (User.OrderRole = OR_NURSE) or (User.OrderRole = OR_CLERK);
429       popOrderChartRev.Visible := (User.OrderRole = OR_NURSE) or (User.OrderRole = OR_CLERK);
430       mnuActRelease.Visible    :=  User.OrderRole = OR_NURSE;
431       mnuActOnChart.Visible    := (User.OrderRole = OR_NURSE) or (User.OrderRole = OR_CLERK);
432       mnuActSign.Visible       :=  User.OrderRole = OR_PHYSICIAN;
433       popOrderSign.Visible     :=  User.OrderRole = OR_PHYSICIAN;
434       mnuActRel.Visible        := False;
435       popOrderRel.Visible      := False;
436       // now set enabled/disabled according to parameters
437       // popup items that apply to ordering have tag>0
438       with mnuAct do
439         for i := 0 to Pred(Count) do
440           Items[i].Enabled := not User.NoOrdering;
441       with popOrder.Items do
442         for i := 0 to Pred(Count) do
443           if Items[i].Tag > 0 then Items[i].Enabled := not User.NoOrdering;
444       // set nurse verification actions (may be enabled when ordering disabled)
445       mnuActVerify.Enabled     := User.EnableVerify;
446       mnuActChartRev.Enabled   := User.EnableVerify;
447       popOrderVerify.Enabled   := User.EnableVerify;
448       popOrderChartRev.Enabled := User.EnableVerify;
449       if User.DisableHold then
450       begin
451         mnuActHold.Visible := False;
452         mnuActUnhold.Visible := False;
453       end;
454     end;
455     AskForCancel := true;
456     if InitPatient then                          // for both CC_INIT_PATIENT and CC_NOTIFICATION
457     begin
458       if not User.NoOrdering then LoadWriteOrders(lstWrite.Items) else lstWrite.Clear;
459       InitOrderSheets;
460     end;
461     case CallingContext of
462     CC_INIT_PATIENT: mnuViewDfltShowClick(Self); // when new patient but not doing notifications
463     CC_NOTIFICATION: ProcessNotifications;       // when new patient and doing notifications
464     end;
465   end;