Procedure

SendReleaseOrders

Module

rOrders

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

procedure SendReleaseOrders(OrderList: TStringList);

Calls Hierarchy


SendReleaseOrders
 └GetCurrentSpec

Called-By Hierarchy


            SendReleaseOrders
  ExecuteReleaseEventOrders┘ 
TfrmOrders.mnuActRelClick┘   

Calls

Name Declaration Comments
GetCurrentSpec function GetCurrentSpec(const APtIFN: string): string; -

Called-By

Name Declaration Comments
ExecuteReleaseEventOrders function ExecuteReleaseEventOrders(AnOrderList: TList): boolean; -


Source

1362  procedure SendReleaseOrders(OrderList: TStringList);
1363  var
1364    loc: string;
1365    CurrTS: Integer;
1366    PtTS: string;
1367  begin
1368    PtTS := Piece(GetCurrentSpec(Patient.DFN),'^',2);
1369    CurrTS := StrToIntDef(PtTS,0);
1370    Loc := IntToStr(Encounter.Location);
1371    CallV('ORWDX SENDED',[OrderList,CurrTS,Loc]);
1372    OrderList.Clear;
1373    FastAssign(RPCBrokerV.Results, OrderList);
1374  end;