Index: /ccr/trunk/p/C0CCPT.m
===================================================================
--- /ccr/trunk/p/C0CCPT.m	(revision 674)
+++ /ccr/trunk/p/C0CCPT.m	(revision 675)
@@ -30,5 +30,5 @@
         Q
 VISIT   ;GET VISIT INFO FOR A GIVEN NOTE. BUILD INTO RETURN ARRAY .VISIT
-	S ILST=1
+	S ILST=1,X0="",X12="",VISIT="",LST="",X811=""
 	S IEN=""  F  S IEN=$O(NOTE(IEN)) Q:IEN=""  D
 	. S X0=^TIU(8925,IEN,0),X12=$G(^(12))
@@ -89,5 +89,5 @@
 GETNOTE(IEN)	;GET THE TEXT THAT GOES WITH VISIT
 	;EXTRACT NOTE TEXT FROM ^TIU(8925,IEN,"TEXT"
-	;Q:'$D(VISIT(IEN,"CPT"))
+	Q:'$D(VISIT(IEN,"CPT"))
 	S TXTCNT=0
 	F  S TXTCNT=TXTCNT+1 Q:'$D(^TIU(8925,IEN,"TEXT",TXTCNT,0))  D