source: FOIAVistA/trunk/r/NOIS-FSC/FSCNAR.m@ 868

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1FSCNAR ;SLC/STAFF-NOIS Notification Alert Receive ;12/27/96 15:20
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4ALERT ; 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 ;
29USER ;
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
Note: See TracBrowser for help on using the repository browser.