- FSCXREFN ;SLC/STAFF-NOIS Xrefs Notification ;4/22/94 14:34
- ;;1.1;NOIS;;Sep 06, 1998
- ;
- ACLIST(OP,FIELD,VALUE,ENTRY) ; from dd 7100.2
- N CALL,LIST
- I OP="SET" D Q
- .I FIELD="CALL" D Q
- ..I VALUE S LIST=$P(^FSCD("NOTIFY",ENTRY,0),U,2) I LIST S ^FSCD("NOTIFY","ACLIST",VALUE,LIST)=ENTRY
- .I FIELD="LIST" D Q
- ..I VALUE S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL S ^FSCD("NOTIFY","ACLIST",CALL,VALUE)=ENTRY
- I OP="KILL" D Q
- .I FIELD="CALL" D Q
- ..S LIST=$P(^FSCD("NOTIFY",ENTRY,0),U,2) I LIST K ^FSCD("NOTIFY","ACLIST",VALUE,LIST)
- .I FIELD="LIST" D Q
- ..S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL K ^FSCD("NOTIFY","ACLIST",CALL,VALUE)
- Q
- ;
- ACLOC(OP,FIELD,VALUE,ENTRY) ; from dd 7100.2
- N CALL,LOC
- I OP="SET" D Q
- .I FIELD="CALL" D Q
- ..I VALUE S LOC=$P(^FSCD("NOTIFY",ENTRY,0),U,3) I LOC S ^FSCD("NOTIFY","ACLOC",VALUE,LOC)=ENTRY
- .I FIELD="LOC" D Q
- ..I VALUE S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL S ^FSCD("NOTIFY","ACLOC",CALL,VALUE)=ENTRY
- I OP="KILL" D Q
- .I FIELD="CALL" D Q
- ..S LOC=$P(^FSCD("NOTIFY",ENTRY,0),U,3) I LOC K ^FSCD("NOTIFY","ACLOC",VALUE,LOC)
- .I FIELD="LOC" D Q
- ..S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL K ^FSCD("NOTIFY","ACLOC",CALL,VALUE)
- Q
- ;
- ACUSER(OP,FIELD,VALUE,ENTRY) ; from DD 7100.2
- N CALL,USER
- I OP="SET" D Q
- .I FIELD="CALL" D Q
- ..I VALUE S USER=$P(^FSCD("NOTIFY",ENTRY,0),U,4) I USER S ^FSCD("NOTIFY","ACUSER",VALUE,USER)=ENTRY
- .I FIELD="USER" D Q
- ..I VALUE S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL S ^FSCD("NOTIFY","ACUSER",CALL,VALUE)=ENTRY
- I OP="KILL" D Q
- .I FIELD="CALL" D Q
- ..S USER=$P(^FSCD("NOTIFY",ENTRY,0),U,4) I USER K ^FSCD("NOTIFY","ACUSER",VALUE,USER)
- .I FIELD="USER" D Q
- ..S CALL=$P(^FSCD("NOTIFY",ENTRY,0),U) I CALL K ^FSCD("NOTIFY","ACUSER",CALL,VALUE)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCXREFN 1796 printed Feb 18, 2025@23:47:08 Page 2
- FSCXREFN ;SLC/STAFF-NOIS Xrefs Notification ;4/22/94 14:34
- +1 ;;1.1;NOIS;;Sep 06, 1998
- +2 ;
- ACLIST(OP,FIELD,VALUE,ENTRY) ; from dd 7100.2
- +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("NOTIFY",ENTRY,0),U,2)
- IF LIST
- SET ^FSCD("NOTIFY","ACLIST",VALUE,LIST)=ENTRY
- End DoDot:2
- QUIT
- +5 IF FIELD="LIST"
- Begin DoDot:2
- +6 IF VALUE
- SET CALL=$PIECE(^FSCD("NOTIFY",ENTRY,0),U)
- IF CALL
- SET ^FSCD("NOTIFY","ACLIST",CALL,VALUE)=ENTRY
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +7 IF OP="KILL"
- Begin DoDot:1
- +8 IF FIELD="CALL"
- Begin DoDot:2
- +9 SET LIST=$PIECE(^FSCD("NOTIFY",ENTRY,0),U,2)
- IF LIST
- KILL ^FSCD("NOTIFY","ACLIST",VALUE,LIST)
- End DoDot:2
- QUIT
- +10 IF FIELD="LIST"
- Begin DoDot:2
- +11 SET CALL=$PIECE(^FSCD("NOTIFY",ENTRY,0),U)
- IF CALL
- KILL ^FSCD("NOTIFY","ACLIST",CALL,VALUE)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT
- +13 ;
- ACLOC(OP,FIELD,VALUE,ENTRY) ; from dd 7100.2
- +1 NEW CALL,LOC
- +2 IF OP="SET"
- Begin DoDot:1
- +3 IF FIELD="CALL"
- Begin DoDot:2
- +4 IF VALUE
- SET LOC=$PIECE(^FSCD("NOTIFY",ENTRY,0),U,3)
- IF LOC
- SET ^FSCD("NOTIFY","ACLOC",VALUE,LOC)=ENTRY
- End DoDot:2
- QUIT
- +5 IF FIELD="LOC"
- Begin DoDot:2
- +6 IF VALUE
- SET CALL=$PIECE(^FSCD("NOTIFY",ENTRY,0),U)
- IF CALL
- SET ^FSCD("NOTIFY","ACLOC",CALL,VALUE)=ENTRY
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +7 IF OP="KILL"
- Begin DoDot:1
- +8 IF FIELD="CALL"
- Begin DoDot:2
- +9 SET LOC=$PIECE(^FSCD("NOTIFY",ENTRY,0),U,3)
- IF LOC
- KILL ^FSCD("NOTIFY","ACLOC",VALUE,LOC)
- End DoDot:2
- QUIT
- +10 IF FIELD="LOC"
- Begin DoDot:2
- +11 SET CALL=$PIECE(^FSCD("NOTIFY",ENTRY,0),U)
- IF CALL
- KILL ^FSCD("NOTIFY","ACLOC",CALL,VALUE)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT
- +13 ;
- ACUSER(OP,FIELD,VALUE,ENTRY) ; from DD 7100.2
- +1 NEW CALL,USER
- +2 IF OP="SET"
- Begin DoDot:1
- +3 IF FIELD="CALL"
- Begin DoDot:2
- +4 IF VALUE
- SET USER=$PIECE(^FSCD("NOTIFY",ENTRY,0),U,4)
- IF USER
- SET ^FSCD("NOTIFY","ACUSER",VALUE,USER)=ENTRY
- End DoDot:2
- QUIT
- +5 IF FIELD="USER"
- Begin DoDot:2
- +6 IF VALUE
- SET CALL=$PIECE(^FSCD("NOTIFY",ENTRY,0),U)
- IF CALL
- SET ^FSCD("NOTIFY","ACUSER",CALL,VALUE)=ENTRY
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +7 IF OP="KILL"
- Begin DoDot:1
- +8 IF FIELD="CALL"
- Begin DoDot:2
- +9 SET USER=$PIECE(^FSCD("NOTIFY",ENTRY,0),U,4)
- IF USER
- KILL ^FSCD("NOTIFY","ACUSER",VALUE,USER)
- End DoDot:2
- QUIT
- +10 IF FIELD="USER"
- Begin DoDot:2
- +11 SET CALL=$PIECE(^FSCD("NOTIFY",ENTRY,0),U)
- IF CALL
- KILL ^FSCD("NOTIFY","ACUSER",CALL,VALUE)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT