Last change
on this file since 1785 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.