FSCXREFA ;SLC/STAFF-NOIS Xrefs Alert ;4/22/94 14:32
;;1.1;NOIS;;Sep 06, 1998
;
AUC(OP,FIELD,VALUE,ENTRY) ; from dd 7100.3
N CALL,USER
I OP="SET" D Q
.I FIELD="CALL" D Q
..I VALUE S USER=$P(^FSCD("ALERT",ENTRY,0),U) I USER S ^FSCD("ALERT","AUC",USER,VALUE)=ENTRY
.I FIELD="USER" D Q
..I VALUE S CALL=$P(^FSCD("ALERT",ENTRY,0),U,2) I CALL S ^FSCD("ALERT","AUC",VALUE,CALL)=ENTRY
I OP="KILL" D Q
.I FIELD="CALL" D Q
..S USER=$P(^FSCD("ALERT",ENTRY,0),U) I USER K ^FSCD("ALERT","AUC",USER,VALUE)
.I FIELD="USER" D Q
..S CALL=$P(^FSCD("ALERT",ENTRY,0),U,2) I CALL K ^FSCD("ALERT","AUC",VALUE,CALL)
Q
ALERT(OP,VALUE,ENTRY) ; from dd 7100.3
I OP="SET" D Q
.I VALUE,$L($P($G(^FSCD("ALERT",+ENTRY,0)),U,2)) S ^FSCD("ALERT","ALERT",VALUE)=ENTRY ; only setup on self notification, not send notification
I OP="KILL" D Q
.K ^FSCD("ALERT","ALERT",VALUE)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCXREFA 892 printed Oct 16, 2024@18:21:15 Page 2
FSCXREFA ;SLC/STAFF-NOIS Xrefs Alert ;4/22/94 14:32
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
AUC(OP,FIELD,VALUE,ENTRY) ; from dd 7100.3
+1 NEW CALL,USER
+2 IF OP="SET"
Begin DoDot:1
+3 IF FIELD="CALL"
Begin DoDot:2
+4 IF VALUE
SET USER=$PIECE(^FSCD("ALERT",ENTRY,0),U)
IF USER
SET ^FSCD("ALERT","AUC",USER,VALUE)=ENTRY
End DoDot:2
QUIT
+5 IF FIELD="USER"
Begin DoDot:2
+6 IF VALUE
SET CALL=$PIECE(^FSCD("ALERT",ENTRY,0),U,2)
IF CALL
SET ^FSCD("ALERT","AUC",VALUE,CALL)=ENTRY
End DoDot:2
QUIT
End DoDot:1
QUIT
+7 IF OP="KILL"
Begin DoDot:1
+8 IF FIELD="CALL"
Begin DoDot:2
+9 SET USER=$PIECE(^FSCD("ALERT",ENTRY,0),U)
IF USER
KILL ^FSCD("ALERT","AUC",USER,VALUE)
End DoDot:2
QUIT
+10 IF FIELD="USER"
Begin DoDot:2
+11 SET CALL=$PIECE(^FSCD("ALERT",ENTRY,0),U,2)
IF CALL
KILL ^FSCD("ALERT","AUC",VALUE,CALL)
End DoDot:2
QUIT
End DoDot:1
QUIT
+12 QUIT
ALERT(OP,VALUE,ENTRY) ; from dd 7100.3
+1 IF OP="SET"
Begin DoDot:1
+2 ; only setup on self notification, not send notification
IF VALUE
IF $LENGTH($PIECE($GET(^FSCD("ALERT",+ENTRY,0)),U,2))
SET ^FSCD("ALERT","ALERT",VALUE)=ENTRY
End DoDot:1
QUIT
+3 IF OP="KILL"
Begin DoDot:1
+4 KILL ^FSCD("ALERT","ALERT",VALUE)
End DoDot:1
QUIT
+5 QUIT
