| [613] | 1 | XQH2 ;LL/THM,SEA/AMF,JLI - HELP PROCESSOR ;9/29/92 15:10 ;
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | EDIT ;
|
|---|
| 4 | N Y S DIE="^DIC(9.2,",DA=XQHY
|
|---|
| 5 | S XQW=$P(X,"^E",2) S DR=$S('$L(XQW):".01;1;2;4///N;3.5",XQW="N":".01",XQW="R":"3.5",XQW="T":"2;4///N;3.5",1:"1") D ^DIE I "NH"[XQW G OUT
|
|---|
| 6 | K DR S DR="3" D ^DIE
|
|---|
| 7 | OUT K XQW Q
|
|---|
| 8 | LOADKW ;
|
|---|
| 9 | I "Nn"[$E(X,1) S X="" Q
|
|---|
| 10 | I "Yy"'[$E(X,1) K X Q
|
|---|
| 11 | K XQKW S %XQK=0 F %XQJ=1:1 S %XQK=$O(^DIC(9.2,DA,1,%XQK)) Q:%XQK="" S %XQJ=^(%XQK,0) F XQL=1:1 S XQKW=$P($P(%XQJ,"]",XQL),"[",2) Q:'$L(XQKW) D UPPER S XQKW(XQKW)=""
|
|---|
| 12 | S XQKW=-1,%XQJ=0 F S XQKW=$O(XQKW(XQKW)) Q:XQKW="" I '$D(^DIC(9.2,DA,2,"B",XQKW)) W:'%XQJ !!,"Please assign related frames to these new keywords: " W !?5,XQKW S %XQJ=%XQJ+1
|
|---|
| 13 | G:'%XQJ NONEW S:'$D(^DIC(9.2,DA,2,0)) ^(0)="^9.22^0^0" S %XQI=^(0),%XQK=$P(%XQI,U,4),%XQI=$P(%XQI,U,3)+1
|
|---|
| 14 | S XQKW=0 F S XQKW=$O(XQKW(XQKW)) Q:XQKW="" I '$D(^DIC(9.2,DA,2,"B",XQKW)) D ADD
|
|---|
| 15 | S ^DIC(9.2,DA,2,0)="^9.22^"_%XQI_U_%XQK
|
|---|
| 16 | NONEW S XQKW=-1,%XQJ=0 F S XQKW=$O(^DIC(9.2,DA,2,"B",XQKW)) Q:XQKW="" I '$D(XQKW(XQKW)) W:'%XQJ !!,"The following keywords do not appear in text. You may wish to delete." S %XQJ=%XQJ+1 W !?5,XQKW
|
|---|
| 17 | S X="" W ! K XQKW
|
|---|
| 18 | Q
|
|---|
| 19 | UPPER S %XQHI=XQKW,XQKW="" F %XQHJ=1:1:$L(%XQHI) S XQKWC=$E(%XQHI,%XQHJ),XQKW=XQKW_$S(XQKWC?1L:$C($A(XQKWC)-32),1:XQKWC)
|
|---|
| 20 | K %XQHI,%XQHJ,XQKWC
|
|---|
| 21 | Q
|
|---|
| 22 | ADD I $D(^DIC(9.2,DA,2,%XQI)) S %XQI=%XQI+1 G ADD
|
|---|
| 23 | S ^DIC(9.2,DA,2,%XQI,0)=XQKW,^DIC(9.2,DA,2,"B",$E(XQKW,1,30),%XQI)="",%XQK=%XQK+1
|
|---|
| 24 | Q
|
|---|
| 25 | HELP ;
|
|---|
| 26 | W !!,"Select one of the following responses: ",!?5,"<return> - to back up a level"
|
|---|
| 27 | I 'XQBL W !?5,$S((IORV="["):"Bracketed ",1:"Highlighted "),"keyword " W:'%XQI "or number" W " to indicate a related help frame"
|
|---|
| 28 | W !?5,"'^Q' - to quit the help system",!?5,"'^R' - to refresh this frame"
|
|---|
| 29 | I 'XQBL W !?5,"'^T' - ",$S(%XQI:"table of related frames",1:"text")
|
|---|
| 30 | W !?5,"'^O' - ","on/off switch for bracketing/reverse video of keywords"
|
|---|
| 31 | W !?5,"'^H' - to see how you got here"
|
|---|
| 32 | I XQAU W !?5,"'^E' - to edit the content of this frame.",!?10,"'EN' - to edit the name",!?10,"'EH' - to edit the header",!?10,"'ET' - to edit the text",!?10,"'ER' to edit the related frame list"
|
|---|
| 33 | Q
|
|---|
| 34 | HOW ;
|
|---|
| 35 | W !!,"HOW DID I GET HERE?"
|
|---|
| 36 | F %XQJ=0:1:(XQHL-1) W !?(%XQJ+1*4),"|",!?(%XQJ+1*4),"|-------> ",XQHR(%XQJ,1)
|
|---|
| 37 | W !?(XQHL+1*4),"|",!?(XQHL+1*4),"|-------> ",XQHF
|
|---|
| 38 | Q
|
|---|
| 39 | HILITE ;
|
|---|
| 40 | I IORV'="""[""" S IORV="""[""",IORVX="""]""" W !,"Brackets will now be used for keywords." Q
|
|---|
| 41 | I '$D(IOST(0)) W !,"Terminal type is not defined." Q
|
|---|
| 42 | I $D(^%ZIS(2,IOST(0),5)) S I=^(5) I $L($P(I,U,4)),$L($P(I,U,5)) S IORV=$P(I,U,4),IORVX=$P(I,U,5) W !,@IORV,"REVERSE VIDEO",@IORVX," will now be used for keywords." Q
|
|---|
| 43 | W !,"Reverse video not available for this terminal type."
|
|---|
| 44 | Q
|
|---|
