source:
WorldVistAEHR/trunk/r/NATIONAL_DRUG_FILE-PSN/PSN4P77.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 323 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | PSN4P77 ;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 | ; | |
7 | EN ; | |
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.