diff --git a/p/C0CCPT.m b/p/C0CCPT.m
index 078e5b5..944ef96 100644
--- a/p/C0CCPT.m
+++ b/p/C0CCPT.m
@@ -29,7 +29,7 @@ ENTRY(DFN,STDT,ENDDT,TXT)	;BUILD TOTAL ARRAY OF ALL IEN'S FOR TIU NOTES
 	D VISIT
         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))
 	. S VISIT=$P(X12,U,7)
@@ -88,7 +88,7 @@ VISIT   ;GET VISIT INFO FOR A GIVEN NOTE. BUILD INTO RETURN ARRAY .VISIT
 	Q
 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
 	. S VISIT(IEN,"TEXT",TXTCNT)=^TIU(8925,IEN,"TEXT",TXTCNT,0)