Subroutine SVC_Embed_Window(Service, Param1, Param2, Param3, Param4, Param5)

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

    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        :   SVC Embed Window

    Description :   

    Tags		:	[SRP]

    Parameters  :

    History (Date, Initials, Notes)
        11/10/09	fjt     Initial development

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

$insert SRP_APP_INSERTS
$insert SERVICE_INSERT

Equ ShortCut$ to "WO_MASTER_SCHEDULER.OLE_SHORTCUT"

Transfer Param1 to Window
Transfer Param2 to Group

If Group EQ "" then Group = 1

If Group and Window then
	rv = Send_Message(ShortCut$, "OLE.InsertGroup", Group, "Find")
	rv = Start_MDIchild(Window, "WO_MASTER_SCHEDULER")
	hWnd = Get_Property(Window, "HANDLE") 
	Send_Message(ShortCut$, "OLE.EmbedWindow", Group, hWnd)
	Set_Property(ShortCut$, "OLE.GroupExpanded[4]", Yes$)
	Ans = Success$
end

Return Ans
