ENXVIPR.m

ENXVIPR ;WIRMFO/SAB- PRE-INIT ;6/25/97

 ;;7.0;ENGINEERING;**39**;Aug 17, 1993

 N DA,DIK,ENI

 ; Delete STATION NUMBER field in CMR file to remove AH x-ref

 S DIK="^DD(6914.1,",DA=5,DA(1)=6914.1 D ^DIK K DA,DIK

 ; Kill obsolete AC x-ref in CMR file (#6914.1)

 K ^ENG(6914.1,"AC")

 ; delete DJ edit screens

 S DIK="^ENG(6910.9,"

 F ENI="ENEQ2","ENEQ2D","ENEQ3","ENEQ3D","ENEQNX2" D

 . S DA=$O(^ENG(6910.9,"B",ENI,0))

 . D:DA>0 ^DIK

 K DIK

 Q

 ;ENXVIPR

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENXVIPR   464     printed  Dec 13, 2024@01:57:08                                                                                                                                                                                                      Page 2

ENXVIPR   ;WIRMFO/SAB- PRE-INIT ;6/25/97

 +1       ;;7.0;ENGINEERING;**39**;Aug 17, 1993

 +2        NEW DA,DIK,ENI

 +3       ; Delete STATION NUMBER field in CMR file to remove AH x-ref

 +4        SET DIK="^DD(6914.1,"

           SET DA=5

           SET DA(1)=6914.1

           DO ^DIK

           KILL DA,DIK

 +5       ; Kill obsolete AC x-ref in CMR file (#6914.1)

 +6        KILL ^ENG(6914.1,"AC")

 +7       ; delete DJ edit screens

 +8        SET DIK="^ENG(6910.9,"

 +9        FOR ENI="ENEQ2","ENEQ2D","ENEQ3","ENEQ3D","ENEQNX2"

               Begin DoDot:1

 +10               SET DA=$ORDER(^ENG(6910.9,"B",ENI,0))

 +11               if DA>0

                       DO ^DIK

               End DoDot:1

 +12       KILL DIK

 +13       QUIT 

 +14      ;ENXVIPR