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
