fixed undefined error found by FJ with $G

2009-08-27 16:22:58 +00:00 · 2009-08-27 16:22:58 +00:00 · 4fb50ed188
parent 43eecc90b2
commit 4fb50ed188
1 changed files with 1 additions and 1 deletions
--- a/p/C0CRNF.m
+++ b/p/C0CRNF.m
@ -91,7 +91,7 @@ GETN(GRTN,GFILE,GREF,GNDX,GNN)	; GET BY NAME ; RETURN A FIELD VALUE MAP
 ;
 N GIEN,GF
 S GF=$$FILEREF(GFILE) ;CLOSED FILE REFERENCE FOR FILE NUMBER GFILE
- I ('$D(GNDX))!(GNDX="") S GIEN=GREF ; IF NO INDEX USED, GREF IS THE IEN
+ I ('$D(GNDX))!($G(GNDX)="") S GIEN=GREF ; IF NO INDEX USED, GREF IS THE IEN
 E  D  ; WE ARE USING AN INDEX
 . ;N ZG
 . S ZG=$Q(@GF@(GNDX,GREF)) ;ACCESS INDEX