Index: test.rou
===================================================================
diff -u
--- test.rou	(revision 0)
+++ test.rou	(revision 727)
@@ -0,0 +1,55 @@
+
+
+
+
+	s idx = ""
+	f  s idx = $O(^DOM.DOMO.Config.ScenarioD(idx)) Q:idx=""  do
+	. set idx2 = ""
+	. for  set idx2= $O(^DOM.DOMO.Config.ScenarioD(idx,idx2)) Q:idx2=""  do
+	. . if idx2="DOM.DOMO.Config.LichtScenarioGroep.Scenarios" do
+	. . . W !,$zr
+	. . . M ^DOM.DOMO.Config.ScenarioD(idx,"DOM.DOMO.Config.ScenarioGroep.Scenarios")=^DOM.DOMO.Config.ScenarioD(idx,"DOM.DOMO.Config.LichtScenarioGroep.Scenarios")
+	. . . K ^DOM.DOMO.Config.ScenarioD(idx,"DOM.DOMO.Config.LichtScenarioGroep.Scenarios")
+	q	
+
+
+	
+
+
+	s res = $$ExecDynQuery^vhQUERYLIB("SELECT ID FROM DOM_DOMO_Status.StatusApparaat")
+	while res.Next() {
+		 s id = res.GetData(1)
+		 
+		 s obj = ##class(DOM.DOMO.Framework.Component).%Open($lb(id))
+		 d $system.OBJ.Dump(obj.StatusProperty.Subject)
+		 
+		 
+	}
+		
+
+
+	;S Glo="^DOM.DOMO.Framework.ComponentD"
+	;f  { S Glo = $Q(@Glo) Q:Glo=""  
+	;	
+	;	i $QS(Glo,2)="StatusApparaat" w !,Glo K @Glo
+	;
+	;}
+	
+	
+	;S Glo="^DOM.DOMO.Framework.ComponentD"
+	;f  { S Glo = $Q(@Glo) Q:Glo=""  
+	;	w !,Glo 
+	;}
+	
+	;w !,"$O"
+	;s gl="^DOM.DOMO.Framework.ComponentD"
+	;f  { S Glo = $O(@gl@(Glo)) Q:Glo=""  
+	;	w !,Glo 
+	;	
+	;	}
+	;	
+	;f  { 
+	;   s x = $O(^DOM.DOMO.Framework.ComponentD(x)) Q:idx="" 
+	; 
+	; set obj = ##class(DOM.DOMO.Framework.Component).%OpenId(x)
+	; w !,obj  
\ No newline at end of file