ENXRIPS.m

ENXRIPS ;WISC/SAB-POST INIT ;9/24/96

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

 N DA,DIK,ENSN,ENX

 ;D MES^XPDUTL("  Performing Post-Init...")

 ; check for local field #.7 conflict

 I $$GET1^DID(6914.1,.7,"","GLOBAL SUBSCRIPT LOCATION","","ENX")="0;7" D

 . ;S FLDNAME=$$GET1^DID(6914.1,.7,"","LABEL","","ENX")

 . D MES^XPDUTL("    Removing field #.7 from file #6914.1 due to global conflict...")

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

 ; check for improper entires in 0;7

 S DA=0 F  S DA=$O(^ENG(6914.1,DA)) Q:'DA  D

 . S ENSN=$P($G(^ENG(6914.1,DA,0)),U,7)

 . I ENSN]"",ENSN'?3N.2NU S $P(^ENG(6914.1,DA,0),U,7)="" D MES^XPDUTL("     Spurious data for Station Number removed from CMR "_$P(^(0),U)_".")

 ;D MES^XPDUTL("  Completed Post-Init")

 Q

 ;ENXRIPS

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENXRIPS   785     printed  Apr 09, 2024@21:02:17                                                                                                                                                                                                      Page 2

ENXRIPS   ;WISC/SAB-POST INIT ;9/24/96

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

 +2        NEW DA,DIK,ENSN,ENX

 +3       ;D MES^XPDUTL("  Performing Post-Init...")

 +4       ; check for local field #.7 conflict

 +5        IF $$GET1^DID(6914.1,.7,"","GLOBAL SUBSCRIPT LOCATION","","ENX")="0;7"

               Begin DoDot:1

 +6       ;S FLDNAME=$$GET1^DID(6914.1,.7,"","LABEL","","ENX")

 +7                DO MES^XPDUTL("    Removing field #.7 from file #6914.1 due to global conflict...")

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

                   SET DA=.7

                   SET DA(1)=6914.1

                   DO ^DIK

                   KILL DA,DIK

               End DoDot:1

 +9       ; check for improper entires in 0;7

 +10       SET DA=0

           FOR 

               SET DA=$ORDER(^ENG(6914.1,DA))

               if 'DA

                   QUIT 

               Begin DoDot:1

 +11               SET ENSN=$PIECE($GET(^ENG(6914.1,DA,0)),U,7)

 +12               IF ENSN]""

                       IF ENSN'?3N.2NU

                           SET $PIECE(^ENG(6914.1,DA,0),U,7)=""

                           DO MES^XPDUTL("     Spurious data for Station Number removed from CMR "_$PIECE(^(0),U)_".")

               End DoDot:1

 +13      ;D MES^XPDUTL("  Completed Post-Init")

 +14       QUIT 

 +15      ;ENXRIPS