Index: UI/Utils/RtnFind/MainForm.cls.xml
===================================================================
diff -u -r1074 -r1883
--- UI/Utils/RtnFind/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 1074)
+++ UI/Utils/RtnFind/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 1883)
@@ -5,6 +5,7 @@
 <IncludeCode>KeyCodesCNTs,MakovaDrawTextCnts</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="CancelSearch">
 <Type>%Library.Integer</Type>
@@ -158,7 +159,6 @@
  ;End of user code
  s Args=$lb(Sender)
  q
-
 ]]></Implementation>
 </Method>
 
@@ -192,7 +192,6 @@
  Do ..ListBox1.Items.Delete(ListItem)
 
  Quit
-
 ]]></Implementation>
 </Method>
 
@@ -640,7 +639,6 @@
  ;End of user code
  s Args=$lb(Sender)
  q
-
 ]]></Implementation>
 </Method>
 
@@ -659,7 +657,6 @@
  ;End of user code
  s Args=$lb(Sender)
  q
-
 ]]></Implementation>
 </Method>
 
@@ -677,7 +674,6 @@
  ;End of user code
  s Args=$lb(Sender)
  q
-
 ]]></Implementation>
 </Method>
 
@@ -712,7 +708,6 @@
  ;End of user code
  s Args=$lb(Sender)
  q
-
 ]]></Implementation>
 </Method>
 
@@ -811,7 +806,6 @@
  Do WL^vhDBG("Error: "_Index)
  Do Control.Items.SetStrings(Index,$LB("?","?","?","?"))
  Quit
-
 ]]></Implementation>
 </Method>
 
@@ -843,24 +837,104 @@
  ;End of user code
  s Args=$lb(Sender,Key,Shift)
  q
-
 ]]></Implementation>
 </Method>
 
 <Method name="OnCreate">
 <FormalSpec>initvalue:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Library.Status</ReturnType>
+<Implementation><![CDATA[ q $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SearchGlobals">
+<FormalSpec>str:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
- q $$$OK
 
+    set str=$zconvert(str,"U")
+ 
+ 	Set ..btnCancel.Enabled="True"
+ 	
+ 	Set ..btnSearch.Enabled="False"
+ 	Set ..txtSearchFor.Enabled="False"
+ 	Set ..CancelSearch=0
+ 	
+	new GlobalList set GlobalList = "KBA,MN,SD,RES,LD,KPR(0),KKL(0),KTO(0),KOD(0),KUL(0),KOFKL(0),POP,ASK,DMA"
+	new Counter,i,Info,Lbls,lbl,Packs
+	set lbl=""
+	new GlobalRef 
+	
+	for Counter = 1 : 1 : $length(GlobalList,",") {
+		set i=1
+		set Global = $piece(GlobalList,",",Counter)
+		quit:Global=""
+		set Global="^"_Global
+		set GlobalRef = Global
+		Set ..lblSearchMsg.Caption=Global
+ 		Do MApplication.ProcessMessages()
+		set Subscripts = $ql(Global)
+		for  { set GlobalRef=$query(@GlobalRef) 
+			quit:GlobalRef="" 
+			quit:(Subscripts&&$$CanQuit(GlobalRef,Global,Subscripts))
+			set Info=@GlobalRef
+			if $zconvert(Info,"U")[str {
+				Set i="+"_i
+				Do ..ListBox1.Items.Add($LB(GlobalRef,i,$E(Info,1,250),lbl))
+ 				Set (ObjPack)=Global
+ 				set lbl=GlobalRef
+ 				If ObjPack'="" {
+ 					If '$D(Packs(ObjPack)) {
+ 						Set Packs(ObjPack)=..tvBrowser.Items.AddObject(0,ObjPack_ " [1]",1)
+ 					}
+ 					else {
+	 					Set Packs(ObjPack).Data=Packs(ObjPack).Data+1
+ 	     				Set Packs(ObjPack).Text=$P(Packs(ObjPack).Text,"[",1)_"["_Packs(ObjPack).Data_"]"
+ 	     			}
+     				If '$D(Lbls(ObjPack,lbl)) {
+ 	     				Set Lbls(ObjPack,lbl)=..tvBrowser.Items.AddChildObject(Packs(ObjPack),lbl_" [1]",1)
+ 	   				}
+ 	   				else {
+  		       			Set Lbls(ObjPack,lbl).Data=Lbls(ObjPack,lbl).Data+1
+      					Set Lbls(ObjPack,lbl).Text=$P(Lbls(ObjPack,lbl).Text,"[",1)_"["_Lbls(ObjPack,lbl).Data_"]"
+ 	   				}
+ 				}
+ 				set i=i+1
+			}
+			
+		}
+	}
+	
+	If ..CancelSearch Do
+	. Set ..lblSearchMsg.Caption="Aborted searching, " _ ..ListBox1.Items.Count _ " result(s)."
+ 	Else  Do
+ 	. Set ..lblSearchMsg.Caption="Finished searching, " _ ..ListBox1.Items.Count _ " result(s)."
+
+ 	Set ..CancelSearch=0
+
+ 	Set ..txtSearchFor.Enabled="True"
+ 	Set ..btnSearch.Enabled="True"
+ 	Set ..btnCancel.Enabled="False"
+
+	quit
+	
+
+CanQuit(GlobalRef,Global,Subscripts)
+	new Counter,CanQuit
+	set CanQuit = 0
+	for Counter=1:1:$length(Subscripts) set CanQuit=($QS(GlobalRef,Counter)'=$QS(Global,Counter)) quit:CanQuit
+	quit CanQuit
 ]]></Implementation>
 </Method>
 
 <Method name="SearchRoutines">
 <FormalSpec>str:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
