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 Dec 13, 2024@02:20:41 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
