ENX7IPR ;WIRMFO/DH-PRE-INIT ;9.29.98
;;7.0;ENGINEERING;**55**;Aug 17, 1993
; delete old DJ edit screens - will be reloaded
N DA,DIK,ENI
S DIK="^ENG(6910.9,"
F ENI="ENEQ2","ENEQ2D","ENEQNX2" D
. S DA=$O(^ENG(6910.9,"B",ENI,0))
. D:DA>0 ^DIK
; need to delete x-refs at test sites
S DIK="^DD(6914,",DA=78,DA(1)=6914 D ^DIK
I $D(^DD(6914,82)) D
. S DA=82,DA(1)=6914
. D ^DIK
Q
;ENX7IPR
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENX7IPR 411 printed Dec 13, 2024@01:56:39 Page 2
ENX7IPR ;WIRMFO/DH-PRE-INIT ;9.29.98
+1 ;;7.0;ENGINEERING;**55**;Aug 17, 1993
+2 ; delete old DJ edit screens - will be reloaded
+3 NEW DA,DIK,ENI
+4 SET DIK="^ENG(6910.9,"
+5 FOR ENI="ENEQ2","ENEQ2D","ENEQNX2"
Begin DoDot:1
+6 SET DA=$ORDER(^ENG(6910.9,"B",ENI,0))
+7 if DA>0
DO ^DIK
End DoDot:1
+8 ; need to delete x-refs at test sites
+9 SET DIK="^DD(6914,"
SET DA=78
SET DA(1)=6914
DO ^DIK
+10 IF $DATA(^DD(6914,82))
Begin DoDot:1
+11 SET DA=82
SET DA(1)=6914
+12 DO ^DIK
End DoDot:1
+13 QUIT
+14 ;ENX7IPR
