Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.1 KB
|
Line | |
---|
1 | IBDEPRE ; ALB/ISC - PREINIT FOR USE BY IMP/EXP UTILITY ;AUG 13, 1993
|
---|
2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
---|
3 | ;
|
---|
4 | P D NOW^%DTC S IBDBDT("IBDE")=$H,DT=$$DT^XLFDT,Y=% W !!,"Initialization Started: " D DT^DIQ
|
---|
5 | ;
|
---|
6 | ;
|
---|
7 | PRE W !!
|
---|
8 | ;
|
---|
9 | USER I $S('($D(DUZ)#2):1,'$D(^VA(200,+DUZ,0)):1,'$D(DUZ(0)):1,DUZ(0)'="@":1,1:0) W !!?3,"The variable DUZ must be set to an active user code and the variable",!?3,"DUZ(0) must equal '@' to initialize.",! K DIFQ G NO
|
---|
10 | ;
|
---|
11 | Q:'$D(DIFQ)
|
---|
12 | ;
|
---|
13 | CHECK ;checks if there is anything in the workspace
|
---|
14 | N COUNT,FILE,QUIT
|
---|
15 | S (QUIT,COUNT)=0
|
---|
16 | F S FILE=$P($T(FILES+COUNT),";;",2) Q:QUIT!(FILE="") D Q:QUIT
|
---|
17 | .S COUNT=COUNT+1
|
---|
18 | .I $O(@FILE@(0)) D
|
---|
19 | ..K DIR S DIR(0)="Y",DIR("B")="YES"
|
---|
20 | ..W !,"Please check your work space from the import/export utility option.",!!,"These INITS require that your work space be clear, currently it is not.",!,"Would you like to clear the work space now?"
|
---|
21 | ..D ^DIR
|
---|
22 | ..I $D(DIRUT)!(Y=0) K DIFQ
|
---|
23 | ..S QUIT=1
|
---|
24 | ;
|
---|
25 | I '$D(DIFQ) W !,"INITIALIZATION ABORTED" K IBDBDT
|
---|
26 | K DIR,DIRUT,DUOUT
|
---|
27 | Q
|
---|
28 | ;
|
---|
29 | NO I '$D(DIFQ) W !,"INITIALIZATION ABORTED" K IBDBDT
|
---|
30 | K DIR,DIRUT,DUOUT
|
---|
31 | Q
|
---|
32 | ;
|
---|
33 | FILES ;;^IBE(358)
|
---|
34 | ;;^IBE(358.1)
|
---|
Note:
See
TracBrowser
for help on using the repository browser.