Function SRP_TEST(Svc)

/******************************************************************************************************** 

    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        :   

    Description :   

    Tags        :   [SRP]

    Parameters  :

    History (Date, Initials, Notes)
        06/07/09    fjt     Initial development

********************************************************************************************************/

$insert SRP_LSL2_INSERTS

Declare function SVC_Scheduler, Dialog_Box, MemberOf, Start_Window
Declare subroutine Extract_SI_Keys, Btree.Extract, Rlist

rv = ""

Begin Case
	Case Svc _eqc "Sched"		; GoSub Launch_Scheduler
	Case Svc _eqc "Schedule"	; GoSub Launch_Scheduler
End Case

Return rv


!----- TEST SERVICES ------------------------------------------------------------------------------------


Launch_Scheduler:
	@USER4 = "SRP_FRANK"
	rv = Start_Window("WO_MASTER_SCHEDULER", "", "")
return