- FSCQSC ;SLC/STAFF-NOIS Query Search Contains ;4/22/94 11:58
- ;;1.1;NOIS;;Sep 06, 1998
- ;
- CON ; from FSCQS
- S VALUE=$$UP^XLFSTR(VALUE)
- I LIST=1 D Q
- .S NODE=+$P(CODE,";"),PIECE=$P(CODE,";",2)
- .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
- ..S CVALUE=$P($G(^FSCD("CALL",CALL,NODE)),U,PIECE) I $L(CVALUE),$$UP^XLFSTR(CVALUE)[VALUE X ACTION
- I LIST=0 D Q
- .S CVALUE="" F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" I $$UP^XLFSTR(CVALUE)[VALUE D
- ..S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,CVALUE,CALL)) Q:CALL<1 D
- ...I $D(^TMP("FSC USELIST",$J,CALL)) X ACTION
- I LIST="" D Q
- .S CVALUE="" F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" I $$UP^XLFSTR(CVALUE)[VALUE D
- ..S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,CVALUE,CALL)) Q:CALL<1 X ACTION
- Q
- NCON ; from FSCQS
- S VALUE=$$UP^XLFSTR(VALUE)
- I LIST=1 D Q
- .S NODE=+$P(CODE,";"),PIECE=$P(CODE,";",2)
- .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
- ..S CVALUE=$P($G(^FSCD("CALL",CALL,NODE)),U,PIECE) I $L(CVALUE),$$UP^XLFSTR(CVALUE)'[VALUE X ACTION
- I LIST=0 D Q
- .S CVALUE="" F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" I $$UP^XLFSTR(CVALUE)'[VALUE D
- ..S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,CVALUE,CALL)) Q:CALL<1 D
- ...I $D(^TMP("FSC USELIST",$J,CALL)) X ACTION
- I LIST="" D Q
- .S CVALUE="" F S CVALUE=$O(^FSCD("CALL",INDEX,CVALUE)) Q:CVALUE="" I $$UP^XLFSTR(CVALUE)'[VALUE D
- ..S CALL=0 F S CALL=$O(^FSCD("CALL",INDEX,CVALUE,CALL)) Q:CALL<1 X ACTION
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCQSC 1519 printed Mar 13, 2025@21:23:58 Page 2
- FSCQSC ;SLC/STAFF-NOIS Query Search Contains ;4/22/94 11:58
- +1 ;;1.1;NOIS;;Sep 06, 1998
- +2 ;
- CON ; from FSCQS
- +1 SET VALUE=$$UP^XLFSTR(VALUE)
- +2 IF LIST=1
- Begin DoDot:1
- +3 SET NODE=+$PIECE(CODE,";")
- SET PIECE=$PIECE(CODE,";",2)
- +4 SET CALL=0
- FOR
- SET CALL=$ORDER(^TMP("FSC USELIST",$JOB,CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +5 SET CVALUE=$PIECE($GET(^FSCD("CALL",CALL,NODE)),U,PIECE)
- IF $LENGTH(CVALUE)
- IF $$UP^XLFSTR(CVALUE)[VALUE
- XECUTE ACTION
- End DoDot:2
- End DoDot:1
- QUIT
- +6 IF LIST=0
- Begin DoDot:1
- +7 SET CVALUE=""
- FOR
- SET CVALUE=$ORDER(^FSCD("CALL",INDEX,CVALUE))
- if CVALUE=""
- QUIT
- IF $$UP^XLFSTR(CVALUE)[VALUE
- Begin DoDot:2
- +8 SET CALL=0
- FOR
- SET CALL=$ORDER(^FSCD("CALL",INDEX,CVALUE,CALL))
- if CALL<1
- QUIT
- Begin DoDot:3
- +9 IF $DATA(^TMP("FSC USELIST",$JOB,CALL))
- XECUTE ACTION
- End DoDot:3
- End DoDot:2
- End DoDot:1
- QUIT
- +10 IF LIST=""
- Begin DoDot:1
- +11 SET CVALUE=""
- FOR
- SET CVALUE=$ORDER(^FSCD("CALL",INDEX,CVALUE))
- if CVALUE=""
- QUIT
- IF $$UP^XLFSTR(CVALUE)[VALUE
- Begin DoDot:2
- +12 SET CALL=0
- FOR
- SET CALL=$ORDER(^FSCD("CALL",INDEX,CVALUE,CALL))
- if CALL<1
- QUIT
- XECUTE ACTION
- End DoDot:2
- End DoDot:1
- QUIT
- +13 QUIT
- NCON ; from FSCQS
- +1 SET VALUE=$$UP^XLFSTR(VALUE)
- +2 IF LIST=1
- Begin DoDot:1
- +3 SET NODE=+$PIECE(CODE,";")
- SET PIECE=$PIECE(CODE,";",2)
- +4 SET CALL=0
- FOR
- SET CALL=$ORDER(^TMP("FSC USELIST",$JOB,CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +5 SET CVALUE=$PIECE($GET(^FSCD("CALL",CALL,NODE)),U,PIECE)
- IF $LENGTH(CVALUE)
- IF $$UP^XLFSTR(CVALUE)'[VALUE
- XECUTE ACTION
- End DoDot:2
- End DoDot:1
- QUIT
- +6 IF LIST=0
- Begin DoDot:1
- +7 SET CVALUE=""
- FOR
- SET CVALUE=$ORDER(^FSCD("CALL",INDEX,CVALUE))
- if CVALUE=""
- QUIT
- IF $$UP^XLFSTR(CVALUE)'[VALUE
- Begin DoDot:2
- +8 SET CALL=0
- FOR
- SET CALL=$ORDER(^FSCD("CALL",INDEX,CVALUE,CALL))
- if CALL<1
- QUIT
- Begin DoDot:3
- +9 IF $DATA(^TMP("FSC USELIST",$JOB,CALL))
- XECUTE ACTION
- End DoDot:3
- End DoDot:2
- End DoDot:1
- QUIT
- +10 IF LIST=""
- Begin DoDot:1
- +11 SET CVALUE=""
- FOR
- SET CVALUE=$ORDER(^FSCD("CALL",INDEX,CVALUE))
- if CVALUE=""
- QUIT
- IF $$UP^XLFSTR(CVALUE)'[VALUE
- Begin DoDot:2
- +12 SET CALL=0
- FOR
- SET CALL=$ORDER(^FSCD("CALL",INDEX,CVALUE,CALL))
- if CALL<1
- QUIT
- XECUTE ACTION
- End DoDot:2
- End DoDot:1
- QUIT
- +13 QUIT
