Changeset 677 for ccr/trunk/p/C0CCPT.m

Timestamp:

Jan 22, 2010, 4:39:27 PM (14 years ago)

Author:

George Lilly

Message:

accomodate system that have CPT codes only in text field

File:

• ccr/trunk/p/C0CCPT.m (modified) (1 diff)

ccr/trunk/p/C0CCPT.m

@@ -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