- 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 ---[H[J[2J[HENXRIPS 785 printed Mar 13, 2025@21:01:44 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
