source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCLMPN.m@ 1774

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1FSCLMPN ;SLC/STAFF NOIS List Manager Protocol New ;1/13/98 12:56
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4NOTIFY ; from FSCLMP
5 N DIR,Y K DIR
6 S DIR(0)="SAMO^NOTIFY:NOTIFY;BE NOTIFIED:BE NOTIFIED;REMOVE:REMOVE"
7 S DIR("A")="Select (N)otify, (B)e Notified, or (R)emove Notification: "
8 S DIR("?",1)="Enter NOTIFY to send notification to others."
9 S DIR("?",2)="Enter BE NOTIFIED to schedule notification to yourself."
10 S DIR("?",3)="Enter REMOVE to unschedule notification on yourself."
11 S DIR("?")="^D HELP^FSCU(.DIR)"
12 S DIR("??")="FSC U1 NOIS"
13 D ^DIR K DIR
14 I $D(DIRUT) Q
15 I Y="NOTIFY" D NOTIFY^FSCLMPNN Q
16 I Y="BE NOTIFIED" D NOTIFY^FSCLMPNB Q
17 I Y="REMOVE" D NOTIFY^FSCLMPNR Q
18 Q
19 ;
20NOTIFYL ; from FSCLMP
21 N DIR,Y K DIR
22 S DIR(0)="SAMO^NOTIFY:NOTIFY;BE NOTIFIED:BE NOTIFIED;FIND:FIND;REMOVE:REMOVE"
23 S DIR("A")="Select (N)otify, (B)e Notified, (F)ind, or (R)emove Notification: "
24 S DIR("?",1)="Enter NOTIFY to send notification to others."
25 S DIR("?",2)="Enter BE NOTIFIED to schedule notification to yourself."
26 S DIR("?",3)="Enter FIND to find scheduled notifications."
27 S DIR("?",4)="Enter REMOVE to unschedule notification on yourself."
28 S DIR("?")="^D HELP^FSCU(.DIR)"
29 S DIR("??")="FSC U1 NOIS"
30 D ^DIR K DIR
31 I $D(DIRUT) Q
32 I Y="NOTIFY" D NOTIFY^FSCLMPNN Q
33 I Y="BE NOTIFIED" D NOTIFY^FSCLMPNB Q
34 I Y="FIND" D NOTIFY^FSCLMPNF Q
35 I Y="REMOVE" D NOTIFY^FSCLMPNR Q
36 Q
Note: See TracBrowser for help on using the repository browser.