source: FOIAVistA/trunk/r/NATIONAL_DRUG_FILE-PSN/PSN4P77.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

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.