Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
532 bytes
|
Line | |
---|
1 | FSCQO ;SLC/STAFF-NOIS Query Optimize ;1/11/98 18:46
|
---|
2 | ;;1.1;NOIS;;Sep 06, 1998
|
---|
3 | ;
|
---|
4 | OPTIMIZE(CRITERIA) ; from FSCQS, FSCRPCQ
|
---|
5 | ; ***needs algorithm to assign order to steps in fconds
|
---|
6 | N STEP,FCOND,FIELD,SOPT,FOPT
|
---|
7 | S STEP=0 F S STEP=$O(CRITERIA(STEP)) Q:STEP<1 D
|
---|
8 | .S SOPT=STEP,CRITERIA("O",SOPT)=STEP
|
---|
9 | .S FCOND="" F S FCOND=$O(CRITERIA(STEP,FCOND)) Q:FCOND="" S FIELD=$P(CRITERIA(STEP,FCOND),U) D
|
---|
10 | ..S FOPT=FCOND
|
---|
11 | ..S CRITERIA("F",FIELD)=$P(^FSC("FLD",FIELD,0),U,3,6)
|
---|
12 | ..S CRITERIA("O",SOPT,FOPT)=FCOND_U_$G(^FSC("FLD",FIELD,2))
|
---|
13 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.