- 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 Feb 18, 2025@23:44:52 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