Last change
on this file since 1639 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
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.