- FSCLMPNN ;SLC/STAFF NOIS List Manager Protocol Notification Notify ;2/16/96 15:56
- ;;1.1;NOIS;;Sep 06, 1998
- ;
- NOTIFY ; from FSCLMPN
- N DIR,LENGTH,NOTIFY,SUBJECT,Y K DIR
- S DIR(0)="SAMO^MAIL:MAIL;ALERT:ALERT",DIR("A")="Notify by (M)ail or (A)lert: ",DIR("B")="ALERT"
- S DIR("?",1)="You can send notification to others (including mail groups)"
- S DIR("?",2)="using email or menu alerts."
- S DIR("?",3)="Enter MAIL to send by mail, ALERT to send using alerts."
- S DIR("?",4)="Enter '^' to exit without sending notification or '??' for more help."
- S DIR("?")="^D HELP^FSCU(.DIR)"
- S DIR("??")="FSC U1 NOIS"
- D ^DIR K DIR
- I $D(DIRUT) Q
- S NOTIFY=Y,LENGTH=$S(NOTIFY="MAIL":65,1:30)
- N DIR,Y K DIR
- S DIR(0)="FAO^3:"_LENGTH,DIR("A")="Enter a brief reason for the notification: "
- S DIR("?",1)="Enter a brief (3-"_LENGTH_" character) message to be sent with the notification."
- S DIR("?",2)="Enter '^' to exit without sending notification or '??' for more help."
- S DIR("?")="^D HELP^FSCU(.DIR)"
- S DIR("??")="FSC U1 NOIS"
- D ^DIR K DIR
- I $D(DIRUT)!'$L(Y) Q
- S SUBJECT=Y,SUBJECT=$$SUBCHK^XMGAPI0(SUBJECT,0)
- I $P(SUBJECT,U) W !,"This entry is invalid." H 2 Q
- S SUBJECT=$P(SUBJECT,U,2)
- I NOTIFY="MAIL" D MAIL^FSCNMS(SUBJECT)
- I NOTIFY="ALERT" D ALERT^FSCNAS(SUBJECT)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMPNN 1297 printed Feb 18, 2025@23:44:51 Page 2
- FSCLMPNN ;SLC/STAFF NOIS List Manager Protocol Notification Notify ;2/16/96 15:56
- +1 ;;1.1;NOIS;;Sep 06, 1998
- +2 ;
- NOTIFY ; from FSCLMPN
- +1 NEW DIR,LENGTH,NOTIFY,SUBJECT,Y
- KILL DIR
- +2 SET DIR(0)="SAMO^MAIL:MAIL;ALERT:ALERT"
- SET DIR("A")="Notify by (M)ail or (A)lert: "
- SET DIR("B")="ALERT"
- +3 SET DIR("?",1)="You can send notification to others (including mail groups)"
- +4 SET DIR("?",2)="using email or menu alerts."
- +5 SET DIR("?",3)="Enter MAIL to send by mail, ALERT to send using alerts."
- +6 SET DIR("?",4)="Enter '^' to exit without sending notification or '??' for more help."
- +7 SET DIR("?")="^D HELP^FSCU(.DIR)"
- +8 SET DIR("??")="FSC U1 NOIS"
- +9 DO ^DIR
- KILL DIR
- +10 IF $DATA(DIRUT)
- QUIT
- +11 SET NOTIFY=Y
- SET LENGTH=$SELECT(NOTIFY="MAIL":65,1:30)
- +12 NEW DIR,Y
- KILL DIR
- +13 SET DIR(0)="FAO^3:"_LENGTH
- SET DIR("A")="Enter a brief reason for the notification: "
- +14 SET DIR("?",1)="Enter a brief (3-"_LENGTH_" character) message to be sent with the notification."
- +15 SET DIR("?",2)="Enter '^' to exit without sending notification or '??' for more help."
- +16 SET DIR("?")="^D HELP^FSCU(.DIR)"
- +17 SET DIR("??")="FSC U1 NOIS"
- +18 DO ^DIR
- KILL DIR
- +19 IF $DATA(DIRUT)!'$LENGTH(Y)
- QUIT
- +20 SET SUBJECT=Y
- SET SUBJECT=$$SUBCHK^XMGAPI0(SUBJECT,0)
- +21 IF $PIECE(SUBJECT,U)
- WRITE !,"This entry is invalid."
- HANG 2
- QUIT
- +22 SET SUBJECT=$PIECE(SUBJECT,U,2)
- +23 IF NOTIFY="MAIL"
- DO MAIL^FSCNMS(SUBJECT)
- +24 IF NOTIFY="ALERT"
- DO ALERT^FSCNAS(SUBJECT)
- +25 QUIT