source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCLMPNR.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1FSCLMPNR ;SLC/STAFF NOIS List Manager Protocol Notification Remove ;11/29/95 11:02
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4NOTIFY ; 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
Note: See TracBrowser for help on using the repository browser.