source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENXRIPS.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 769 bytes
Line 
1ENXRIPS ;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
Note: See TracBrowser for help on using the repository browser.