source: FOIAVistA/trunk/r/NOIS-FSC/FSCLMPON.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1FSCLMPON ;SLC/STAFF-NOIS List Manager Protocol Other Notify ;1/11/98 18:37
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4NOTIFY(CALL) ; from FSCLMPO
5 N CNT,LISTNAME,LISTNUM,LISTSNUM,MSG,NUM,OK,OWNER
6 K ^TMP("FSC NOTIFY",$J)
7 W !,"Notifications on this call:" S (CNT,OK)=1
8 D NOTINFO^FSCNOT(CALL)
9 S MSG="" F S MSG=$O(^TMP("FSC NOTIFY",$J,"B",MSG)) Q:MSG="" D I 'OK Q
10 .S NUM=0 F S NUM=$O(^TMP("FSC NOTIFY",$J,"B",MSG,NUM)) Q:NUM<1 D I 'OK Q
11 ..W !,?2,^TMP("FSC NOTIFY",$J,NUM)
12 ..S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
13 K ^TMP("FSC NOTIFY",$J)
14 I 'OK Q
15 W !,"This call is found on the following lists:" S CNT=CNT+1
16 I CALL D
17 .S LISTSNUM=0 F S LISTSNUM=$O(^FSCD("LISTS","B",CALL,LISTSNUM)) Q:LISTSNUM<1 D I 'OK Q
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 ..W !?2,LISTNAME I OWNER W ?24," Owner: ",$$VALUE^FSCGET(OWNER,7107.1,1)," ",$$SITESP(OWNER)
21 ..S CNT=CNT+1 I CNT'<(IOSL-1) S CNT=1 D PAUSE^FSCU(.OK) I 'OK Q
22 I 'OK Q
23 D PAUSE^FSCU(.OK)
24 Q
25 ;
26SITESP(USER) ; $$(user) -> (site - area)
27 N AREA,BOTH,SITE
28 S SITE=$P($G(^FSC("SPEC",USER,0)),U,3),AREA=$P($G(^(0)),U,4),BOTH=""
29 I 'SITE,'AREA Q ""
30 I SITE,AREA S BOTH=" - "
31 Q "("_$$VALUE^FSCGET(SITE,7105.2,3)_BOTH_$$VALUE^FSCGET(AREA,7105.2,4)_")"
Note: See TracBrowser for help on using the repository browser.