16 lines
564 B
Mathematica
16 lines
564 B
Mathematica
ONCPST15 ;HIRMFO/GWB - Post-init for Patch ONC*2.11*15;2/05/98
|
|
;;2.11;ONCOLOGY;**15**; Mar 07, 1995
|
|
ATX ;Reindex "ATX" cross-reference
|
|
W !!," Reindexing ATX cross-reference..."
|
|
K ^ONCO(165.5,"ATX")
|
|
S DIK="^ONCO(165.5,",DIK(1)=50 D ENALL^DIK
|
|
S DIK="^ONCO(165.5,",DIK(1)=51 D ENALL^DIK
|
|
S DIK="^ONCO(165.5,",DIK(1)=52 D ENALL^DIK
|
|
S DIK="^ONCO(165.5,",DIK(1)=53 D ENALL^DIK
|
|
S DIK="^ONCO(165.5,",DIK(1)=54 D ENALL^DIK
|
|
S DIK="^ONCO(165.5,",DIK(1)=55 D ENALL^DIK
|
|
S DIK="^ONCO(165.5,",DIK(1)=57 D ENALL^DIK
|
|
S DIK="^ONCO(165.5,",DIK(1)=124 D ENALL^DIK
|
|
K DIK
|
|
Q
|