source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCXREFW.m@ 1375

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

initial load of WorldVistAEHR
File size: 1.5 KB
Line 
1FSCXREFW ;SLC/STAFF-NOIS Xrefs Workload ;1/10/96 14:02
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4AK(OP,FIELD,VALUE,WKLD) ; from dd 7103.5
5 N CALL,DATE,USER
6 I OP="SET" D Q
7 .I FIELD="CALL" D Q
8 ..I VALUE S DATE=$P(^FSCD("WKLD",WKLD,0),U,3),USER=$P(^(0),U,2) I DATE,USER S ^FSCD("WKLD","AK",VALUE,USER,DATE)=WKLD
9 .I FIELD="USER" D Q
10 ..I VALUE S CALL=$P(^FSCD("WKLD",WKLD,0),U),DATE=$P(^(0),U,3) I CALL,DATE S ^FSCD("WKLD","AK",CALL,VALUE,DATE)=WKLD
11 .I FIELD="DATE" D Q
12 ..I VALUE S CALL=$P(^FSCD("WKLD",WKLD,0),U),USER=$P(^(0),U,2) I CALL,USER S ^FSCD("WKLD","AK",CALL,USER,VALUE)=WKLD
13 I OP="KILL" D Q
14 .I FIELD="CALL" D Q
15 ..I VALUE S DATE=$P(^FSCD("WKLD",WKLD,0),U,3),USER=$P(^(0),U,2) I DATE,USER K ^FSCD("WKLD","AK",VALUE,USER,DATE)
16 .I FIELD="USER" D Q
17 ..I VALUE S CALL=$P(^FSCD("WKLD",WKLD,0),U),DATE=$P(^(0),U,3) I CALL,DATE K ^FSCD("WKLD","AK",CALL,VALUE,DATE)
18 .I FIELD="DATE" D Q
19 ..I VALUE S CALL=$P(^FSCD("WKLD",WKLD,0),U),USER=$P(^(0),U,2) I CALL,USER K ^FSCD("WKLD","AK",CALL,USER,VALUE)
20 Q
21 ;
22AUD(OP,FIELD,VALUE,WKLD) ; from dd 7103.5
23 N DATE,USER
24 I OP="SET" D Q
25 .I FIELD="DATE" D Q
26 ..I VALUE S USER=$P(^FSCD("WKLD",WKLD,0),U,2) I USER S ^FSCD("WKLD","AUD",USER,VALUE,WKLD)=""
27 .I FIELD="USER" D Q
28 ..I VALUE S DATE=$P(^FSCD("WKLD",WKLD,0),U,3) I DATE S ^FSCD("WKLD","AUD",VALUE,DATE,WKLD)=""
29 I OP="KILL" D Q
30 .I FIELD="DATE" D Q
31 ..I VALUE S USER=$P(^FSCD("WKLD",WKLD,0),U,2) I USER K ^FSCD("WKLD","AUD",USER,VALUE,WKLD)
32 .I FIELD="USER" D Q
33 ..I VALUE S DATE=$P(^FSCD("WKLD",WKLD,0),U,3) I DATE K ^FSCD("WKLD","AUD",VALUE,DATE,WKLD)
34 Q
Note: See TracBrowser for help on using the repository browser.