added LSL2 stored procedures

LSL2/STPROC/SYSPROG_EVENTS.txt

@@ -0,0 +1,43 @@
+Function Sysprog_Events(Instruction, CtrlEntId, CtrlClassId, Param1, Param2, Param3, Param4, Param5, Param6, Param7, Param8, Param9, Param10, Param11, Param12, Param13, Param14)
+/******************************************************************************************************** 
+
+    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        :   Sysprog Events
+
+    Description :
+    
+	Tags		:	[SRP]
+
+    Parameters  :
+
+    History (Date, Initials, Notes)
+        09/17/08    fjt     Initial development
+
+********************************************************************************************************/
+
+$insert SRP_APP_INSERTS
+
+Declare function Function
+
+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 = ""
+
+Window  = Field(CtrlEntId, ".", 1)[1, "F*"]
+Control = Field(CtrlEntId, ".", 2)
+Func	= Window:"_EVENTS"
+
+Begin Case
+	Case Instruction EQ 28
+		Ans = Function(@Func(CtrlEntID, "CONTEXTMENU", Param1, Param2))
+End Case
+
+If Assigned(Ans) else Ans = 1
+Return Ans