Routine: FSCLMPNR

FSCLMPNR ;SLC/STAFF NOIS List Manager Protocol Notification Remove ;11/29/95  11:02

 ;;1.1;NOIS;;Sep 06, 1998

NOTIFY ; from FSCLMPN

 N CALL,CHOICE,DA,DIK,DIR,LISTNUM,OK,Y K DIR,^TMP("FSC SELECT CALLS",$J)

 .I $D(^TMP("FSC SELECT",$J,"EVALUES")) S CHOICE=FSCCNT_"-"_FSCCNT Q

 .I $D(^TMP("FSC SELECT",$J,"VVALUES")) S CHOICE=^("VVALUES") Q

 .S CHOICE="1-"_+@VALMAR

 D SELECT^FSCUL(CHOICE,"",CHOICE,"NVALUES",.OK)

 I 'OK Q

 S LISTNUM=0 F  S LISTNUM=$O(^TMP("FSC SELECT",$J,"NVALUES",LISTNUM)) Q:LISTNUM<1  S CALL=$$CALL^FSCLMPE1(LISTNUM),^TMP("FSC SELECT CALLS",$J,CALL)=""

 I '$O(^TMP("FSC SELECT CALLS",$J,0)) Q

 S DIR(0)="YAO",DIR("A")="Remove notifications: ",DIR("B")="YES"

 S DIR("?",1)="Enter YES to remove notifications on calls you have scheduled to be noitied on."

 S DIR("?",2)="Enter NO or '^' to exit without removing notifications, '??' 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

W !

 S DIK="^FSCD(""NOTIFY"","

 S CALL=0 F  S CALL=$O(^TMP("FSC SELECT CALLS",$J,CALL)) Q:CALL<1  D

 .K ^TMP("FSC NOTIFY",$J)

 .D NOTINFO^FSCNOT(CALL,DUZ)

 .S DA=0 F  S DA=$O(^TMP("FSC NOTIFY",$J,DA)) Q:DA<1  D ^DIK

 K ^TMP("FSC NOTIFY",$J)

 W !,"Scheduled notifications have been removed." H 2

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMPNR   1298     printed  Apr 09, 2024@21:23:46                                                                                                                                                                                                    Page 2

FSCLMPNR  ;SLC/STAFF NOIS List Manager Protocol Notification Remove ;11/29/95  11:02

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

 +2       ;

NOTIFY    ; from FSCLMPN

 +1        NEW CALL,CHOICE,DA,DIK,DIR,LISTNUM,OK,Y

           KILL DIR,^TMP("FSC SELECT CALLS",$JOB)

 +2        Begin DoDot:1

 +3            IF $DATA(^TMP("FSC SELECT",$JOB,"EVALUES"))

                   SET CHOICE=FSCCNT_"-"_FSCCNT

                   QUIT

 +4            IF $DATA(^TMP("FSC SELECT",$JOB,"VVALUES"))

                   SET CHOICE=^("VVALUES")

                   QUIT

 +5            SET CHOICE="1-"_+@VALMAR

           End DoDot:1

 +6        DO SELECT^FSCUL(CHOICE,"",CHOICE,"NVALUES",.OK)

 +7        IF 'OK

               QUIT

 +8        SET LISTNUM=0

FOR

               SET LISTNUM=$ORDER(^TMP("FSC SELECT",$JOB,"NVALUES",LISTNUM))

               if LISTNUM<1

                   QUIT

               SET CALL=$$CALL^FSCLMPE1(LISTNUM)

               SET ^TMP("FSC SELECT CALLS",$JOB,CALL)=""

 +9        IF '$ORDER(^TMP("FSC SELECT CALLS",$JOB,0))

               QUIT

 +10       SET DIR(0)="YAO"

           SET DIR("A")="Remove notifications: "

           SET DIR("B")="YES"

 +11       SET DIR("?",1)="Enter YES to remove notifications on calls you have scheduled to be noitied on."

 +12       SET DIR("?",2)="Enter NO or '^' to exit without removing notifications, '??' for more help."

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

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

 +15       DO ^DIR

           KILL DIR

 +16       IF $DATA(DIRUT)

               QUIT

 +17       IF Y'=1

               QUIT

 +18       WRITE !

 +19       SET DIK="^FSCD(""NOTIFY"","

 +20       SET CALL=0

FOR

               SET CALL=$ORDER(^TMP("FSC SELECT CALLS",$JOB,CALL))

               if CALL<1

                   QUIT

               Begin DoDot:1

 +21               KILL ^TMP("FSC NOTIFY",$JOB)

 +22               DO NOTINFO^FSCNOT(CALL,DUZ)

 +23               SET DA=0

FOR

                       SET DA=$ORDER(^TMP("FSC NOTIFY",$JOB,DA))

                       if DA<1

                           QUIT

                       DO ^DIK

               End DoDot:1

 +24       KILL ^TMP("FSC NOTIFY",$JOB)

 +25       WRITE !,"Scheduled notifications have been removed."

           HANG 2

 +26       QUIT

FSCLMPNR.m