Changeset 1534 for smart/trunk/p/C0STBL.m

Timestamp:

Sep 26, 2012, 3:56:51 AM (12 years ago)

Author:

George Lilly

Message:

fixes for snomed lookup

File:

• smart/trunk/p/C0STBL.m (modified) (2 diffs)

smart/trunk/p/C0STBL.m

@@ -27 +27 @@
  S ZI=BEGDFN
  S ZCNT=0
- F  S ZI=$O(^DPT(ZI)) Q:(+ZI="")!(ZCNT>DFNCNT)  D  ;
+ F  S ZI=$O(^DPT(ZI)) Q:(+ZI=0)!(ZCNT>DFNCNT)  D  ;
  . S ZCNT=ZCNT+1
  . W ZI," "
@@ -44 +44 @@
  . ;K G
  . D EN^C0SMART(.G,ZI,"problem")
- . I $D(G) W !,$$output^C0XGET1("G")
+ . ;I $D(G) W !,$$output^C0XGET1("G")
  Q
  ;