FSCXREFO ;SLC/STAFF-NOIS Xrefs Call Open and Referred ;1/11/98 15:27
;;1.1;NOIS;;Sep 06, 1998
;
AOLTYPE(OP,FIELD,VALUE,CALL) ; from dd 7100
N LTYPE,STATUS
I OP="SET" D Q
.I FIELD="STATUS" D Q
..I VALUE=1 S LTYPE=$P(^FSCD("CALL",CALL,120),U,12) I LTYPE S ^FSCD("CALL","AOLTYPE",LTYPE,CALL)=""
.I FIELD="LTYPE" D Q
..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOLTYPE",VALUE,CALL)=""
I OP="KILL" D Q
.I FIELD="STATUS" D Q
..S LTYPE=$P(^FSCD("CALL",CALL,120),U,12) I LTYPE K ^FSCD("CALL","AOLTYPE",LTYPE,CALL)
.I FIELD="LTYPE" D Q
..K ^FSCD("CALL","AOLTYPE",VALUE,CALL)
Q
;
AOPACKG(OP,FIELD,VALUE,CALL) ; from dd 7100
N PACKG,STATUS
I OP="SET" D Q
.I FIELD="STATUS" D Q
..I VALUE=1 S PACKG=$P(^FSCD("CALL",CALL,120),U,13) I PACKG S ^FSCD("CALL","AOPACKG",PACKG,CALL)=""
.I FIELD="PACKG" D Q
..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=1 S ^FSCD("CALL","AOPACKG",VALUE,CALL)=""
I OP="KILL" D Q
.I FIELD="STATUS" D Q
..S PACKG=$P(^FSCD("CALL",CALL,120),U,13) I PACKG K ^FSCD("CALL","AOPACKG",PACKG,CALL)
.I FIELD="PACKG" D Q
..K ^FSCD("CALL","AOPACKG",VALUE,CALL)
Q
;
ARPACKG(OP,FIELD,VALUE,CALL) ; from dd 7100
N PACKG,STATUS
I OP="SET" D Q
.I FIELD="STATUS" D Q
..I VALUE=3 S PACKG=$P(^FSCD("CALL",CALL,120),U,13) I PACKG S ^FSCD("CALL","ARPACKG",PACKG,CALL)=""
.I FIELD="PACKG" D Q
..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,2) I STATUS=3 S ^FSCD("CALL","ARPACKG",VALUE,CALL)=""
I OP="KILL" D Q
.I FIELD="STATUS" D Q
..S PACKG=$P(^FSCD("CALL",CALL,120),U,13) I PACKG K ^FSCD("CALL","ARPACKG",PACKG,CALL)
.I FIELD="PACKG" D Q
..K ^FSCD("CALL","ARPACKG",VALUE,CALL)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCXREFO 1712 printed Dec 13, 2024@02:20:42 Page 2
FSCXREFO ;SLC/STAFF-NOIS Xrefs Call Open and Referred ;1/11/98 15:27
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
AOLTYPE(OP,FIELD,VALUE,CALL) ; from dd 7100
+1 NEW LTYPE,STATUS
+2 IF OP="SET"
Begin DoDot:1
+3 IF FIELD="STATUS"
Begin DoDot:2
+4 IF VALUE=1
SET LTYPE=$PIECE(^FSCD("CALL",CALL,120),U,12)
IF LTYPE
SET ^FSCD("CALL","AOLTYPE",LTYPE,CALL)=""
End DoDot:2
QUIT
+5 IF FIELD="LTYPE"
Begin DoDot:2
+6 IF VALUE
SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,2)
IF STATUS=1
SET ^FSCD("CALL","AOLTYPE",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 LTYPE=$PIECE(^FSCD("CALL",CALL,120),U,12)
IF LTYPE
KILL ^FSCD("CALL","AOLTYPE",LTYPE,CALL)
End DoDot:2
QUIT
+10 IF FIELD="LTYPE"
Begin DoDot:2
+11 KILL ^FSCD("CALL","AOLTYPE",VALUE,CALL)
End DoDot:2
QUIT
End DoDot:1
QUIT
+12 QUIT
+13 ;
AOPACKG(OP,FIELD,VALUE,CALL) ; from dd 7100
+1 NEW PACKG,STATUS
+2 IF OP="SET"
Begin DoDot:1
+3 IF FIELD="STATUS"
Begin DoDot:2
+4 IF VALUE=1
SET PACKG=$PIECE(^FSCD("CALL",CALL,120),U,13)
IF PACKG
SET ^FSCD("CALL","AOPACKG",PACKG,CALL)=""
End DoDot:2
QUIT
+5 IF FIELD="PACKG"
Begin DoDot:2
+6 IF VALUE
SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,2)
IF STATUS=1
SET ^FSCD("CALL","AOPACKG",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 PACKG=$PIECE(^FSCD("CALL",CALL,120),U,13)
IF PACKG
KILL ^FSCD("CALL","AOPACKG",PACKG,CALL)
End DoDot:2
QUIT
+10 IF FIELD="PACKG"
Begin DoDot:2
+11 KILL ^FSCD("CALL","AOPACKG",VALUE,CALL)
End DoDot:2
QUIT
End DoDot:1
QUIT
+12 QUIT
+13 ;
ARPACKG(OP,FIELD,VALUE,CALL) ; from dd 7100
+1 NEW PACKG,STATUS
+2 IF OP="SET"
Begin DoDot:1
+3 IF FIELD="STATUS"
Begin DoDot:2
+4 IF VALUE=3
SET PACKG=$PIECE(^FSCD("CALL",CALL,120),U,13)
IF PACKG
SET ^FSCD("CALL","ARPACKG",PACKG,CALL)=""
End DoDot:2
QUIT
+5 IF FIELD="PACKG"
Begin DoDot:2
+6 IF VALUE
SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,2)
IF STATUS=3
SET ^FSCD("CALL","ARPACKG",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 PACKG=$PIECE(^FSCD("CALL",CALL,120),U,13)
IF PACKG
KILL ^FSCD("CALL","ARPACKG",PACKG,CALL)
End DoDot:2
QUIT
+10 IF FIELD="PACKG"
Begin DoDot:2
+11 KILL ^FSCD("CALL","ARPACKG",VALUE,CALL)
End DoDot:2
QUIT
End DoDot:1
QUIT
+12 QUIT
