- FSCXREFD ;SLC/STAFF-NOIS Xrefs Call Dev Status ;1/11/98 15:26
- ;;1.1;NOIS;;Sep 06, 1998
- ;
- ADM(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","ADM",MOD,CALL)=""
- .I FIELD="MOD" D Q
- ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,17) I STATUS=1 S ^FSCD("CALL","ADM",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","ADM",MOD,CALL)
- .I FIELD="MOD" D Q
- ..K ^FSCD("CALL","ADM",VALUE,CALL)
- Q
- ;
- ADP(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","ADP",PACK,CALL)=""
- .I FIELD="PACK" D Q
- ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,17) I STATUS=1 S ^FSCD("CALL","ADP",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","ADP",PACK,CALL)
- .I FIELD="PACK" D Q
- ..K ^FSCD("CALL","ADP",VALUE,CALL)
- Q
- ;
- ADS(OP,FIELD,VALUE,CALL) ;
- 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","ADS",SITE,CALL)=""
- .I FIELD="SITE" D Q
- ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,17) I STATUS=1 S ^FSCD("CALL","ADS",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","ADS",SITE,CALL)
- .I FIELD="SITE" D Q
- ..K ^FSCD("CALL","ADS",VALUE,CALL)
- Q
- ;
- ADID(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,20) I ISC S ^FSCD("CALL","ADID",ISC,CALL)=""
- .I FIELD="ISC" D Q
- ..I VALUE S STATUS=$P(^FSCD("CALL",CALL,0),U,17) I STATUS=1 S ^FSCD("CALL","ADID",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","ADID",ISC,CALL)
- .I FIELD="ISC" D Q
- ..K ^FSCD("CALL","ADID",VALUE,CALL)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCXREFD 2087 printed Apr 23, 2025@18:35:13 Page 2
- FSCXREFD ;SLC/STAFF-NOIS Xrefs Call Dev Status ;1/11/98 15:26
- +1 ;;1.1;NOIS;;Sep 06, 1998
- +2 ;
- ADM(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","ADM",MOD,CALL)=""
- End DoDot:2
- QUIT
- +5 IF FIELD="MOD"
- Begin DoDot:2
- +6 IF VALUE
- SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,17)
- IF STATUS=1
- SET ^FSCD("CALL","ADM",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","ADM",MOD,CALL)
- End DoDot:2
- QUIT
- +10 IF FIELD="MOD"
- Begin DoDot:2
- +11 KILL ^FSCD("CALL","ADM",VALUE,CALL)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT
- +13 ;
- ADP(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","ADP",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=1
- SET ^FSCD("CALL","ADP",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","ADP",PACK,CALL)
- End DoDot:2
- QUIT
- +10 IF FIELD="PACK"
- Begin DoDot:2
- +11 KILL ^FSCD("CALL","ADP",VALUE,CALL)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT
- +13 ;
- ADS(OP,FIELD,VALUE,CALL) ;
- +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","ADS",SITE,CALL)=""
- End DoDot:2
- QUIT
- +5 IF FIELD="SITE"
- Begin DoDot:2
- +6 IF VALUE
- SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,17)
- IF STATUS=1
- SET ^FSCD("CALL","ADS",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","ADS",SITE,CALL)
- End DoDot:2
- QUIT
- +10 IF FIELD="SITE"
- Begin DoDot:2
- +11 KILL ^FSCD("CALL","ADS",VALUE,CALL)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT
- +13 ;
- ADID(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,20)
- IF ISC
- SET ^FSCD("CALL","ADID",ISC,CALL)=""
- End DoDot:2
- QUIT
- +5 IF FIELD="ISC"
- Begin DoDot:2
- +6 IF VALUE
- SET STATUS=$PIECE(^FSCD("CALL",CALL,0),U,17)
- IF STATUS=1
- SET ^FSCD("CALL","ADID",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","ADID",ISC,CALL)
- End DoDot:2
- QUIT
- +10 IF FIELD="ISC"
- Begin DoDot:2
- +11 KILL ^FSCD("CALL","ADID",VALUE,CALL)
- End DoDot:2
- QUIT
- End DoDot:1
- QUIT
- +12 QUIT
