source: FOIAVistA/tag/r/SURGERY-SR/SROPRE0.m@ 1267

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