Procedure

GetChildrenOfComplexOrder

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

PSI-COMPLEX
PSI-COMPLEX

Scope

Interfaced

Declaration

procedure GetChildrenOfComplexOrder(AnParentID,CurrAct: string; var ChildList: TStringList); //PSI-COMPLEX

Called-By Hierarchy


           GetChildrenOfComplexOrder
       IsValidActionOnComplexOrder┤ 
     TfrmOrders.ValidateSelected┤ │ 
      TfrmOrders.mnuActDCClick┤ │ │ 
     TfrmOrders.mnuActRelClick┤ │ │ 
 TfrmOrders.mnuActChgEvntClick┤ │ │ 
    TfrmOrders.mnuActHoldClick┤ │ │ 
  TfrmOrders.mnuActUnholdClick┤ │ │ 
   TfrmOrders.mnuActRenewClick┤ │ │ 
   TfrmOrders.mnuActAlertClick┤ │ │ 
TfrmOrders.mnuActCompleteClick┤ │ │ 
  TfrmOrders.mnuActVerifyClick┤ │ │ 
TfrmOrders.mnuActChartRevClick┤ │ │ 
  TfrmOrders.mnuActChangeClick┤ │ │ 
    TfrmOrders.mnuActCopyClick┤ │ │ 
 TfrmOrders.mnuActReleaseClick┤ │ │ 
 TfrmOrders.mnuActOnChartClick┤ │ │ 
    TfrmOrders.mnuActSignClick┘ │ │ 
       TfrmMeds.ValidateSelected┘ │ 
        TfrmMeds.mnuActDCClick┤   │ 
      TfrmMeds.mnuActHoldClick┤   │ 
     TfrmMeds.mnuActRenewClick┤   │ 
    TfrmMeds.mnuActUnholdClick┤   │ 
    TfrmMeds.mnuActChangeClick┤   │ 
    TfrmMeds.mnuActRefillClick┘   │ 
            TfrmOrders.NotifyOrder┤ 
            TfrmFrame.UMNewOrder┘ │ 
              TfrmMeds.NotifyOrder┘ 
            TfrmFrame.UMNewOrder┘   

Called-By

Name Declaration Comments
IsValidActionOnComplexOrder function IsValidActionOnComplexOrder(AnOrderID, AnAction: string; AListBox: TListBox; var CheckedList: TStringList; var ErrMsg: string; var ParentOrderID: string): boolean; -
TfrmOrders.NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; -
TfrmMeds.NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; -


Source

1743  procedure GetChildrenOfComplexOrder(AnParentID,CurrAct: string; var ChildList: TStringList); //PSI-COMPLEX
1744  var
1745    i: integer;
1746  begin
1747   CallV('ORWDXR ORCPLX',[AnParentID,CurrAct]);
1748   if RPCBrokerV.Results.Count = 0 then Exit;
1749   With RPCBrokerV do
1750   begin
1751     for i := 0 to Results.Count - 1 do
1752     begin
1753       if (Piece(Results[i],'^',1) <> 'E') and (Length(Results[i])>0) then
1754         ChildList.Add(Results[i]);
1755     end;
1756   end;
1757  end;