Procedure

TfrmOrders.mnuActCompleteClick

Module

fOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

Complete generic orders, no signature required - no new orders created

Visibility

Public/Published

Owner

TfrmOrders

Declaration

procedure mnuActCompleteClick(Sender: TObject);

Calls Hierarchy


TfrmOrders.mnuActCompleteClick
 ├TfrmOrders.NoneSelected
 ├AuthorizedUser
 ├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
 ├ExecuteCompleteOrders
 │ ├TfrmBase508Form.Create...
 │ ├CompleteOrder
 │ │ └SetOrderFromResults
 │ │   └SetOrderFields...
 │ └UnlockOrder
 └TfrmOrders.SynchListToOrders
   └TfrmOrders.GetPlainText
     └TfrmOrders.GetOrderText
       ├LoadFlagReason
       ├TfrmOrders.GetStartStopText
       └NameOfStatus

Calls

Name Declaration Comments
AuthorizedUser function AuthorizedUser: Boolean; -
ExecuteCompleteOrders function ExecuteCompleteOrders(SelectedList: TList): 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

2062  procedure TfrmOrders.mnuActCompleteClick(Sender: TObject);
2063  { complete generic orders, no signature required - no new orders created }
2064  var
2065    SelectedList: TList;
2066  begin
2067    inherited;
2068    if NoneSelected(TX_NOSEL) then Exit;
2069    if not AuthorizedUser then Exit;
2070    SelectedList := TList.Create;
2071    try
2072      ValidateSelected(OA_COMPLETE, TX_NO_CPLT, TC_NO_CPLT);    // validate completing of order
2073      MakeSelectedList(SelectedList);                           // build list of selected orders
2074      if ExecuteCompleteOrders(SelectedList) then SynchListToOrders;
2075    finally
2076      SelectedList.Free;
2077    end;
2078  end;