source: FOIAVistA/trunk/r/NOIS-FSC/FSCQO.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 532 bytes
Line 
1FSCQO ;SLC/STAFF-NOIS Query Optimize ;1/11/98 18:46
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4OPTIMIZE(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.