Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCNAR

FSCNAR.m

Go to the documentation of this file.
  1. FSCNAR ;SLC/STAFF-NOIS Notification Alert Receive ;12/27/96 15:20
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. ALERT ; from Menu Alerts (set up in FSCNAS)
  1. I '$O(^FSCD("SEND","B",+XQADATA,0)) W !,"Alert has already been processed." H 2 Q
  1. I $D(^FSC("SPEC",DUZ,0))#2 D
  1. .S $P(^FSC("SPEC",DUZ,0),U,5)=$P($$NOW^XLFDT,".")
  1. .S DTIME=$S($P(^(0),U,12):$P(^(0),U,12),1:DTIME)
  1. N CALL,COUNT,FSCLNAME,FSCQUERY,NUM
  1. K ^TMP("FSC LIST",$J)
  1. K ^TMP("FSC LIST CLEANUP",$J)
  1. S FSCLNAME="Temporary List",FSCQUERY=1,FSCLNUM=0,COUNT=0
  1. S NUM=0 F S NUM=$O(^FSCD("SEND","B",+XQADATA,NUM)) Q:NUM<1 D
  1. .S CALL=+$P($G(^FSCD("SEND",NUM,0)),U,2)
  1. .S ^TMP("FSC LIST",$J,CALL)="",COUNT=COUNT+1
  1. .D MRA^FSCMR(DUZ,CALL)
  1. .S ^TMP("FSC LIST CLEANUP",$J,CALL)=$P($G(^FSCD("ALERT",+XQADATA,0)),U,3)
  1. I COUNT<8 S XQORM("B")=$$ALERT^FSCUF(DUZ)
  1. D EN^VALM("FSC LIST CALLS")
  1. ;S DIK="^FSCD(""SEND"","
  1. S NUM=0 F S NUM=$O(^FSCD("SEND","B",+XQADATA,NUM)) Q:NUM<1 D
  1. .;S DA=NUM D ^DIK
  1. .I '$L($P($G(^FSCD("SEND",NUM,0)),U,3)) S $P(^(0),U,3)=DT
  1. ;S DIK="^FSCD(""ALERT"",",DA=+XQADATA D ^DIK
  1. K XQADATA D TMP^FSCOPTU
  1. I '$D(^TMP("FSC SESSION",$J)) S DTIME=$$DTIME^XUP(DUZ)
  1. Q
  1. ;
  1. USER ;
  1. I $D(^FSC("SPEC",DUZ,0))#2 D
  1. .S $P(^FSC("SPEC",DUZ,0),U,5)=$P($$NOW^XLFDT,".")
  1. .S DTIME=$S($P(^(0),U,12):$P(^(0),U,12),1:DTIME)
  1. N CALL,COUNT,DA,DIK,FSCLNAME,FSCQUERY,NUM,X,Y
  1. K ^FSCD("ALERT","ALERT",DUZ)
  1. K ^TMP("FSC LIST",$J)
  1. K ^TMP("FSC LIST CLEANUP",$J)
  1. S FSCLNAME="Temporary List",FSCQUERY=1,FSCLNUM=0,COUNT=0
  1. S DIK="^FSCD(""ALERT"","
  1. S CALL=0 F S CALL=$O(^FSCD("ALERT","AUC",DUZ,CALL)) Q:CALL<1 S NUM=^(CALL) D
  1. .S ^TMP("FSC LIST",$J,CALL)="",COUNT=COUNT+1
  1. .D MRA^FSCMR(DUZ,CALL)
  1. .S ^TMP("FSC LIST CLEANUP",$J,CALL)=$P(^FSCD("ALERT",NUM,0),U,3)
  1. .S DA=+NUM D ^DIK
  1. I COUNT<8 S XQORM("B")=$$ALERT^FSCUF(DUZ)
  1. D EN^VALM("FSC LIST CALLS")
  1. D TMP^FSCOPTU
  1. I '$D(^TMP("FSC SESSION",$J)) S DTIME=$$DTIME^XUP(DUZ)
  1. Q