Function

IsComplexOrder

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Comments

PSI-COMPLEX
PSI-COMPLEX

Scope

Interfaced

Declaration

function IsComplexOrder(AnOrderID: string): boolean; //PSI-COMPLEX

Called-By Hierarchy


                 IsComplexOrder
       TfrmOrders.NotifyOrder┤ 
       TfrmFrame.UMNewOrder┘ │ 
           ExecuteRenewOrders┘ 
TfrmOrders.mnuActRenewClick┤   
  TfrmMeds.mnuActRenewClick┘   

Called-By

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


Source

1786  function IsComplexOrder(AnOrderID: string): boolean; //PSI-COMPLEX
1787  var
1788    rst: integer;
1789  begin
1790    Result := False;
1791    rst := StrToIntDef(SCallV('ORWDXR ISCPLX',[AnOrderID]),0);
1792    if rst > 0 then
1793      Result := True;
1794  end;