source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XPDID.m@ 701

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1XPDID ;SFISC/VYD,RSD - Display Install Progress ;05/14/98 10:29
2 ;;8.0;KERNEL;**81**;Jul 10, 1995
3 ;;
4 Q
5INIT ;initialize progress screen
6 N X,XPDSTR
7 I IO'=IO(0)!(IOST'["C-VT") S XPDIDVT=0 Q
8 I $T(PREP^XGF)="" S XPDIDVT=0 Q
9 ;S X="XGF" X ^%ZOSF("TEST") E S XPDIDVT=0 Q
10 D PREP^XGF
11 S XPDIDVT=1,X="IOSTBM",XPDSTR=" 25 50 75 "
12 D ENDR^%ZISS
13 S IOTM=3,IOBM=IOSL-4
14 W @IOSTBM
15 D FRAME^XGF(IOTM-2,0,IOTM-2,IOM-1)
16 D FRAME^XGF(IOBM,0,IOBM,IOM-1)
17 D FRAME^XGF(IOBM+1,10,IOBM+3,71)
18 D SAY^XGF(IOBM+2,11,XPDSTR)
19 D SAY^XGF(IOBM+2,0,$J("0",5)_"%")
20 D SAY^XGF(IOBM+3,0,"Complete")
21 D IOXY^XGF(IOTM-2,0)
22 Q
23 ;
24EXIT(XPDM) ;exit progress screen restore screen to normal
25 I $G(XPDIDVT) D
26 .S IOTM=1,IOBM=IOSL
27 .W @IOSTBM,@IOF
28 .W:$G(XPDM)]"" !!,XPDM,!!
29 .D CLEAN^XGF
30 K IOTM,IOBM,IOSTBM,XPDIDCNT,XPDIDMOD,XPDIDTOT,XPDIDVT
31 Q
32 ;
33TITLE(X) ;display title X
34 Q:'XPDIDVT
35 N XPDOX,XPDOY
36 S XPDOX=$X,XPDOY=$Y
37 D SAY^XGF(0,0,$$CJ^XLFSTR(X,IOM_"T")),CURSOR
38 Q
39 ;
40SETTOT(X) ;X=file # from build
41 Q:'$D(XPDIDVT)
42 S XPDIDTOT=$S(X=4:+$P($G(^XTMP("XPDI",XPDA,"BLD",XPDBLD,4,0)),U,4),X=9.8:+$G(^XTMP("XPDI",XPDA,"RTN")),1:+$P($G(^XTMP("XPDI",XPDA,"BLD",XPDBLD,"KRN",X,"NM",0)),U,4))
43 S XPDIDMOD=$S(XPDIDTOT<60:1,1:XPDIDTOT\60),XPDIDCNT=0
44 Q:'XPDIDVT
45 D UPDATE(0)
46 Q
47 ;
48UPDATE(XPDN) ;update the progress bar
49 I 'XPDIDVT W "." Q
50 N XPDLEN,XPDMC,XPDOX,XPDOY,XPDS,XPDSTR
51 S XPDOX=$X,XPDOY=$Y,XPDMC=60,XPDSTR=" 25 50 75 "
52 S XPDLEN=$S(XPDIDTOT:XPDN/XPDIDTOT*XPDMC\1,1:0),XPDS=$E(XPDSTR,1,XPDLEN)
53 D SAY^XGF(IOBM+2,11,XPDS,"R1")
54 S XPDS=$E(XPDSTR,XPDLEN+1,XPDMC)
55 D SAY^XGF(IOBM+2,11+XPDLEN,XPDS)
56 D SAY^XGF(IOBM+2,0,$J(XPDLEN/XPDMC*100,5,0)),CURSOR
57 Q
58 ;
59CURSOR ;put cursor back
60 S:XPDOY>(IOBM-1) XPDOY=IOBM-1
61 D IOXY^XGF(XPDOY,XPDOX)
62 Q
Note: See TracBrowser for help on using the repository browser.