FSCXREFN ;SLC/STAFF-NOIS Xrefs Notification ;4/22/94  14:34
 ;;1.1;NOIS;;Sep 06, 1998
 ;
ACLIST(OP,FIELD,VALUE,ENTRY) ; from dd 7100.2
 N CALL,LIST
 I OP="SET" D  Q
 .I FIELD="CALL" D  Q
 ..I VALUE S LIST=$P(^FSCD("NOTIFY",ENTRY,0),U,2) I LIST S ^FSCD("NOTIFY","ACLIST",VALUE,LIST)=ENTRY
 .I FIELD="LIST" D  Q
 ..I VALUE S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL S ^FSCD("NOTIFY","ACLIST",CALL,VALUE)=ENTRY
 I OP="KILL" D  Q
 .I FIELD="CALL" D  Q
 ..S LIST=$P(^FSCD("NOTIFY",ENTRY,0),U,2) I LIST K ^FSCD("NOTIFY","ACLIST",VALUE,LIST)
 .I FIELD="LIST" D  Q
 ..S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL K ^FSCD("NOTIFY","ACLIST",CALL,VALUE)
 Q
 ;
ACLOC(OP,FIELD,VALUE,ENTRY) ; from dd 7100.2
 N CALL,LOC
 I OP="SET" D  Q
 .I FIELD="CALL" D  Q
 ..I VALUE S LOC=$P(^FSCD("NOTIFY",ENTRY,0),U,3) I LOC S ^FSCD("NOTIFY","ACLOC",VALUE,LOC)=ENTRY
 .I FIELD="LOC" D  Q
 ..I VALUE S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL S ^FSCD("NOTIFY","ACLOC",CALL,VALUE)=ENTRY
 I OP="KILL" D  Q
 .I FIELD="CALL" D  Q
 ..S LOC=$P(^FSCD("NOTIFY",ENTRY,0),U,3) I LOC K ^FSCD("NOTIFY","ACLOC",VALUE,LOC)
 .I FIELD="LOC" D  Q
 ..S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL K ^FSCD("NOTIFY","ACLOC",CALL,VALUE)
 Q
 ;
ACUSER(OP,FIELD,VALUE,ENTRY) ; from DD 7100.2
 N CALL,USER
 I OP="SET" D  Q
 .I FIELD="CALL" D  Q
 ..I VALUE S USER=$P(^FSCD("NOTIFY",ENTRY,0),U,4) I USER S ^FSCD("NOTIFY","ACUSER",VALUE,USER)=ENTRY
 .I FIELD="USER" D  Q
 ..I VALUE S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL S ^FSCD("NOTIFY","ACUSER",CALL,VALUE)=ENTRY
 I OP="KILL" D  Q
 .I FIELD="CALL" D  Q
 ..S USER=$P(^FSCD("NOTIFY",ENTRY,0),U,4) I USER K ^FSCD("NOTIFY","ACUSER",VALUE,USER)
 .I FIELD="USER" D  Q
 ..S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL K ^FSCD("NOTIFY","ACUSER",CALL,VALUE)
 Q