s p=0
	s D="\"
	f  s p=$o(^|"TESTPV"|KPR(p)) q:p=""  do
	. Q:'$D(^|"TESTPV"|KPR(p,"J5005"))
	. s ^KPR(p,"J5005")=^|"TESTPV"|KPR(p,"J5005")
	. s $P(^KPR(p,2),D,3)=$P(^|"TESTPV"|KPR(p,2),D,3)
	. s $P(^KPR(p,2),D,4)=$P(^|"TESTPV"|KPR(p,2),D,4)
	. s $P(^KPR(p,2),D,6)=$P(^|"TESTPV"|KPR(p,2),D,6)
	. s $P(^KPR(p,2),D,7)=$P(^|"TESTPV"|KPR(p,2),D,7)
	. s $P(^KPR(p,2),D,26)=$P(^|"TESTPV"|KPR(p,2),D,26)
	. s $P(^KPR(p,1),D,3)=$P(^|"TESTPV"|KPR(p,1),D,3)
	
	 q