| [613] | 1 | XQH5 ;SEA/AMF,JLI - HELP FRAME LISTER (CONTIN. XQH4) ;1/22/93 11:04 ;
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | LIST ;
|
|---|
| 4 | U IO
|
|---|
| 5 | S XQHDR=$P(^TMP($J,"XQM","TOC",1),U,2),XQJ=^DIC(9.2,XQHDR,0),XQHDR=$P(XQJ,U,2) S:XQFMT=1 XQHDR=XQHDR_" ["_$P(XQJ,U,1)_"]"
|
|---|
| 6 | S XQPG=0,XQPG(0)="" D HDR S (XQTB,XQTB(0))=0,XQJ=1 F XQI=1:1 Q:'$D(^TMP($J,"XQM","TOC",XQI))!XQUI D TOC
|
|---|
| 7 | I 'XQUI F XQPG=1:1 Q:'$D(^TMP($J,"XQM","PG",XQPG)) S XQPG(0)="" D NWPG Q:XQUI S XQHY=^(XQPG) D TEXT I XQFMT>-1 D:'XQUI KEYW
|
|---|
| 8 | Q
|
|---|
| 9 | TOC D:$Y+4>IOSL NWPG Q:XQUI S XQSTR=^TMP($J,"XQM","TOC",XQI) S XQK=+XQSTR-XQJ,X=+XQSTR-1 S:X<0 X=0 S:XQK<0 XQTB=XQTB(X) S:XQK>0 XQTB=XQTB+(X*2),XQTB(X)=XQTB
|
|---|
| 10 | S XQJ=+XQSTR I XQK<0 F XQN=1:1:-XQK K XQJ(XQJ+XQN)
|
|---|
| 11 | S XQJ(XQJ)=$S('$D(XQJ(XQJ)):1,1:XQJ(XQJ)+1) W ! F XQN=1:1:XQJ-1 W XQJ(XQN),"."
|
|---|
| 12 | W $S(XQJ>0:XQJ(XQJ),1:" ")," " S XQII=$S($X<20:20,1:$X),XQN=^DIC(9.2,$P(XQSTR,U,2),0)
|
|---|
| 13 | S XQIJ=$P(XQN,U,2),XQIL=IOM-6-XQII,XQIJ=$S($L(XQIJ)'>XQIL:XQIJ,1:$E(XQIJ,1,XQIL)) W:$X<20 ?20 W XQIJ," ",$E(XQDOT,1,XQIL-$L(XQIJ)),?(IOM-4),$J(^TMP($J,"XQM",$P(XQSTR,U,2)),3) W:XQFMT=1 !?XQII," [",$P(XQN,U,1),"]" W !
|
|---|
| 14 | Q
|
|---|
| 15 | TEXT ;
|
|---|
| 16 | S XQI=^DIC(9.2,XQHY,0),XQI=$P(XQI,U,2)_$S((XQFMT>0):" ["_$P(XQI,U,1)_"]",1:"") W !?(80-$L(XQI)\2),XQI,!?(80-$L(XQI)\2),$E(XQDSH,1,$L(XQI)),!
|
|---|
| 17 | S XQX=.002,XQPG(0)="a" F XQI=1:1 S XQX=$O(^DIC(9.2,XQHY,1,XQX)) Q:XQX="" D:($Y+4)>IOSL NWPG Q:XQUI W !,^(XQX,0)
|
|---|
| 18 | W ! Q
|
|---|
| 19 | KEYW ;
|
|---|
| 20 | Q:'$D(^DIC(9.2,XQHY,2)) Q:'$P(^(2,0),U,3) S XQS=0
|
|---|
| 21 | I $E(IOST,1)="C" S XQPG(0)="b" D NWPG Q:XQUI
|
|---|
| 22 | W !!,$E(XQDSH,1,79),!
|
|---|
| 23 | K XQKW S XQK=0 F XQJ=1:1 S XQK=$O(^DIC(9.2,XQHY,1,XQK)) Q:XQK="" S XQJ=^(XQK,0) F XQL=1:1 S XQKW=$P($P(XQJ,"]",XQL),"[",2) Q:'$L(XQKW) S XQKW(XQKW)=""
|
|---|
| 24 | W !!,"KEYWORD",?34,"RELATED FRAME" W ?75,"PAGE",!,$E(XQDSH,1,7),?34,$E(XQDSH,1,13) W ?75,$E(XQDSH,1,4) W !
|
|---|
| 25 | S XQJ=0 F XQK=1:1 S XQJ=$O(^DIC(9.2,XQHY,2,XQJ)) Q:XQJ'=+XQJ S XQL=^(XQJ,0) D KEYW1
|
|---|
| 26 | S XQJ=0 F XQK=1:1 S XQJ=$O(XQKW(XQJ)) Q:XQJ'>0 W !,XQJ," **" S XQS=1
|
|---|
| 27 | I XQS W !!?3,"* - KEYWORD MISSING FROM TEXT",!?3,"** - RELATED FRAME MISSING FROM LIST"
|
|---|
| 28 | Q
|
|---|
| 29 | KEYW1 S XQKW=$P(XQL,U,1),XQL=$P(XQL,U,2) W !,XQKW
|
|---|
| 30 | W:'$D(XQKW(XQKW)) " *" S:'$D(XQKW(XQKW)) XQS=1 K XQKW(XQKW) I $L(XQL),$D(^DIC(9.2,XQL)) S XQK=^(XQL,0) W ?34,$P(XQK,U,2) W:XQFMT !?34,"[",$P(XQK,U,1),"]" W ?76,+^TMP($J,"XQM",XQL)
|
|---|
| 31 | Q
|
|---|
| 32 | NWPG ;
|
|---|
| 33 | S:XQPG<1 XQPG=XQPG-1 I $E(IOST,1)="C" D CON S XQUI=(X="^") Q:XQUI
|
|---|
| 34 | D HDR Q
|
|---|
| 35 | CON ;
|
|---|
| 36 | W !,"Press return to continue or '^' to escape " R X:DTIME S:'$T X=U
|
|---|
| 37 | Q
|
|---|
| 38 | HDR ;
|
|---|
| 39 | W @IOF
|
|---|
| 40 | S Y=$P($H,",",2)\60,Y=(Y#60/100+(Y\60)/100+DT) D DT^DIO2
|
|---|
| 41 | W ?30,"HELP FRAME LISTING",?71 W $S(XQPG>0:"PAGE "_XQPG_XQPG(0),1:" "_$E(XQRN,-XQPG*4+1,-XQPG*4+4)) W !!?(80-$L(XQHDR)\2),XQHDR,!
|
|---|
| 42 | I XQPG<1 W !?30,"TABLE OF CONTENTS",!?30,$E(XQDSH,1,17),!?75,"PAGE",!
|
|---|
| 43 | Q
|
|---|
