Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
532 bytes
|
Rev | Line | |
---|
[613] | 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.