PSNDEX ;BIR/WRT-REINDEX FIELD 31 IN DRUG FILE ;01/12/98 5:18 PM
;;4.0; NATIONAL DRUG FILE;; 30 Oct 98
START K ^PSDRUG("NDC") S DIK="^PSDRUG(",DIK(1)="31^NDC" D ENALL^DIK
Q