Index: Tools/GlobalSearch.cls.xml
===================================================================
diff -u -r113 -r126
--- Tools/GlobalSearch.cls.xml	(.../GlobalSearch.cls.xml)	(revision 113)
+++ Tools/GlobalSearch.cls.xml	(.../GlobalSearch.cls.xml)	(revision 126)
@@ -3,45 +3,147 @@
 <Class name="Tools.GlobalSearch">
 <Super>%RegisteredObject</Super>
 
+<Property name="Result">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="RecordsFound">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Bestandsnaam">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	do ..BepaalBestandsnaam()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalBestandsnaam">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set ..Bestandsnaam = ##class(TECH.Config.ConfigMgr).Instance().GeefString("DefaultExportDirectory")
+	set ..Bestandsnaam = ##class(TECH.Files).AppendFile(..Bestandsnaam,"GlobalSearch "_$translate(##class(TECH.DateTime).CurrentTimeStamp(),"/:","")_ ".TXT")
+]]></Implementation>
+</Method>
+
+<Method name="Reset">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set ..RecordsFound = 0
+	do ..Result.Clear()
+]]></Implementation>
+</Method>
+
+<Method name="GeefDefaultGlobals">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $LB("^RES","^LD","^SD","^MN","^POP","^ASK","^KBA","^KKL(0)","^KLE(0)","^KPR(0)","^KPRNL(0)","^KOD(0)","^KUL(0)","^KOFKL(0)","^KTO(0)","^vhMAIL(""LNK"")","^DMA","^DMC","^DMH","^DMM","^DMQ","^DMS")
+]]></Implementation>
+</Method>
+
 <Method name="FindInGlobals">
-<ClassMethod>1</ClassMethod>
 <FormalSpec>Value:%String,Globals:%List=""</FormalSpec>
 <Implementation><![CDATA[
-		if '$length(Globals) Set Globals=$LB("^RES","^LD","^SD","^MN","^POP","^ASK","^KBA","^KKL(0)","^KLE(0)","^KPR(0)","^KPRNL(0)","^KOD(0)","^KUL(0)","^KOFKL(0)","^KTO(0)","^vhMAIL(""LNK"")","^DMA","^DMC","^DMH","^DMM","^DMQ","^DMS")
-		Set Dev=$$OPEN^vhDEV(,"Find_in_old_code_"_$$UPTRIMAN^vhRtn1(Value)_".TXT","W")
-		Do:0'[Dev
-		. Use Dev
-		. For I=1:1:$LL(Globals) Do ..FindInGlobal(Value,$LI(Globals,I),Dev)
-		. Close Dev
+	do ..Reset()
+	#dim Counter As %Integer 
+	if '$length(Globals) set Globals = ..GeefDefaultGlobals()
+	For Counter=1:1:$listlength(Globals) Do ..FindInGlobal(Value,$listget(Globals,Counter))
+	write "# Global nodes gevonden : "_..RecordsFound,!
+	if ..RecordsFound write "File  : ",..Bestandsnaam do ..ExportToFile()
 ]]></Implementation>
 </Method>
 
