31 lines
1.9 KiB
Mathematica
31 lines
1.9 KiB
Mathematica
SROPRE0 ;B'HAM ISC/MAM - PRE-INIT FOR VERSION 3 ; 16 MAR 1993 9:20 AM
|
|
;;3.0; Surgery ;;24 Jun 93
|
|
OUT ; delete output transforms no longer used
|
|
K DIK,DA S DIK="^DD(130,.04,",DA=2,DA(1)=.04,DA(2)=130 D ^DIK
|
|
K DIK,DA S DIK="^DD(130,.04,",DA=2.1,DA(1)=.04,DA(2)=130 D ^DIK
|
|
HELP ; delete obsolete help frame nodes in DD's
|
|
K DIK,DA S DIK="^DD(130,.165,",DA=22,DA(1)=.165,DA(2)=130 D ^DIK
|
|
K DIK,DA
|
|
NM ; delete DD's of sub-files with changed names
|
|
F SRF=130.02,130.049,130.13,130.16,130.18,130.26,130.32 K DIU S DIU=SRF,DIU(0)="S" D EN^DIU2
|
|
K DIU,SRF
|
|
XREF ; remove cross references
|
|
K DIK,DA S DIK="^DD(130,.011,1,",DA=1,DA(1)=.011,DA(2)=130 D ^DIK
|
|
K DIK,DA S DIK="^DD(130,.22,1,",DA=1,DA(1)=.22,DA(2)=130 D ^DIK
|
|
K DIK,DA S DIK="^DD(130,.14,1,",DA=1,DA(1)=.14,DA(2)=130 D ^DIK
|
|
K DIK,DA S DIK="^DD(130,.22,1,",DA=3,DA(1)=.22,DA(2)=130 D ^DIK
|
|
K DIK,DA S DIK="^DD(130,.23,1,",DA=1,DA(1)=.23,DA(2)=130 D ^DIK
|
|
K DIK,DA S DIK="^DD(130,27,1,",DA=1,DA(1)=27,DA(2)=130 D ^DIK
|
|
K DIK,DA S DIK="^DD(130,26,1,",DA=1,DA(1)=26,DA(2)=130 D ^DIK K ^SRF("ASTBY"),^SRF("ATT")
|
|
K DIK,DA S DIK="^DD(130,26,1,",DA=2,DA(1)=26,DA(2)=130 D ^DIK
|
|
K DIK,DA S DIK="^DD(130,26,1,",DA=3,DA(1)=26,DA(2)=130 D ^DIK
|
|
K DIK,DA S DIK="^DD(130,11,1,",DA=1,DA(1)=11,DA(2)=130 D ^DIK K ^SRF("A")
|
|
K DIK,DA S DIK="^DD(130,11,1,",DA=2,DA(1)=11,DA(2)=130 D ^DIK K ^SRF("ASC")
|
|
K DIK,DA S DIK="^DD(136.02,.01,1,",DA=1,DA(1)=.01,DA(2)=136.02 D ^DIK
|
|
K DIK,DA S DIK="^DD(136.03,.01,1,",DA=1,DA(1)=.01,DA(2)=136.03 D ^DIK S SRTDFN=0 F S SRTDFN=$O(^SRT(SRTDFN)) Q:'SRTDFN K ^SRT(SRTDFN,"ER","B"),^SRT(SRTDFN,"Q","B")
|
|
K DIK,DA S DIK="^DD(130.16,.01,1,",DA=1,DA(1)=.01,DA(2)=130.16 D ^DIK
|
|
K DIK,DA S DIK="^DD(130.47,.01,1,",DA=1,DA(1)=.01,DA(2)=130.47 D ^DIK
|
|
K DIK,DA S DIK="^DD(131.7,.01,1,",DA=2,DA(1)=.01,DA(2)=131.7 D ^DIK
|
|
K DIK,DA S DIK="^DD(137.45,.01,1,",DA=1,DA(1)=.01,DA(2)=137.45 D ^DIK K ^SRO(137.45,"B"),^SRO(132.95,"C"),DIK,DA,SRTDFN
|
|
Q
|