FSCXREFW ;SLC/STAFF-NOIS Xrefs Workload ;1/10/96 14:02
;;1.1;NOIS;;Sep 06, 1998
;
AK(OP,FIELD,VALUE,WKLD) ; from dd 7103.5
N CALL,DATE,USER
I OP="SET" D Q
.I FIELD="CALL" D Q
..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
.I FIELD="USER" D Q
..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
.I FIELD="DATE" D Q
..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
I OP="KILL" D Q
.I FIELD="CALL" D Q
..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)
.I FIELD="USER" D Q
..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)
.I FIELD="DATE" D Q
..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)
Q
;
AUD(OP,FIELD,VALUE,WKLD) ; from dd 7103.5
N DATE,USER
I OP="SET" D Q
.I FIELD="DATE" D Q
..I VALUE S USER=$P(^FSCD("WKLD",WKLD,0),U,2) I USER S ^FSCD("WKLD","AUD",USER,VALUE,WKLD)=""
.I FIELD="USER" D Q
..I VALUE S DATE=$P(^FSCD("WKLD",WKLD,0),U,3) I DATE S ^FSCD("WKLD","AUD",VALUE,DATE,WKLD)=""
I OP="KILL" D Q
.I FIELD="DATE" D Q
..I VALUE S USER=$P(^FSCD("WKLD",WKLD,0),U,2) I USER K ^FSCD("WKLD","AUD",USER,VALUE,WKLD)
.I FIELD="USER" D Q
..I VALUE S DATE=$P(^FSCD("WKLD",WKLD,0),U,3) I DATE K ^FSCD("WKLD","AUD",VALUE,DATE,WKLD)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCXREFW 1597 printed Oct 16, 2024@18:21:23 Page 2
FSCXREFW ;SLC/STAFF-NOIS Xrefs Workload ;1/10/96 14:02
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
AK(OP,FIELD,VALUE,WKLD) ; from dd 7103.5
+1 NEW CALL,DATE,USER
+2 IF OP="SET"
Begin DoDot:1
+3 IF FIELD="CALL"
Begin DoDot:2
+4 IF VALUE
SET DATE=$PIECE(^FSCD("WKLD",WKLD,0),U,3)
SET USER=$PIECE(^(0),U,2)
IF DATE
IF USER
SET ^FSCD("WKLD","AK",VALUE,USER,DATE)=WKLD
End DoDot:2
QUIT
+5 IF FIELD="USER"
Begin DoDot:2
+6 IF VALUE
SET CALL=$PIECE(^FSCD("WKLD",WKLD,0),U)
SET DATE=$PIECE(^(0),U,3)
IF CALL
IF DATE
SET ^FSCD("WKLD","AK",CALL,VALUE,DATE)=WKLD
End DoDot:2
QUIT
+7 IF FIELD="DATE"
Begin DoDot:2
+8 IF VALUE
SET CALL=$PIECE(^FSCD("WKLD",WKLD,0),U)
SET USER=$PIECE(^(0),U,2)
IF CALL
IF USER
SET ^FSCD("WKLD","AK",CALL,USER,VALUE)=WKLD
End DoDot:2
QUIT
End DoDot:1
QUIT
+9 IF OP="KILL"
Begin DoDot:1
+10 IF FIELD="CALL"
Begin DoDot:2
+11 IF VALUE
SET DATE=$PIECE(^FSCD("WKLD",WKLD,0),U,3)
SET USER=$PIECE(^(0),U,2)
IF DATE
IF USER
KILL ^FSCD("WKLD","AK",VALUE,USER,DATE)
End DoDot:2
QUIT
+12 IF FIELD="USER"
Begin DoDot:2
+13 IF VALUE
SET CALL=$PIECE(^FSCD("WKLD",WKLD,0),U)
SET DATE=$PIECE(^(0),U,3)
IF CALL
IF DATE
KILL ^FSCD("WKLD","AK",CALL,VALUE,DATE)
End DoDot:2
QUIT
+14 IF FIELD="DATE"
Begin DoDot:2
+15 IF VALUE
SET CALL=$PIECE(^FSCD("WKLD",WKLD,0),U)
SET USER=$PIECE(^(0),U,2)
IF CALL
IF USER
KILL ^FSCD("WKLD","AK",CALL,USER,VALUE)
End DoDot:2
QUIT
End DoDot:1
QUIT
+16 QUIT
+17 ;
AUD(OP,FIELD,VALUE,WKLD) ; from dd 7103.5
+1 NEW DATE,USER
+2 IF OP="SET"
Begin DoDot:1
+3 IF FIELD="DATE"
Begin DoDot:2
+4 IF VALUE
SET USER=$PIECE(^FSCD("WKLD",WKLD,0),U,2)
IF USER
SET ^FSCD("WKLD","AUD",USER,VALUE,WKLD)=""
End DoDot:2
QUIT
+5 IF FIELD="USER"
Begin DoDot:2
+6 IF VALUE
SET DATE=$PIECE(^FSCD("WKLD",WKLD,0),U,3)
IF DATE
SET ^FSCD("WKLD","AUD",VALUE,DATE,WKLD)=""
End DoDot:2
QUIT
End DoDot:1
QUIT
+7 IF OP="KILL"
Begin DoDot:1
+8 IF FIELD="DATE"
Begin DoDot:2
+9 IF VALUE
SET USER=$PIECE(^FSCD("WKLD",WKLD,0),U,2)
IF USER
KILL ^FSCD("WKLD","AUD",USER,VALUE,WKLD)
End DoDot:2
QUIT
+10 IF FIELD="USER"
Begin DoDot:2
+11 IF VALUE
SET DATE=$PIECE(^FSCD("WKLD",WKLD,0),U,3)
IF DATE
KILL ^FSCD("WKLD","AUD",VALUE,DATE,WKLD)
End DoDot:2
QUIT
End DoDot:1
QUIT
+12 QUIT
