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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSROPRE0 1944 printed Dec 13, 2024@02:45:09 Page 2
SROPRE0 ;B'HAM ISC/MAM - PRE-INIT FOR VERSION 3 ; 16 MAR 1993 9:20 AM
+1 ;;3.0; Surgery ;;24 Jun 93
OUT ; delete output transforms no longer used
+1 KILL DIK,DA
SET DIK="^DD(130,.04,"
SET DA=2
SET DA(1)=.04
SET DA(2)=130
DO ^DIK
+2 KILL DIK,DA
SET DIK="^DD(130,.04,"
SET DA=2.1
SET DA(1)=.04
SET DA(2)=130
DO ^DIK
HELP ; delete obsolete help frame nodes in DD's
+1 KILL DIK,DA
SET DIK="^DD(130,.165,"
SET DA=22
SET DA(1)=.165
SET DA(2)=130
DO ^DIK
+2 KILL DIK,DA
NM ; delete DD's of sub-files with changed names
+1 FOR SRF=130.02,130.049,130.13,130.16,130.18,130.26,130.32
KILL DIU
SET DIU=SRF
SET DIU(0)="S"
DO EN^DIU2
+2 KILL DIU,SRF
XREF ; remove cross references
+1 KILL DIK,DA
SET DIK="^DD(130,.011,1,"
SET DA=1
SET DA(1)=.011
SET DA(2)=130
DO ^DIK
+2 KILL DIK,DA
SET DIK="^DD(130,.22,1,"
SET DA=1
SET DA(1)=.22
SET DA(2)=130
DO ^DIK
+3 KILL DIK,DA
SET DIK="^DD(130,.14,1,"
SET DA=1
SET DA(1)=.14
SET DA(2)=130
DO ^DIK
+4 KILL DIK,DA
SET DIK="^DD(130,.22,1,"
SET DA=3
SET DA(1)=.22
SET DA(2)=130
DO ^DIK
+5 KILL DIK,DA
SET DIK="^DD(130,.23,1,"
SET DA=1
SET DA(1)=.23
SET DA(2)=130
DO ^DIK
+6 KILL DIK,DA
SET DIK="^DD(130,27,1,"
SET DA=1
SET DA(1)=27
SET DA(2)=130
DO ^DIK
+7 KILL DIK,DA
SET DIK="^DD(130,26,1,"
SET DA=1
SET DA(1)=26
SET DA(2)=130
DO ^DIK
KILL ^SRF("ASTBY"),^SRF("ATT")
+8 KILL DIK,DA
SET DIK="^DD(130,26,1,"
SET DA=2
SET DA(1)=26
SET DA(2)=130
DO ^DIK
+9 KILL DIK,DA
SET DIK="^DD(130,26,1,"
SET DA=3
SET DA(1)=26
SET DA(2)=130
DO ^DIK
+10 KILL DIK,DA
SET DIK="^DD(130,11,1,"
SET DA=1
SET DA(1)=11
SET DA(2)=130
DO ^DIK
KILL ^SRF("A")
+11 KILL DIK,DA
SET DIK="^DD(130,11,1,"
SET DA=2
SET DA(1)=11
SET DA(2)=130
DO ^DIK
KILL ^SRF("ASC")
+12 KILL DIK,DA
SET DIK="^DD(136.02,.01,1,"
SET DA=1
SET DA(1)=.01
SET DA(2)=136.02
DO ^DIK
+13 KILL DIK,DA
SET DIK="^DD(136.03,.01,1,"
SET DA=1
SET DA(1)=.01
SET DA(2)=136.03
DO ^DIK
SET SRTDFN=0
FOR
SET SRTDFN=$ORDER(^SRT(SRTDFN))
if 'SRTDFN
QUIT
KILL ^SRT(SRTDFN,"ER","B"),^SRT(SRTDFN,"Q","B")
+14 KILL DIK,DA
SET DIK="^DD(130.16,.01,1,"
SET DA=1
SET DA(1)=.01
SET DA(2)=130.16
DO ^DIK
+15 KILL DIK,DA
SET DIK="^DD(130.47,.01,1,"
SET DA=1
SET DA(1)=.01
SET DA(2)=130.47
DO ^DIK
+16 KILL DIK,DA
SET DIK="^DD(131.7,.01,1,"
SET DA=2
SET DA(1)=.01
SET DA(2)=131.7
DO ^DIK
+17 KILL DIK,DA
SET DIK="^DD(137.45,.01,1,"
SET DA=1
SET DA(1)=.01
SET DA(2)=137.45
DO ^DIK
KILL ^SRO(137.45,"B"),^SRO(132.95,"C"),DIK,DA,SRTDFN
+18 QUIT
