Procedure

ListPostings

Module

rCover

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure ListPostings(Dest: TStrings);

Called-By Hierarchy


            ListPostings
 TfrmPtCWAD.FormCreate┤ 
 TfrmCover.NotifyOrder┘ 
TfrmFrame.UMNewOrder┘   

Called-By

Name Declaration Comments
TfrmPtCWAD.FormCreate procedure FormCreate(Sender: TObject); -
TfrmCover.NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; {REV} -


Source

278   procedure ListPostings(Dest: TStrings);
279   begin
280     CallV('ORQQPP LIST', [Patient.DFN]);
281     with RPCBrokerV do
282     begin
283       MixedCaseList(Results);
284       SetListFMDateTime('mmm dd,yy', TStringList(Results), U, 3);
285       FastAssign(Results, Dest);
286     end;
287   end;