FSCXMRA ;SLC/STAFF-NOIS Xrefs MRA ;12/27/96 09:22
;;1.1;NOIS;;Sep 06, 1998
;
AUTC(OP,FIELD,VALUE,NUM) ; from dd 7101.1
N USER,TIME,CALL
I OP="SET" D Q
.I FIELD="USER" D Q
..I VALUE S TIME=$P(^FSCD("MRA",NUM,0),U,2),CALL=$P(^(0),U,3) I TIME,CALL S ^FSCD("MRA","AUTC",VALUE,-TIME,CALL)=NUM
.I FIELD="TIME" D Q
..I VALUE S USER=$P(^FSCD("MRA",NUM,0),U),CALL=$P(^(0),U,3) I USER,CALL S ^FSCD("MRA","AUTC",USER,-VALUE,CALL)=NUM
.I FIELD="CALL" D Q
..I VALUE S USER=$P(^FSCD("MRA",NUM,0),U),TIME=$P(^(0),U,2) I USER,TIME S ^FSCD("MRA","AUTC",USER,-TIME,VALUE)=NUM
I OP="KILL" D Q
.I FIELD="USER" D Q
..I VALUE S TIME=$P(^FSCD("MRA",NUM,0),U,2),CALL=$P(^(0),U,3) I TIME,CALL K ^FSCD("MRA","AUTC",VALUE,-TIME,CALL)
.I FIELD="TIME" D Q
..I VALUE S USER=$P(^FSCD("MRA",NUM,0),U),CALL=$P(^(0),U,3) I USER,CALL K ^FSCD("MRA","AUTC",USER,-VALUE,CALL)
.I FIELD="CALL" D Q
..I VALUE S USER=$P(^FSCD("MRA",NUM,0),U),TIME=$P(^(0),U,2) I USER,TIME K ^FSCD("MRA","AUTC",USER,-TIME,VALUE)
Q
;
AUC(OP,FIELD,VALUE,NUM) ; from dd 7101.1
N USER,CALL
I OP="SET" D Q
.I FIELD="USER" D Q
..I VALUE S CALL=$P(^FSCD("MRA",NUM,0),U,3) I CALL S ^FSCD("MRA","AUC",VALUE,CALL)=NUM
.I FIELD="CALL" D Q
..I VALUE S USER=$P(^FSCD("MRA",NUM,0),U) I USER S ^FSCD("MRA","AUC",USER,VALUE)=NUM
I OP="KILL" D Q
.I FIELD="USER" D Q
..I VALUE S CALL=$P(^FSCD("MRA",NUM,0),U,3) I CALL K ^FSCD("MRA","AUC",VALUE,CALL)
.I FIELD="CALL" D Q
..I VALUE S USER=$P(^FSCD("MRA",NUM,0),U) I USER K ^FSCD("MRA","AUC",USER,VALUE)
Q
;
AUT(OP,FIELD,VALUE,NUM) ; from dd 7101.1
N USER,TIME
I OP="SET" D Q
.I FIELD="USER" D Q
..I VALUE S TIME=$P(^FSCD("MRA",NUM,0),U,2) I TIME S ^FSCD("MRA","AUT",VALUE)=TIME
.I FIELD="TIME" D Q
..I VALUE S USER=$P(^FSCD("MRA",NUM,0),U) I USER S ^FSCD("MRA","AUT",USER)=VALUE
I OP="KILL" D Q
.I FIELD="USER" D Q
..I VALUE K ^FSCD("MRA","AUT",VALUE)
.I FIELD="TIME" D Q
..S USER=$P(^FSCD("MRA",NUM,0),U) I USER K ^FSCD("MRA","AUT",USER)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCXMRA 2024 printed Apr 09, 2024@21:21:21 Page 2
FSCXMRA ;SLC/STAFF-NOIS Xrefs MRA ;12/27/96 09:22
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
AUTC(OP,FIELD,VALUE,NUM) ; from dd 7101.1
+1 NEW USER,TIME,CALL
+2 IF OP="SET"
Begin DoDot:1
+3 IF FIELD="USER"
Begin DoDot:2
+4 IF VALUE
SET TIME=$PIECE(^FSCD("MRA",NUM,0),U,2)
SET CALL=$PIECE(^(0),U,3)
IF TIME
IF CALL
SET ^FSCD("MRA","AUTC",VALUE,-TIME,CALL)=NUM
End DoDot:2
QUIT
+5 IF FIELD="TIME"
Begin DoDot:2
+6 IF VALUE
SET USER=$PIECE(^FSCD("MRA",NUM,0),U)
SET CALL=$PIECE(^(0),U,3)
IF USER
IF CALL
SET ^FSCD("MRA","AUTC",USER,-VALUE,CALL)=NUM
End DoDot:2
QUIT
+7 IF FIELD="CALL"
Begin DoDot:2
+8 IF VALUE
SET USER=$PIECE(^FSCD("MRA",NUM,0),U)
SET TIME=$PIECE(^(0),U,2)
IF USER
IF TIME
SET ^FSCD("MRA","AUTC",USER,-TIME,VALUE)=NUM
End DoDot:2
QUIT
End DoDot:1
QUIT
+9 IF OP="KILL"
Begin DoDot:1
+10 IF FIELD="USER"
Begin DoDot:2
+11 IF VALUE
SET TIME=$PIECE(^FSCD("MRA",NUM,0),U,2)
SET CALL=$PIECE(^(0),U,3)
IF TIME
IF CALL
KILL ^FSCD("MRA","AUTC",VALUE,-TIME,CALL)
End DoDot:2
QUIT
+12 IF FIELD="TIME"
Begin DoDot:2
+13 IF VALUE
SET USER=$PIECE(^FSCD("MRA",NUM,0),U)
SET CALL=$PIECE(^(0),U,3)
IF USER
IF CALL
KILL ^FSCD("MRA","AUTC",USER,-VALUE,CALL)
End DoDot:2
QUIT
+14 IF FIELD="CALL"
Begin DoDot:2
+15 IF VALUE
SET USER=$PIECE(^FSCD("MRA",NUM,0),U)
SET TIME=$PIECE(^(0),U,2)
IF USER
IF TIME
KILL ^FSCD("MRA","AUTC",USER,-TIME,VALUE)
End DoDot:2
QUIT
End DoDot:1
QUIT
+16 QUIT
+17 ;
AUC(OP,FIELD,VALUE,NUM) ; from dd 7101.1
+1 NEW USER,CALL
+2 IF OP="SET"
Begin DoDot:1
+3 IF FIELD="USER"
Begin DoDot:2
+4 IF VALUE
SET CALL=$PIECE(^FSCD("MRA",NUM,0),U,3)
IF CALL
SET ^FSCD("MRA","AUC",VALUE,CALL)=NUM
End DoDot:2
QUIT
+5 IF FIELD="CALL"
Begin DoDot:2
+6 IF VALUE
SET USER=$PIECE(^FSCD("MRA",NUM,0),U)
IF USER
SET ^FSCD("MRA","AUC",USER,VALUE)=NUM
End DoDot:2
QUIT
End DoDot:1
QUIT
+7 IF OP="KILL"
Begin DoDot:1
+8 IF FIELD="USER"
Begin DoDot:2
+9 IF VALUE
SET CALL=$PIECE(^FSCD("MRA",NUM,0),U,3)
IF CALL
KILL ^FSCD("MRA","AUC",VALUE,CALL)
End DoDot:2
QUIT
+10 IF FIELD="CALL"
Begin DoDot:2
+11 IF VALUE
SET USER=$PIECE(^FSCD("MRA",NUM,0),U)
IF USER
KILL ^FSCD("MRA","AUC",USER,VALUE)
End DoDot:2
QUIT
End DoDot:1
QUIT
+12 QUIT
+13 ;
AUT(OP,FIELD,VALUE,NUM) ; from dd 7101.1
+1 NEW USER,TIME
+2 IF OP="SET"
Begin DoDot:1
+3 IF FIELD="USER"
Begin DoDot:2
+4 IF VALUE
SET TIME=$PIECE(^FSCD("MRA",NUM,0),U,2)
IF TIME
SET ^FSCD("MRA","AUT",VALUE)=TIME
End DoDot:2
QUIT
+5 IF FIELD="TIME"
Begin DoDot:2
+6 IF VALUE
SET USER=$PIECE(^FSCD("MRA",NUM,0),U)
IF USER
SET ^FSCD("MRA","AUT",USER)=VALUE
End DoDot:2
QUIT
End DoDot:1
QUIT
+7 IF OP="KILL"
Begin DoDot:1
+8 IF FIELD="USER"
Begin DoDot:2
+9 IF VALUE
KILL ^FSCD("MRA","AUT",VALUE)
End DoDot:2
QUIT
+10 IF FIELD="TIME"
Begin DoDot:2
+11 SET USER=$PIECE(^FSCD("MRA",NUM,0),U)
IF USER
KILL ^FSCD("MRA","AUT",USER)
End DoDot:2
QUIT
End DoDot:1
QUIT
+12 QUIT
