Index: /ccr/trunk/p/C0CCPT.m
===================================================================
--- /ccr/trunk/p/C0CCPT.m	(revision 680)
+++ /ccr/trunk/p/C0CCPT.m	(revision 681)
@@ -60,9 +60,4 @@
 	.. S LST(ILST)="POV"_U_CODE_U_CAT_U_NARR_U_PRIM_U_PRV
 	.. S VISIT(IEN,"POV",ILST)=CODE_U_CAT_U_NARR_U_PRIM_U_PRV
-	.. I X811]"" D
-	... S ICOM=ICOM+1
-	... S $P(LST(ILST),U,10)=ICOM
-	... S ILST=ILST+1
-	... S LST(ILST)="COM"_U_ICOM_U_X811
 	. S ICPT=0 F  S ICPT=$O(^TMP("PXKENC",$J,VISIT,"CPT",ICPT)) Q:'ICPT  D
 	.. S X0=^TMP("PXKENC",$J,VISIT,"CPT",ICPT,0),X802=$G(^(802)),X12=$G(^(12)),X811=$G(^(811))
@@ -89,8 +84,7 @@
 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)
 	Q
-