Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
1.1 KB
|
Rev | Line | |
---|
[628] | 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.