Index: vhDeploy/CW/Deploy20110829x1447.cls.xml
===================================================================
diff -u -r1913 -r1914
--- vhDeploy/CW/Deploy20110829x1447.cls.xml	(.../Deploy20110829x1447.cls.xml)	(revision 1913)
+++ vhDeploy/CW/Deploy20110829x1447.cls.xml	(.../Deploy20110829x1447.cls.xml)	(revision 1914)
@@ -13,10 +13,10 @@
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	Set Rec=$G(^KKL(0,20))
-	If Rec["VHPOPUP" Set Rec=$P(Rec,"VHPOPUP")_"vhPOPUP"_$P(Rec,"VHPOPUP"),^KKL(0,20)=Rec
+	If Rec["VHPOPUP" Set Rec=$P(Rec,"VHPOPUP")_"vhPOPUP"_$P(Rec,"VHPOPUP",2),^KKL(0,20)=Rec
 	
 	Set Rec=$G(^SD("D","LEVADR","E",8,"E"))
-	If Rec["VHPOPUP" Set Rec=$P(Rec,"VHPOPUP")_"vhPOPUP"_$P(Rec,"VHPOPUP"),^SD("D","LEVADR","E",8,"E")=Rec
+	If Rec["VHPOPUP" Set Rec=$P(Rec,"VHPOPUP")_"vhPOPUP"_$P(Rec,"VHPOPUP",2),^SD("D","LEVADR","E",8,"E")=Rec
 ]]></Implementation>
 </Method>
 </Class>