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 Apr 09, 2024@21:23:01 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
