Procedure

TfrmOrders.mnuActVerifyClick

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

Verify orders, signature required but no new orders created

Visibility

Public/Published

Owner

TfrmOrders

Declaration

procedure mnuActVerifyClick(Sender: TObject);

Calls Hierarchy


TfrmOrders.mnuActVerifyClick
 ├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

2080  procedure TfrmOrders.mnuActVerifyClick(Sender: TObject);
2081  { verify orders, signature required but no new orders created }
2082  var
2083    SelectedList: TList;
2084  begin
2085    inherited;
2086    if NoneSelected(TX_NOSEL) then Exit;
2087    if not AuthorizedToVerify then Exit;
2088    SelectedList := TList.Create;
2089    try
2090      ValidateSelected(OA_VERIFY, TX_NO_VERIFY, TC_NO_VERIFY);  // make sure order can be verified
2091      MakeSelectedList(SelectedList);                           // build list of selected orders
2092      if ExecuteVerifyOrders(SelectedList, False) then SynchListToOrders;
2093    finally
2094      SelectedList.Free;
2095    end;
2096  end;