- FSCQS ;SLC/STAFF-NOIS Query Search ;5/25/98 19:00
- ;;1.1;NOIS;;Sep 06, 1998
- ;
- SEARCH(LISTCNT,CRITERIA) ; from FSCQR
- S LIST=$$LIST(LISTCNT)
- I '$D(CRITERIA("O")) D OPTIMIZE^FSCQO(.CRITERIA)
- K ^TMP("FSC NEWLIST",$J) N ACTION,CVALUE,FCOND,QUERY,STEP
- I $P(CRITERIA(0),U,2)=1 D Q
- .S STEP=$O(CRITERIA(0))
- .I CRITERIA(STEP)=1 D Q
- ..S ACTION="S ^TMP(""FSC NEWLIST"",$J,CALL)="""""
- ..S QUERY=CRITERIA(STEP,+$O(CRITERIA(STEP,0)))
- ..D CHECK(LIST,$P(QUERY,U),$P(QUERY,U,2),$P(QUERY,U,3))
- .S ACTION="D MULT^FSCQSM(CALL)"
- .D SETUP^FSCQSS
- .D CHECK(LIST,$P(QUERY,U),$P(QUERY,U,2),$P(QUERY,U,3))
- S ACTION="D MMULT^FSCQSM(CALL)"
- D SETUP^FSCQSSM
- D ALL^FSCQSA
- Q
- CHECK(LIST,FIELD,COND,VALUE) ; *** needs to handle special code, word processing
- N TYPE,INDEX,CODE
- S TYPE=$P(CRITERIA("F",FIELD),U),CODE=$P(CRITERIA("F",FIELD),U,2),INDEX=$P(CRITERIA("F",FIELD),U,3)
- ;I CODE["7100.6," Q ;**** fix for personal field search
- I TYPE="W" D Q
- .I COND="[" D CON^FSCQSW Q
- .I COND="exists" D EX^FSCQSW Q
- .I COND="'[" D NCON^FSCQSW Q
- .I COND="not exists" D NEX^FSCQSW Q
- I '$L(INDEX) D Q
- .I COND="exists" D EX^FSCQSN Q
- .I COND="not exists" D NEX^FSCQSN Q
- .I COND="range" D R^FSCQSR Q
- .I COND="not range" D NR^FSCQSR Q
- .D OTHER^FSCQSN Q
- I COND="=" D EQ^FSCQSE Q
- I COND=">" D GT^FSCQSG Q
- I COND="<" D LT^FSCQSL Q
- I COND="[" D CON^FSCQSC Q
- I COND="exists" D EX^FSCQSX Q
- I COND="range" D R^FSCQSR Q
- I COND="'=" D NEQ^FSCQSE Q
- I COND="'>" D NGT^FSCQSG Q
- I COND="'<" D NLT^FSCQSL Q
- I COND="'[" D NCON^FSCQSC Q
- I COND="not exists" D NEX^FSCQSX Q
- I COND="not range" D NR^FSCQSR Q
- Q
- ;
- LIST(CNT) ; $$(list count) -> "" if 0, 0 if count is >1000, else 1
- Q $S(CNT=0:"",CNT>1000:0,1:1)
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCQS 1739 printed Mar 13, 2025@21:23:56 Page 2
- FSCQS ;SLC/STAFF-NOIS Query Search ;5/25/98 19:00
- +1 ;;1.1;NOIS;;Sep 06, 1998
- +2 ;
- SEARCH(LISTCNT,CRITERIA) ; from FSCQR
- +1 SET LIST=$$LIST(LISTCNT)
- +2 IF '$DATA(CRITERIA("O"))
- DO OPTIMIZE^FSCQO(.CRITERIA)
- +3 KILL ^TMP("FSC NEWLIST",$JOB)
- NEW ACTION,CVALUE,FCOND,QUERY,STEP
- +4 IF $PIECE(CRITERIA(0),U,2)=1
- Begin DoDot:1
- +5 SET STEP=$ORDER(CRITERIA(0))
- +6 IF CRITERIA(STEP)=1
- Begin DoDot:2
- +7 SET ACTION="S ^TMP(""FSC NEWLIST"",$J,CALL)="""""
- +8 SET QUERY=CRITERIA(STEP,+$ORDER(CRITERIA(STEP,0)))
- +9 DO CHECK(LIST,$PIECE(QUERY,U),$PIECE(QUERY,U,2),$PIECE(QUERY,U,3))
- End DoDot:2
- QUIT
- +10 SET ACTION="D MULT^FSCQSM(CALL)"
- +11 DO SETUP^FSCQSS
- +12 DO CHECK(LIST,$PIECE(QUERY,U),$PIECE(QUERY,U,2),$PIECE(QUERY,U,3))
- End DoDot:1
- QUIT
- +13 SET ACTION="D MMULT^FSCQSM(CALL)"
- +14 DO SETUP^FSCQSSM
- +15 DO ALL^FSCQSA
- +16 QUIT
- CHECK(LIST,FIELD,COND,VALUE) ; *** needs to handle special code, word processing
- +1 NEW TYPE,INDEX,CODE
- +2 SET TYPE=$PIECE(CRITERIA("F",FIELD),U)
- SET CODE=$PIECE(CRITERIA("F",FIELD),U,2)
- SET INDEX=$PIECE(CRITERIA("F",FIELD),U,3)
- +3 ;I CODE["7100.6," Q ;**** fix for personal field search
- +4 IF TYPE="W"
- Begin DoDot:1
- +5 IF COND="["
- DO CON^FSCQSW
- QUIT
- +6 IF COND="exists"
- DO EX^FSCQSW
- QUIT
- +7 IF COND="'["
- DO NCON^FSCQSW
- QUIT
- +8 IF COND="not exists"
- DO NEX^FSCQSW
- QUIT
- End DoDot:1
- QUIT
- +9 IF '$LENGTH(INDEX)
- Begin DoDot:1
- +10 IF COND="exists"
- DO EX^FSCQSN
- QUIT
- +11 IF COND="not exists"
- DO NEX^FSCQSN
- QUIT
- +12 IF COND="range"
- DO R^FSCQSR
- QUIT
- +13 IF COND="not range"
- DO NR^FSCQSR
- QUIT
- +14 DO OTHER^FSCQSN
- QUIT
- End DoDot:1
- QUIT
- +15 IF COND="="
- DO EQ^FSCQSE
- QUIT
- +16 IF COND=">"
- DO GT^FSCQSG
- QUIT
- +17 IF COND="<"
- DO LT^FSCQSL
- QUIT
- +18 IF COND="["
- DO CON^FSCQSC
- QUIT
- +19 IF COND="exists"
- DO EX^FSCQSX
- QUIT
- +20 IF COND="range"
- DO R^FSCQSR
- QUIT
- +21 IF COND="'="
- DO NEQ^FSCQSE
- QUIT
- +22 IF COND="'>"
- DO NGT^FSCQSG
- QUIT
- +23 IF COND="'<"
- DO NLT^FSCQSL
- QUIT
- +24 IF COND="'["
- DO NCON^FSCQSC
- QUIT
- +25 IF COND="not exists"
- DO NEX^FSCQSX
- QUIT
- +26 IF COND="not range"
- DO NR^FSCQSR
- QUIT
- +27 QUIT
- +28 ;
- LIST(CNT) ; $$(list count) -> "" if 0, 0 if count is >1000, else 1
- +1 QUIT $SELECT(CNT=0:"",CNT>1000:0,1:1)
