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

Timestamp:

Dec 9, 2008, 5:19:48 PM (15 years ago)

Author:

George Lilly

Message:

started EXPAND^{C0CRXN to reconcile null RXNORM codes in 176.111}

File:

• ccr/trunk/p/C0CRNF.m (modified) (3 diffs)

ccr/trunk/p/C0CRNF.m

@@ -53 +53 @@
  D GETS^DIQ(GFILE,C0CREF,"**","","C0CTMP")
  D FIELDS(GRTN,GFILE) ;GET ALL THE FIELD NAMES FOR THE FILE
+ S @GRTN@(0)=GFILE_"^RNF1^"_GIEN_"^"_DT_"^"_$J ; STRUCTURE SIGNATURE
  S (C0CI,C0CJ)=""
  F  S C0CJ=$O(C0CTMP(C0CJ)) Q:C0CJ=""  D  ; FOR ALL SUBFILES
@@ -87 +88 @@
  ;
  N GIEN,GF
+
  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
@@ -103 +105 @@
  D GETS^DIQ(GFILE,C0CREF,"**","","C0CTMP")
  D FIELDS(GRTN,GFILE) ;GET ALL THE FIELD NAMES FOR THE FILE
+ S @GRTN@(0)=GFILE_"^RNF1^"_GIEN_"^"_DT_"^"_$J_"^"_DUZ ; STRUCTURE SIGNATURE
  S (C0CI,C0CJ)=""
  F  S C0CJ=$O(C0CTMP(C0CJ)) Q:C0CJ=""  D  ; FOR ALL SUBFILES