Index: BL/Prod/Search.cls.xml
===================================================================
diff -u -r29059 -r43077
--- BL/Prod/Search.cls.xml	(.../Search.cls.xml)	(revision 29059)
+++ BL/Prod/Search.cls.xml	(.../Search.cls.xml)	(revision 43077)
@@ -311,8 +311,10 @@
 <Method name="SelectRow">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr,KLNr</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
+	#dim Row As %List
 	Set Row=$LB(PRNr,..FormatCompact(PRNr,KLNr,%psFormatCompact))_..FormatExpand(PRNr,KLNr,%psFormatExpand)
 	Quit Row
 ]]></Implementation>
@@ -321,8 +323,10 @@
 <Method name="FormatCompact">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr,KLNr,FormatCompact</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
+	#dim Tekst,Loop,Format
 	Set Tekst=""
 	For Loop=1:1:$L(FormatCompact,";") Do
 	. Set Format=$P(FormatCompact,";",Loop)
@@ -338,8 +342,10 @@
 <Method name="FormatExpand">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr,KLNr,FormatExpand</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
+	#dim lbRow,Loop,Format
 	Set lbRow=""
 	For Loop=1:1:$L(FormatExpand,";") Do
 	. Set Format=$P(FormatExpand,";",Loop)