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