source: FOIAVistA/trunk/r/NOIS-FSC/FSCXREFN.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1FSCXREFN ;SLC/STAFF-NOIS Xrefs Notification ;4/22/94 14:34
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4ACLIST(OP,FIELD,VALUE,ENTRY) ; from dd 7100.2
5 N CALL,LIST
6 I OP="SET" D Q
7 .I FIELD="CALL" D Q
8 ..I VALUE S LIST=$P(^FSCD("NOTIFY",ENTRY,0),U,2) I LIST S ^FSCD("NOTIFY","ACLIST",VALUE,LIST)=ENTRY
9 .I FIELD="LIST" D Q
10 ..I VALUE S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL S ^FSCD("NOTIFY","ACLIST",CALL,VALUE)=ENTRY
11 I OP="KILL" D Q
12 .I FIELD="CALL" D Q
13 ..S LIST=$P(^FSCD("NOTIFY",ENTRY,0),U,2) I LIST K ^FSCD("NOTIFY","ACLIST",VALUE,LIST)
14 .I FIELD="LIST" D Q
15 ..S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL K ^FSCD("NOTIFY","ACLIST",CALL,VALUE)
16 Q
17 ;
18ACLOC(OP,FIELD,VALUE,ENTRY) ; from dd 7100.2
19 N CALL,LOC
20 I OP="SET" D Q
21 .I FIELD="CALL" D Q
22 ..I VALUE S LOC=$P(^FSCD("NOTIFY",ENTRY,0),U,3) I LOC S ^FSCD("NOTIFY","ACLOC",VALUE,LOC)=ENTRY
23 .I FIELD="LOC" D Q
24 ..I VALUE S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL S ^FSCD("NOTIFY","ACLOC",CALL,VALUE)=ENTRY
25 I OP="KILL" D Q
26 .I FIELD="CALL" D Q
27 ..S LOC=$P(^FSCD("NOTIFY",ENTRY,0),U,3) I LOC K ^FSCD("NOTIFY","ACLOC",VALUE,LOC)
28 .I FIELD="LOC" D Q
29 ..S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL K ^FSCD("NOTIFY","ACLOC",CALL,VALUE)
30 Q
31 ;
32ACUSER(OP,FIELD,VALUE,ENTRY) ; from DD 7100.2
33 N CALL,USER
34 I OP="SET" D Q
35 .I FIELD="CALL" D Q
36 ..I VALUE S USER=$P(^FSCD("NOTIFY",ENTRY,0),U,4) I USER S ^FSCD("NOTIFY","ACUSER",VALUE,USER)=ENTRY
37 .I FIELD="USER" D Q
38 ..I VALUE S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL S ^FSCD("NOTIFY","ACUSER",CALL,VALUE)=ENTRY
39 I OP="KILL" D Q
40 .I FIELD="CALL" D Q
41 ..S USER=$P(^FSCD("NOTIFY",ENTRY,0),U,4) I USER K ^FSCD("NOTIFY","ACUSER",VALUE,USER)
42 .I FIELD="USER" D Q
43 ..S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL K ^FSCD("NOTIFY","ACUSER",CALL,VALUE)
44 Q
Note: See TracBrowser for help on using the repository browser.