Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PSNDEX

PSNDEX.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSNDEX   180     printed  Nov 22, 2024@17:33:56                                                                                                                                                                                                       Page 2

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