ENX7IPR.m

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 ---ENX7IPR   411     printed  Apr 09, 2024@20:59:38                                                                                                                                                                                                      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