Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCLMPNN

FSCLMPNN.m

Go to the documentation of this file.
  1. FSCLMPNN ;SLC/STAFF NOIS List Manager Protocol Notification Notify ;2/16/96 15:56
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. NOTIFY ; from FSCLMPN
  1. N DIR,LENGTH,NOTIFY,SUBJECT,Y K DIR
  1. S DIR(0)="SAMO^MAIL:MAIL;ALERT:ALERT",DIR("A")="Notify by (M)ail or (A)lert: ",DIR("B")="ALERT"
  1. S DIR("?",1)="You can send notification to others (including mail groups)"
  1. S DIR("?",2)="using email or menu alerts."
  1. S DIR("?",3)="Enter MAIL to send by mail, ALERT to send using alerts."
  1. S DIR("?",4)="Enter '^' to exit without sending notification or '??' for more help."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I $D(DIRUT) Q
  1. S NOTIFY=Y,LENGTH=$S(NOTIFY="MAIL":65,1:30)
  1. N DIR,Y K DIR
  1. S DIR(0)="FAO^3:"_LENGTH,DIR("A")="Enter a brief reason for the notification: "
  1. S DIR("?",1)="Enter a brief (3-"_LENGTH_" character) message to be sent with the notification."
  1. S DIR("?",2)="Enter '^' to exit without sending notification or '??' for more help."
  1. S DIR("?")="^D HELP^FSCU(.DIR)"
  1. S DIR("??")="FSC U1 NOIS"
  1. D ^DIR K DIR
  1. I $D(DIRUT)!'$L(Y) Q
  1. S SUBJECT=Y,SUBJECT=$$SUBCHK^XMGAPI0(SUBJECT,0)
  1. I $P(SUBJECT,U) W !,"This entry is invalid." H 2 Q
  1. S SUBJECT=$P(SUBJECT,U,2)
  1. I NOTIFY="MAIL" D MAIL^FSCNMS(SUBJECT)
  1. I NOTIFY="ALERT" D ALERT^FSCNAS(SUBJECT)
  1. Q