+<Method name="ReplaceInGlobals">
+<FormalSpec>From:%String,To:%String,Globals:%List="",DoWijziging:%String=0</FormalSpec>
+<Implementation><![CDATA[
+	do ..Reset()
+	#dim Counter As %Integer 
+	if '$length(Globals) set Globals = ..GeefDefaultGlobals()
+	For Counter=1:1:$listlength(Globals) Do ..ReplaceInGlobal(From,To,$listget(Globals,Counter),DoWijziging)
+	write "# Global nodes gevonden : "_..RecordsFound,!
+	#dim RecordsGewijzigd As %String = $select(DoWijziging:..RecordsFound,1:0)
+	write "# Global nodes aangepast : "_RecordsGewijzigd,!
+	if ..RecordsFound write "File  : ",..Bestandsnaam do ..ExportToFile()
+]]></Implementation>
+</Method>
+
+<Method name="ExportResult">
+<Implementation><![CDATA[
+	set itList = ##class(TECH.ListIterator).%New(..Result)
+	while itList.HasNext() {
+		write itList.Next(),!
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ExportToFile">
+<Implementation><![CDATA[
+	set FileWriter = ##class(TECH.File.FileWriter).%New(..Bestandsnaam)
+	set itList = ##class(TECH.ListIterator).%New(..Result)
+	while itList.HasNext() {
+		do FileWriter.WriteLine(itList.Next())
+	}
+	do FileWriter.Close()
+]]></Implementation>
+</Method>
+
 <Method name="FindInGlobal">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Value:%String,Global:%String,Dev:%String</FormalSpec>
+<FormalSpec>Value:%String,Global:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-		If 0[$G(Dev) Set Dev=$$OPEN^vhDEV(,"Find_in_old_code_"_$$UPTRIMAN^vhRtn1(Value)_".TXT","W"),CloseDev=1
-		Do:0'[Dev
-		. Use Dev
-		. Set (FromNode,ToNode)=Global
-		. Set NextNode=$S(FromNode["(":$Q(@FromNode,-1),1:FromNode)
-		. Set:NextNode="" NextNode=$P(FromNode,"(")
-		. Set Next=0
-		. For  Set NextNode=$Q(@NextNode) Quit:NextNode=""  Quit:ToNode["("&($E(NextNode,1,$L(ToNode)-1)'=$E(ToNode,1,$L(ToNode)-1))  Do
-		. . Quit:'$D(@NextNode)#10
-		. . Set Rec=@NextNode
-		. . Quit:Rec'[Value
-		. . Set Next=Next+1,Found(Next)=$LB($ZR,Rec)
-		. Quit:'$D(Found)
-		. Write "Controle --> ",$C(9),Global,!
-		. Set Next=""
-		. For  Set Next=$O(Found(Next)) Quit:Next=""  Do
-		. . Set Rec=Found(Next)
-		. . Write $LI(Rec),$C(9),$LI(Rec,2),!
-		. Write !
-		. Close:$G(CloseDev) Dev
+	#dim FromNode As %String = Global
+	#dim ToNode As %String = Global
+	
+	#dim Node As %String = $select(FromNode["(":$query(@FromNode,-1),1:FromNode)
+	if Node = "" set Node=$P(FromNode,"(")
+	#dim Index As %Integer = 0
+	#dim Record As %String = ""
+	For  Set Node=$query(@Node) Quit:Node=""  Quit:ToNode["("&($E(Node,1,$L(ToNode)-1)'=$E(ToNode,1,$L(ToNode)-1))  Do
+	. Quit:'$D(@Node)#10
+	. Set Record = @Node
+	. Quit:Record'[Value
+	. set ..RecordsFound = ..RecordsFound + 1
+	. do ..Result.Insert(Node)
+	. do ..Result.Insert(Record)
+	. do ..Result.Insert("")
 ]]></Implementation>
 </Method>
+
+<Method name="ReplaceInGlobal">
+<FormalSpec>From:%String,To:%String,Global:%String,DoWijziging:%String=0</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim FromNode As %String = Global
+	#dim ToNode As %String = Global
+	
+	#dim Node As %String = $select(FromNode["(":$query(@FromNode,-1),1:FromNode)
+	if Node = "" set Node=$P(FromNode,"(")
+	#dim Index As %Integer = 0
+	#dim Record As %String = "" 
+	#dim NieuwRecord As %String = ""
+	For  Set Node=$query(@Node) Quit:Node=""  Quit:ToNode["("&($E(Node,1,$L(ToNode)-1)'=$E(ToNode,1,$L(ToNode)-1))  Do
+	. Quit:'$D(@Node)#10
+	. Set Record = @Node
+	. Quit:Record'[From
+	. set NieuwRecord = ##class(TECH.StringUtils).Replace(Record,From,To,,,1)
+	. set ..RecordsFound = ..RecordsFound + 1
+	. do ..Result.Insert(Node)
+	. do ..Result.Insert(Record)
+	. do ..Result.Insert(NieuwRecord)
+	. do ..Result.Insert("")
+	. If DoWijziging set @Node = NieuwRecord
+]]></Implementation>
+</Method>
 </Class>