source: IHS-VA_UTILITIES-XB/trunk/XBENHANC.m@ 1467

Last change on this file since 1467 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 1.5 KB
RevLine 
[641]1XBENHANC ; 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 ;
8EN(XB) ;PEP - XB = Namespace of package to print enhancements.
9 Q:'($G(XB)]"")
10 D HOME^%ZIS,DT^DICRW
11DEV ;
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
21K ;
22 KILL ZTSK
23 D ^%ZISC
24 Q
25 ;
26START ;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 ;
45DIWP(X) ;
46 NEW %,A,B
47 D ^DIWP
48 Q
49 ;
50TOF ;
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 ;
Note: See TracBrowser for help on using the repository browser.