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')