PSNDEX.m

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

PSNDEX    ;BIR/WRT-REINDEX FIELD 31 IN DRUG FILE ;01/12/98   5:18 PM

 +1       ;;4.0; NATIONAL DRUG FILE;; 30 Oct 98

START      KILL ^PSDRUG("NDC")

           SET DIK="^PSDRUG("

           SET DIK(1)="31^NDC"

           DO ENALL^DIK

 +1        QUIT