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 Apr 09, 2024@21:22:13 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