+ 
+ set str=$zconvert(str,"U")
+ 
  Set ..btnCancel.Enabled="True"
  Do ..ListBox1.Clear()
 
@@ -887,7 +961,7 @@
  . for  set code=$Text(+i^@searchRoutine)  quit:code=""  do
  ..  quit:code=""
  ..  Set:($E(code)'=" ") lbl=$P(code," ",1)
- ..  If code[str Do
+ ..  If $zcvt(code,"U")[str Do
  ...   Set i="+"_i
  ...   Do ..ListBox1.Items.Add($LB(searchRoutine,i,$E(code,1,250),lbl))
  ...   Set ObjPack=$P(searchRoutine,".",1,$L(searchRoutine,".")-1)
@@ -915,8 +989,6 @@
  Set ..btnSearch.Enabled="True"
  Set ..btnCancel.Enabled="False"
  Quit
-
-
 ]]></Implementation>
 </Method>
 
@@ -959,15 +1031,14 @@
  ...   Do ..ListBox1.Items.Add($LB(rtn,i,$E(code,1,250),lbl))
  ..  set i=i+1
 
+	
  Set ..CancelSearch=0
  Set ..lblSearchMsg.Caption="Finished searching, " _ ..ListBox1.Items.Count _ " result(s)."
 
  Set ..txtSearchFor.Enabled="True"
  Set ..btnSearch.Enabled="True"
  Set ..btnCancel.Enabled="False"
  Quit
-
-
 ]]></Implementation>
 </Method>
 
@@ -985,7 +1056,6 @@
  ;End of user code
  s Args=$lb(Sender)
  q
-
 ]]></Implementation>
 </Method>
 
@@ -1003,7 +1073,6 @@
  ;End of user code
  s Args=$lb(Sender)
  q
-
 ]]></Implementation>
 </Method>
 
@@ -1049,7 +1118,6 @@
  Do ..rePrint.Lines.EndUpdate()
 
  Quit
-
 ]]></Implementation>
 </Method>
 
@@ -1071,17 +1139,18 @@
  If ..chkSimpleSearch.Checked="True" Do
  . Set ..gbAdvanced.Visible="False"
  . Do ..SearchRoutines(..txtSearchFor.Text)
+ . Do ..SearchGlobals(..txtSearchFor.Text)
  Else  Do
  . Set ..gbAdvanced.Visible="True"
  . New OnRtn,OnLbl
  . Set OnRtn=$S(..chkOnRtn.Checked="True":..txtOnRtn.Text,1:"")
  . Set OnLbl=$S(..chkOnLbl.Checked="True":..txtOnLbl.Text,1:"")
  . Do ..SearchRoutinesEx(..txtSearchFor.Text,OnRtn,OnLbl)
+ . Do ..SearchGlobals(..txtSearchFor.Text)
 
  ;End of user code
  s Args=$lb(Sender)
  q
-
 ]]></Implementation>
 </Method>
 
@@ -1099,7 +1168,6 @@
  ;End of user code
  s Args=$lb(Sender)
  q
-
 ]]></Implementation>
 </Method>
 
@@ -1141,7 +1209,6 @@
  ;End of user code
  s Args=$lb(Sender)
  q
-
 ]]></Implementation>
 </Method>
 
@@ -1159,7 +1226,6 @@
  ;End of user code
  s Args=$lb(Sender)
  q
-
 ]]></Implementation>
 </Method>
 
@@ -1179,7 +1245,6 @@
  ;End of user code
  s Args=$lb(Sender,Key,Shift)
  q
-
 ]]></Implementation>
 </Method>