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 | |
| Line | |
|---|---|
| 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.
