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