Changeset 304 for ccr/trunk/p/C0CRNF.m

Timestamp:

Dec 10, 2008, 5:15:44 PM (15 years ago)

Author:

George Lilly

Message:

completed EXPAND^{C0CRXN to create file 176.112}

File:

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

ccr/trunk/p/C0CRNF.m

@@ -90 +90 @@
 
  S GF=$$FILEREF(GFILE) ;CLOSED FILE REFERENCE FOR FILE NUMBER GFILE
- I '$D(GNDX) S GIEN=GREF ; IF NO INDEX USED, GREF IS THE IEN
+ I ('$D(GNDX))!(GNDX="") S GIEN=GREF ; IF NO INDEX USED, GREF IS THE IEN
  E  D  ; WE ARE USING AN INDEX
  . ;N ZG