| [613] | 1 | FSCLMPON ;SLC/STAFF-NOIS List Manager Protocol Other Notify ;1/11/98 18:37
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | NOTIFY(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 | ;
|
|---|
| 26 | SITESP(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)_")"
|
|---|
