FSCLMPN ;SLC/STAFF NOIS List Manager Protocol New ;1/13/98 12:56
;;1.1;NOIS;;Sep 06, 1998
;
NOTIFY ; from FSCLMP
N DIR,Y K DIR
S DIR(0)="SAMO^NOTIFY:NOTIFY;BE NOTIFIED:BE NOTIFIED;REMOVE:REMOVE"
S DIR("A")="Select (N)otify, (B)e Notified, or (R)emove Notification: "
S DIR("?",1)="Enter NOTIFY to send notification to others."
S DIR("?",2)="Enter BE NOTIFIED to schedule notification to yourself."
S DIR("?",3)="Enter REMOVE to unschedule notification on yourself."
S DIR("?")="^D HELP^FSCU(.DIR)"
S DIR("??")="FSC U1 NOIS"
D ^DIR K DIR
I $D(DIRUT) Q
I Y="NOTIFY" D NOTIFY^FSCLMPNN Q
I Y="BE NOTIFIED" D NOTIFY^FSCLMPNB Q
I Y="REMOVE" D NOTIFY^FSCLMPNR Q
Q
;
NOTIFYL ; from FSCLMP
N DIR,Y K DIR
S DIR(0)="SAMO^NOTIFY:NOTIFY;BE NOTIFIED:BE NOTIFIED;FIND:FIND;REMOVE:REMOVE"
S DIR("A")="Select (N)otify, (B)e Notified, (F)ind, or (R)emove Notification: "
S DIR("?",1)="Enter NOTIFY to send notification to others."
S DIR("?",2)="Enter BE NOTIFIED to schedule notification to yourself."
S DIR("?",3)="Enter FIND to find scheduled notifications."
S DIR("?",4)="Enter REMOVE to unschedule notification on yourself."
S DIR("?")="^D HELP^FSCU(.DIR)"
S DIR("??")="FSC U1 NOIS"
D ^DIR K DIR
I $D(DIRUT) Q
I Y="NOTIFY" D NOTIFY^FSCLMPNN Q
I Y="BE NOTIFIED" D NOTIFY^FSCLMPNB Q
I Y="FIND" D NOTIFY^FSCLMPNF Q
I Y="REMOVE" D NOTIFY^FSCLMPNR Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMPN 1403 printed Dec 13, 2024@02:18:21 Page 2
FSCLMPN ;SLC/STAFF NOIS List Manager Protocol New ;1/13/98 12:56
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
NOTIFY ; from FSCLMP
+1 NEW DIR,Y
KILL DIR
+2 SET DIR(0)="SAMO^NOTIFY:NOTIFY;BE NOTIFIED:BE NOTIFIED;REMOVE:REMOVE"
+3 SET DIR("A")="Select (N)otify, (B)e Notified, or (R)emove Notification: "
+4 SET DIR("?",1)="Enter NOTIFY to send notification to others."
+5 SET DIR("?",2)="Enter BE NOTIFIED to schedule notification to yourself."
+6 SET DIR("?",3)="Enter REMOVE to unschedule notification on yourself."
+7 SET DIR("?")="^D HELP^FSCU(.DIR)"
+8 SET DIR("??")="FSC U1 NOIS"
+9 DO ^DIR
KILL DIR
+10 IF $DATA(DIRUT)
QUIT
+11 IF Y="NOTIFY"
DO NOTIFY^FSCLMPNN
QUIT
+12 IF Y="BE NOTIFIED"
DO NOTIFY^FSCLMPNB
QUIT
+13 IF Y="REMOVE"
DO NOTIFY^FSCLMPNR
QUIT
+14 QUIT
+15 ;
NOTIFYL ; from FSCLMP
+1 NEW DIR,Y
KILL DIR
+2 SET DIR(0)="SAMO^NOTIFY:NOTIFY;BE NOTIFIED:BE NOTIFIED;FIND:FIND;REMOVE:REMOVE"
+3 SET DIR("A")="Select (N)otify, (B)e Notified, (F)ind, or (R)emove Notification: "
+4 SET DIR("?",1)="Enter NOTIFY to send notification to others."
+5 SET DIR("?",2)="Enter BE NOTIFIED to schedule notification to yourself."
+6 SET DIR("?",3)="Enter FIND to find scheduled notifications."
+7 SET DIR("?",4)="Enter REMOVE to unschedule notification on yourself."
+8 SET DIR("?")="^D HELP^FSCU(.DIR)"
+9 SET DIR("??")="FSC U1 NOIS"
+10 DO ^DIR
KILL DIR
+11 IF $DATA(DIRUT)
QUIT
+12 IF Y="NOTIFY"
DO NOTIFY^FSCLMPNN
QUIT
+13 IF Y="BE NOTIFIED"
DO NOTIFY^FSCLMPNB
QUIT
+14 IF Y="FIND"
DO NOTIFY^FSCLMPNF
QUIT
+15 IF Y="REMOVE"
DO NOTIFY^FSCLMPNR
QUIT
+16 QUIT
