Index: zTryout/JWI/ForTestKPR.cls.xml
===================================================================
diff -u
--- zTryout/JWI/ForTestKPR.cls.xml	(revision 0)
+++ zTryout/JWI/ForTestKPR.cls.xml	(revision 61220)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.JWI.ForTestKPR">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="x">
+<Implementation><![CDATA[
+	Set p = "1"
+	Set p = $O(^KPR(p))
+
+	While (p){
+		if $D(^KPR(p,"I1")){
+			w:($P(^KPR(p,"I1"),"\",4)=1628) !,p, " ",$p(^KPR(p,0),"\",2), " ", $e($p(^KPR(p,0),"\",1),22,*)
+		}
+		Set p = $O(^KPR(p))
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>