FSCXREFP ;SLC/STAFF-NOIS Xrefs Personal Fields ;5/17/98 18:46
;;1.1;NOIS;;Sep 06, 1998
;
AUC(OP,FIELD,VALUE,IEN) ; from dd 7100.6
N CALL,USER
I OP="SET" D Q
.I FIELD="CALL" D Q
..I VALUE S USER=$P(^FSCD("CALL USER",IEN,0),U,2) I USER S ^FSCD("CALL","AUC",USER,VALUE)=IEN
.I FIELD="USER" D Q
..I VALUE S CALL=$P(^FSCD("CALL USER",IEN,0),U) I CALL S ^FSCD("CALL USER","AUC",VALUE,CALL)=IEN
I OP="KILL" D Q
.I FIELD="CALL" D Q
..S USER=$P(^FSCD("CALL USER",IEN,0),U,2) I USER K ^FSCD("CALL USER","AUC",USER,VALUE)
.I FIELD="USER" D Q
..S CALL=$P(^FSCD("CALL USER",IEN,0),U) I CALL K ^FSCD("CALL USER","AUC",VALUE,CALL)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCXREFP 655 printed Dec 13, 2024@02:20:43 Page 2
FSCXREFP ;SLC/STAFF-NOIS Xrefs Personal Fields ;5/17/98 18:46
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
AUC(OP,FIELD,VALUE,IEN) ; from dd 7100.6
+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("CALL USER",IEN,0),U,2)
IF USER
SET ^FSCD("CALL","AUC",USER,VALUE)=IEN
End DoDot:2
QUIT
+5 IF FIELD="USER"
Begin DoDot:2
+6 IF VALUE
SET CALL=$PIECE(^FSCD("CALL USER",IEN,0),U)
IF CALL
SET ^FSCD("CALL USER","AUC",VALUE,CALL)=IEN
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("CALL USER",IEN,0),U,2)
IF USER
KILL ^FSCD("CALL USER","AUC",USER,VALUE)
End DoDot:2
QUIT
+10 IF FIELD="USER"
Begin DoDot:2
+11 SET CALL=$PIECE(^FSCD("CALL USER",IEN,0),U)
IF CALL
KILL ^FSCD("CALL USER","AUC",VALUE,CALL)
End DoDot:2
QUIT
End DoDot:1
QUIT
+12 QUIT
