FSCQSM ;SLC/STAFF-NOIS Query Search Multiple ;8/18/98 12:07
;;1.1;NOIS;;Sep 06, 1998
;
MULT(CALL) ; from execution of ACTION variable, setup in FSCQS
; go thru secondary checks
N SEQ,SEQ1,OK S OK=1 S SEQ=0 F S SEQ=$O(CRITERIA("O",SEQ)) Q:SEQ<1 D Q:'OK
.S SEQ1=0 F S SEQ1=$O(CRITERIA("O",SEQ,"AND",SEQ1)) Q:SEQ1<1 D Q:'OK
..X CRITERIA("O",SEQ,"AND",SEQ1) I '$T S OK=0
Q
MMULT(CALL) ;
; go thru secondary checks
N SEQ,SEQ1,OK S OK=1 S SEQ=0 F S SEQ=$O(CRITERIA("O",SEQ)) Q:SEQ<1 D Q:$D(^TMP("FSC NEWLIST",$J,CALL))
.S OK=1 S SEQ1=0 F S SEQ1=$O(CRITERIA("O",SEQ,"AND",SEQ1)) Q:SEQ1<1 D Q:'OK
..X CRITERIA("O",SEQ,"AND",SEQ1) I '$T S OK=0
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCQSM 677 printed Dec 13, 2024@02:19:04 Page 2
FSCQSM ;SLC/STAFF-NOIS Query Search Multiple ;8/18/98 12:07
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
MULT(CALL) ; from execution of ACTION variable, setup in FSCQS
+1 ; go thru secondary checks
+2 NEW SEQ,SEQ1,OK
SET OK=1
SET SEQ=0
FOR
SET SEQ=$ORDER(CRITERIA("O",SEQ))
if SEQ<1
QUIT
Begin DoDot:1
+3 SET SEQ1=0
FOR
SET SEQ1=$ORDER(CRITERIA("O",SEQ,"AND",SEQ1))
if SEQ1<1
QUIT
Begin DoDot:2
+4 XECUTE CRITERIA("O",SEQ,"AND",SEQ1)
IF '$TEST
SET OK=0
End DoDot:2
if 'OK
QUIT
End DoDot:1
if 'OK
QUIT
+5 QUIT
MMULT(CALL) ;
+1 ; go thru secondary checks
+2 NEW SEQ,SEQ1,OK
SET OK=1
SET SEQ=0
FOR
SET SEQ=$ORDER(CRITERIA("O",SEQ))
if SEQ<1
QUIT
Begin DoDot:1
+3 SET OK=1
SET SEQ1=0
FOR
SET SEQ1=$ORDER(CRITERIA("O",SEQ,"AND",SEQ1))
if SEQ1<1
QUIT
Begin DoDot:2
+4 XECUTE CRITERIA("O",SEQ,"AND",SEQ1)
IF '$TEST
SET OK=0
End DoDot:2
if 'OK
QUIT
End DoDot:1
if $DATA(^TMP("FSC NEWLIST",$JOB,CALL))
QUIT
+5 QUIT
