added LSL2 stored procedures

LSL2/STPROC/PART_EVENTS.txt

@@ -0,0 +1,65 @@
+Function PART_EVENTS(CtrlEntID,Event,Param1,Param2,Param3,Param4,Param5,Param6,Param7,Param8)
+*
+* Subroutine Name :PART_EVENTS
+*
+* Description : Commuter Module for PART
+*
+* Date : 07/06/2010
+*
+* Author : BRYCE_BARB
+*
+* OI Version : 9.1.1
+*
+* Comments :
+*
+*** RTI Generated Commuter Module ***
+*
+********************************************************
+*
+*
+Declare Subroutine MSG
+
+Declare Function MSG,GET_PROPERTY,SET_STATUS,GET_STATUS,SET_PROPERTY
+Declare Function POPUP,REPOSITORY,SEND_MESSAGE,SEND_EVENT,UNASSIGNED
+Declare Function UTILITY,CONTEXTMENU
+
+$INSERT MSG_EQUATES
+$INSERT POPUP_EQUATES
+
+If Unassigned(CtrlEntID) Then CtrlEntID = ''
+If Unassigned(Event) Then Event = ''
+If Unassigned(Param1) Then Param1 = ''
+If Unassigned(Param2) Then Param2 = ''
+If Unassigned(Param3) Then Param3 = ''
+If Unassigned(Param4) Then Param4 = ''
+If Unassigned(Param5) Then Param5 = ''
+If Unassigned(Param6) Then Param6 = ''
+If Unassigned(Param7) Then Param7 = ''
+If Unassigned(Param8) Then Param8 = ''
+*
+*
+If index(CtrlEntID,".",1) then
+	WinName = Field(CtrlEntID,'.',1)
+	Control = Field(CtrlEntID,'.',2)
+End else
+	WinName = CtrlEntID
+	Control = WinName
+End
+*
+Parent = @window
+Frame = Get_Property(Parent,'MDIFRAME')
+If len(Frame) then Parent = Frame
+*
+Retval = 1
+*
+Begin Case
+	Case Control = "LU_PART"
+		Begin Case
+			Case Event = "CLICK"
+			
+				qeparms = "@SELF,@EVENT,@PARAM1,@PARAM2,@PARAM3,@PARAM4,@PARAM5,@PARAM6"
+				valu = Repository("EXECUTE","SYSPROG*STPROCEXE**OBJ_CALL_EVENT",qeparms)
+		End Case
+End Case
+*
+return retval