- FSCQSW ;SLC/STAFF-NOIS Query Search Word-Processing ;8/8/98 22:10
- ;;1.1;NOIS;;Sep 06, 1998
- ;
- CON ; from FSCQS
- I FIELD=59 D PCON Q
- N CALL,SUB,SUBNUM
- S SUB=$S(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,FIELD=14:80,1:0) Q:'SUB
- S VALUE=$$UP^XLFSTR(VALUE)
- I LIST=1!(LIST=0) D Q
- .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
- ..S SUBNUM=0 F S SUBNUM=$O(^FSCD("CALL",CALL,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE X ACTION Q
- I LIST="" D Q
- .S CALL=0 F S CALL=$O(^FSCD("CALL",CALL)) Q:CALL<1 D
- ..S SUBNUM=0 F S SUBNUM=$O(^FSCD("CALL",CALL,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE X ACTION Q
- Q
- ;
- NCON ; from FSCQS
- I FIELD=59 D PNCON Q
- N CALL,OK,SUB,SUBNUM
- S SUB=$S(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,FIELD=14:80,1:0) Q:'SUB
- S VALUE=$$UP^XLFSTR(VALUE)
- I LIST=1!(LIST=0) D Q
- .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
- ..I '$O(^FSCD("CALL",CALL,SUB,0)) Q
- ..S (OK,SUBNUM)=0 F S SUBNUM=$O(^FSCD("CALL",CALL,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE S OK=1 Q
- ..I 'OK X ACTION
- I LIST="" D Q
- .S CALL=0 F S CALL=$O(^FSCD("CALL",CALL)) Q:CALL<1 D
- ..I '$O(^FSCD("CALL",CALL,SUB,0)) Q
- ..S (OK,SUBNUM)=0 F S SUBNUM=$O(^FSCD("CALL",CALL,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE S OK=1 Q
- ..I 'OK X ACTION
- Q
- ;
- EX ; from FSCQS
- I FIELD=59 D PEX Q
- N CALL,SUB
- S SUB=$S(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,FIELD=14:80,1:0) Q:'SUB
- I LIST=1!(LIST=0) D Q
- .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
- ..I $O(^FSCD("CALL",CALL,SUB,0)) X ACTION
- I LIST="" D Q
- .S CALL=0 F S CALL=$O(^FSCD("CALL",CALL)) Q:CALL<1 I $O(^(CALL,SUB,0)) X ACTION
- Q
- ;
- NEX ; from FSCQS
- I FIELD=59 D PNEX Q
- N CALL,SUB
- S SUB=$S(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,FIELD=14:80,1:0) Q:'SUB
- I LIST=1!(LIST=0) D Q
- .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
- ..I '$O(^FSCD("CALL",CALL,SUB,0)) X ACTION
- I LIST="" D Q
- .S CALL=0 F S CALL=$O(^FSCD("CALL",CALL)) Q:CALL<1 I '$O(^(CALL,SUB,0)) X ACTION
- Q
- PCON ;
- N CALL,IEN,SUB,SUBNUM
- S SUB=2
- S VALUE=$$UP^XLFSTR(VALUE)
- I LIST=1!(LIST=0) D Q
- .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
- ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL)) I 'IEN Q
- ..S SUBNUM=0 F S SUBNUM=$O(^FSCD("CALL USER",IEN,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE X ACTION Q
- I LIST="" D Q
- .S CALL=0 F S CALL=$O(^FSCD("CALL USER","AUC",DUZ,CALL)) Q:CALL<1 D
- ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL)) I 'IEN Q
- ..S SUBNUM=0 F S SUBNUM=$O(^FSCD("CALL USER",IEN,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE X ACTION Q
- Q
- ;
- PNCON ;
- N CALL,IEN,OK,SUB,SUBNUM
- S SUB=2
- S VALUE=$$UP^XLFSTR(VALUE)
- I LIST=1!(LIST=0) D Q
- .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
- ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL)) I 'IEN Q
- ..I '$O(^FSCD("CALL USER",IEN,SUB,0)) Q
- ..S (OK,SUBNUM)=0 F S SUBNUM=$O(^FSCD("CALL USER",IEN,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE S OK=1 Q
- ..I 'OK X ACTION
- I LIST="" D Q
- .S CALL=0 F S CALL=$O(^FSCD("CALL USER","AUC",DUZ,CALL)) Q:CALL<1 D
- ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL)) I 'IEN Q
- ..I '$O(^FSCD("CALL USER",IEN,SUB,0)) Q
- ..S (OK,SUBNUM)=0 F S SUBNUM=$O(^FSCD("CALL USER",IEN,SUB,SUBNUM)) Q:SUBNUM<1 I $$UP^XLFSTR($G(^(SUBNUM,0)))[VALUE S OK=1 Q
- ..I 'OK X ACTION
- Q
- ;
- PEX ;
- N CALL,IEN,SUB
- S SUB=2
- I LIST=1!(LIST=0) D Q
- .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
- ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL)) I 'IEN Q
- ..I $O(^FSCD("CALL USER",IEN,SUB,0)) X ACTION
- I LIST="" D Q
- .S CALL=0 F S CALL=$O(^FSCD("CALL USER","AUC",DUZ,CALL)) Q:CALL<1 D
- ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL)) I 'IEN Q
- ..I $O(^FSCD("CALL USER",IEN,SUB,0)) X ACTION
- Q
- ;
- PNEX ;
- N CALL,IEN,SUB
- S SUB=2
- I LIST=1!(LIST=0) D Q
- .S CALL=0 F S CALL=$O(^TMP("FSC USELIST",$J,CALL)) Q:CALL<1 D
- ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL))
- ..I '$O(^FSCD("CALL USER",IEN,SUB,0)) X ACTION
- I LIST="" D Q
- .S CALL=0 F S CALL=$O(^FSCD("CALL USER","AUC",DUZ,CALL)) Q:CALL<1 D
- ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALL))
- ..I '$O(^FSCD("CALL USER",IEN,SUB,0)) X ACTION
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCQSW 4393 printed Mar 13, 2025@21:24:06 Page 2
- FSCQSW ;SLC/STAFF-NOIS Query Search Word-Processing ;8/8/98 22:10
- +1 ;;1.1;NOIS;;Sep 06, 1998
- +2 ;
- CON ; from FSCQS
- +1 IF FIELD=59
- DO PCON
- QUIT
- +2 NEW CALL,SUB,SUBNUM
- +3 SET SUB=$SELECT(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,FIELD=14:80,1:0)
- if 'SUB
- QUIT
- +4 SET VALUE=$$UP^XLFSTR(VALUE)
- +5 IF LIST=1!(LIST=0)
- Begin DoDot:1
- +6 SET CALL=0
- FOR
- SET CALL=$ORDER(^TMP("FSC USELIST",$JOB,CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +7 SET SUBNUM=0
- FOR
- SET SUBNUM=$ORDER(^FSCD("CALL",CALL,SUB,SUBNUM))
- if SUBNUM<1
- QUIT
- IF $$UP^XLFSTR($GET(^(SUBNUM,0)))[VALUE
- XECUTE ACTION
- QUIT
- End DoDot:2
- End DoDot:1
- QUIT
- +8 IF LIST=""
- Begin DoDot:1
- +9 SET CALL=0
- FOR
- SET CALL=$ORDER(^FSCD("CALL",CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +10 SET SUBNUM=0
- FOR
- SET SUBNUM=$ORDER(^FSCD("CALL",CALL,SUB,SUBNUM))
- if SUBNUM<1
- QUIT
- IF $$UP^XLFSTR($GET(^(SUBNUM,0)))[VALUE
- XECUTE ACTION
- QUIT
- End DoDot:2
- End DoDot:1
- QUIT
- +11 QUIT
- +12 ;
- NCON ; from FSCQS
- +1 IF FIELD=59
- DO PNCON
- QUIT
- +2 NEW CALL,OK,SUB,SUBNUM
- +3 SET SUB=$SELECT(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,FIELD=14:80,1:0)
- if 'SUB
- QUIT
- +4 SET VALUE=$$UP^XLFSTR(VALUE)
- +5 IF LIST=1!(LIST=0)
- Begin DoDot:1
- +6 SET CALL=0
- FOR
- SET CALL=$ORDER(^TMP("FSC USELIST",$JOB,CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +7 IF '$ORDER(^FSCD("CALL",CALL,SUB,0))
- QUIT
- +8 SET (OK,SUBNUM)=0
- FOR
- SET SUBNUM=$ORDER(^FSCD("CALL",CALL,SUB,SUBNUM))
- if SUBNUM<1
- QUIT
- IF $$UP^XLFSTR($GET(^(SUBNUM,0)))[VALUE
- SET OK=1
- QUIT
- +9 IF 'OK
- XECUTE ACTION
- End DoDot:2
- End DoDot:1
- QUIT
- +10 IF LIST=""
- Begin DoDot:1
- +11 SET CALL=0
- FOR
- SET CALL=$ORDER(^FSCD("CALL",CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +12 IF '$ORDER(^FSCD("CALL",CALL,SUB,0))
- QUIT
- +13 SET (OK,SUBNUM)=0
- FOR
- SET SUBNUM=$ORDER(^FSCD("CALL",CALL,SUB,SUBNUM))
- if SUBNUM<1
- QUIT
- IF $$UP^XLFSTR($GET(^(SUBNUM,0)))[VALUE
- SET OK=1
- QUIT
- +14 IF 'OK
- XECUTE ACTION
- End DoDot:2
- End DoDot:1
- QUIT
- +15 QUIT
- +16 ;
- EX ; from FSCQS
- +1 IF FIELD=59
- DO PEX
- QUIT
- +2 NEW CALL,SUB
- +3 SET SUB=$SELECT(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,FIELD=14:80,1:0)
- if 'SUB
- QUIT
- +4 IF LIST=1!(LIST=0)
- Begin DoDot:1
- +5 SET CALL=0
- FOR
- SET CALL=$ORDER(^TMP("FSC USELIST",$JOB,CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +6 IF $ORDER(^FSCD("CALL",CALL,SUB,0))
- XECUTE ACTION
- End DoDot:2
- End DoDot:1
- QUIT
- +7 IF LIST=""
- Begin DoDot:1
- +8 SET CALL=0
- FOR
- SET CALL=$ORDER(^FSCD("CALL",CALL))
- if CALL<1
- QUIT
- IF $ORDER(^(CALL,SUB,0))
- XECUTE ACTION
- End DoDot:1
- QUIT
- +9 QUIT
- +10 ;
- NEX ; from FSCQS
- +1 IF FIELD=59
- DO PNEX
- QUIT
- +2 NEW CALL,SUB
- +3 SET SUB=$SELECT(FIELD=12:30,FIELD=13:50,FIELD=43:110,FIELD=54:103,FIELD=14:80,1:0)
- if 'SUB
- QUIT
- +4 IF LIST=1!(LIST=0)
- Begin DoDot:1
- +5 SET CALL=0
- FOR
- SET CALL=$ORDER(^TMP("FSC USELIST",$JOB,CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +6 IF '$ORDER(^FSCD("CALL",CALL,SUB,0))
- XECUTE ACTION
- End DoDot:2
- End DoDot:1
- QUIT
- +7 IF LIST=""
- Begin DoDot:1
- +8 SET CALL=0
- FOR
- SET CALL=$ORDER(^FSCD("CALL",CALL))
- if CALL<1
- QUIT
- IF '$ORDER(^(CALL,SUB,0))
- XECUTE ACTION
- End DoDot:1
- QUIT
- +9 QUIT
- PCON ;
- +1 NEW CALL,IEN,SUB,SUBNUM
- +2 SET SUB=2
- +3 SET VALUE=$$UP^XLFSTR(VALUE)
- +4 IF LIST=1!(LIST=0)
- Begin DoDot:1
- +5 SET CALL=0
- FOR
- SET CALL=$ORDER(^TMP("FSC USELIST",$JOB,CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +6 SET IEN=+$GET(^FSCD("CALL USER","AUC",DUZ,CALL))
- IF 'IEN
- QUIT
- +7 SET SUBNUM=0
- FOR
- SET SUBNUM=$ORDER(^FSCD("CALL USER",IEN,SUB,SUBNUM))
- if SUBNUM<1
- QUIT
- IF $$UP^XLFSTR($GET(^(SUBNUM,0)))[VALUE
- XECUTE ACTION
- QUIT
- End DoDot:2
- End DoDot:1
- QUIT
- +8 IF LIST=""
- Begin DoDot:1
- +9 SET CALL=0
- FOR
- SET CALL=$ORDER(^FSCD("CALL USER","AUC",DUZ,CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +10 SET IEN=+$GET(^FSCD("CALL USER","AUC",DUZ,CALL))
- IF 'IEN
- QUIT
- +11 SET SUBNUM=0
- FOR
- SET SUBNUM=$ORDER(^FSCD("CALL USER",IEN,SUB,SUBNUM))
- if SUBNUM<1
- QUIT
- IF $$UP^XLFSTR($GET(^(SUBNUM,0)))[VALUE
- XECUTE ACTION
- QUIT
- End DoDot:2
- End DoDot:1
- QUIT
- +12 QUIT
- +13 ;
- PNCON ;
- +1 NEW CALL,IEN,OK,SUB,SUBNUM
- +2 SET SUB=2
- +3 SET VALUE=$$UP^XLFSTR(VALUE)
- +4 IF LIST=1!(LIST=0)
- Begin DoDot:1
- +5 SET CALL=0
- FOR
- SET CALL=$ORDER(^TMP("FSC USELIST",$JOB,CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +6 SET IEN=+$GET(^FSCD("CALL USER","AUC",DUZ,CALL))
- IF 'IEN
- QUIT
- +7 IF '$ORDER(^FSCD("CALL USER",IEN,SUB,0))
- QUIT
- +8 SET (OK,SUBNUM)=0
- FOR
- SET SUBNUM=$ORDER(^FSCD("CALL USER",IEN,SUB,SUBNUM))
- if SUBNUM<1
- QUIT
- IF $$UP^XLFSTR($GET(^(SUBNUM,0)))[VALUE
- SET OK=1
- QUIT
- +9 IF 'OK
- XECUTE ACTION
- End DoDot:2
- End DoDot:1
- QUIT
- +10 IF LIST=""
- Begin DoDot:1
- +11 SET CALL=0
- FOR
- SET CALL=$ORDER(^FSCD("CALL USER","AUC",DUZ,CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +12 SET IEN=+$GET(^FSCD("CALL USER","AUC",DUZ,CALL))
- IF 'IEN
- QUIT
- +13 IF '$ORDER(^FSCD("CALL USER",IEN,SUB,0))
- QUIT
- +14 SET (OK,SUBNUM)=0
- FOR
- SET SUBNUM=$ORDER(^FSCD("CALL USER",IEN,SUB,SUBNUM))
- if SUBNUM<1
- QUIT
- IF $$UP^XLFSTR($GET(^(SUBNUM,0)))[VALUE
- SET OK=1
- QUIT
- +15 IF 'OK
- XECUTE ACTION
- End DoDot:2
- End DoDot:1
- QUIT
- +16 QUIT
- +17 ;
- PEX ;
- +1 NEW CALL,IEN,SUB
- +2 SET SUB=2
- +3 IF LIST=1!(LIST=0)
- Begin DoDot:1
- +4 SET CALL=0
- FOR
- SET CALL=$ORDER(^TMP("FSC USELIST",$JOB,CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +5 SET IEN=+$GET(^FSCD("CALL USER","AUC",DUZ,CALL))
- IF 'IEN
- QUIT
- +6 IF $ORDER(^FSCD("CALL USER",IEN,SUB,0))
- XECUTE ACTION
- End DoDot:2
- End DoDot:1
- QUIT
- +7 IF LIST=""
- Begin DoDot:1
- +8 SET CALL=0
- FOR
- SET CALL=$ORDER(^FSCD("CALL USER","AUC",DUZ,CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +9 SET IEN=+$GET(^FSCD("CALL USER","AUC",DUZ,CALL))
- IF 'IEN
- QUIT
- +10 IF $ORDER(^FSCD("CALL USER",IEN,SUB,0))
- XECUTE ACTION
- End DoDot:2
- End DoDot:1
- QUIT
- +11 QUIT
- +12 ;
- PNEX ;
- +1 NEW CALL,IEN,SUB
- +2 SET SUB=2
- +3 IF LIST=1!(LIST=0)
- Begin DoDot:1
- +4 SET CALL=0
- FOR
- SET CALL=$ORDER(^TMP("FSC USELIST",$JOB,CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +5 SET IEN=+$GET(^FSCD("CALL USER","AUC",DUZ,CALL))
- +6 IF '$ORDER(^FSCD("CALL USER",IEN,SUB,0))
- XECUTE ACTION
- End DoDot:2
- End DoDot:1
- QUIT
- +7 IF LIST=""
- Begin DoDot:1
- +8 SET CALL=0
- FOR
- SET CALL=$ORDER(^FSCD("CALL USER","AUC",DUZ,CALL))
- if CALL<1
- QUIT
- Begin DoDot:2
- +9 SET IEN=+$GET(^FSCD("CALL USER","AUC",DUZ,CALL))
- +10 IF '$ORDER(^FSCD("CALL USER",IEN,SUB,0))
- XECUTE ACTION
- End DoDot:2
- End DoDot:1
- QUIT
- +11 QUIT
