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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSN4P77 335 printed Dec 13, 2024@02:22:19 Page 2
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
+2 ;
+3 ; This routine will automatically re-index the APD cross reference
+4 ; (on field 1 - Drug Ingredient1) in File 56 (Drug Interaction file).
+5 ;
EN ;
+1 SET DIK="^PS(56,"
+2 SET DIK(1)="1^APD"
+3 DO ENALL^DIK
+4 KILL DIK
+5 QUIT
