Changeset 681 for ccr/trunk

Timestamp:

Jan 25, 2010, 5:20:52 PM (15 years ago)

Author:

George Lilly

Message:

update to Procedure extract to avoid ICOM problem

File:

• ccr/trunk/p/C0CCPT.m (modified) (2 diffs)

ccr/trunk/p/C0CCPT.m

@@ -60 +60 @@
         .. 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 +84 @@
 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
-