Function

GetProcedureServices

Module

rConsults

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Declaration

function GetProcedureServices(ProcIEN: integer): TStrings;

Called-By Hierarchy


                        GetProcedureServices
                TfrmEditProc.cboProcSelect┤ 
                 TfrmEditProc.InitDialog┘ │ 
                 EditResubmitProcedure┤   │ 
TfrmConsults.mnuActEditResubmitClick┘ │   │ 
 TfrmConsults.cmdEditResubmitClick┘   │   │ 
         TfrmEditProc.cboProcSelect...┘   │ 
                    TfrmODProc.SetupDialog┤ 
                  TfrmODProc.cboProcSelect┤ 
            TfrmConsultAction.SetupForward┘ 
                        SetActionContext┘   
       TfrmConsults.mnuActConsultClick┘     

Called-By

Name Declaration Comments
TfrmEditProc.cboProcSelect procedure cboProcSelect(Sender: TObject); -
TfrmODProc.cboProcSelect procedure cboProcSelect(Sender: TObject); -
TfrmODProc.SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; -
TfrmConsultAction.SetupForward function SetupForward(IsProcedure: boolean; ProcIEN: integer): boolean; -


Source

643   function GetProcedureServices(ProcIEN: integer): TStrings;
644   begin
645     CallV('ORQQCN GET PROC SVCS',[ProcIEN]) ;
646     Result := RPCBrokerV.Results;
647   end;