|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
564 bytes
|
| Line | |
|---|
| 1 | ONCPST15 ;HIRMFO/GWB - Post-init for Patch ONC*2.11*15;2/05/98
|
|---|
| 2 | ;;2.11;ONCOLOGY;**15**; Mar 07, 1995
|
|---|
| 3 | ATX ;Reindex "ATX" cross-reference
|
|---|
| 4 | W !!," Reindexing ATX cross-reference..."
|
|---|
| 5 | K ^ONCO(165.5,"ATX")
|
|---|
| 6 | S DIK="^ONCO(165.5,",DIK(1)=50 D ENALL^DIK
|
|---|
| 7 | S DIK="^ONCO(165.5,",DIK(1)=51 D ENALL^DIK
|
|---|
| 8 | S DIK="^ONCO(165.5,",DIK(1)=52 D ENALL^DIK
|
|---|
| 9 | S DIK="^ONCO(165.5,",DIK(1)=53 D ENALL^DIK
|
|---|
| 10 | S DIK="^ONCO(165.5,",DIK(1)=54 D ENALL^DIK
|
|---|
| 11 | S DIK="^ONCO(165.5,",DIK(1)=55 D ENALL^DIK
|
|---|
| 12 | S DIK="^ONCO(165.5,",DIK(1)=57 D ENALL^DIK
|
|---|
| 13 | S DIK="^ONCO(165.5,",DIK(1)=124 D ENALL^DIK
|
|---|
| 14 | K DIK
|
|---|
| 15 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
