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