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