| [613] | 1 | FSCXMRA ;SLC/STAFF-NOIS Xrefs MRA ;12/27/96 09:22
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | AUTC(OP,FIELD,VALUE,NUM) ; from dd 7101.1
|
|---|
| 5 | N USER,TIME,CALL
|
|---|
| 6 | I OP="SET" D Q
|
|---|
| 7 | .I FIELD="USER" D Q
|
|---|
| 8 | ..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
|
|---|
| 9 | .I FIELD="TIME" D Q
|
|---|
| 10 | ..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
|
|---|
| 11 | .I FIELD="CALL" D Q
|
|---|
| 12 | ..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
|
|---|
| 13 | I OP="KILL" D Q
|
|---|
| 14 | .I FIELD="USER" D Q
|
|---|
| 15 | ..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)
|
|---|
| 16 | .I FIELD="TIME" D Q
|
|---|
| 17 | ..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)
|
|---|
| 18 | .I FIELD="CALL" D Q
|
|---|
| 19 | ..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)
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | AUC(OP,FIELD,VALUE,NUM) ; from dd 7101.1
|
|---|
| 23 | N USER,CALL
|
|---|
| 24 | I OP="SET" D Q
|
|---|
| 25 | .I FIELD="USER" D Q
|
|---|
| 26 | ..I VALUE S CALL=$P(^FSCD("MRA",NUM,0),U,3) I CALL S ^FSCD("MRA","AUC",VALUE,CALL)=NUM
|
|---|
| 27 | .I FIELD="CALL" D Q
|
|---|
| 28 | ..I VALUE S USER=$P(^FSCD("MRA",NUM,0),U) I USER S ^FSCD("MRA","AUC",USER,VALUE)=NUM
|
|---|
| 29 | I OP="KILL" D Q
|
|---|
| 30 | .I FIELD="USER" D Q
|
|---|
| 31 | ..I VALUE S CALL=$P(^FSCD("MRA",NUM,0),U,3) I CALL K ^FSCD("MRA","AUC",VALUE,CALL)
|
|---|
| 32 | .I FIELD="CALL" D Q
|
|---|
| 33 | ..I VALUE S USER=$P(^FSCD("MRA",NUM,0),U) I USER K ^FSCD("MRA","AUC",USER,VALUE)
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | AUT(OP,FIELD,VALUE,NUM) ; from dd 7101.1
|
|---|
| 37 | N USER,TIME
|
|---|
| 38 | I OP="SET" D Q
|
|---|
| 39 | .I FIELD="USER" D Q
|
|---|
| 40 | ..I VALUE S TIME=$P(^FSCD("MRA",NUM,0),U,2) I TIME S ^FSCD("MRA","AUT",VALUE)=TIME
|
|---|
| 41 | .I FIELD="TIME" D Q
|
|---|
| 42 | ..I VALUE S USER=$P(^FSCD("MRA",NUM,0),U) I USER S ^FSCD("MRA","AUT",USER)=VALUE
|
|---|
| 43 | I OP="KILL" D Q
|
|---|
| 44 | .I FIELD="USER" D Q
|
|---|
| 45 | ..I VALUE K ^FSCD("MRA","AUT",VALUE)
|
|---|
| 46 | .I FIELD="TIME" D Q
|
|---|
| 47 | ..S USER=$P(^FSCD("MRA",NUM,0),U) I USER K ^FSCD("MRA","AUT",USER)
|
|---|
| 48 | Q
|
|---|
