FSCQSM.m

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 ---FSCQSM   677     printed  Apr 09, 2024@21:23:07                                                                                                                                                                                                       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