| 1 | XBENHANC ; IHS/ADC/GTH - DISPLAY/PRINT ENHANCEMENTS FIELD IN PACKAGE FILE ; [ 02/07/97 3:02 PM ]
|
|---|
| 2 | ;;4.0;XB;;Jul 20, 2009;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | ; Print enhancements to a package, from the entry in the
|
|---|
| 5 | ; PACKAGE file. Entry point EN^XBENHANC(ns) is used, with
|
|---|
| 6 | ; the caller providing the namespace of the package.
|
|---|
| 7 | ;
|
|---|
| 8 | EN(XB) ;PEP - XB = Namespace of package to print enhancements.
|
|---|
| 9 | Q:'($G(XB)]"")
|
|---|
| 10 | D HOME^%ZIS,DT^DICRW
|
|---|
| 11 | DEV ;
|
|---|
| 12 | S %ZIS="OPQ"
|
|---|
| 13 | D ^%ZIS
|
|---|
| 14 | I POP S IOP=$I D ^%ZIS G K
|
|---|
| 15 | G:'$D(IO("Q")) START
|
|---|
| 16 | KILL IO("Q")
|
|---|
| 17 | I $D(IO("S"))!($E(IOST)'="P") W *7,!,"Please queue to system printers." D ^%ZISC G DEV
|
|---|
| 18 | S ZTRTN="START^XBENHANC",ZTDESC=$P($P($T(XBENHANC),"-",2),";",2),ZTIO=ION_";"_IOST_";"_IOM_";"_IOSL,ZTSAVE("XB")=""
|
|---|
| 19 | D ^%ZTLOAD
|
|---|
| 20 | G:'$D(ZTSK) DEV
|
|---|
| 21 | K ;
|
|---|
| 22 | KILL ZTSK
|
|---|
| 23 | D ^%ZISC
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | START ;EP - TaskMan.
|
|---|
| 27 | NEW A,B,DIRUT,DIWL,DIWR,DIWF,XBHDR,XBPG
|
|---|
| 28 | S A=$O(^DIC(9.4,"C",XB,0))
|
|---|
| 29 | Q:'A
|
|---|
| 30 | Q:'$D(^DIC(9.4,A,"VERSION"))
|
|---|
| 31 | S B=$O(^DIC(9.4,A,22,"B",^DIC(9.4,A,"VERSION"),0))
|
|---|
| 32 | Q:'B
|
|---|
| 33 | S XBHDR="Enhancements to "_$P(^DIC(9.4,A,0),U)_", Version "_^DIC(9.4,A,"VERSION")
|
|---|
| 34 | KILL ^UTILITY($J,"W")
|
|---|
| 35 | S DIWL=5,DIWR=IOM-6,DIWF="W"
|
|---|
| 36 | U IO
|
|---|
| 37 | D TOF
|
|---|
| 38 | S %=0
|
|---|
| 39 | F S %=$O(^DIC(9.4,A,22,B,1,%)) Q:'% D DIWP(^(%,0)),TOF:$Y>(IOSL-6) Q:$D(DIRUT)
|
|---|
| 40 | D:'$D(DIRUT) ^DIWW
|
|---|
| 41 | KILL ^UTILITY($J,"W")
|
|---|
| 42 | D ^%ZISC
|
|---|
| 43 | Q
|
|---|
| 44 | ;
|
|---|
| 45 | DIWP(X) ;
|
|---|
| 46 | NEW %,A,B
|
|---|
| 47 | D ^DIWP
|
|---|
| 48 | Q
|
|---|
| 49 | ;
|
|---|
| 50 | TOF ;
|
|---|
| 51 | NEW %,A,B
|
|---|
| 52 | S XBPG=$G(XBPG)+1
|
|---|
| 53 | W !!
|
|---|
| 54 | I '$D(ZTQUEUED),'$D(IO("S")),IO=IO(0),$$DIR^XBDIR("E")
|
|---|
| 55 | Q:$D(DIRUT)
|
|---|
| 56 | W @IOF,!!,?DIWL-1,XBHDR,?(DIWR-$L("Page "_XBPG)-1),"Page ",XBPG,!?DIWL-1,$$REPEAT^XLFSTR("-",DIWR-DIWL),!!
|
|---|
| 57 | Q
|
|---|
| 58 | ;
|
|---|
