source: WorldVistAEHR/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDEPRE.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1IBDEPRE ; ALB/ISC - PREINIT FOR USE BY IMP/EXP UTILITY ;AUG 13, 1993
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3 ;
4P D NOW^%DTC S IBDBDT("IBDE")=$H,DT=$$DT^XLFDT,Y=% W !!,"Initialization Started: " D DT^DIQ
5 ;
6 ;
7PRE W !!
8 ;
9USER 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 ;
13CHECK ;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 ;
29NO I '$D(DIFQ) W !,"INITIALIZATION ABORTED" K IBDBDT
30 K DIR,DIRUT,DUOUT
31 Q
32 ;
33FILES ;;^IBE(358)
34 ;;^IBE(358.1)
Note: See TracBrowser for help on using the repository browser.