|
Last change
on this file since 949 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
796 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
