|
Last change
on this file since 762 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.
