- FSCXREF ;SLC/STAFF-NOIS Xrefs Call ;1/11/98 15:26
- ;;1.1;NOIS;;Sep 06, 1998
- ;
- AOM(OP,FIELD,VALUE,CALL) ; from dd 7100
- N MOD,STATUS
- I OP="SET" D Q
- .I FIELD="STATUS" D Q
- ..I VALUE=1 S MOD=$P(^FSCD("CALL",CALL,0),U,8) I MOD S ^FSCD("CALL","AOM",MOD,CALL)=""
- .I FIELD="MOD" D Q
- ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOM",VALUE,CALL)=""
- I OP="KILL" D Q
- .I FIELD="STATUS" D Q
- ..S MOD=$P(^FSCD("CALL",CALL,0),U,8) I MOD K ^FSCD("CALL","AOM",MOD,CALL)
- .I FIELD="MOD" D Q
- ..K ^FSCD("CALL","AOM",VALUE,CALL)
- Q
- ;
- AOP(OP,FIELD,VALUE,CALL) ; from dd 7100
- N PACK,STATUS
- I OP="SET" D Q
- .I FIELD="STATUS" D Q
- ..I VALUE=1 S PACK=$P(^FSCD("CALL",CALL,120),U,9) I PACK S ^FSCD("CALL","AOP",PACK,CALL)=""
- .I FIELD="PACK" D Q
- ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOP",VALUE,CALL)=""
- I OP="KILL" D Q
- .I FIELD="STATUS" D Q
- ..S PACK=$P(^FSCD("CALL",CALL,120),U,9) I PACK K ^FSCD("CALL","AOP",PACK,CALL)
- .I FIELD="PACK" D Q
- ..K ^FSCD("CALL","AOP",VALUE,CALL)
- Q
- ;
- AOS(OP,FIELD,VALUE,CALL) ; from dd 7100
- N SITE,STATUS
- I OP="SET" D Q
- .I FIELD="STATUS" D Q
- ..I VALUE=1 S SITE=$P(^FSCD("CALL",CALL,0),U,5) I SITE S ^FSCD("CALL","AOS",SITE,CALL)=""
- .I FIELD="SITE" D Q
- ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOS",VALUE,CALL)=""
- I OP="KILL" D Q
- .I FIELD="STATUS" D Q
- ..S SITE=$P(^FSCD("CALL",CALL,0),U,5) I SITE K ^FSCD("CALL","AOS",SITE,CALL)
- .I FIELD="SITE" D Q
- ..K ^FSCD("CALL","AOS",VALUE,CALL)
- Q
- ;
- AOIS(OP,FIELD,VALUE,CALL) ; from dd 7100
- N ISC,STATUS
- I OP="SET" D Q
- .I FIELD="STATUS" D Q
- ..I VALUE=1 S ISC=$P(^FSCD("CALL",CALL,0),U,16) I ISC S ^FSCD("CALL","AOIS",ISC,CALL)=""
- .I FIELD="ISC" D Q
- ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOIS",VALUE,CALL)=""
- I OP="KILL" D Q
- .I FIELD="STATUS" D Q
- ..S ISC=$P(^FSCD("CALL",CALL,0),U,16) I ISC K ^FSCD("CALL","AOIS",ISC,CALL)
- .I FIELD="ISC" D Q
- ..K ^FSCD("CALL","AOIS",VALUE,CALL)
- Q
- ;
- AOISP(OP,FIELD,VALUE,CALL) ; from dd 7100
- N ISC,STATUS
- I OP="SET" D Q
- .I FIELD="STATUS" D Q
- ..I VALUE=1 S ISC=$P(^FSCD("CALL",CALL,120),U,10) I ISC S ^FSCD("CALL","AOISP",ISC,CALL)=""
- .I FIELD="ISC" D Q
- ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOISP",VALUE,CALL)=""
- I OP="KILL" D Q
- .I FIELD="STATUS" D Q
- ..S ISC=$P(^FSCD("CALL",CALL,120),U,10) I ISC K ^FSCD("CALL","AOISP",ISC,CALL)
- .I FIELD="ISC" D Q
- ..K ^FSCD("CALL","AOISP",VALUE,CALL)
- Q
- ;
- AOSC(OP,FIELD,VALUE,CALL) ; from dd 7100
- N SUB,STATUS
- I OP="SET" D Q
- .I FIELD="STATUS" D Q
- ..I VALUE=1 S SUB=$P(^FSCD("CALL",CALL,120),U,11) I SUB S ^FSCD("CALL","AOSC",SUB,CALL)=""
- .I FIELD="SUB" D Q
- ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOSC",VALUE,CALL)=""
- I OP="KILL" D Q
- .I FIELD="STATUS" D Q
- ..S SUB=$P(^FSCD("CALL",CALL,120),U,11) I SUB K ^FSCD("CALL","AOSC",SUB,CALL)
- .I FIELD="SUB" D Q
- ..K ^FSCD("CALL","AOSC",VALUE,CALL)
- Q
- ;
- AOID(OP,FIELD,VALUE,CALL) ;
- N ISC,STATUS
- I OP="SET" D Q
- .I FIELD="STATUS" D Q
- ..I VALUE=1 S ISC=$P(^FSCD("CALL",CALL,0),U,20) I ISC S ^FSCD("CALL","AOID",ISC,CALL)=""
- .I FIELD="ISC" D Q
- ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOID",VALUE,CALL)=""
- I OP="KILL" D Q
- .I FIELD="STATUS" D Q
- ..S ISC=$P(^FSCD("CALL",CALL,0),U,20) I ISC K ^FSCD("CALL","AOID",ISC,CALL)
- .I FIELD="ISC" D Q
- ..K ^FSCD("CALL","AOID",VALUE,CALL)
- Q
- ;
- AOU(OP,FIELD,VALUE,CALL) ; from dd 7100
- N SPEC,STATUS
- I OP="SET" D Q
- .I FIELD="STATUS" D Q
- ..I VALUE=1 S SPEC=$P(^FSCD("CALL",CALL,0),U,9) I SPEC S ^FSCD("CALL","AOU",SPEC,CALL)=""
- .I FIELD="SPEC" D Q
- ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOU",VALUE,CALL)=""
- I OP="KILL" D Q
- .I FIELD="STATUS" D Q
- ..S SPEC=$P(^FSCD("CALL",CALL,0),U,9) I SPEC K ^FSCD("CALL","AOU",SPEC,CALL)
- .I FIELD="SPEC" D Q
- ..K ^FSCD("CALL","AOU",VALUE,CALL)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCXREF 4090 printed Mar 13, 2025@21:25:34 Page 2
- FSCXREF ;SLC/STAFF-NOIS Xrefs Call ;1/11/98 15:26
- +1 ;;1.1;NOIS;;Sep 06, 1998
- +2 ;
- AOM(OP,FIELD,VALUE,CALL) ; from dd 7100
- +1 NEW MOD,STATUS
- +2 IF OP="SET"
- Begin DoDot:1
- +3 IF FIELD="STATUS"
- Begin DoDot:2
- +4 IF VALUE=1
- SET MOD=$PIECE(^FSCD("CALL",CALL,0),U,8)
- IF MOD
- SET ^FSCD("CALL","AOM",MOD,CALL)=""
- End DoDot:2
- QUIT
- +5 IF FIELD="MOD"
- Begin DoDot:2
- +6 IF VALUE
- SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,2)
- IF STATUS=1
- SET ^FSCD("CALL","AOM",VALUE,CALL)=""
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +7 IF OP="KILL"
- Begin DoDot:1
- +8 IF FIELD="STATUS"
- Begin DoDot:2
- +9 SET MOD=$PIECE(^FSCD("CALL",CALL,0),U,8)
- IF MOD
- KILL ^FSCD("CALL","AOM",MOD,CALL)
- End DoDot:2
- QUIT
- +10 IF FIELD="MOD"
- Begin DoDot:2
- +11 KILL ^FSCD("CALL","AOM",VALUE,CALL)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT
- +13 ;
- AOP(OP,FIELD,VALUE,CALL) ; from dd 7100
- +1 NEW PACK,STATUS
- +2 IF OP="SET"
- Begin DoDot:1
- +3 IF FIELD="STATUS"
- Begin DoDot:2
- +4 IF VALUE=1
- SET PACK=$PIECE(^FSCD("CALL",CALL,120),U,9)
- IF PACK
- SET ^FSCD("CALL","AOP",PACK,CALL)=""
- End DoDot:2
- QUIT
- +5 IF FIELD="PACK"
- Begin DoDot:2
- +6 IF VALUE
- SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,2)
- IF STATUS=1
- SET ^FSCD("CALL","AOP",VALUE,CALL)=""
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +7 IF OP="KILL"
- Begin DoDot:1
- +8 IF FIELD="STATUS"
- Begin DoDot:2
- +9 SET PACK=$PIECE(^FSCD("CALL",CALL,120),U,9)
- IF PACK
- KILL ^FSCD("CALL","AOP",PACK,CALL)
- End DoDot:2
- QUIT
- +10 IF FIELD="PACK"
- Begin DoDot:2
- +11 KILL ^FSCD("CALL","AOP",VALUE,CALL)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT
- +13 ;
- AOS(OP,FIELD,VALUE,CALL) ; from dd 7100
- +1 NEW SITE,STATUS
- +2 IF OP="SET"
- Begin DoDot:1
- +3 IF FIELD="STATUS"
- Begin DoDot:2
- +4 IF VALUE=1
- SET SITE=$PIECE(^FSCD("CALL",CALL,0),U,5)
- IF SITE
- SET ^FSCD("CALL","AOS",SITE,CALL)=""
- End DoDot:2
- QUIT
- +5 IF FIELD="SITE"
- Begin DoDot:2
- +6 IF VALUE
- SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,2)
- IF STATUS=1
- SET ^FSCD("CALL","AOS",VALUE,CALL)=""
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +7 IF OP="KILL"
- Begin DoDot:1
- +8 IF FIELD="STATUS"
- Begin DoDot:2
- +9 SET SITE=$PIECE(^FSCD("CALL",CALL,0),U,5)
- IF SITE
- KILL ^FSCD("CALL","AOS",SITE,CALL)
- End DoDot:2
- QUIT
- +10 IF FIELD="SITE"
- Begin DoDot:2
- +11 KILL ^FSCD("CALL","AOS",VALUE,CALL)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT
- +13 ;
- AOIS(OP,FIELD,VALUE,CALL) ; from dd 7100
- +1 NEW ISC,STATUS
- +2 IF OP="SET"
- Begin DoDot:1
- +3 IF FIELD="STATUS"
- Begin DoDot:2
- +4 IF VALUE=1
- SET ISC=$PIECE(^FSCD("CALL",CALL,0),U,16)
- IF ISC
- SET ^FSCD("CALL","AOIS",ISC,CALL)=""
- End DoDot:2
- QUIT
- +5 IF FIELD="ISC"
- Begin DoDot:2
- +6 IF VALUE
- SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,2)
- IF STATUS=1
- SET ^FSCD("CALL","AOIS",VALUE,CALL)=""
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +7 IF OP="KILL"
- Begin DoDot:1
- +8 IF FIELD="STATUS"
- Begin DoDot:2
- +9 SET ISC=$PIECE(^FSCD("CALL",CALL,0),U,16)
- IF ISC
- KILL ^FSCD("CALL","AOIS",ISC,CALL)
- End DoDot:2
- QUIT
- +10 IF FIELD="ISC"
- Begin DoDot:2
- +11 KILL ^FSCD("CALL","AOIS",VALUE,CALL)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT
- +13 ;
- AOISP(OP,FIELD,VALUE,CALL) ; from dd 7100
- +1 NEW ISC,STATUS
- +2 IF OP="SET"
- Begin DoDot:1
- +3 IF FIELD="STATUS"
- Begin DoDot:2
- +4 IF VALUE=1
- SET ISC=$PIECE(^FSCD("CALL",CALL,120),U,10)
- IF ISC
- SET ^FSCD("CALL","AOISP",ISC,CALL)=""
- End DoDot:2
- QUIT
- +5 IF FIELD="ISC"
- Begin DoDot:2
- +6 IF VALUE
- SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,2)
- IF STATUS=1
- SET ^FSCD("CALL","AOISP",VALUE,CALL)=""
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +7 IF OP="KILL"
- Begin DoDot:1
- +8 IF FIELD="STATUS"
- Begin DoDot:2
- +9 SET ISC=$PIECE(^FSCD("CALL",CALL,120),U,10)
- IF ISC
- KILL ^FSCD("CALL","AOISP",ISC,CALL)
- End DoDot:2
- QUIT
- +10 IF FIELD="ISC"
- Begin DoDot:2
- +11 KILL ^FSCD("CALL","AOISP",VALUE,CALL)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT
- +13 ;
- AOSC(OP,FIELD,VALUE,CALL) ; from dd 7100
- +1 NEW SUB,STATUS
- +2 IF OP="SET"
- Begin DoDot:1
- +3 IF FIELD="STATUS"
- Begin DoDot:2
- +4 IF VALUE=1
- SET SUB=$PIECE(^FSCD("CALL",CALL,120),U,11)
- IF SUB
- SET ^FSCD("CALL","AOSC",SUB,CALL)=""
- End DoDot:2
- QUIT
- +5 IF FIELD="SUB"
- Begin DoDot:2
- +6 IF VALUE
- SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,2)
- IF STATUS=1
- SET ^FSCD("CALL","AOSC",VALUE,CALL)=""
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +7 IF OP="KILL"
- Begin DoDot:1
- +8 IF FIELD="STATUS"
- Begin DoDot:2
- +9 SET SUB=$PIECE(^FSCD("CALL",CALL,120),U,11)
- IF SUB
- KILL ^FSCD("CALL","AOSC",SUB,CALL)
- End DoDot:2
- QUIT
- +10 IF FIELD="SUB"
- Begin DoDot:2
- +11 KILL ^FSCD("CALL","AOSC",VALUE,CALL)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT
- +13 ;
- AOID(OP,FIELD,VALUE,CALL) ;
- +1 NEW ISC,STATUS
- +2 IF OP="SET"
- Begin DoDot:1
- +3 IF FIELD="STATUS"
- Begin DoDot:2
- +4 IF VALUE=1
- SET ISC=$PIECE(^FSCD("CALL",CALL,0),U,20)
- IF ISC
- SET ^FSCD("CALL","AOID",ISC,CALL)=""
- End DoDot:2
- QUIT
- +5 IF FIELD="ISC"
- Begin DoDot:2
- +6 IF VALUE
- SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,2)
- IF STATUS=1
- SET ^FSCD("CALL","AOID",VALUE,CALL)=""
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +7 IF OP="KILL"
- Begin DoDot:1
- +8 IF FIELD="STATUS"
- Begin DoDot:2
- +9 SET ISC=$PIECE(^FSCD("CALL",CALL,0),U,20)
- IF ISC
- KILL ^FSCD("CALL","AOID",ISC,CALL)
- End DoDot:2
- QUIT
- +10 IF FIELD="ISC"
- Begin DoDot:2
- +11 KILL ^FSCD("CALL","AOID",VALUE,CALL)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT
- +13 ;
- AOU(OP,FIELD,VALUE,CALL) ; from dd 7100
- +1 NEW SPEC,STATUS
- +2 IF OP="SET"
- Begin DoDot:1
- +3 IF FIELD="STATUS"
- Begin DoDot:2
- +4 IF VALUE=1
- SET SPEC=$PIECE(^FSCD("CALL",CALL,0),U,9)
- IF SPEC
- SET ^FSCD("CALL","AOU",SPEC,CALL)=""
- End DoDot:2
- QUIT
- +5 IF FIELD="SPEC"
- Begin DoDot:2
- +6 IF VALUE
- SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,2)
- IF STATUS=1
- SET ^FSCD("CALL","AOU",VALUE,CALL)=""
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +7 IF OP="KILL"
- Begin DoDot:1
- +8 IF FIELD="STATUS"
- Begin DoDot:2
- +9 SET SPEC=$PIECE(^FSCD("CALL",CALL,0),U,9)
- IF SPEC
- KILL ^FSCD("CALL","AOU",SPEC,CALL)
- End DoDot:2
- QUIT
- +10 IF FIELD="SPEC"
- Begin DoDot:2
- +11 KILL ^FSCD("CALL","AOU",VALUE,CALL)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT
