- 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 Mar 13, 2025@21:25:44 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
