| [613] | 1 | FSCXREFA ;SLC/STAFF-NOIS Xrefs Alert ;4/22/94 14:32
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | AUC(OP,FIELD,VALUE,ENTRY) ; from dd 7100.3
|
|---|
| 5 | N CALL,USER
|
|---|
| 6 | I OP="SET" D Q
|
|---|
| 7 | .I FIELD="CALL" D Q
|
|---|
| 8 | ..I VALUE S USER=$P(^FSCD("ALERT",ENTRY,0),U) I USER S ^FSCD("ALERT","AUC",USER,VALUE)=ENTRY
|
|---|
| 9 | .I FIELD="USER" D Q
|
|---|
| 10 | ..I VALUE S CALL=$P(^FSCD("ALERT",ENTRY,0),U,2) I CALL S ^FSCD("ALERT","AUC",VALUE,CALL)=ENTRY
|
|---|
| 11 | I OP="KILL" D Q
|
|---|
| 12 | .I FIELD="CALL" D Q
|
|---|
| 13 | ..S USER=$P(^FSCD("ALERT",ENTRY,0),U) I USER K ^FSCD("ALERT","AUC",USER,VALUE)
|
|---|
| 14 | .I FIELD="USER" D Q
|
|---|
| 15 | ..S CALL=$P(^FSCD("ALERT",ENTRY,0),U,2) I CALL K ^FSCD("ALERT","AUC",VALUE,CALL)
|
|---|
| 16 | Q
|
|---|
| 17 | ALERT(OP,VALUE,ENTRY) ; from dd 7100.3
|
|---|
| 18 | I OP="SET" D Q
|
|---|
| 19 | .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
|
|---|
| 20 | I OP="KILL" D Q
|
|---|
| 21 | .K ^FSCD("ALERT","ALERT",VALUE)
|
|---|
| 22 | Q
|
|---|
