source: FOIAVistA/trunk/r/NOIS-FSC/FSCXMRA.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1FSCXMRA ;SLC/STAFF-NOIS Xrefs MRA ;12/27/96 09:22
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("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 ;
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("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 ;
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("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
Note: See TracBrowser for help on using the repository browser.