Changeset 675 for ccr/trunk

Timestamp:

Jan 22, 2010, 8:55:06 AM (15 years ago)

Author:

George Lilly

Message:

Brian fixed a bug

File:

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

ccr/trunk/p/C0CCPT.m

@@ -30 +30 @@
         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 +89 @@
 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