| 1 | FSCLMPNB ;SLC/STAFF NOIS List Manager Protocol Notification Be Notified ;1/13/98 12:58
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | NOTIFY ; from FSCLMPN
|
|---|
| 5 | N CALL,CALLS,CHOICE,DIR,EVENT,LISTNUM,METHOD,OK,Y K CALLS,DIR,^TMP("FSC SELECT",$J,"NVALUES")
|
|---|
| 6 | S DIR(0)="SAMO^EDITED:EDITED;STATUS CHANGED:STATUS CHANGED",DIR("A")="Notify when calls are (E)dited or (S)tatus changes: ",DIR("B")="EDITED"
|
|---|
| 7 | S DIR("?",1)="Enter the event that will trigger your notification."
|
|---|
| 8 | S DIR("?",2)="Enter EDITED to be notified whenever the calls are edited."
|
|---|
| 9 | S DIR("?",3)="Enter STATUS CHANGED to be notified when the calls have a status changed."
|
|---|
| 10 | S DIR("?",4)="Enter '^' to exit without scheduling notification or '??' for more help."
|
|---|
| 11 | S DIR("?")="^D HELP^FSCU(.DIR)"
|
|---|
| 12 | S DIR("??")="FSC U1 NOIS"
|
|---|
| 13 | D ^DIR K DIR
|
|---|
| 14 | I $D(DIRUT) Q
|
|---|
| 15 | S EVENT=Y
|
|---|
| 16 | N DIR,Y K DIR
|
|---|
| 17 | S DIR(0)="SAMO^MAIL:MAIL;ALERT:ALERT",DIR("A")="Notify by (M)ail or (A)lert: ",DIR("B")="ALERT"
|
|---|
| 18 | S DIR("?",1)="Enter the method you wish to be notified."
|
|---|
| 19 | S DIR("?",2)="Enter MAIL to receive an email message."
|
|---|
| 20 | S DIR("?",3)="Enter ALERT to be notified by a menu alert."
|
|---|
| 21 | S DIR("?",4)="Note: scheduled notifications will appear as a single alert, as opposed"
|
|---|
| 22 | S DIR("?",5)="to alerts sent by others, which appear as separate alerts."
|
|---|
| 23 | S DIR("?",6)="Enter '^' to exit without scheduling notification, '??' for more help."
|
|---|
| 24 | S DIR("?")="^D HELP^FSCU(.DIR)"
|
|---|
| 25 | S DIR("??")="FSC U1 NOIS"
|
|---|
| 26 | D ^DIR K DIR
|
|---|
| 27 | I $D(DIRUT) Q
|
|---|
| 28 | S METHOD=Y
|
|---|
| 29 | D
|
|---|
| 30 | .I $D(^TMP("FSC SELECT",$J,"EVALUES")) S CHOICE=FSCCNT_"-"_FSCCNT Q
|
|---|
| 31 | .I $D(^TMP("FSC SELECT",$J,"VVALUES")) S CHOICE=^("VVALUES") Q
|
|---|
| 32 | .S CHOICE="1-"_+@VALMAR
|
|---|
| 33 | D SELECT^FSCUL(CHOICE,"",CHOICE,"NVALUES",.OK)
|
|---|
| 34 | I OK D
|
|---|
| 35 | .S LISTNUM=0 F S LISTNUM=$O(^TMP("FSC SELECT",$J,"NVALUES",LISTNUM)) Q:LISTNUM<1 S CALL=$$CALL^FSCLMPE1(LISTNUM),CALLS(CALL)=""
|
|---|
| 36 | .D BENOTIFY(DUZ,.CALLS,METHOD,EVENT)
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | BENOTIFY(USER,CALLS,METHOD,EVENT) ; from FSCELSNS
|
|---|
| 40 | N CALL,NUM
|
|---|
| 41 | S CALL=0 F S CALL=$O(CALLS(CALL)) Q:CALL<1 D
|
|---|
| 42 | .I $D(^FSCD("NOTIFY","ACUSER",CALL,USER)) S NUM=+^(USER) D Q
|
|---|
| 43 | ..S $P(^FSCD("NOTIFY",NUM,0),U,5,7)=METHOD_U_EVENT_U_1
|
|---|
| 44 | .D SETUP^FSCNOT(CALL,,,USER_U_1,METHOD,EVENT)
|
|---|
| 45 | Q
|
|---|
