updated react servs form to fill available intrusive maintenance flows based on data instead of a form list

LSL2/STPROC/COMM_REACT_SERVS.txt

@@ -13,6 +13,7 @@ DECLARE SUBROUTINE React_Servs_Services, React_Servs_Events
 
 DECLARE FUNCTION Get_Property, Get_Status, Dialog_Box, Utility, Center_Window, Popup, Collect.Ixvals
 DECLARE FUNCTION Send_Message, Msg, Security_Check, RowExists,  NextKey, End_Window, React_Servs_Services
+DECLARE FUNCTION Nica_Orders_Services
 
 $INSERT MSG_EQUATES
 $INSERT APPCOLORS
@@ -64,7 +65,7 @@ RETURN Result
 * * * * * * *
 Create:
 * * * * * * *	
-	
+
 	IF NOT(Security_Check('React Servs',Read$)) THEN
 		Security_Err_Msg('React Servs',Read$)
 		void = End_Window( @WINDOW, '' )
@@ -80,6 +81,11 @@ Create:
 	
 	obj_Appwindow('Create',@WINDOW)
 	
+	AvailFlowIds = Nica_Orders_Services('GetAvailableFlowIds', 'INTRUSIVE_MAINT')
+	Convert @VM to @FM in AvailFlowIds
+	AvailFlowIds = '':@FM:AvailFlowIds
+	Set_Property(@Window:'.CBO_INTR_MAINT_FLOW', 'LIST', AvailFlowIds)
+	
 	GOSUB Refresh
 	
 RETURN
@@ -96,9 +102,6 @@ Clear:
 		Set_Property(@WINDOW,'@READONLY',0)		;* Clear flag on window
 	END
 	
-*	GOSUB EnableFlowCode
-*	React_Servs_Events(@Window, 'READ')
-	
 	
 * * * * * * *
 Refresh:
@@ -141,7 +144,6 @@ Refresh:
 	NEXT I
 	
 	GOSUB EnableFlowCode
-*	React_Servs_Events(@Window, 'READ')
 	
 RETURN