FSCXREFM ;SLC/STAFF-NOIS Xrefs Misc ;5/26/98 14:37
;;1.1;NOIS;;Sep 06, 1998
;
AEP(OP,FIELD,VALUE,CALL) ; from dd 7100
N PACK,STATUS
I OP="SET" D Q
.I FIELD="STATUS" D Q
..I VALUE=5 S PACK=$P(^FSCD("CALL",CALL,120),U,9) I PACK S ^FSCD("CALL","AEP",PACK,CALL)=""
.I FIELD="PACK" D Q
..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,17) I STATUS=5 S ^FSCD("CALL","AEP",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","AEP",PACK,CALL)
.I FIELD="PACK" D Q
..K ^FSCD("CALL","AEP",VALUE,CALL)
Q
;
ACN(OP,FIELD,VALUE,CALL) ; from dd 7100
N CONTACT,STATUS
I OP="SET" D Q
.I FIELD="STATUS" D Q
..I VALUE,VALUE'=2 S CONTACT=$P(^FSCD("CALL",CALL,0),U,6) I CONTACT S ^FSCD("CALL","ACN",CONTACT,CALL)=""
.I FIELD="CONTACT" D Q
..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS,STATUS'=2 S ^FSCD("CALL","ACN",VALUE,CALL)=""
I OP="KILL" D Q
.I FIELD="STATUS" D Q
..S CONTACT=$P(^FSCD("CALL",CALL,0),U,6) I CONTACT K ^FSCD("CALL","ACN",CONTACT,CALL)
.I FIELD="CONTACT" D Q
..K ^FSCD("CALL","ACN",VALUE,CALL)
Q
;
AEN(OP,FIELD,VALUE,CALL) ; from dd 7100
N ENTRYP,STATUS
I OP="SET" D Q
.I FIELD="STATUS" D Q
..I VALUE,VALUE'=2 S ENTRYP=+$P($G(^FSCD("CALL",CALL,120)),U,20) I ENTRYP S ^FSCD("CALL","AEN",ENTRYP,CALL)=""
.I FIELD="ENTRYP" D Q
..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS,STATUS'=2 S ^FSCD("CALL","AEN",VALUE,CALL)=""
I OP="KILL" D Q
.I FIELD="STATUS" D Q
..S ENTRYP=$P($G(^FSCD("CALL",CALL,120)),U,20) I ENTRYP K ^FSCD("CALL","AEN",ENTRYP,CALL)
.I FIELD="ENTRYP" D Q
..K ^FSCD("CALL","AEN",VALUE,CALL)
Q
;
ANS(OP,FIELD,VALUE,CALL) ; from dd 7100
N SITE,STATUS
I OP="SET" D Q
.I FIELD="STATUS" D Q
..I VALUE,VALUE'=2 S SITE=$P(^FSCD("CALL",CALL,0),U,5) I SITE S ^FSCD("CALL","ANS",SITE,CALL)=""
.I FIELD="SITE" D Q
..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS,STATUS'=2 S ^FSCD("CALL","ANS",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","ANS",SITE,CALL)
.I FIELD="SITE" D Q
..K ^FSCD("CALL","ANS",VALUE,CALL)
Q
;
ANDS(OP,FIELD,VALUE,CALL) ; from dd 7100
N SPECD,STATUS
I OP="SET" D Q
.I FIELD="STATUS" D Q
..I VALUE,VALUE'=2 S SPECD=$P(^FSCD("CALL",CALL,0),U,21) I SPECD S ^FSCD("CALL","ANDS",SPECD,CALL)=""
.I FIELD="SPECD" D Q
..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS,STATUS'=2 S ^FSCD("CALL","ANDS",VALUE,CALL)=""
I OP="KILL" D Q
.I FIELD="STATUS" D Q
..S SPECD=$P(^FSCD("CALL",CALL,0),U,21) I SPECD K ^FSCD("CALL","ANDS",SPECD,CALL)
.I FIELD="SPECD" D Q
..K ^FSCD("CALL","ANDS",VALUE,CALL)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCXREFM 2736 printed Dec 13, 2024@02:20:41 Page 2
FSCXREFM ;SLC/STAFF-NOIS Xrefs Misc ;5/26/98 14:37
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
AEP(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=5
SET PACK=$PIECE(^FSCD("CALL",CALL,120),U,9)
IF PACK
SET ^FSCD("CALL","AEP",PACK,CALL)=""
End DoDot:2
QUIT
+5 IF FIELD="PACK"
Begin DoDot:2
+6 IF VALUE
SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,17)
IF STATUS=5
SET ^FSCD("CALL","AEP",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","AEP",PACK,CALL)
End DoDot:2
QUIT
+10 IF FIELD="PACK"
Begin DoDot:2
+11 KILL ^FSCD("CALL","AEP",VALUE,CALL)
End DoDot:2
QUIT
End DoDot:1
QUIT
+12 QUIT
+13 ;
ACN(OP,FIELD,VALUE,CALL) ; from dd 7100
+1 NEW CONTACT,STATUS
+2 IF OP="SET"
Begin DoDot:1
+3 IF FIELD="STATUS"
Begin DoDot:2
+4 IF VALUE
IF VALUE'=2
SET CONTACT=$PIECE(^FSCD("CALL",CALL,0),U,6)
IF CONTACT
SET ^FSCD("CALL","ACN",CONTACT,CALL)=""
End DoDot:2
QUIT
+5 IF FIELD="CONTACT"
Begin DoDot:2
+6 IF VALUE
SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,2)
IF STATUS
IF STATUS'=2
SET ^FSCD("CALL","ACN",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 CONTACT=$PIECE(^FSCD("CALL",CALL,0),U,6)
IF CONTACT
KILL ^FSCD("CALL","ACN",CONTACT,CALL)
End DoDot:2
QUIT
+10 IF FIELD="CONTACT"
Begin DoDot:2
+11 KILL ^FSCD("CALL","ACN",VALUE,CALL)
End DoDot:2
QUIT
End DoDot:1
QUIT
+12 QUIT
+13 ;
AEN(OP,FIELD,VALUE,CALL) ; from dd 7100
+1 NEW ENTRYP,STATUS
+2 IF OP="SET"
Begin DoDot:1
+3 IF FIELD="STATUS"
Begin DoDot:2
+4 IF VALUE
IF VALUE'=2
SET ENTRYP=+$PIECE($GET(^FSCD("CALL",CALL,120)),U,20)
IF ENTRYP
SET ^FSCD("CALL","AEN",ENTRYP,CALL)=""
End DoDot:2
QUIT
+5 IF FIELD="ENTRYP"
Begin DoDot:2
+6 IF VALUE
SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,2)
IF STATUS
IF STATUS'=2
SET ^FSCD("CALL","AEN",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 ENTRYP=$PIECE($GET(^FSCD("CALL",CALL,120)),U,20)
IF ENTRYP
KILL ^FSCD("CALL","AEN",ENTRYP,CALL)
End DoDot:2
QUIT
+10 IF FIELD="ENTRYP"
Begin DoDot:2
+11 KILL ^FSCD("CALL","AEN",VALUE,CALL)
End DoDot:2
QUIT
End DoDot:1
QUIT
+12 QUIT
+13 ;
ANS(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
IF VALUE'=2
SET SITE=$PIECE(^FSCD("CALL",CALL,0),U,5)
IF SITE
SET ^FSCD("CALL","ANS",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
IF STATUS'=2
SET ^FSCD("CALL","ANS",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","ANS",SITE,CALL)
End DoDot:2
QUIT
+10 IF FIELD="SITE"
Begin DoDot:2
+11 KILL ^FSCD("CALL","ANS",VALUE,CALL)
End DoDot:2
QUIT
End DoDot:1
QUIT
+12 QUIT
+13 ;
ANDS(OP,FIELD,VALUE,CALL) ; from dd 7100
+1 NEW SPECD,STATUS
+2 IF OP="SET"
Begin DoDot:1
+3 IF FIELD="STATUS"
Begin DoDot:2
+4 IF VALUE
IF VALUE'=2
SET SPECD=$PIECE(^FSCD("CALL",CALL,0),U,21)
IF SPECD
SET ^FSCD("CALL","ANDS",SPECD,CALL)=""
End DoDot:2
QUIT
+5 IF FIELD="SPECD"
Begin DoDot:2
+6 IF VALUE
SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,2)
IF STATUS
IF STATUS'=2
SET ^FSCD("CALL","ANDS",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 SPECD=$PIECE(^FSCD("CALL",CALL,0),U,21)
IF SPECD
KILL ^FSCD("CALL","ANDS",SPECD,CALL)
End DoDot:2
QUIT
+10 IF FIELD="SPECD"
Begin DoDot:2
+11 KILL ^FSCD("CALL","ANDS",VALUE,CALL)
End DoDot:2
QUIT
End DoDot:1
QUIT
+12 QUIT
