| [613] | 1 | FSCLMPNN ;SLC/STAFF NOIS List Manager Protocol Notification Notify ;2/16/96 15:56
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | NOTIFY ; from FSCLMPN
|
|---|
| 5 | N DIR,LENGTH,NOTIFY,SUBJECT,Y K DIR
|
|---|
| 6 | S DIR(0)="SAMO^MAIL:MAIL;ALERT:ALERT",DIR("A")="Notify by (M)ail or (A)lert: ",DIR("B")="ALERT"
|
|---|
| 7 | S DIR("?",1)="You can send notification to others (including mail groups)"
|
|---|
| 8 | S DIR("?",2)="using email or menu alerts."
|
|---|
| 9 | S DIR("?",3)="Enter MAIL to send by mail, ALERT to send using alerts."
|
|---|
| 10 | S DIR("?",4)="Enter '^' to exit without sending 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 NOTIFY=Y,LENGTH=$S(NOTIFY="MAIL":65,1:30)
|
|---|
| 16 | N DIR,Y K DIR
|
|---|
| 17 | S DIR(0)="FAO^3:"_LENGTH,DIR("A")="Enter a brief reason for the notification: "
|
|---|
| 18 | S DIR("?",1)="Enter a brief (3-"_LENGTH_" character) message to be sent with the notification."
|
|---|
| 19 | S DIR("?",2)="Enter '^' to exit without sending notification or '??' for more help."
|
|---|
| 20 | S DIR("?")="^D HELP^FSCU(.DIR)"
|
|---|
| 21 | S DIR("??")="FSC U1 NOIS"
|
|---|
| 22 | D ^DIR K DIR
|
|---|
| 23 | I $D(DIRUT)!'$L(Y) Q
|
|---|
| 24 | S SUBJECT=Y,SUBJECT=$$SUBCHK^XMGAPI0(SUBJECT,0)
|
|---|
| 25 | I $P(SUBJECT,U) W !,"This entry is invalid." H 2 Q
|
|---|
| 26 | S SUBJECT=$P(SUBJECT,U,2)
|
|---|
| 27 | I NOTIFY="MAIL" D MAIL^FSCNMS(SUBJECT)
|
|---|
| 28 | I NOTIFY="ALERT" D ALERT^FSCNAS(SUBJECT)
|
|---|
| 29 | Q
|
|---|
