| 1 | XQ31 ;SEA/AMF - MENU MANAGEMENT REPORTS ;09/30/94 10:07
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | W !!,"This option lists options by parents, as well as running several other menu",!,"management utilities. It can be run for one option, one package or all."
|
|---|
| 4 | PKG R !!,"Select PACKAGE/OPTION name: ALL// ",X:DTIME S:'$T X=U S DIC=9.4,DIC(0)="EMZ" Q:X[U S:'$L(X) X="ALL"
|
|---|
| 5 | I X="ALL" S XQS="@z",XQE="zzz" G PRNT
|
|---|
| 6 | D ^DIC I Y>0 S XQS=$P(Y(0),U,2),XQE=XQS_"zzz" G PRNT
|
|---|
| 7 | S DIC=19,DIC(0)="QEMZ" D ^DIC G:Y<0 PKG S XQE=$P(Y(0),U,1),XQS=$E(XQE,1,$L(XQE)-1)_$C($A($E(XQE,$L(XQE)))-1)_"zzz"
|
|---|
| 8 | ;
|
|---|
| 9 | PRNT ;
|
|---|
| 10 | S %ZIS="MQ" D ^%ZIS G:POP OUT I $D(IO("Q")) K IO("Q") S ZTRTN="DQ1^XQ31",ZTDESC="DISPLAY PARENTS AND USES OF OPTIONS",ZTSAVE("XQS")="",ZTSAVE("XQE")="" D ^%ZTLOAD K ZTSK G OUT
|
|---|
| 11 | ;
|
|---|
| 12 | DQ1 ; Entry point to list option parents and uses as a queued job
|
|---|
| 13 | K XQHDR S XQHDR(1)="CROSS REFERENCE OF OPTIONS BY PARENTS",XQHDR(2)="OPTION PARENTS TASKED JOB, PRIMARY",XQHDR(3)=" OR SECONDARY MENU"
|
|---|
| 14 | S XQENT=1,$P(XQDSH,"-",132)="-" K ^TMP($J) U IO
|
|---|
| 15 | S XQP=1 D HDR,LP
|
|---|
| 16 | OUT D ^%ZISC K XQUI,XQJ,XQS,XQE,XQK,XQLEN,XQNM,XQI,I,J,K,C,L,DIC,POP,X,XQDSH,XQENT,XQHDR,XQP,Y,ZISI,ZTDTH,ZTSAVE,ZTRTN,ZTDESC,%A1,S,XQFL
|
|---|
| 17 | Q
|
|---|
| 18 | LP S XQUI=0,XQJ=XQS F S XQJ=$O(^DIC(19,"B",XQJ)) Q:XQJ=""!XQUI!(XQJ]XQE) D LP1
|
|---|
| 19 | Q
|
|---|
| 20 | LP1 S XQI=0 F S XQI=$O(^DIC(19,"B",XQJ,XQI)) Q:XQI'>0!XQUI D LP2
|
|---|
| 21 | Q
|
|---|
| 22 | LP2 S XQFL="" D:$Y+3>IOSL&XQENT NWPG Q:XQUI W:XQENT !,XQJ,?31 I '$D(^DIC(19,"AD",XQI)) W:XQENT "** no parents **" G PRI
|
|---|
| 23 | K XQFL S (XQK,XQLEN,XQNM)=0
|
|---|
| 24 | I XQENT F S XQK=$O(^DIC(19,"AD",XQI,XQK)) Q:XQK'>0 I $D(^DIC(19,XQK,0)) S L=$P(^DIC(19,XQK,0),U,1) S:XQLEN+$L(L)+2>34 XQLEN=0 W:'XQLEN&XQNM !?31 W:XQNM&XQLEN ", " W $P(^DIC(19,XQK,0),U,1) S XQLEN=XQLEN+$L(L)+2,XQNM=XQNM+1
|
|---|
| 25 | PRI ;
|
|---|
| 26 | I $D(^VA(200,"AP",XQI)) W:XQENT ?65,"-P-" K XQFL
|
|---|
| 27 | I $D(^VA(200,"AD",XQI)) W:XQENT ?70,"-S-" K XQFL
|
|---|
| 28 | I $D(^DIC(19.2,"B",XQI)) D ;Check Schedule file
|
|---|
| 29 | . N % S %=$O(^DIC(19.2,"B",XQI,0)) Q:%'>0
|
|---|
| 30 | . S %=$G(^DIC(19.2,%,0)) I $P(%,U,2)!$L($P(%,U,7)) W:XQENT ?75,"-T-" K XQFL
|
|---|
| 31 | I $D(XQFL) S ^TMP($J,XQI)=""
|
|---|
| 32 | Q
|
|---|
| 33 | NWPG I $E(IOST,1)="C" D CON S XQUI=(X="^") Q:XQUI
|
|---|
| 34 | D HDR Q
|
|---|
| 35 | CON W !!,"Press return to continue or '^' to escape " R X:DTIME S:'$T X=U
|
|---|
| 36 | Q
|
|---|
| 37 | HDR W @IOF,!,XQHDR(1),?70,"PAGE ",XQP S XQP=XQP+1
|
|---|
| 38 | W:$D(XQHDR(2)) !!,XQHDR(2) W:$D(XQHDR(3)) !,XQHDR(3)
|
|---|
| 39 | W !,$E(XQDSH,1,IOM-1)
|
|---|
| 40 | Q
|
|---|
