Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
662 bytes
|
Rev | Line | |
---|
[613] | 1 | FSCQSM ;SLC/STAFF-NOIS Query Search Multiple ;8/18/98 12:07
|
---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
---|
| 3 | ;
|
---|
| 4 | MULT(CALL) ; from execution of ACTION variable, setup in FSCQS
|
---|
| 5 | ; go thru secondary checks
|
---|
| 6 | N SEQ,SEQ1,OK S OK=1 S SEQ=0 F S SEQ=$O(CRITERIA("O",SEQ)) Q:SEQ<1 D Q:'OK
|
---|
| 7 | .S SEQ1=0 F S SEQ1=$O(CRITERIA("O",SEQ,"AND",SEQ1)) Q:SEQ1<1 D Q:'OK
|
---|
| 8 | ..X CRITERIA("O",SEQ,"AND",SEQ1) I '$T S OK=0
|
---|
| 9 | Q
|
---|
| 10 | MMULT(CALL) ;
|
---|
| 11 | ; go thru secondary checks
|
---|
| 12 | 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))
|
---|
| 13 | .S OK=1 S SEQ1=0 F S SEQ1=$O(CRITERIA("O",SEQ,"AND",SEQ1)) Q:SEQ1<1 D Q:'OK
|
---|
| 14 | ..X CRITERIA("O",SEQ,"AND",SEQ1) I '$T S OK=0
|
---|
| 15 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.