Last change
on this file since 1005 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
796 bytes
|
Line | |
---|
1 | A1B2PRE ;ALB/MJK - ODS PRE-INIT Version 1.5; 14 JAN 1991
|
---|
2 | ;;Version 1.55 (local for MAS v5 sites);;
|
---|
3 | ;
|
---|
4 | EN ; -- pre-init entry point
|
---|
5 | D REL,DD:$D(DIFQ)
|
---|
6 | Q
|
---|
7 | ;
|
---|
8 | REL ; -- 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
|
---|
13 | RELQ K A1B2PKG Q
|
---|
14 | ;
|
---|
15 | MES ; -- 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 | ;
|
---|
20 | DD ; -- 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.