FSCXMRE ;SLC/STAFF-NOIS Xrefs MRE ;12/27/96 09:21 ;;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("MRE",NUM,0),U,2),CALL=$P(^(0),U,3) I TIME,CALL S ^FSCD("MRE","AUTC",VALUE,-TIME,CALL)=NUM .I FIELD="TIME" D Q ..I VALUE S USER=$P(^FSCD("MRE",NUM,0),U),CALL=$P(^(0),U,3) I USER,CALL S ^FSCD("MRE","AUTC",USER,-VALUE,CALL)=NUM .I FIELD="CALL" D Q ..I VALUE S USER=$P(^FSCD("MRE",NUM,0),U),TIME=$P(^(0),U,2) I USER,TIME S ^FSCD("MRE","AUTC",USER,-TIME,VALUE)=NUM I OP="KILL" D Q .I FIELD="USER" D Q ..I VALUE S TIME=$P(^FSCD("MRE",NUM,0),U,2),CALL=$P(^(0),U,3) I TIME,CALL K ^FSCD("MRE","AUTC",VALUE,-TIME,CALL) .I FIELD="TIME" D Q ..I VALUE S USER=$P(^FSCD("MRE",NUM,0),U),CALL=$P(^(0),U,3) I USER,CALL K ^FSCD("MRE","AUTC",USER,-VALUE,CALL) .I FIELD="CALL" D Q ..I VALUE S USER=$P(^FSCD("MRE",NUM,0),U),TIME=$P(^(0),U,2) I USER,TIME K ^FSCD("MRE","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("MRE",NUM,0),U,3) I CALL S ^FSCD("MRE","AUC",VALUE,CALL)=NUM .I FIELD="CALL" D Q ..I VALUE S USER=$P(^FSCD("MRE",NUM,0),U) I USER S ^FSCD("MRE","AUC",USER,VALUE)=NUM I OP="KILL" D Q .I FIELD="USER" D Q ..I VALUE S CALL=$P(^FSCD("MRE",NUM,0),U,3) I CALL K ^FSCD("MRE","AUC",VALUE,CALL) .I FIELD="CALL" D Q ..I VALUE S USER=$P(^FSCD("MRE",NUM,0),U) I USER K ^FSCD("MRE","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("MRE",NUM,0),U,2) I TIME S ^FSCD("MRE","AUT",VALUE)=TIME .I FIELD="TIME" D Q ..I VALUE S USER=$P(^FSCD("MRE",NUM,0),U) I USER S ^FSCD("MRE","AUT",USER)=VALUE I OP="KILL" D Q .I FIELD="USER" D Q ..I VALUE K ^FSCD("MRE","AUT",VALUE) .I FIELD="TIME" D Q ..S USER=$P(^FSCD("MRE",NUM,0),U) I USER K ^FSCD("MRE","AUT",USER) Q