FSCLMPNN.m

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 ---FSCLMPNN   1297     printed  Apr 09, 2024@21:22:05                                                                                                                                                                                                    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