source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCLMPNN.m@ 1005

Last change on this file since 1005 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1FSCLMPNN ;SLC/STAFF NOIS List Manager Protocol Notification Notify ;2/16/96 15:56
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4NOTIFY ; 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
Note: See TracBrowser for help on using the repository browser.