|
Last change
on this file since 1314 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
