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/XPDDPCK.m@ 1427

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1XPDDPCK ;SFISC/RSD - Display a Package file information ;10/03/96 10:15
2 ;;8.0;KERNEL;**44**;Jul 05, 1995
3EN1 ;print all Patches for Package version
4 N DIC,DIR,DIRUT,XPD,XPD0,XPDFL,XPDNM,XPDV,Y,Z
5 S DIC="^DIC(9.4,",DIC(0)="AEMQZ" D ^DIC Q:Y'>0
6 I '$D(^DIC(9.4,+Y,22,0)) W !!,"This Package has no VERSION multiple",! Q
7 S XPD0=+Y,DIC=DIC_XPD0_",22," S:$G(^DIC(9.4,XPD0,"VERSION")) DIC("B")=$P(^("VERSION"),U)
8 D ^DIC Q:Y'>0
9 S XPDV=+Y,DIR(0)="Y",DIR("A")="Do you want to see the Descriptions",DIR("B")="NO"
10 D ^DIR Q:$D(DIRUT)
11 S XPDFL=Y,X="PNT^XPDDPCK",Z="Package File Print"
12 F Y="XPD0","XPDFL","XPDV" S XPD(Y)=""
13 D EN^XUTMDEVQ(X,Z,.XPD)
14 Q
15 ;
16PNT ;print a package
17 N DIRUT,I,J,K,X,XPD,XPDDT,XPDI,XPDPG,XPDUL,XPDV0
18 Q:'$G(XPD0)!'$G(XPDV)!'$D(XPDFL)
19 Q:'$D(^DIC(9.4,XPD0,0)) S XPDNM=$P(^(0),U) Q:'$D(^(22,XPDV,0)) S XPDV0=^(0)
20 S XPDPG=1,$P(XPDUL,"-",IOM)="",XPDDT=$$HTE^XLFDT($H,"1PM")
21 W:$E(IOST,1,2)="C-" @IOF D HDR
22 W "VERSION: ",$P(XPDV0,U),?20,$$EXTERNAL^DILFD(9.49,2,"",$P(XPDV0,U,3)),?50,$$EXTERNAL^DILFD(9.49,3,"",$P(XPDV0,U,4))
23 ;diplay version description
24 I XPDFL W ! D DES("^DIC(9.4,"_XPD0_",22,"_XPDV_",1)") Q:$D(DIRUT)
25 W ! S XPDI=0
26 F S XPDI=$O(^DIC(9.4,XPD0,22,XPDV,"PAH",XPDI)) Q:'XPDI S XPD=$G(^(XPDI,0)) Q:$$CHK(4) D Q:$D(DIRUT)
27 .;patch history
28 .W !?3,$P(XPD,U),?20,$$EXTERNAL^DILFD(9.4901,.02,"",$P(XPD,U,2)),?50,$$EXTERNAL^DILFD(9.4901,.03,"",$P(XPD,U,3))
29 .I XPDFL W ! D DES("^DIC(9.4,"_XPD0_",22,"_XPDV_",""PAH"","_XPDI_",1)")
30 W ! Q
31 ;
32CHK(Y) ;Y=excess lines, return 1 to exit & DIRUT is set
33 Q:$Y<(IOSL-Y) 0
34 I $E(IOST,1,2)="C-" D Q:'Y 1
35 .N DIR,I,J,K,X
36 .S DIR(0)="E" D ^DIR
37 S XPDPG=XPDPG+1
38 W @IOF D HDR
39 Q 0
40 ;
41DES(XPDGR) ;display description, XPDGR=global root
42 N XPDI S XPDI=0
43 F S XPDI=$O(@XPDGR@(XPDI)) Q:'XPDI I $D(^(XPDI,0)) W ^(0),! Q:$$CHK(4)
44 Q
45 ;
46HDR W !,"PACKAGE: ",XPDNM," ",XPDDT,?70,"PAGE ",XPDPG,!,"PATCH #",?20,"INSTALLED",?50,"INSTALLED BY"
47 W:XPDFL !?5,"DESCRIPTION"
48 W !,XPDUL,!
49 Q
Note: See TracBrowser for help on using the repository browser.