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

PSN4P77.m

Go to the documentation of this file.
  1. PSN4P77 ;ISP/RLC;POST INSTALL TO REINDEX APD XREF FILE 56;10/08/03
  1. ;;4.0; NATIONAL DRUG FILE;**77,83**; 30 OCT 98
  1. ;
  1. ; This routine will automatically re-index the APD cross reference
  1. ; (on field 1 - Drug Ingredient1) in File 56 (Drug Interaction file).
  1. ;
  1. EN ;
  1. S DIK="^PS(56,"
  1. S DIK(1)="1^APD"
  1. D ENALL^DIK
  1. K DIK
  1. Q