FSCXREFL ;SLC/STAFF-NOIS Xrefs List ;4/22/94  14:32
 ;;1.1;NOIS;;Sep 06, 1998
 ;
ALC(OP,FIELD,VALUE,LISTSNUM) ; from dd 7102
 N CALL,LIST
 I OP="SET" D  Q
 .I FIELD="CALL" D  Q
 ..I VALUE S LIST=$P(^FSCD("LISTS",LISTSNUM,0),U,2) I LIST S ^FSCD("LISTS","ALC",LIST,VALUE,LISTSNUM)=""
 .I FIELD="LIST" D  Q
 ..I VALUE S CALL=+^FSCD("LISTS",LISTSNUM,0) I CALL S ^FSCD("LISTS","ALC",VALUE,CALL,LISTSNUM)=""
 I OP="KILL" D  Q
 .I FIELD="CALL" D  Q
 ..I VALUE S LIST=$P(^FSCD("LISTS",LISTSNUM,0),U,2) I LIST K ^FSCD("LISTS","ALC",LIST,VALUE,LISTSNUM)
 .I FIELD="LIST" D  Q
 ..I VALUE S CALL=+^FSCD("LISTS",LISTSNUM,0) I CALL K ^FSCD("LISTS","ALC",VALUE,CALL,LISTSNUM)
 Q