Procedure

TfrmOrders.mnuActChartRevClick

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmOrders

Declaration

procedure mnuActChartRevClick(Sender: TObject);

Calls Hierarchy


TfrmOrders.mnuActChartRevClick
 ├TfrmOrders.NoneSelected
 ├AuthorizedToVerify
 ├TfrmOrders.ValidateSelected
 │ ├PassDrugTest
 │ ├IsClinicLoc
 │ ├IsValidSchedule
 │ ├ValidateOrderAction
 │ ├IsFirstDoseNowOrder
 │ ├IsValidActionOnComplexOrder
 │ │ ├ValidateComplexOrderAct
 │ │ ├GetChildrenOfComplexOrder
 │ │ ├RetrieveOrderTextPSI
 │ │ ├IsValidSchedule
 │ │ ├RetrieveOrderText
 │ │ │ └RetrieveOrderFields
 │ │ │   └SetOrderFields
 │ │ │     ├TOrder.Clear
 │ │ │     ├SeqOfDGroup
 │ │ │     │ └LoadDGroupMap
 │ │ │     └TopNameOfDGroup
 │ │ │       └LoadDGroupMap
 │ │ ├DeselectChild
 │ │ ├ActionOnComplexOrder
 │ │ │ └TfrmBase508Form.Create
 │ │ │   ├TfrmBase508Form.UpdateAccessibilityActions
 │ │ │   ├UnfocusableControlEnter
 │ │ │   └AdjustControls
 │ │ │     ├TfrmBase508Form.ModifyUnfocusableControl
 │ │ │     └..(rec)..
 │ │ ├MakeMessage
 │ │ └IsRenewableComplexOrder
 │ ├VerbTelPolicyOrder
 │ ├OrderIsLocked
 │ │ ├TChanges.ExistForOrder
 │ │ ├LockOrder
 │ │ └TextForOrder
 │ └DisplayOrdersForAction
 │   └TfrmBase508Form.Create...
 ├TfrmOrders.MakeSelectedList
 ├ExecuteVerifyOrders
 │ ├TfrmBase508Form.Create...
 │ ├VerifyOrderChartReview
 │ │ └SetOrderFromResults
 │ │   └SetOrderFields...
 │ ├VerifyOrder
 │ │ └SetOrderFromResults...
 │ └UnlockOrder
 └TfrmOrders.SynchListToOrders
   └TfrmOrders.GetPlainText
     └TfrmOrders.GetOrderText
       ├LoadFlagReason
       ├TfrmOrders.GetStartStopText
       └NameOfStatus

Calls

Name Declaration Comments
AuthorizedToVerify function AuthorizedToVerify: Boolean; -
ExecuteVerifyOrders function ExecuteVerifyOrders(SelectedList: TList; ChartReview: Boolean): Boolean; -
TfrmOrders.MakeSelectedList procedure MakeSelectedList(AList: TList); -
TfrmOrders.NoneSelected function NoneSelected(const ErrMsg: string): Boolean; -
TfrmOrders.SynchListToOrders procedure SynchListToOrders; -
TfrmOrders.ValidateSelected procedure ValidateSelected(const AnAction, WarningMsg, WarningTitle: string); -


Source

2098  procedure TfrmOrders.mnuActChartRevClick(Sender: TObject);
2099  var
2100    SelectedList: TList;
2101  begin
2102    inherited;
2103    if NoneSelected(TX_NOSEL) then Exit;
2104    if not AuthorizedToVerify then Exit;
2105    SelectedList := TList.Create;
2106    try
2107      ValidateSelected(OA_CHART, TX_NO_VERIFY, TC_NO_VERIFY);   // make sure order can be verified
2108      MakeSelectedList(SelectedList);                           // build list of selected orders
2109      if ExecuteVerifyOrders(SelectedList, True) then SynchListToOrders;
2110    finally
2111      SelectedList.Free;
2112    end;
2113  end;