Routine: FSCNMS

FSCNMS ;SLC/STAFF NOIS Notification Mail Send ;1/13/98  13:55

 ;;1.1;NOIS;;Sep 06, 1998

MAIL(XMSUB) ; from FSCLMPNN

 Q:'$D(XMSUB)  I XMSUB[U S XMSUB=$$REPLACE^FSCRU(XMSUB,U,"~U~")

 N CNT,DIR,LINE,XMTEXT,XMY,Y K DIR,XMY,XMZ,^TMP("FSC MAIL",$J),^TMP("FSC TEXT",$J)

 S DIR(0)="YAO",DIR("A")="Do you want to load the list document into the message? ",DIR("B")="NO"

 S DIR("?",1)="Enter YES to load the display into the message."

 S DIR("?",2)="Enter NO to just send a message without the display."

 S DIR("?",3)="When loading the display into the message, you can later edit the message"

 S DIR("?",4)="before sending.  Be aware that displays may have edited information."

 S DIR("?")="^D HELP^FSCU(.DIR)"

 S DIR("??")="FSC U1 NOIS"

 D ^DIR K DIR

 I $D(DIRUT) Q

 .I Y D  Q

 ..S ^TMP("FSC MAIL",$J,1,0)=" "

 ..S ^TMP("FSC MAIL",$J,2,0)="     *** NOIS INFORMATION ***"

 ..S CNT=2 I $G(FSCCALLS)="EVALUES" S ^TMP("FSC MAIL",$J,3,0)=$G(VALMHDR(1)),CNT=3

 ..S LINE=0 F  S LINE=$O(@VALMAR@(LINE)) Q:LINE<1  S CNT=CNT+1,^TMP("FSC MAIL",$J,CNT,0)=^(LINE,0)

 ..D EDITWP^FSCEU("^TMP(""FSC MAIL"",$J)","You may edit this message.")

 .D WP^FSCEU("MAIL","Enter your mail message.")

 S XMTEXT=""

 I $O(^TMP("FSC MAIL",$J,0)) S XMTEXT="^TMP(""FSC MAIL"",$J,"

 I $O(^TMP("FSC TEXT",$J,"MAIL",0)) S XMTEXT="^TMP(""FSC TEXT"",$J,""MAIL"","

 I '$L(XMTEXT) Q

 D EN^XM W !,"This message will be sent to you." S XMY(DUZ)="" D DES^XMA21

 I '$D(XMY) Q

 N DIR,Y K DIR

 S DIR(0)="YAO",DIR("A")="Send notification message: ",DIR("B")="YES"

 S DIR("?",1)="Enter YES to send this message."

 S DIR("?",2)="Enter NO or '^' to exit without sending the message, '??' for more help."

 S DIR("?")="^D HELP^FSCU(.DIR)"

 S DIR("??")="FSC U1 NOIS"

 D ^DIR K DIR

 I $D(DIRUT) Q

 I Y'=1 Q

 D ^XMD I $G(XMZ) W !,"Message #",XMZ," sent." H 2

 D KILL^XM K ^TMP("FSC MAIL",$J),^TMP("FSC TEXT",$J)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCNMS   1899     printed  Apr 09, 2024@21:20:24                                                                                                                                                                                                      Page 2

FSCNMS    ;SLC/STAFF NOIS Notification Mail Send ;1/13/98  13:55

 +1       ;;1.1;NOIS;;Sep 06, 1998

 +2       ;

MAIL(XMSUB) ; from FSCLMPNN

 +1        if '$DATA(XMSUB)

               QUIT

           IF XMSUB[U

               SET XMSUB=$$REPLACE^FSCRU(XMSUB,U,"~U~")

 +2        NEW CNT,DIR,LINE,XMTEXT,XMY,Y

           KILL DIR,XMY,XMZ,^TMP("FSC MAIL",$JOB),^TMP("FSC TEXT",$JOB)

 +3        SET DIR(0)="YAO"

           SET DIR("A")="Do you want to load the list document into the message? "

           SET DIR("B")="NO"

 +4        SET DIR("?",1)="Enter YES to load the display into the message."

 +5        SET DIR("?",2)="Enter NO to just send a message without the display."

 +6        SET DIR("?",3)="When loading the display into the message, you can later edit the message"

 +7        SET DIR("?",4)="before sending.  Be aware that displays may have edited information."

 +8        SET DIR("?")="^D HELP^FSCU(.DIR)"

 +9        SET DIR("??")="FSC U1 NOIS"

 +10       DO ^DIR

           KILL DIR

 +11       IF $DATA(DIRUT)

               QUIT

 +12       Begin DoDot:1

 +13           IF Y

                   Begin DoDot:2

 +14                   SET ^TMP("FSC MAIL",$JOB,1,0)=" "

 +15                   SET ^TMP("FSC MAIL",$JOB,2,0)="     *** NOIS INFORMATION ***"

 +16                   SET CNT=2

                       IF $GET(FSCCALLS)="EVALUES"

                           SET ^TMP("FSC MAIL",$JOB,3,0)=$GET(VALMHDR(1))

                           SET CNT=3

 +17                   SET LINE=0

FOR

                           SET LINE=$ORDER(@VALMAR@(LINE))

                           if LINE<1

                               QUIT

                           SET CNT=CNT+1

                           SET ^TMP("FSC MAIL",$JOB,CNT,0)=^(LINE,0)

 +18                   DO EDITWP^FSCEU("^TMP(""FSC MAIL"",$J)","You may edit this message.")

                   End DoDot:2

                   QUIT

 +19           DO WP^FSCEU("MAIL","Enter your mail message.")

           End DoDot:1

 +20       SET XMTEXT=""

 +21       IF $ORDER(^TMP("FSC MAIL",$JOB,0))

               SET XMTEXT="^TMP(""FSC MAIL"",$J,"

 +22       IF $ORDER(^TMP("FSC TEXT",$JOB,"MAIL",0))

               SET XMTEXT="^TMP(""FSC TEXT"",$J,""MAIL"","

 +23       IF '$LENGTH(XMTEXT)

               QUIT

 +24       DO EN^XM

           WRITE !,"This message will be sent to you."

           SET XMY(DUZ)=""

           DO DES^XMA21

 +25       IF '$DATA(XMY)

               QUIT

 +26       NEW DIR,Y

           KILL DIR

 +27       SET DIR(0)="YAO"

           SET DIR("A")="Send notification message: "

           SET DIR("B")="YES"

 +28       SET DIR("?",1)="Enter YES to send this message."

 +29       SET DIR("?",2)="Enter NO or '^' to exit without sending the message, '??' for more help."

 +30       SET DIR("?")="^D HELP^FSCU(.DIR)"

 +31       SET DIR("??")="FSC U1 NOIS"

 +32       DO ^DIR

           KILL DIR

 +33       IF $DATA(DIRUT)

               QUIT

 +34       IF Y'=1

               QUIT

 +35       DO ^XMD

           IF $GET(XMZ)

               WRITE !,"Message #",XMZ," sent."

               HANG 2

 +36       DO KILL^XM

           KILL ^TMP("FSC MAIL",$JOB),^TMP("FSC TEXT",$JOB)

 +37       QUIT

FSCNMS.m