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
 Q