| 1 | XQALMAKE ;ISC-SF.SEA/JLI- HIGH LEVEL SETUP ALERT ;9/23/94 13:28
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | ;;
|
|---|
| 4 | ENTRY ;
|
|---|
| 5 | W !!,"ALERT GENERATOR"
|
|---|
| 6 | TEXT K XQA,XQAMSG,XQAOPT,XQAROU,DIC,DIR
|
|---|
| 7 | R !!,"ON THE NEXT LINE ENTER THE TEXT TO BE DISPLAYED FOR THE ALERT ___",!,X:DTIME G:'$T!(X[U)!(X="") EXIT W !!,X S XQALX=X,DIR(0)="Y",DIR("A")="Is this text OK? ",DIR("B")="YES" D ^DIR K DIR G:'Y TEXT S XQAMSG=XQALX
|
|---|
| 8 | D LOOP1 G:'$D(XQA) EXIT
|
|---|
| 9 | ASKOPT S DIR(0)="Y",DIR("A")="Do you want to transfer control to an option when the alert is selected" D ^DIR K DIR I Y D GETOPT G:Y'="" SETIT G ASKOPT
|
|---|
| 10 | ASKROU S DIR(0)="Y",DIR("A")="Do you want to transfer control to a routine when the alert is selected" D ^DIR K DIR G:'Y SETIT
|
|---|
| 11 | R !,"Enter ROUTINE name or ENTRY^ROUTINE name: ",X:DTIME S:'$T X=U G:X=U EXIT G:X="" ASKROU S XQAROU=X S X=$S(X'[U:X,1:$P(X,U,2)) G:X="" ASKROU X ^%ZOSF("TEST") I 'Y W !,"Routine '",X,"' not present" G ASKROU
|
|---|
| 12 | SETIT ;
|
|---|
| 13 | W !!,"As currently entered, this alert will display the following text:",!!,XQAMSG
|
|---|
| 14 | W !!,"The alert is currently to be delivered to:" S XQAX="" F I=1:1 S XQAX=$O(XQA(XQAX)) Q:XQAX="" S X=$S(XQAX>0:$P(^VA(200,XQAX,0),U),1:XQAX) W:(I#2) ! W:'(I#2) ?40 W X
|
|---|
| 15 | W:$D(XQAROU) !!,"On selection of the alert, the user will run the routine ",XQAROU W:$D(XQAOPT) !!,"On selection of the alert, the user will be taken to the",!,"the option ",XQAOPT W !!
|
|---|
| 16 | S DIR(0)="Y",DIR("A")="Is this alert what was intended",DIR("B")="YES" D ^DIR K DIR I 'Y G ENTRY
|
|---|
| 17 | D SETUP^XQALERT
|
|---|
| 18 | W !!?20,"ALERT IS NOW SET",!!
|
|---|
| 19 | G ENTRY
|
|---|
| 20 | ;
|
|---|
| 21 | GETOPT ;
|
|---|
| 22 | S DIC=19,DIC(0)="AEQM",DIC("A")="Indicate the desired OPTION: " D ^DIC K DIC S:Y'>0 Y="" S XQAOPT=$P(Y,U,2)
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | EXIT ;
|
|---|
| 26 | K XQALDIC,XQALX,XQA,XQAMSG,XQAOPT,XQAROU,DIC,DIR,X,Y
|
|---|
| 27 | Q
|
|---|
| 28 | LOOP1 K XQA R !,"Enter a User name or G.mailgroup",!,"as recipient of the Alert: ",X:DTIME S:'$T!(X="") X=U I X'[U D SETONE G:Y'>0 LOOP1
|
|---|
| 29 | I X'[U F R !,"Enter another user or G.mailgroup: ",X:DTIME S:'$T X=U Q:X[U!(X="") D SETONE
|
|---|
| 30 | K:X[U XQA Q
|
|---|
| 31 | SETONE ;
|
|---|
| 32 | S XQALDIC=$S("g.G."[$E(X,1,2):3.8,1:200),X=$S(XQALDIC=3.8:$E(X,3,$L(X)),1:X),DIC=XQALDIC,DIC(0)="EMQ" D ^DIC Q:Y'>0 S X=$S(XQALDIC=3.8:"G."_$P(Y,U,2),1:+Y),XQA(X)=""
|
|---|
| 33 | Q
|
|---|
