source: FOIAVistA/trunk/r/OPERATIONS_WITH_DESERT_STORM-A1B2/A1B2PRE.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 796 bytes
Line 
1A1B2PRE ;ALB/MJK - ODS PRE-INIT Version 1.5; 14 JAN 1991
2 ;;Version 1.55 (local for MAS v5 sites);;
3 ;
4EN ; -- pre-init entry point
5 D REL,DD:$D(DIFQ)
6 Q
7 ;
8REL ; -- check if version 1 was loaded
9 ;
10 F A1B2PKG=0:0 S A1B2PKG=+$O(^DIC(9.4,"C","A1B2",A1B2PKG)) Q:'A1B2PKG I $D(^DIC(9.4,A1B2PKG,0)),$P(^(0),U)="OPERATION DESERT SHIELD" Q
11 I '$D(^DIC(9.4,A1B2PKG,0)) D MES G RELQ
12 I $S('$D(^DIC(9.4,A1B2PKG,"VERSION")):1,1:+^("VERSION")<1) D MES G RELQ
13RELQ K A1B2PKG Q
14 ;
15MES ; -- error message
16 W !!,*7,"You must load version 1 of 'OPERATION DESERT SHIELD' package first."
17 W !!,"Initialization aborted." K DIFQ
18 Q
19 ;
20DD ; -- del 11500.2
21 W !,">>> Deleting ODS ADMISSIONS file data dictionary..."
22 S DIU=11500.2,DIU(0)="" D EN^DIU2 K DIU
23 W !," Data dictionary will be restored by inits."
24 Q
25 ;
Note: See TracBrowser for help on using the repository browser.