Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCXMRE

FSCXMRE.m

Go to the documentation of this file.
  1. FSCXMRE ;SLC/STAFF-NOIS Xrefs MRE ;12/27/96 09:21
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. AUTC(OP,FIELD,VALUE,NUM) ; from dd 7101.1
  1. N USER,TIME,CALL
  1. I OP="SET" D Q
  1. .I FIELD="USER" D Q
  1. ..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
  1. .I FIELD="TIME" D Q
  1. ..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
  1. .I FIELD="CALL" D Q
  1. ..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
  1. I OP="KILL" D Q
  1. .I FIELD="USER" D Q
  1. ..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)
  1. .I FIELD="TIME" D Q
  1. ..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)
  1. .I FIELD="CALL" D Q
  1. ..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)
  1. Q
  1. ;
  1. AUC(OP,FIELD,VALUE,NUM) ; from dd 7101.1
  1. N USER,CALL
  1. I OP="SET" D Q
  1. .I FIELD="USER" D Q
  1. ..I VALUE S CALL=$P(^FSCD("MRE",NUM,0),U,3) I CALL S ^FSCD("MRE","AUC",VALUE,CALL)=NUM
  1. .I FIELD="CALL" D Q
  1. ..I VALUE S USER=$P(^FSCD("MRE",NUM,0),U) I USER S ^FSCD("MRE","AUC",USER,VALUE)=NUM
  1. I OP="KILL" D Q
  1. .I FIELD="USER" D Q
  1. ..I VALUE S CALL=$P(^FSCD("MRE",NUM,0),U,3) I CALL K ^FSCD("MRE","AUC",VALUE,CALL)
  1. .I FIELD="CALL" D Q
  1. ..I VALUE S USER=$P(^FSCD("MRE",NUM,0),U) I USER K ^FSCD("MRE","AUC",USER,VALUE)
  1. Q
  1. ;
  1. AUT(OP,FIELD,VALUE,NUM) ; from dd 7101.1
  1. N USER,TIME
  1. I OP="SET" D Q
  1. .I FIELD="USER" D Q
  1. ..I VALUE S TIME=$P(^FSCD("MRE",NUM,0),U,2) I TIME S ^FSCD("MRE","AUT",VALUE)=TIME
  1. .I FIELD="TIME" D Q
  1. ..I VALUE S USER=$P(^FSCD("MRE",NUM,0),U) I USER S ^FSCD("MRE","AUT",USER)=VALUE
  1. I OP="KILL" D Q
  1. .I FIELD="USER" D Q
  1. ..I VALUE K ^FSCD("MRE","AUT",VALUE)
  1. .I FIELD="TIME" D Q
  1. ..S USER=$P(^FSCD("MRE",NUM,0),U) I USER K ^FSCD("MRE","AUT",USER)
  1. Q