- 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 Mar 13, 2025@21:25:37 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
