| 1 | XPDDPCK ;SFISC/RSD - Display a Package file information ;10/03/96 10:15
|
|---|
| 2 | ;;8.0;KERNEL;**44**;Jul 05, 1995
|
|---|
| 3 | EN1 ;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 | ;
|
|---|
| 16 | PNT ;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 | ;
|
|---|
| 32 | CHK(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 | ;
|
|---|
| 41 | DES(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 | ;
|
|---|
| 46 | HDR W !,"PACKAGE: ",XPDNM," ",XPDDT,?70,"PAGE ",XPDPG,!,"PATCH #",?20,"INSTALLED",?50,"INSTALLED BY"
|
|---|
| 47 | W:XPDFL !?5,"DESCRIPTION"
|
|---|
| 48 | W !,XPDUL,!
|
|---|
| 49 | Q
|
|---|
