Routine: SROPRE0

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

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

SROPRE0.m