source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCLMPNB.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1FSCLMPNB ;SLC/STAFF NOIS List Manager Protocol Notification Be Notified ;1/13/98 12:58
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4NOTIFY ; 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 ;
39BENOTIFY(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
Note: See TracBrowser for help on using the repository browser.