| 1 | FSCLMPNR ;SLC/STAFF NOIS List Manager Protocol Notification Remove ;11/29/95 11:02
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | NOTIFY ; from FSCLMPN
|
|---|
| 5 | N CALL,CHOICE,DA,DIK,DIR,LISTNUM,OK,Y K DIR,^TMP("FSC SELECT CALLS",$J)
|
|---|
| 6 | D
|
|---|
| 7 | .I $D(^TMP("FSC SELECT",$J,"EVALUES")) S CHOICE=FSCCNT_"-"_FSCCNT Q
|
|---|
| 8 | .I $D(^TMP("FSC SELECT",$J,"VVALUES")) S CHOICE=^("VVALUES") Q
|
|---|
| 9 | .S CHOICE="1-"_+@VALMAR
|
|---|
| 10 | D SELECT^FSCUL(CHOICE,"",CHOICE,"NVALUES",.OK)
|
|---|
| 11 | I 'OK Q
|
|---|
| 12 | 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)=""
|
|---|
| 13 | I '$O(^TMP("FSC SELECT CALLS",$J,0)) Q
|
|---|
| 14 | S DIR(0)="YAO",DIR("A")="Remove notifications: ",DIR("B")="YES"
|
|---|
| 15 | S DIR("?",1)="Enter YES to remove notifications on calls you have scheduled to be noitied on."
|
|---|
| 16 | S DIR("?",2)="Enter NO or '^' to exit without removing notifications, '??' for more help."
|
|---|
| 17 | S DIR("?")="^D HELP^FSCU(.DIR)"
|
|---|
| 18 | S DIR("??")="FSC U1 NOIS"
|
|---|
| 19 | D ^DIR K DIR
|
|---|
| 20 | I $D(DIRUT) Q
|
|---|
| 21 | I Y'=1 Q
|
|---|
| 22 | W !
|
|---|
| 23 | S DIK="^FSCD(""NOTIFY"","
|
|---|
| 24 | S CALL=0 F S CALL=$O(^TMP("FSC SELECT CALLS",$J,CALL)) Q:CALL<1 D
|
|---|
| 25 | .K ^TMP("FSC NOTIFY",$J)
|
|---|
| 26 | .D NOTINFO^FSCNOT(CALL,DUZ)
|
|---|
| 27 | .S DA=0 F S DA=$O(^TMP("FSC NOTIFY",$J,DA)) Q:DA<1 D ^DIK
|
|---|
| 28 | K ^TMP("FSC NOTIFY",$J)
|
|---|
| 29 | W !,"Scheduled notifications have been removed." H 2
|
|---|
| 30 | Q
|
|---|
