Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCXREFN

FSCXREFN.m

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