source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCXMRE.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1FSCXMRE ;SLC/STAFF-NOIS Xrefs MRE ;12/27/96 09:21
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4AUTC(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("MRE",NUM,0),U,2),CALL=$P(^(0),U,3) I TIME,CALL S ^FSCD("MRE","AUTC",VALUE,-TIME,CALL)=NUM
9 .I FIELD="TIME" D Q
10 ..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
11 .I FIELD="CALL" D Q
12 ..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
13 I OP="KILL" D Q
14 .I FIELD="USER" D Q
15 ..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)
16 .I FIELD="TIME" D Q
17 ..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)
18 .I FIELD="CALL" D Q
19 ..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)
20 Q
21 ;
22AUC(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("MRE",NUM,0),U,3) I CALL S ^FSCD("MRE","AUC",VALUE,CALL)=NUM
27 .I FIELD="CALL" D Q
28 ..I VALUE S USER=$P(^FSCD("MRE",NUM,0),U) I USER S ^FSCD("MRE","AUC",USER,VALUE)=NUM
29 I OP="KILL" D Q
30 .I FIELD="USER" D Q
31 ..I VALUE S CALL=$P(^FSCD("MRE",NUM,0),U,3) I CALL K ^FSCD("MRE","AUC",VALUE,CALL)
32 .I FIELD="CALL" D Q
33 ..I VALUE S USER=$P(^FSCD("MRE",NUM,0),U) I USER K ^FSCD("MRE","AUC",USER,VALUE)
34 Q
35 ;
36AUT(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("MRE",NUM,0),U,2) I TIME S ^FSCD("MRE","AUT",VALUE)=TIME
41 .I FIELD="TIME" D Q
42 ..I VALUE S USER=$P(^FSCD("MRE",NUM,0),U) I USER S ^FSCD("MRE","AUT",USER)=VALUE
43 I OP="KILL" D Q
44 .I FIELD="USER" D Q
45 ..I VALUE K ^FSCD("MRE","AUT",VALUE)
46 .I FIELD="TIME" D Q
47 ..S USER=$P(^FSCD("MRE",NUM,0),U) I USER K ^FSCD("MRE","AUT",USER)
48 Q
Note: See TracBrowser for help on using the repository browser.