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)
D
.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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCLMPNR 1298 printed Nov 22, 2024@17:28:25 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
