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 Dec 13, 2024@01:57:04 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
