| [613] | 1 | XQ62 ;SEA/MJM - Generalized file look-up utility ;8/2/89 09:53;5/13/93 11:53 AM
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | S U="^" K ^TMP($J)
|
|---|
| 4 | MENU W !!,?5,"Please choose the information you would like to examine by number",!!,?10,$S($D(XQ6):"1. The key file",1:"1. Help Frame File"),!!,?10,"2. Current ",$S($D(XQ6):"holders of a key",1:"editors of a help frame")
|
|---|
| 5 | W !!,?10,"3. The User File",!!,?10,"4. A mail group"
|
|---|
| 6 | ;
|
|---|
| 7 | ASK ;Get user's response, check it, and branch to subroutine
|
|---|
| 8 | R !!,?5,"Enter a number or '^' to quit: ",X:DTIME S:'$T X=U G:'$L(X)!(X=U) OUT I X<1!(X>4)!(X'?1N) W " ??",*7,!!,"Please enter the number corresponding to the information you seek or '^' to quit." G ASK
|
|---|
| 9 | W !!
|
|---|
| 10 | I X=3 G USER
|
|---|
| 11 | I X=4 G MAILG
|
|---|
| 12 | I $D(XQ6)&(X=1) S DIC="^DIC(19.1,",DIC(0)="AEMNQ",DIC("A")=" What key would you like to see? " D ^DIC G:Y<0 OUT S DA=+Y D EN^DIQ G OUT
|
|---|
| 13 | I X=1 S DIC="^DIC(9.2,",DIC(0)="AEMNQ",DIC("A")=" What help frame would you like to see? " D ^DIC G:Y<0 OUT S DA=+Y D EN^DIQ G OUT
|
|---|
| 14 | I $D(XQ6)&(X=2) S DIC="^DIC(19.1,",DIC(0)="AEMNQZ",DIC("A")=" Holders of what key? " D ^DIC G:Y<0 OUT S I=0 F XQL=0:1 S I=$O(^DIC(19.1,+Y,2,I)) G:I="" PRINT S XQU=+^(I,0) S:$D(^VA(200,+XQU,0)) X=$P(^(0),U),^TMP($J,X)=""
|
|---|
| 15 | I X=2 S DIC="^DIC(9.2,",DIC(0)="AEMNQZ",DIC("A")=" Editors of which help frame? " D ^DIC G:Y<0 OUT S I=0 F XQL=0:1 S I=$O(^DIC(9.2,+Y,4,"AB",I)) G:I="" PRINT S:$D(^VA(200,+I,0)) X=$P(^(0),U,1),^TMP($J,X)=""
|
|---|
| 16 | W !!,"Something's wrong...what was it you wanted again? " G ASK
|
|---|
| 17 | Q
|
|---|
| 18 | USER ;Look at the User File
|
|---|
| 19 | S DIC=200,X="?",DIC(0)="AEMNQ",DIC("S")="I $L($P(^(0),U,3))",DIC("A")=" Which user would you like to examine? " D ^DIC G:Y<0 OUT S DA=+Y D EN^DIQ G OUT
|
|---|
| 20 | Q
|
|---|
| 21 | MAILG ;Examine a mail group
|
|---|
| 22 | S XMDUZ=DUZ,DIC="^XMB(3.8,",DIC(0)="AEQMZ",DIC("A")=" Which mail group? " D ^DIC G:Y<0 OUT W !!," Members are: " S I=0 W !
|
|---|
| 23 | F XQL=0:1 S I=$O(^XMB(3.8,+Y,1,I)) Q:'I S XQU=+^(I,0) S:$D(^VA(200,+XQU,0)) X=$P(^VA(200,+XQU,0),U),^TMP($J,X)=""
|
|---|
| 24 | PRINT S XQLL=XQL,I=""
|
|---|
| 25 | I $O(^TMP($J,I))="" W !!,?5," There is no one listed in the file.",!! G OUT
|
|---|
| 26 | F XQL=0:XQLL S I=$O(^TMP($J,I)) Q:I="" W !,?5,I
|
|---|
| 27 | ;
|
|---|
| 28 | OUT ;Clean up and return
|
|---|
| 29 | K DA,DIC,I,X,Y,XQL,XQLL,XQU
|
|---|
| 30 | Q
|
|---|
