| 1 | FSCTASKN ;SLC/STAFF-NOIS Task Notification ;1/13/98 17:11
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | NOTIFY ; from FSCTASKA
|
|---|
| 5 | N ADDRESS,ARRAY,CALL,DA,DIK,EVENT,LIST,LISTNAME,METHOD,MSG,NOTIFY,NUM,USER K ARRAY
|
|---|
| 6 | S LIST=0 F S LIST=$O(^FSC("LIST","AU","A",LIST)) Q:LIST<1 D
|
|---|
| 7 | .Q:$P($G(^FSC("LIST",LIST,0)),U,7)'="ADDED" Q:'$L($P(^(0),U,6)) S LISTNAME=$P(^(0),U)
|
|---|
| 8 | .S NUM=0 F S NUM=$O(^FSCD("NOTIFY","ALIST",LIST,NUM)) Q:NUM<1 D
|
|---|
| 9 | ..S NOTIFY=$G(^FSCD("NOTIFY",NUM,0)),CALL=+NOTIFY I 'CALL Q
|
|---|
| 10 | ..D GET^FSCNOTS(NOTIFY,.USER,.METHOD,.EVENT,.ADDRESS)
|
|---|
| 11 | ..S MSG="Call added to "_LISTNAME_" "_$$FMTE^XLFDT(DT)_"."
|
|---|
| 12 | ..D
|
|---|
| 13 | ...I METHOD="MAIL" D Q
|
|---|
| 14 | ....I $L(ADDRESS) S ARRAY(ADDRESS)="",ARRAY(ADDRESS,1)="I" Q
|
|---|
| 15 | ....S ARRAY(USER)="",ARRAY(USER,1)="I"
|
|---|
| 16 | ...I METHOD="ALERT" D ALERT^FSCNOTS(CALL,USER,MSG) Q
|
|---|
| 17 | ..S DA=NUM,DIK="^FSCD(""NOTIFY""," D ^DIK
|
|---|
| 18 | ..I $L($O(ARRAY(0))) D MAIL^FSCNOTS(CALL,.ARRAY,MSG) K ARRAY
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | CHKALERT ; from FSCTASKA
|
|---|
| 22 | N USER
|
|---|
| 23 | S USER=0 F S USER=$O(^FSCD("ALERT","ALERT",USER)) Q:USER'>0 D NEWALERT(USER)
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | NEWALERT(USER) ;
|
|---|
| 27 | N XQA,XQADATA,XQAID,XQAMSG,XQAROU K XQA,^TMP("FSC CHKALERT",$J)
|
|---|
| 28 | D USER^XQALERT("^TMP(""FSC CHKALERT"",$J)",USER,2900101)
|
|---|
| 29 | I '$O(^TMP("FSC CHKALERT",$J,0))!'$O(^XTV(8992,USER,"XQA",0)) D
|
|---|
| 30 | .S XQA(USER)="",XQADATA="",XQAMSG="NOIS Calls",XQAROU="USER^FSCNAR",XQAID="FSC-A"
|
|---|
| 31 | .D SETUP^XQALERT
|
|---|
| 32 | K ^TMP("FSC CHKALERT",$J)
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
| 35 | DELIVERY(UPDATE) ; from FSCTASKA
|
|---|
| 36 | N ALERT,DA,DATE,DIE,DR,NUM,XQA,XQADATA,XQAID,XQAMSG,XQAROU K XQA
|
|---|
| 37 | S XQAROU="ALERT^FSCNAR",DIE="^FSCD(""ALERT"","
|
|---|
| 38 | S DATE=0 F S DATE=$O(^FSCD("ALERT","AD",DATE)) Q:DATE<1 Q:DATE>UPDATE D
|
|---|
| 39 | .S NUM=0 F S NUM=$O(^FSCD("ALERT","AD",DATE,NUM)) Q:NUM<1 D
|
|---|
| 40 | ..S ALERT=$G(^FSCD("ALERT",NUM,0)) I '$L(ALERT) Q
|
|---|
| 41 | ..I $P(ALERT,U,4) Q
|
|---|
| 42 | ..S DA=NUM,DR="3///"_$$NOW^XLFDT_";4///@"
|
|---|
| 43 | ..L +^FSCD("ALERT",NUM,0):30 I '$T Q ; *** skip
|
|---|
| 44 | ..D ^DIE
|
|---|
| 45 | ..L -^FSCD("ALERT",NUM,0)
|
|---|
| 46 | ..S XQAROU="ALERT^FSCNAR",XQADATA=NUM,XQA(+ALERT)="",XQAMSG=$P(ALERT,U,3),XQAID="FSC-A"
|
|---|
| 47 | ..I $O(XQA(0)) D SETUP^XQALERT
|
|---|
| 48 | Q
|
|---|
