37 lines
1.3 KiB
Mathematica
37 lines
1.3 KiB
Mathematica
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
|