Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCQO

FSCQO.m

Go to the documentation of this file.
  1. FSCQO ;SLC/STAFF-NOIS Query Optimize ;1/11/98 18:46
  1. ;;1.1;NOIS;;Sep 06, 1998
  1. ;
  1. OPTIMIZE(CRITERIA) ; from FSCQS, FSCRPCQ
  1. ; ***needs algorithm to assign order to steps in fconds
  1. N STEP,FCOND,FIELD,SOPT,FOPT
  1. S STEP=0 F S STEP=$O(CRITERIA(STEP)) Q:STEP<1 D
  1. .S SOPT=STEP,CRITERIA("O",SOPT)=STEP
  1. .S FCOND="" F S FCOND=$O(CRITERIA(STEP,FCOND)) Q:FCOND="" S FIELD=$P(CRITERIA(STEP,FCOND),U) D
  1. ..S FOPT=FCOND
  1. ..S CRITERIA("F",FIELD)=$P(^FSC("FLD",FIELD,0),U,3,6)
  1. ..S CRITERIA("O",SOPT,FOPT)=FCOND_U_$G(^FSC("FLD",FIELD,2))
  1. Q