Procedure

AdminComplete

Module

rConsults

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Declaration

procedure AdminComplete(Dest: TStrings; IEN: integer; SigFindingsFlag: string; Comments: TStrings;
          RespProv: Int64; ActionDate: TFMDateTime; Alert: integer; AlertTo: string) ;

Called-By Hierarchy


                 AdminComplete
TfrmConsultAction.cmdOKClick┘ 

Called-By

Name Declaration Comments
TfrmConsultAction.cmdOKClick procedure cmdOKClick(Sender: TObject); -


Source

502   procedure AdminComplete(Dest: TStrings; IEN: integer; SigFindingsFlag: string; Comments: TStrings;
503             RespProv: Int64; ActionDate: TFMDateTime; Alert: integer; AlertTo: string) ;
504   begin
505     CallV('ORQQCN ADMIN COMPLETE', [IEN, SigFindingsFlag, Comments, RespProv, Alert, AlertTo, ActionDate]);
506     FastAssign(RPCBrokerV.Results, Dest);   {1^Error message' or '0'}
507   end ;