FSCLMPN.m

FSCLMPN ;SLC/STAFF NOIS List Manager Protocol New ;1/13/98  12:56

 ;;1.1;NOIS;;Sep 06, 1998

 ;

NOTIFY ; from FSCLMP

 N DIR,Y K DIR

 S DIR(0)="SAMO^NOTIFY:NOTIFY;BE NOTIFIED:BE NOTIFIED;REMOVE:REMOVE"

 S DIR("A")="Select (N)otify, (B)e Notified, or (R)emove Notification: "

 S DIR("?",1)="Enter NOTIFY to send notification to others."

 S DIR("?",2)="Enter BE NOTIFIED to schedule notification to yourself."

 S DIR("?",3)="Enter REMOVE to unschedule notification on yourself."

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

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

 D ^DIR K DIR

 I $D(DIRUT) Q

 I Y="NOTIFY" D NOTIFY^FSCLMPNN Q

 I Y="BE NOTIFIED" D NOTIFY^FSCLMPNB Q

 I Y="REMOVE" D NOTIFY^FSCLMPNR Q

 Q

 ;

NOTIFYL ; from FSCLMP

 N DIR,Y K DIR

 S DIR(0)="SAMO^NOTIFY:NOTIFY;BE NOTIFIED:BE NOTIFIED;FIND:FIND;REMOVE:REMOVE"

 S DIR("A")="Select (N)otify, (B)e Notified, (F)ind, or (R)emove Notification: "

 S DIR("?",1)="Enter NOTIFY to send notification to others."

 S DIR("?",2)="Enter BE NOTIFIED to schedule notification to yourself."

 S DIR("?",3)="Enter FIND to find scheduled notifications."

 S DIR("?",4)="Enter REMOVE to unschedule notification on yourself."

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

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

 D ^DIR K DIR

 I $D(DIRUT) Q

 I Y="NOTIFY" D NOTIFY^FSCLMPNN Q

 I Y="BE NOTIFIED" D NOTIFY^FSCLMPNB Q

 I Y="FIND" D NOTIFY^FSCLMPNF Q

 I Y="REMOVE" D NOTIFY^FSCLMPNR Q

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FSCLMPN   1403     printed  Mar 13, 2025@21:23:18                                                                                                                                                                                                     Page 2

FSCLMPN   ;SLC/STAFF NOIS List Manager Protocol New ;1/13/98  12:56

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

 +2       ;

NOTIFY    ; from FSCLMP

 +1        NEW DIR,Y

           KILL DIR

 +2        SET DIR(0)="SAMO^NOTIFY:NOTIFY;BE NOTIFIED:BE NOTIFIED;REMOVE:REMOVE"

 +3        SET DIR("A")="Select (N)otify, (B)e Notified, or (R)emove Notification: "

 +4        SET DIR("?",1)="Enter NOTIFY to send notification to others."

 +5        SET DIR("?",2)="Enter BE NOTIFIED to schedule notification to yourself."

 +6        SET DIR("?",3)="Enter REMOVE to unschedule notification on yourself."

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

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

 +9        DO ^DIR

           KILL DIR

 +10       IF $DATA(DIRUT)

               QUIT 

 +11       IF Y="NOTIFY"

               DO NOTIFY^FSCLMPNN

               QUIT 

 +12       IF Y="BE NOTIFIED"

               DO NOTIFY^FSCLMPNB

               QUIT 

 +13       IF Y="REMOVE"

               DO NOTIFY^FSCLMPNR

               QUIT 

 +14       QUIT 

 +15      ;

NOTIFYL   ; from FSCLMP

 +1        NEW DIR,Y

           KILL DIR

 +2        SET DIR(0)="SAMO^NOTIFY:NOTIFY;BE NOTIFIED:BE NOTIFIED;FIND:FIND;REMOVE:REMOVE"

 +3        SET DIR("A")="Select (N)otify, (B)e Notified, (F)ind, or (R)emove Notification: "

 +4        SET DIR("?",1)="Enter NOTIFY to send notification to others."

 +5        SET DIR("?",2)="Enter BE NOTIFIED to schedule notification to yourself."

 +6        SET DIR("?",3)="Enter FIND to find scheduled notifications."

 +7        SET DIR("?",4)="Enter REMOVE to unschedule notification on yourself."

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

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

 +10       DO ^DIR

           KILL DIR

 +11       IF $DATA(DIRUT)

               QUIT 

 +12       IF Y="NOTIFY"

               DO NOTIFY^FSCLMPNN

               QUIT 

 +13       IF Y="BE NOTIFIED"

               DO NOTIFY^FSCLMPNB

               QUIT 

 +14       IF Y="FIND"

               DO NOTIFY^FSCLMPNF

               QUIT 

 +15       IF Y="REMOVE"

               DO NOTIFY^FSCLMPNR

               QUIT 

 +16       QUIT