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

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

initial load of FOIAVistA 6/30/08 version

File size: 3.8 KB
Line 
1XPDDI ;SFISC/RSD - Display an Install ; 29 Feb 96 13:10
2 ;;8.0;KERNEL;**21**;Jul 10, 1995
3EN1 ;print from Install file
4 N DIC,D0,XPD,Y,Z
5 S DIC="^XPD(9.7,",DIC(0)="AEMQZ" D ^DIC Q:Y'>0
6 S D0=+Y,XPD("D0")="",Y="PNT^XPDDI",Z="Install File Print"
7 D EN^XUTMDEVQ(Y,Z,.XPD)
8 Q
9 ;
10PNT ;print a package
11 N X,XPD,XPDDT,XPDI,XPDJ,XPD0,XPDPG,XPDQ,XPDUL
12 Q:'$D(^XPD(9.7,D0,0)) S XPD0=^(0),XPDJ=$G(^(1)),XPDPG=1,$P(XPDUL,"-",IOM)="",XPDDT=$$HTE^XLFDT($H,"1PM")
13 W:$E(IOST,1,2)="C-" @IOF D HDR
14 W "STATUS: ",$$EXTERNAL^DILFD(9.7,.02,"",$P(XPD0,U,9)),?42,"DATE LOADED: ",$$EXTERNAL^DILFD(9.7,2,"",$P(XPD0,U,3))
15 W !,"INSTALLED BY: ",$$EXTERNAL^DILFD(9.7,9,"",$P(XPD0,U,11))
16 W !,"NATIONAL PACKAGE: ",$$EXTERNAL^DILFD(9.7,1,"",$P(XPD0,U,2))
17 W !!,"INSTALL STARTED: ",$$EXTERNAL^DILFD(9.7,11,"",$P(XPDJ,U))
18 W:$P(XPDJ,U,3) ?45,$P($$EXTERNAL^DILFD(9.7,17,"",$P(XPDJ,U,3)),"@",2),?65,$$DIFF($P(XPDJ,U,3),$P(XPDJ,U))
19 ;XPD is start date/time
20 S XPD=+$P(XPDJ,U)
21 W !!,"ROUTINES:",?45,$P($$EXTERNAL^DILFD(9.7,12,"",$P(XPDJ,U,2)),"@",2),?65,$$DIFF($P(XPDJ,U,2),XPD),!
22 ;XPD is the last complete time, it is also the next start time
23 S XPDQ=0 S:$P(XPDJ,U,2) XPD=$P(XPDJ,U,2)
24 I $O(^XPD(9.7,D0,"INI",1)) D
25 .W !,"PRE-INIT CHECK POINTS:",! S XPDI=1
26 .F S XPDI=$O(^XPD(9.7,D0,"INI",XPDI)) Q:'XPDI S X=^(XPDI,0) D Q:XPDQ
27 ..W $P(X,U),?45,$P($$EXTERNAL^DILFD(9.713,1,"",$P(X,U,2)),"@",2),?65,$$DIFF($P(X,U,2),XPD),!
28 ..S XPDQ=$$CHK(4)
29 .Q:XPDQ S X=^XPD(9.7,D0,"INI",1,0)
30 .W $P(X,U),?45,$P($$EXTERNAL^DILFD(9.713,1,"",$P(X,U,2)),"@",2),?65,$$DIFF($P(X,U,2),XPD),!
31 .S XPDQ=$$CHK(4)
32 Q:XPDQ
33 I $O(^XPD(9.7,D0,4,0)) D
34 .W !,"FILES:",! S XPDI=0
35 .F S XPDI=$O(^XPD(9.7,D0,4,XPDI)) Q:'XPDI S X=^(XPDI,0) D Q:XPDQ
36 ..W $P($G(^DIC(+$P(X,U),0)),U),?45,$P($$EXTERNAL^DILFD(9.714,1,"",$P(X,U,2)),"@",2),?65,$$DIFF($P(X,U,2),XPD),!
37 ..S XPDQ=$$CHK(4)
38 Q:XPDQ
39 I $O(^XPD(9.7,D0,"KRN","AC",0)) D
40 .W ! S XPDI=0
41 .F S XPDI=$O(^XPD(9.7,D0,"KRN","AC",XPDI)) Q:'XPDI S XPDJ=$O(^(XPDI,0)) D Q:XPDQ
42 ..Q:'$D(^XPD(9.7,D0,"KRN",XPDJ,0)) S X=^(0)
43 ..Q:'$D(^DIC(XPDJ,0))#2 W $P(^(0),U)
44 ..W ?45,$P($$EXTERNAL^DILFD(9.715,1,"",$P(X,U,2)),"@",2),?65,$$DIFF($P(X,U,2),XPD),!
45 ..S XPDQ=$$CHK(4)
46 Q:XPDQ
47 I $O(^XPD(9.7,D0,"GLO",0)) D
48 .W !,"GLOBALS:",! S XPDI=0
49 .F S XPDI=$O(^XPD(9.7,D0,"GLO",XPDI)) Q:'XPDI S X=^(XPDI,0) D Q:XPDQ
50 ..W $P(X,U),?45,$P($$EXTERNAL^DILFD(9.718,1,"",$P(X,U,2)),"@",2),?65,$$DIFF($P(X,U,2),XPD),!
51 ..S XPDQ=$$CHK(4)
52 Q:XPDQ
53 I $O(^XPD(9.7,D0,"INIT",1)) D
54 .W !,"POST-INIT CHECK POINTS:",! S XPDI=1
55 .F S XPDI=$O(^XPD(9.7,D0,"INIT",XPDI)) Q:'XPDI S X=^(XPDI,0) D Q:XPDQ
56 ..W $P(X,U),?45,$P($$EXTERNAL^DILFD(9.716,1,"",$P(X,U,2)),"@",2),?65,$$DIFF($P(X,U,2),XPD),!
57 ..S XPDQ=$$CHK(4)
58 .Q:XPDQ S X=^XPD(9.7,D0,"INIT",1,0)
59 .W $P(X,U),?45,$P($$EXTERNAL^DILFD(9.716,1,"",$P(X,U,2)),"@",2),?65,$$DIFF($P(X,U,2),XPD),!
60 .S XPDQ=$$CHK(4)
61 I $O(^XPD(9.7,D0,"VOL",0)) D
62 .W !,"OTHER CPUs:",! S XPDI=0
63 .F S XPDI=$O(^XPD(9.7,D0,"VOL",XPDI)) Q:'XPDI S X=^(XPDI,0) D Q:XPDQ
64 ..W $P(X,U)," STARTED ",$P($$EXTERNAL^DILFD(9.703,2,"",$P(X,U,3)),"@",2)
65 ..W ?45,$P($$EXTERNAL^DILFD(9.703,1,"",$P(X,U,2)),"@",2),?65,$$DIFF($P(X,U,2),$P(X,U,3)),!
66 ..S XPDQ=$$CHK(4)
67 Q:XPDQ
68 I $O(^XPD(9.7,D0,"QUES",0)) D
69 .W !,"INSTALL QUESTION PROMPT",?70,"ANSWER",! S XPDI=0
70 .F S XPDI=$O(^XPD(9.7,D0,"QUES",XPDI)) Q:'XPDI S X=$P(^(XPDI,0),U),XPD=$G(^("A")),XPDJ=$G(^("B")) D Q:XPDQ
71 ..W !,X," ",XPD,?70,XPDJ
72 ..S XPDQ=$$CHK(4)
73 Q:XPDQ
74 W !,"MESSAGES:",!
75 S XPDI=0
76 F S XPDI=$O(^XPD(9.7,D0,"MES",XPDI)) Q:'XPDI I $D(^(XPDI,0)) W ^(0),! S XPDQ=$$CHK(4) Q:XPDQ
77 Q
78 ;
79CHK(Y) ;Y=excess lines, return 1 to exit
80 Q:$Y<(IOSL-Y) 0
81 I $E(IOST,1,2)="C-" D Q:'Y 1
82 .N DIR,I,J,K,X
83 .S DIR(0)="E" D ^DIR
84 S XPDPG=XPDPG+1
85 W @IOF D HDR
86 Q 0
87 ;
88DIFF(X,Y) ;returns diff of X-Y
89 I 'X Q ""
90 S XPD=X
91 Q $$FMDIFF^XLFDT(X,Y,3)
92 ;
93HDR W !,"PACKAGE: ",$P(XPD0,U)," ",XPDDT,?70,"PAGE ",XPDPG,!,?45,"COMPLETED",?65,"ELAPSED",!,XPDUL,!
94 Q
Note: See TracBrowser for help on using the repository browser.