Index: BL/Prod/Select.cls.xml
===================================================================
diff -u -r37648 -r43078
--- BL/Prod/Select.cls.xml	(.../Select.cls.xml)	(revision 37648)
+++ BL/Prod/Select.cls.xml	(.../Select.cls.xml)	(revision 43078)
@@ -981,8 +981,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>
@@ -991,8 +993,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)
@@ -1008,8 +1012,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)