source: WorldVistAEHR/trunk/r/NATIONAL_DRUG_FILE-PSN/PSN4P77.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 323 bytes
Line 
1PSN4P77 ;ISP/RLC;POST INSTALL TO REINDEX APD XREF FILE 56;10/08/03
2 ;;4.0; NATIONAL DRUG FILE;**77,83**; 30 OCT 98
3 ;
4 ; This routine will automatically re-index the APD cross reference
5 ; (on field 1 - Drug Ingredient1) in File 56 (Drug Interaction file).
6 ;
7EN ;
8 S DIK="^PS(56,"
9 S DIK(1)="1^APD"
10 D ENALL^DIK
11 K DIK
12 Q
Note: See TracBrowser for help on using the repository browser.