| 1 | FSCXREFW ;SLC/STAFF-NOIS Xrefs Workload ;1/10/96 14:02
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | AK(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 | ;
|
|---|
| 22 | AUD(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
|
|---|
