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