- 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 Jan 18, 2025@03:23:20 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