source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCRPCON.m@ 1801

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1FSCRPCON ;SLC/STAFF-NOIS RPC Other Notification ;12/7/97 16:42
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4NOTIFY(IN,OUT) ; from FSCRPX (RPCCallNotification)
5 N CALL,CNT,LISTNAME,LISTNUM,LISTSNUM,MSG,NUM,OWNER
6 S CALL=+$G(^TMP("FSCRPC",$J,"INPUT",1))
7 I 'CALL S ^TMP("FSCRPC",$J,"OUTPUT",1)="no information" Q
8 K ^TMP("FSC NOTIFY",$J)
9 S CNT=0
10 S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)="Notifications on this call:"
11 D NOTINFO^FSCNOT(CALL)
12 S MSG="" F S MSG=$O(^TMP("FSC NOTIFY",$J,"B",MSG)) Q:MSG="" D
13 .S NUM=0 F S NUM=$O(^TMP("FSC NOTIFY",$J,"B",MSG,NUM)) Q:NUM<1 D
14 ..S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=" "_^TMP("FSC NOTIFY",$J,NUM)
15 K ^TMP("FSC NOTIFY",$J)
16 S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)="This call is found on the following lists:"
17 S LISTSNUM=0 F S LISTSNUM=$O(^FSCD("LISTS","B",CALL,LISTSNUM)) Q:LISTSNUM<1 D
18 .S LISTNUM=+$P(^FSCD("LISTS",LISTSNUM,0),U,2)
19 .Q:'$D(^FSC("LIST",LISTNUM,0)) S LISTNAME=$P(^(0),U),OWNER=+$P(^(0),U,2)
20 .S CNT=CNT+1,^TMP("FSCRPC",$J,"OUTPUT",CNT)=" "_LISTNAME I OWNER D
21 ..S ^TMP("FSCRPC",$J,"OUTPUT",CNT)=^TMP("FSCRPC",$J,"OUTPUT",CNT)_" Owner: "_$$VALUE^FSCGET(OWNER,7107.1,1)_" "_$$SITESP(OWNER)
22 Q
23 ;
24SITESP(USER) ; $$(user) -> (site - area)
25 N AREA,BOTH,SITE
26 S SITE=$P($G(^FSC("SPEC",USER,0)),U,3),AREA=$P($G(^(0)),U,4),BOTH=""
27 I 'SITE,'AREA Q ""
28 I SITE,AREA S BOTH=" - "
29 Q "("_$$VALUE^FSCGET(SITE,7105.2,3)_BOTH_$$VALUE^FSCGET(AREA,7105.2,4)_")"
Note: See TracBrowser for help on using the repository browser.