source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCXREFA.m@ 701

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

initial load of WorldVistAEHR

File size: 870 bytes
Line 
1FSCXREFA ;SLC/STAFF-NOIS Xrefs Alert ;4/22/94 14:32
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4AUC(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
17ALERT(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
Note: See TracBrowser for help on using the repository browser.