FSCXREFL.m

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 ---FSCXREFL   680     printed  Apr 09, 2024@21:21:34                                                                                                                                                                                                     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