AMQQSQL ; IHS/CMI/THL - SUBQUERY DESCRIPTIVE LIST ;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
;-----
I $D(AMQQXX) Q
N AMQQSQLS
LIST S AMQQSQLS="W ?"_$S($D(AMQQGVF):6,1:(3*AMQQUSQL+6))_","""
EN1 ; ENTRY POINT FROM AMQQSQP
I '$D(AMQQSQCT),$D(AMQQSBCT) S AMQQSQCT=AMQQSBCT ; &&&
I $D(^UTILITY("AMQQ",$J,"SQ",AMQQSQNN,"NULL"))!($G(X)="NULL") S AMQQSQLS=AMQQSQLS_"'NULL' (None meet criteria)" G LS
I AMQQSQCT="B","EV"[AMQQSQST,AMQQSQST'="" D BP G LS
S %=AMQQSQCT
D @$S($D(AMQQSQLF):"MULT",%="D":"DT^AMQQSQL1",%="B":"VAL",%="C":"COMP",%="O":"ORD",%="T":"LEAST",%="R":"REL",%="L":"LINK",%="V":"VIS",%="M":"MULT",%="S":"SET",1:"NOSQL")
I $D(AMQQNOSQ)!($G(AMQQSQLS)[";*;") K AMQQNOSQ Q ; &&&
LS I '$D(AMQQNOSQ) S ^UTILITY("AMQQ",$J,"SQL",AMQQSQNN,AMQQSQFN)=AMQQSQLS_""""
EXIT K %,A,B,C,E,F,G,H,S,T,Z,AMQQNOSQ
Q
;
NOSQL S AMQQNOSQ=""
Q
;
VAL N X,Y,Z,A S X=AMQQSQCV
I AMQQSQCV["~",AMQQSQTP="E" D BP Q
I AMQQSQCV[";" S:$D(AMQQSQNT) AMQQSQLS=AMQQSQLS_"NOT " S AMQQSQLS=AMQQSQLS_"BETWEEN "_$P(AMQQSQCV,";")_" and "_$P(AMQQSQCV,";",2) Q
S A=$S($E(AMQQSQBS)="'":$E(AMQQSQBS,2,99),1:AMQQSQBS)
S Y=$F("[]=?$#><",A)-1
S Z=$P("CONTAINS^FOLLOWS^EQUALS^PATTERN MATCH^STARTS WITH^ENDS WITH^GREATER THAN^LESS THAN",U,Y)
I $D(AMQQSQNT) S Z=$S(Y<7:"DOES ",1:"")_"NOT "_$P("CONTAIN^FOLLOW^EQUAL^PATTERN MATCH^START WITH^END WITH^GREATER THAN^LESS THAN",U,Y)
S AMQQSQLS=AMQQSQLS_Z_" "
S:AMQQSQST="T" AMQQSQLS=AMQQSQLS_"1:"
S AMQQSQLS=AMQQSQLS_AMQQSQCV
Q
;
;
BP N A,B,C,E,X,F,G,H,T,Z
S Y=AMQQSQCV
I Y=">:0~>:0~!" S AMQQSQLS=AMQQSQLS_"all values""" Q
I AMQQSQSN=253 S F="S",G="D",T="" G BP1
S F="R"
S G="L"
S T="20/"
BP1 S Z=$P(Y,"~")
S A=$P(Z,":")
S B=$P(Z,":",2)
S C=$P(Z,":",3)
S E=$P(Z,":",4)
S AMQQSQLS=AMQQSQLS_F
S:C="" AMQQSQLS=AMQQSQLS_A_T_B
S:C'="" AMQQSQLS=AMQQSQLS_" "_T_B_"-"_E
S H=$S($P(Y,"~",3)="&":" and ",1:" or "),AMQQSQLS=AMQQSQLS_H_G
S Z=$P(Y,"~",2),A=$P(Z,":")
S B=$P(Z,":",2)
S C=$P(Z,":",3)
S E=$P(Z,":",4)
S:C="" AMQQSQLS=AMQQSQLS_A_T_B
S:C'="" AMQQSQLS=AMQQSQLS_" "_T_B_"-"_E
Q
;
LEAST I AMQQSQNM["_" S AMQQSQLS=AMQQSQLS_$P(AMQQSQNM,"_")_AMQQSQCV_$P(AMQQSQNM,"_",2) Q
ORD S AMQQSQLS=AMQQSQLS_AMQQSQNM_" "_AMQQSQCV
Q
;
COMP S AMQQSQLS=AMQQSQLS_AMQQSQNM
Q
;
REL S AMQQSQLS=AMQQSQLS_"DURING THE SPECIFIED AGE WINDOW"
Q
;
LINK N X
S X=AMQQQ,Y=$P(X,U,3)
I X[";;;NULL" S AMQQSQLS=AMQQSQLS_$P(X,U,2)_" IS 'NULL'" Q
I X[";;;EXIST" S AMQQSQLS=AMQQSQLS_$P(X,U,2)_" IS NOT 'NULL'" Q
D VIS1
Q
;
VIS N X,Y
S X=AMQQQ,Y=$P(X,U,3)
I AMQQQ["NULL" S AMQQSQLS=AMQQSQLS_$P(X,U,2)_" IS 'NULL'" Q
VIS1 I "GL"[Y D ZSET^AMQQATL1 S AMQQSQLS=AMQQSQLS_$P(X,U,2)_$G(Z) Q
I Y="D" D DATE^AMQQSQL1 Q
I Y="S" D SET^AMQQSQL1 Q
I Y="F" D FREE^AMQQSQL1 Q
I $P(X,U,8)="><" S AMQQSQLS=AMQQSQLS_$P(X,U,2)_" BETWEEN "_+$P(X,U,9)_" AND "_$P($P(X,U,9),";",2) Q
S AMQQSQLS=AMQQSQLS_$P(X,U,2)_" "_$P(X,U,8)_" "_$P(X,U,9)
; INSERT OTHER TYPES HERE
Q
;
MULT S AMQQZSQL=AMQQSQNN_U_AMQQSQFN_U_(AMQQUSQN+1)
K AMQQSQLF
S AMQQSQLS=AMQQSQLS_$P(AMQQSQSQ,U,6)_" ENTERED "
I $P(AMQQSQSQ,U,7),$G(AMQQSQN),$G(AMQQSQSN),$D(^AMQQ(5,AMQQSQN,5)),$D(^AMQQ(5,AMQQSQSN,5)),$P(^(5),U,2),$P(^(5),U,2)=$P(^AMQQ(5,AMQQSQN,5),U,2) S AMQQSQLS=AMQQSQLS_"DURING THIS "_$P(AMQQSQSQ,U,5) Q
I $P(AMQQSQSQ,U,7) S AMQQSQLS=AMQQSQLS_"ON THE SAME VISIT AS EA. "_$P(AMQQSQSQ,U,5) Q
N X,Y
S X=$P(AMQQSQSQ,U,3)
S Y=$P(AMQQSQSQ,U,4)
I X["0 DAY " S X="THE SAME DAY"
I Y["0 DAY " S Y="THE SAME DAY AS"
S AMQQSQLS=AMQQSQLS_"FROM "_X_" TO "_Y_" EA. "_$P(AMQQSQSQ,U,5)
Q
;
SET N %,S,A,B
I AMQQLINK>1000!((AMQQLINK>689.9999)&(AMQQLINK<706)) S S=$G(^AMQQ(1,AMQQLINK,4,1,1)),S=$P(S,"S Y=""",2),S=$P(S,""",X=$F") G SET1
S %=$P($G(^AMQQ(5,AMQQSQSN,0)),U,5)
I % S:%=9 %=AMQQSQSN+($J/100000) S %=$P($G(^AMQQ(1,%,0)),U,6) I % S %="^DD("_%_",0)" I $D(@%) S S=";"_$P(^(0),U,3)
SET1 S A=";"_AMQQSQCV_":"
S A=$F(S,A)
I A S B=$P($E(S,A,999),";")
S AMQQSQLS=AMQQSQLS_"Result is "_$S($G(AMQQSQBS)="'=":"not ",1:"")_$G(B)
Q
;
AMQQSQL ; IHS/CMI/THL - SUBQUERY DESCRIPTIVE LIST ;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
+2 ;-----
+3 IF $DATA(AMQQXX)
QUIT
+4 NEW AMQQSQLS
LIST SET AMQQSQLS="W ?"_$SELECT($DATA(AMQQGVF):6,1:(3*AMQQUSQL+6))_","""
EN1 ; ENTRY POINT FROM AMQQSQP
+1 ; &&&
IF '$DATA(AMQQSQCT)
IF $DATA(AMQQSBCT)
SET AMQQSQCT=AMQQSBCT
+2 IF $DATA(^UTILITY("AMQQ",$JOB,"SQ",AMQQSQNN,"NULL"))!($GET(X)="NULL")
SET AMQQSQLS=AMQQSQLS_"'NULL' (None meet criteria)"
GOTO LS
+3 IF AMQQSQCT="B"
IF "EV"[AMQQSQST
IF AMQQSQST'=""
DO BP
GOTO LS
+4 SET %=AMQQSQCT
+5 DO @$SELECT($DATA(AMQQSQLF):"MULT",%="D":"DT^AMQQSQL1",%="B":"VAL",%="C":"COMP",%="O":"ORD",%="T":"LEAST",%="R":"REL",%="L":"LINK",%="V":"VIS",%="M":"MULT",%="S":"SET",1:"NOSQL")
+6 ; &&&
IF $DATA(AMQQNOSQ)!($GET(AMQQSQLS)[";*;")
KILL AMQQNOSQ
QUIT
LS IF '$DATA(AMQQNOSQ)
SET ^UTILITY("AMQQ",$JOB,"SQL",AMQQSQNN,AMQQSQFN)=AMQQSQLS_""""
EXIT KILL %,A,B,C,E,F,G,H,S,T,Z,AMQQNOSQ
+1 QUIT
+2 ;
NOSQL SET AMQQNOSQ=""
+1 QUIT
+2 ;
VAL NEW X,Y,Z,A
SET X=AMQQSQCV
+1 IF AMQQSQCV["~"
IF AMQQSQTP="E"
DO BP
QUIT
+2 IF AMQQSQCV[";"
IF $DATA(AMQQSQNT)
SET AMQQSQLS=AMQQSQLS_"NOT "
SET AMQQSQLS=AMQQSQLS_"BETWEEN "_$PIECE(AMQQSQCV,";")_" and "_$PIECE(AMQQSQCV,";",2)
QUIT
+3 SET A=$SELECT($EXTRACT(AMQQSQBS)="'":$EXTRACT(AMQQSQBS,2,99),1:AMQQSQBS)
+4 SET Y=$FIND("[]=?$#><",A)-1
+5 SET Z=$PIECE("CONTAINS^FOLLOWS^EQUALS^PATTERN MATCH^STARTS WITH^ENDS WITH^GREATER THAN^LESS THAN",U,Y)
+6 IF $DATA(AMQQSQNT)
SET Z=$SELECT(Y<7:"DOES ",1:"")_"NOT "_$PIECE("CONTAIN^FOLLOW^EQUAL^PATTERN MATCH^START WITH^END WITH^GREATER THAN^LESS THAN",U,Y)
+7 SET AMQQSQLS=AMQQSQLS_Z_" "
+8 IF AMQQSQST="T"
SET AMQQSQLS=AMQQSQLS_"1:"
+9 SET AMQQSQLS=AMQQSQLS_AMQQSQCV
+10 QUIT
+11 ;
+12 ;
BP NEW A,B,C,E,X,F,G,H,T,Z
+1 SET Y=AMQQSQCV
+2 IF Y=">:0~>:0~!"
SET AMQQSQLS=AMQQSQLS_"all values"""
QUIT
+3 IF AMQQSQSN=253
SET F="S"
SET G="D"
SET T=""
GOTO BP1
+4 SET F="R"
+5 SET G="L"
+6 SET T="20/"
BP1 SET Z=$PIECE(Y,"~")
+1 SET A=$PIECE(Z,":")
+2 SET B=$PIECE(Z,":",2)
+3 SET C=$PIECE(Z,":",3)
+4 SET E=$PIECE(Z,":",4)
+5 SET AMQQSQLS=AMQQSQLS_F
+6 IF C=""
SET AMQQSQLS=AMQQSQLS_A_T_B
+7 IF C'=""
SET AMQQSQLS=AMQQSQLS_" "_T_B_"-"_E
+8 SET H=$SELECT($PIECE(Y,"~",3)="&":" and ",1:" or ")
SET AMQQSQLS=AMQQSQLS_H_G
+9 SET Z=$PIECE(Y,"~",2)
SET A=$PIECE(Z,":")
+10 SET B=$PIECE(Z,":",2)
+11 SET C=$PIECE(Z,":",3)
+12 SET E=$PIECE(Z,":",4)
+13 IF C=""
SET AMQQSQLS=AMQQSQLS_A_T_B
+14 IF C'=""
SET AMQQSQLS=AMQQSQLS_" "_T_B_"-"_E
+15 QUIT
+16 ;
LEAST IF AMQQSQNM["_"
SET AMQQSQLS=AMQQSQLS_$PIECE(AMQQSQNM,"_")_AMQQSQCV_$PIECE(AMQQSQNM,"_",2)
QUIT
ORD SET AMQQSQLS=AMQQSQLS_AMQQSQNM_" "_AMQQSQCV
+1 QUIT
+2 ;
COMP SET AMQQSQLS=AMQQSQLS_AMQQSQNM
+1 QUIT
+2 ;
REL SET AMQQSQLS=AMQQSQLS_"DURING THE SPECIFIED AGE WINDOW"
+1 QUIT
+2 ;
LINK NEW X
+1 SET X=AMQQQ
SET Y=$PIECE(X,U,3)
+2 IF X[";;;NULL"
SET AMQQSQLS=AMQQSQLS_$PIECE(X,U,2)_" IS 'NULL'"
QUIT
+3 IF X[";;;EXIST"
SET AMQQSQLS=AMQQSQLS_$PIECE(X,U,2)_" IS NOT 'NULL'"
QUIT
+4 DO VIS1
+5 QUIT
+6 ;
VIS NEW X,Y
+1 SET X=AMQQQ
SET Y=$PIECE(X,U,3)
+2 IF AMQQQ["NULL"
SET AMQQSQLS=AMQQSQLS_$PIECE(X,U,2)_" IS 'NULL'"
QUIT
VIS1 IF "GL"[Y
DO ZSET^AMQQATL1
SET AMQQSQLS=AMQQSQLS_$PIECE(X,U,2)_$GET(Z)
QUIT
+1 IF Y="D"
DO DATE^AMQQSQL1
QUIT
+2 IF Y="S"
DO SET^AMQQSQL1
QUIT
+3 IF Y="F"
DO FREE^AMQQSQL1
QUIT
+4 IF $PIECE(X,U,8)="><"
SET AMQQSQLS=AMQQSQLS_$PIECE(X,U,2)_" BETWEEN "_+$PIECE(X,U,9)_" AND "_$PIECE($PIECE(X,U,9),";",2)
QUIT
+5 SET AMQQSQLS=AMQQSQLS_$PIECE(X,U,2)_" "_$PIECE(X,U,8)_" "_$PIECE(X,U,9)
+6 ; INSERT OTHER TYPES HERE
+7 QUIT
+8 ;
MULT SET AMQQZSQL=AMQQSQNN_U_AMQQSQFN_U_(AMQQUSQN+1)
+1 KILL AMQQSQLF
+2 SET AMQQSQLS=AMQQSQLS_$PIECE(AMQQSQSQ,U,6)_" ENTERED "
+3 IF $PIECE(AMQQSQSQ,U,7)
IF $GET(AMQQSQN)
IF $GET(AMQQSQSN)
IF $DATA(^AMQQ(5,AMQQSQN,5))
IF $DATA(^AMQQ(5,AMQQSQSN,5))
IF $PIECE(^(5),U,2)
IF $PIECE(^(5),U,2)=$PIECE(^AMQQ(5,AMQQSQN,5),U,2)
SET AMQQSQLS=AMQQSQLS_"DURING THIS "_$PIECE(AMQQSQSQ,U,5)
QUIT
+4 IF $PIECE(AMQQSQSQ,U,7)
SET AMQQSQLS=AMQQSQLS_"ON THE SAME VISIT AS EA. "_$PIECE(AMQQSQSQ,U,5)
QUIT
+5 NEW X,Y
+6 SET X=$PIECE(AMQQSQSQ,U,3)
+7 SET Y=$PIECE(AMQQSQSQ,U,4)
+8 IF X["0 DAY "
SET X="THE SAME DAY"
+9 IF Y["0 DAY "
SET Y="THE SAME DAY AS"
+10 SET AMQQSQLS=AMQQSQLS_"FROM "_X_" TO "_Y_" EA. "_$PIECE(AMQQSQSQ,U,5)
+11 QUIT
+12 ;
SET NEW %,S,A,B
+1 IF AMQQLINK>1000!((AMQQLINK>689.9999)&(AMQQLINK<706))
SET S=$GET(^AMQQ(1,AMQQLINK,4,1,1))
SET S=$PIECE(S,"S Y=""",2)
SET S=$PIECE(S,""",X=$F")
GOTO SET1
+2 SET %=$PIECE($GET(^AMQQ(5,AMQQSQSN,0)),U,5)
+3 IF %
IF %=9
SET %=AMQQSQSN+($JOB/100000)
SET %=$PIECE($GET(^AMQQ(1,%,0)),U,6)
IF %
SET %="^DD("_%_",0)"
IF $DATA(@%)
SET S=";"_$PIECE(^(0),U,3)
SET1 SET A=";"_AMQQSQCV_":"
+1 SET A=$FIND(S,A)
+2 IF A
SET B=$PIECE($EXTRACT(S,A,999),";")
+3 SET AMQQSQLS=AMQQSQLS_"Result is "_$SELECT($GET(AMQQSQBS)="'=":"not ",1:"")_$GET(B)
+4 QUIT
+5 ;
