44 lines
1.6 KiB
Plaintext
44 lines
1.6 KiB
Plaintext
Compile insert Service_Setup
|
|
|
|
/***********************************************************************************************************************
|
|
|
|
This program is proprietary and is not to be used by or disclosed to others, nor is it to be copied without written
|
|
permission from SRP Computer Solutions, Inc.
|
|
|
|
Name : Service_Setup
|
|
|
|
Description : Equates used by the Service modules.
|
|
|
|
Notes :
|
|
|
|
History : (Date, Initials, Notes)
|
|
08/13/10 dmb Original programmer.
|
|
|
|
***********************************************************************************************************************/
|
|
|
|
Declare function RetStack, Error_Services
|
|
Declare subroutine Error_Services
|
|
|
|
|
|
// Make sure any request parameters which have not been assigned are nulled.
|
|
If Assigned(Service) else Service = ''
|
|
If Assigned(Error) else Error = ''
|
|
If Assigned(Param1) else Param1 = ''
|
|
If Assigned(Param2) else Param2 = ''
|
|
If Assigned(Param3) else Param3 = ''
|
|
If Assigned(Param4) else Param4 = ''
|
|
If Assigned(Param5) else Param5 = ''
|
|
If Assigned(Param6) else Param6 = ''
|
|
If Assigned(Param7) else Param7 = ''
|
|
If Assigned(Param8) else Param8 = ''
|
|
If Assigned(Param9) else Param9 = ''
|
|
If Assigned(Param10) else Param10 = ''
|
|
If Assigned(Response) else Response = ''
|
|
|
|
// Create the service Key ID in case Memory_Services is used.
|
|
ServiceModule = RetStack()<1>
|
|
ServiceKeyID = ServiceModule : '*' : Service
|
|
|
|
// Clear any error conditions.
|
|
Error_Services('Clear')
|