| 1 | FSCLMPN ;SLC/STAFF NOIS List Manager Protocol New ;1/13/98 12:56
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | NOTIFY ; 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 | ;
|
|---|
| 20 | NOTIFYL ; 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
|
|---|
