| 1 | FSCNAR ;SLC/STAFF-NOIS Notification Alert Receive ;12/27/96 15:20
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | ALERT ; from Menu Alerts (set up in FSCNAS)
|
|---|
| 5 | I '$O(^FSCD("SEND","B",+XQADATA,0)) W !,"Alert has already been processed." H 2 Q
|
|---|
| 6 | I $D(^FSC("SPEC",DUZ,0))#2 D
|
|---|
| 7 | .S $P(^FSC("SPEC",DUZ,0),U,5)=$P($$NOW^XLFDT,".")
|
|---|
| 8 | .S DTIME=$S($P(^(0),U,12):$P(^(0),U,12),1:DTIME)
|
|---|
| 9 | N CALL,COUNT,FSCLNAME,FSCQUERY,NUM
|
|---|
| 10 | K ^TMP("FSC LIST",$J)
|
|---|
| 11 | K ^TMP("FSC LIST CLEANUP",$J)
|
|---|
| 12 | S FSCLNAME="Temporary List",FSCQUERY=1,FSCLNUM=0,COUNT=0
|
|---|
| 13 | S NUM=0 F S NUM=$O(^FSCD("SEND","B",+XQADATA,NUM)) Q:NUM<1 D
|
|---|
| 14 | .S CALL=+$P($G(^FSCD("SEND",NUM,0)),U,2)
|
|---|
| 15 | .S ^TMP("FSC LIST",$J,CALL)="",COUNT=COUNT+1
|
|---|
| 16 | .D MRA^FSCMR(DUZ,CALL)
|
|---|
| 17 | .S ^TMP("FSC LIST CLEANUP",$J,CALL)=$P($G(^FSCD("ALERT",+XQADATA,0)),U,3)
|
|---|
| 18 | I COUNT<8 S XQORM("B")=$$ALERT^FSCUF(DUZ)
|
|---|
| 19 | D EN^VALM("FSC LIST CALLS")
|
|---|
| 20 | ;S DIK="^FSCD(""SEND"","
|
|---|
| 21 | S NUM=0 F S NUM=$O(^FSCD("SEND","B",+XQADATA,NUM)) Q:NUM<1 D
|
|---|
| 22 | .;S DA=NUM D ^DIK
|
|---|
| 23 | .I '$L($P($G(^FSCD("SEND",NUM,0)),U,3)) S $P(^(0),U,3)=DT
|
|---|
| 24 | ;S DIK="^FSCD(""ALERT"",",DA=+XQADATA D ^DIK
|
|---|
| 25 | K XQADATA D TMP^FSCOPTU
|
|---|
| 26 | I '$D(^TMP("FSC SESSION",$J)) S DTIME=$$DTIME^XUP(DUZ)
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | USER ;
|
|---|
| 30 | I $D(^FSC("SPEC",DUZ,0))#2 D
|
|---|
| 31 | .S $P(^FSC("SPEC",DUZ,0),U,5)=$P($$NOW^XLFDT,".")
|
|---|
| 32 | .S DTIME=$S($P(^(0),U,12):$P(^(0),U,12),1:DTIME)
|
|---|
| 33 | N CALL,COUNT,DA,DIK,FSCLNAME,FSCQUERY,NUM,X,Y
|
|---|
| 34 | K ^FSCD("ALERT","ALERT",DUZ)
|
|---|
| 35 | K ^TMP("FSC LIST",$J)
|
|---|
| 36 | K ^TMP("FSC LIST CLEANUP",$J)
|
|---|
| 37 | S FSCLNAME="Temporary List",FSCQUERY=1,FSCLNUM=0,COUNT=0
|
|---|
| 38 | S DIK="^FSCD(""ALERT"","
|
|---|
| 39 | S CALL=0 F S CALL=$O(^FSCD("ALERT","AUC",DUZ,CALL)) Q:CALL<1 S NUM=^(CALL) D
|
|---|
| 40 | .S ^TMP("FSC LIST",$J,CALL)="",COUNT=COUNT+1
|
|---|
| 41 | .D MRA^FSCMR(DUZ,CALL)
|
|---|
| 42 | .S ^TMP("FSC LIST CLEANUP",$J,CALL)=$P(^FSCD("ALERT",NUM,0),U,3)
|
|---|
| 43 | .S DA=+NUM D ^DIK
|
|---|
| 44 | I COUNT<8 S XQORM("B")=$$ALERT^FSCUF(DUZ)
|
|---|
| 45 | D EN^VALM("FSC LIST CALLS")
|
|---|
| 46 | D TMP^FSCOPTU
|
|---|
| 47 | I '$D(^TMP("FSC SESSION",$J)) S DTIME=$$DTIME^XUP(DUZ)
|
|---|
| 48 | Q
|
|---|
