added LSL2 stored procedures

LSL2/STPROC/SVC_EMBED_WINDOW.txt

@@ -0,0 +1,40 @@
+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