- AMQQATR0 ; IHS/CMI/THL - MAKES CODE FOR DYNAMIC SEARCH OPTIMIZATION ;
- ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- ;-----
- FILTERB ; ENTRY POINT FROM AMQQATR
- I $P(AMQQECPR,";",2)'="" G FB2
- S Z=$P(AMQQECPR,";")
- D FBT
- S AMQQECMP="I AMQQEVAL"_AMQQESBL_Z
- Q
- ;
- FBT S Z=$S(Z?1.N1"/"1.N:(+Z/$P(Z,"/",2)),$E(Z)="N":0,$E(Z)="F":1,1:-1)
- Q
- ;
- FB2 S Z=$P(AMQQECPR,";")
- D FBT
- S X(1)=Z,Z=$P(AMQQECPR,";",2)
- D FBT
- S X(2)=Z
- I AMQQESBL="><" S X(3)=.0000000001,X(1)=X(1)-X(3),X(2)=X(2)+X(3),AMQQECMP="I AMQQEVAL>"_X(1)_",AMQQEVAL<"_X(2) Q
- S AMQQECMP="I AMQQEVAL<"_X(1)_"!(AMQQEVAL>"_X(2)_")"
- Q
- ;
- FILTERD ; ENTRY POINT FROM AMQQATR
- FILTERN ; ENTRY POINT FROM AMQQATR
- I $P(AMQQECPR,";",2)="" S AMQQECMP="I AMQQEVAL"_AMQQESBL_+AMQQECPR Q
- S X(1)=+AMQQECPR
- S X(2)=$P(AMQQECPR,";",2)
- S AMQQECMP="I AMQQEVAL<"_X(1)_"!(AMQQEVAL>"_X(2)_")"
- I AMQQESBL="><"!(AMQQESBL="=") S X(3)=.0000001,X(1)=X(1)-X(3),X(2)=X(2)+X(3),AMQQECMP="I AMQQEVAL>"_X(1)_",AMQQEVAL<"_X(2) Q
- Q
- ;
- DATE S AMQQECMP="I 1",X=$P(AMQQESBL,";")
- S AMQQEVAL=0
- I X'="<",X'="'>" S AMQQEVAL=$P(AMQQECPR,";")-.0000001
- I AMQQENCO=2 S AMQQECMP="I AMQQEVAL>"_$P(AMQQECPR,";",2)
- Q
- ;
- FILTERS ; ENTRY POINT FROM AMQQATR
- S AMQQECMP="I AMQQEVAL"_AMQQESBL_""""_$P(AMQQECPR,":")_""""
- Q
- ;
- FILTERF ; ENTRY POINT FROM AMQQATR
- I AMQQECPR[";" S AMQQECMP="I AMQQEVAL]"""_$P(AMQQECPR,";")_""",AMQQEVAL']"""_$P(AMQQECPR,";",2)_""",AMQQEVAL"_"'=""""" Q
- I AMQQESBL="$" S AMQQECMP="I $E(AMQQEVAL,1,"_$L(AMQQECPR)_")="""_AMQQECPR_"""" Q
- I AMQQESBL="#" S AMQQECMP="I $E(AMQQEVAL,"_($L(AMQQEVAL)-$L(AMQQECPR)+1)_",99)="""_AMQQECPR_"""" Q
- S AMQQECMP="I AMQQEVAL"_AMQQESBL_""""_AMQQECPR_""""
- Q
- ;
- FILTERA ; ENTRY POINT FROM AMQQATR
- N %
- S %DT=""
- S X="T+1"
- D ^%DT
- S X(3)=Y
- S X(1)=+AMQQECPR
- S X(2)=$P(AMQQECPR,";",2)
- I AMQQESBL="'<" S X(1)=X(1)-1,AMQQESBL=">" G FAG
- I AMQQESBL="'>" S X(1)=X(1)+1,AMQQESBL="<" G FAL
- FAG I AMQQESBL=">" S Z(1)=0,Z(2)=X(3)-((X(1)+1)*10000),AMQQESBL="><" G FSET
- FAL I AMQQESBL="<" S Z(2)=99999999,Z(1)=DT-(X(1)*10000),AMQQESBL="><" G FSET
- I AMQQESBL="=" S Z(1)=DT-((X(1)+1)*10000),Z(2)=X(3)-(X(1)*10000),AMQQESBL="><" G FSET
- I AMQQESBL="'=" S Z(1)=DT-(X(1)*10000),Z(2)=X(3)-((X(1)+1)*10000),AMQQESBL="'><" G FSET
- I AMQQESBL="><" S Z(1)=DT-(X(2)*10000),Z(2)=X(3)-(X(1)*10000) G FSET
- S Z(1)=DT-(X(1)*10000)
- S Z(2)=X(3)-(X(2)*10000)
- FSET I AMQQESBL="><" S AMQQECMP="I AMQQEVAL>"_Z(1)_",AMQQEVAL<"_Z(2) Q
- S AMQQECMP="I AMQQEVAL>"_Z(1)_"!(AMQQEVAL<"_Z(2)_")"
- Q
- ;
- FILTERC Q
- ;
- AMQQATR0 ; IHS/CMI/THL - MAKES CODE FOR DYNAMIC SEARCH OPTIMIZATION ;
- +1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- +2 ;-----
- FILTERB ; ENTRY POINT FROM AMQQATR
- +1 IF $PIECE(AMQQECPR,";",2)'=""
- GOTO FB2
- +2 SET Z=$PIECE(AMQQECPR,";")
- +3 DO FBT
- +4 SET AMQQECMP="I AMQQEVAL"_AMQQESBL_Z
- +5 QUIT
- +6 ;
- FBT SET Z=$SELECT(Z?1.N1"/"1.N:(+Z/$PIECE(Z,"/",2)),$EXTRACT(Z)="N":0,$EXTRACT(Z)="F":1,1:-1)
- +1 QUIT
- +2 ;
- FB2 SET Z=$PIECE(AMQQECPR,";")
- +1 DO FBT
- +2 SET X(1)=Z
- SET Z=$PIECE(AMQQECPR,";",2)
- +3 DO FBT
- +4 SET X(2)=Z
- +5 IF AMQQESBL="><"
- SET X(3)=.0000000001
- SET X(1)=X(1)-X(3)
- SET X(2)=X(2)+X(3)
- SET AMQQECMP="I AMQQEVAL>"_X(1)_",AMQQEVAL<"_X(2)
- QUIT
- +6 SET AMQQECMP="I AMQQEVAL<"_X(1)_"!(AMQQEVAL>"_X(2)_")"
- +7 QUIT
- +8 ;
- FILTERD ; ENTRY POINT FROM AMQQATR
- FILTERN ; ENTRY POINT FROM AMQQATR
- +1 IF $PIECE(AMQQECPR,";",2)=""
- SET AMQQECMP="I AMQQEVAL"_AMQQESBL_+AMQQECPR
- QUIT
- +2 SET X(1)=+AMQQECPR
- +3 SET X(2)=$PIECE(AMQQECPR,";",2)
- +4 SET AMQQECMP="I AMQQEVAL<"_X(1)_"!(AMQQEVAL>"_X(2)_")"
- +5 IF AMQQESBL="><"!(AMQQESBL="=")
- SET X(3)=.0000001
- SET X(1)=X(1)-X(3)
- SET X(2)=X(2)+X(3)
- SET AMQQECMP="I AMQQEVAL>"_X(1)_",AMQQEVAL<"_X(2)
- QUIT
- +6 QUIT
- +7 ;
- DATE SET AMQQECMP="I 1"
- SET X=$PIECE(AMQQESBL,";")
- +1 SET AMQQEVAL=0
- +2 IF X'="<"
- IF X'="'>"
- SET AMQQEVAL=$PIECE(AMQQECPR,";")-.0000001
- +3 IF AMQQENCO=2
- SET AMQQECMP="I AMQQEVAL>"_$PIECE(AMQQECPR,";",2)
- +4 QUIT
- +5 ;
- FILTERS ; ENTRY POINT FROM AMQQATR
- +1 SET AMQQECMP="I AMQQEVAL"_AMQQESBL_""""_$PIECE(AMQQECPR,":")_""""
- +2 QUIT
- +3 ;
- FILTERF ; ENTRY POINT FROM AMQQATR
- +1 IF AMQQECPR[";"
- SET AMQQECMP="I AMQQEVAL]"""_$PIECE(AMQQECPR,";")_""",AMQQEVAL']"""_$PIECE(AMQQECPR,";",2)_""",AMQQEVAL"_"'="""""
- QUIT
- +2 IF AMQQESBL="$"
- SET AMQQECMP="I $E(AMQQEVAL,1,"_$LENGTH(AMQQECPR)_")="""_AMQQECPR_""""
- QUIT
- +3 IF AMQQESBL="#"
- SET AMQQECMP="I $E(AMQQEVAL,"_($LENGTH(AMQQEVAL)-$LENGTH(AMQQECPR)+1)_",99)="""_AMQQECPR_""""
- QUIT
- +4 SET AMQQECMP="I AMQQEVAL"_AMQQESBL_""""_AMQQECPR_""""
- +5 QUIT
- +6 ;
- FILTERA ; ENTRY POINT FROM AMQQATR
- +1 NEW %
- +2 SET %DT=""
- +3 SET X="T+1"
- +4 DO ^%DT
- +5 SET X(3)=Y
- +6 SET X(1)=+AMQQECPR
- +7 SET X(2)=$PIECE(AMQQECPR,";",2)
- +8 IF AMQQESBL="'<"
- SET X(1)=X(1)-1
- SET AMQQESBL=">"
- GOTO FAG
- +9 IF AMQQESBL="'>"
- SET X(1)=X(1)+1
- SET AMQQESBL="<"
- GOTO FAL
- FAG IF AMQQESBL=">"
- SET Z(1)=0
- SET Z(2)=X(3)-((X(1)+1)*10000)
- SET AMQQESBL="><"
- GOTO FSET
- FAL IF AMQQESBL="<"
- SET Z(2)=99999999
- SET Z(1)=DT-(X(1)*10000)
- SET AMQQESBL="><"
- GOTO FSET
- +1 IF AMQQESBL="="
- SET Z(1)=DT-((X(1)+1)*10000)
- SET Z(2)=X(3)-(X(1)*10000)
- SET AMQQESBL="><"
- GOTO FSET
- +2 IF AMQQESBL="'="
- SET Z(1)=DT-(X(1)*10000)
- SET Z(2)=X(3)-((X(1)+1)*10000)
- SET AMQQESBL="'><"
- GOTO FSET
- +3 IF AMQQESBL="><"
- SET Z(1)=DT-(X(2)*10000)
- SET Z(2)=X(3)-(X(1)*10000)
- GOTO FSET
- +4 SET Z(1)=DT-(X(1)*10000)
- +5 SET Z(2)=X(3)-(X(2)*10000)
- FSET IF AMQQESBL="><"
- SET AMQQECMP="I AMQQEVAL>"_Z(1)_",AMQQEVAL<"_Z(2)
- QUIT
- +1 SET AMQQECMP="I AMQQEVAL>"_Z(1)_"!(AMQQEVAL<"_Z(2)_")"
- +2 QUIT
- +3 ;
- FILTERC QUIT
- +1 ;
