source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCPST15.m@ 1755

Last change on this file since 1755 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 564 bytes
Line 
1ONCPST15 ;HIRMFO/GWB - Post-init for Patch ONC*2.11*15;2/05/98
2 ;;2.11;ONCOLOGY;**15**; Mar 07, 1995
3ATX ;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.