| [613] | 1 | ENXRIPS ;WISC/SAB-POST INIT ;9/24/96
|
|---|
| 2 | ;;7.0;ENGINEERING;**36**;Aug 17, 1993
|
|---|
| 3 | N DA,DIK,ENSN,ENX
|
|---|
| 4 | ;D MES^XPDUTL(" Performing Post-Init...")
|
|---|
| 5 | ; check for local field #.7 conflict
|
|---|
| 6 | I $$GET1^DID(6914.1,.7,"","GLOBAL SUBSCRIPT LOCATION","","ENX")="0;7" D
|
|---|
| 7 | . ;S FLDNAME=$$GET1^DID(6914.1,.7,"","LABEL","","ENX")
|
|---|
| 8 | . D MES^XPDUTL(" Removing field #.7 from file #6914.1 due to global conflict...")
|
|---|
| 9 | . S DIK="^DD(6914.1,",DA=.7,DA(1)=6914.1 D ^DIK K DA,DIK
|
|---|
| 10 | ; check for improper entires in 0;7
|
|---|
| 11 | S DA=0 F S DA=$O(^ENG(6914.1,DA)) Q:'DA D
|
|---|
| 12 | . S ENSN=$P($G(^ENG(6914.1,DA,0)),U,7)
|
|---|
| 13 | . 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)_".")
|
|---|
| 14 | ;D MES^XPDUTL(" Completed Post-Init")
|
|---|
| 15 | Q
|
|---|
| 16 | ;ENXRIPS
|
|---|
