Procedure

DCOrder

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure DCOrder(AnOrder: TOrder; AReason: Integer; NewOrder: boolean; var DCType: Integer);

Calls Hierarchy


DCOrder
 ├DeleteDCOrdersFromCopiedList
 └SetOrderFromResults
   └SetOrderFields
     ├TOrder.Clear
     ├SeqOfDGroup
     │ └LoadDGroupMap
     └TopNameOfDGroup
       └LoadDGroupMap

Called-By Hierarchy


                     DCOrder
    TfrmOrders.NotifyOrder┤ 
    TfrmFrame.UMNewOrder┘ │ 
           ExecuteDCOrders┘ 
TfrmOrders.mnuActDCClick┤   
  TfrmMeds.mnuActDCClick┘   

Calls

Name Declaration Comments
DeleteDCOrdersFromCopiedList procedure DeleteDCOrdersFromCopiedList(pOrderID:string); -
SetOrderFromResults procedure SetOrderFromResults(AnOrder: TOrder); -

Called-By

Name Declaration Comments
ExecuteDCOrders function ExecuteDCOrders(SelectedList: TList; var DelEvt: boolean): Boolean; -
TfrmOrders.NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; -


Source

1584  procedure DCOrder(AnOrder: TOrder; AReason: Integer; NewOrder: boolean; var DCType: Integer);
1585  var
1586    AParentID, DCOrigOrder: string;
1587  begin
1588    AParentID := AnOrder.ParentID;
1589    if AnOrder.DCOriginalOrder = true then DCOrigOrder := '1'
1590    else DCOrigOrder := '0';
1591    CallV('ORWDXA DC', [AnOrder.ID, Encounter.Provider, Encounter.Location, AReason, DCOrigOrder, NewOrder]);
1592    UBACore.DeleteDCOrdersFromCopiedList(AnOrder.ID);
1593    DCType := StrToIntDef(Piece(RPCBrokerV.Results[0], U, 14), 0);
1594    SetOrderFromResults(AnOrder);
1595    AnOrder.ParentID := AParentID;
1596  end;