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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCXREFL 680 printed Dec 13, 2024@02:20:40 Page 2
FSCXREFL ;SLC/STAFF-NOIS Xrefs List ;4/22/94 14:32
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
ALC(OP,FIELD,VALUE,LISTSNUM) ; from dd 7102
+1 NEW CALL,LIST
+2 IF OP="SET"
Begin DoDot:1
+3 IF FIELD="CALL"
Begin DoDot:2
+4 IF VALUE
SET LIST=$PIECE(^FSCD("LISTS",LISTSNUM,0),U,2)
IF LIST
SET ^FSCD("LISTS","ALC",LIST,VALUE,LISTSNUM)=""
End DoDot:2
QUIT
+5 IF FIELD="LIST"
Begin DoDot:2
+6 IF VALUE
SET CALL=+^FSCD("LISTS",LISTSNUM,0)
IF CALL
SET ^FSCD("LISTS","ALC",VALUE,CALL,LISTSNUM)=""
End DoDot:2
QUIT
End DoDot:1
QUIT
+7 IF OP="KILL"
Begin DoDot:1
+8 IF FIELD="CALL"
Begin DoDot:2
+9 IF VALUE
SET LIST=$PIECE(^FSCD("LISTS",LISTSNUM,0),U,2)
IF LIST
KILL ^FSCD("LISTS","ALC",LIST,VALUE,LISTSNUM)
End DoDot:2
QUIT
+10 IF FIELD="LIST"
Begin DoDot:2
+11 IF VALUE
SET CALL=+^FSCD("LISTS",LISTSNUM,0)
IF CALL
KILL ^FSCD("LISTS","ALC",VALUE,CALL,LISTSNUM)
End DoDot:2
QUIT
End DoDot:1
QUIT
+12 QUIT
