| [613] | 1 | SROPRE0 ;B'HAM ISC/MAM - PRE-INIT FOR VERSION 3 ; 16 MAR 1993 9:20 AM
|
|---|
| 2 | ;;3.0; Surgery ;;24 Jun 93
|
|---|
| 3 | OUT ; delete output transforms no longer used
|
|---|
| 4 | K DIK,DA S DIK="^DD(130,.04,",DA=2,DA(1)=.04,DA(2)=130 D ^DIK
|
|---|
| 5 | K DIK,DA S DIK="^DD(130,.04,",DA=2.1,DA(1)=.04,DA(2)=130 D ^DIK
|
|---|
| 6 | HELP ; delete obsolete help frame nodes in DD's
|
|---|
| 7 | K DIK,DA S DIK="^DD(130,.165,",DA=22,DA(1)=.165,DA(2)=130 D ^DIK
|
|---|
| 8 | K DIK,DA
|
|---|
| 9 | NM ; delete DD's of sub-files with changed names
|
|---|
| 10 | 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
|
|---|
| 11 | K DIU,SRF
|
|---|
| 12 | XREF ; remove cross references
|
|---|
| 13 | K DIK,DA S DIK="^DD(130,.011,1,",DA=1,DA(1)=.011,DA(2)=130 D ^DIK
|
|---|
| 14 | K DIK,DA S DIK="^DD(130,.22,1,",DA=1,DA(1)=.22,DA(2)=130 D ^DIK
|
|---|
| 15 | K DIK,DA S DIK="^DD(130,.14,1,",DA=1,DA(1)=.14,DA(2)=130 D ^DIK
|
|---|
| 16 | K DIK,DA S DIK="^DD(130,.22,1,",DA=3,DA(1)=.22,DA(2)=130 D ^DIK
|
|---|
| 17 | K DIK,DA S DIK="^DD(130,.23,1,",DA=1,DA(1)=.23,DA(2)=130 D ^DIK
|
|---|
| 18 | K DIK,DA S DIK="^DD(130,27,1,",DA=1,DA(1)=27,DA(2)=130 D ^DIK
|
|---|
| 19 | K DIK,DA S DIK="^DD(130,26,1,",DA=1,DA(1)=26,DA(2)=130 D ^DIK K ^SRF("ASTBY"),^SRF("ATT")
|
|---|
| 20 | K DIK,DA S DIK="^DD(130,26,1,",DA=2,DA(1)=26,DA(2)=130 D ^DIK
|
|---|
| 21 | K DIK,DA S DIK="^DD(130,26,1,",DA=3,DA(1)=26,DA(2)=130 D ^DIK
|
|---|
| 22 | K DIK,DA S DIK="^DD(130,11,1,",DA=1,DA(1)=11,DA(2)=130 D ^DIK K ^SRF("A")
|
|---|
| 23 | K DIK,DA S DIK="^DD(130,11,1,",DA=2,DA(1)=11,DA(2)=130 D ^DIK K ^SRF("ASC")
|
|---|
| 24 | K DIK,DA S DIK="^DD(136.02,.01,1,",DA=1,DA(1)=.01,DA(2)=136.02 D ^DIK
|
|---|
| 25 | 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")
|
|---|
| 26 | K DIK,DA S DIK="^DD(130.16,.01,1,",DA=1,DA(1)=.01,DA(2)=130.16 D ^DIK
|
|---|
| 27 | K DIK,DA S DIK="^DD(130.47,.01,1,",DA=1,DA(1)=.01,DA(2)=130.47 D ^DIK
|
|---|
| 28 | K DIK,DA S DIK="^DD(131.7,.01,1,",DA=2,DA(1)=.01,DA(2)=131.7 D ^DIK
|
|---|
| 29 | 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
|
|---|
| 30 | Q
|
|---|
