- AMQQSQS ;IHS/CMI/THL - SETS INSTRUCTIONS FOR SUBQUERY ATTRIBUTES ;
- ;;2.0;IHS PCC SUITE;**6,7**;MAY 14, 2009
- ;-----
- RUN I AMQQSQFN=1 D SET1
- D FLAGS
- I $G(AMQQSQNC) S AMQQNOCO=AMQQSQNC
- I $D(AMQQSQNT) S AMQQNOT=""
- I '$D(AMQQSQSC),$D(AMQQSQRC) S AMQQSQRC=AMQQSQNN
- I '$D(AMQQSQSC),$D(AMQQSQAA) D SET2
- I '$D(AMQQSQSC),"LVM"'[$E(AMQQSQCT) D SET3
- D ^AMQQSQL
- EXIT K AMQQSQSC,%
- Q
- ;
- SET1 ; ENTRY POINT FROM AMQQSQP
- S AMQQUSQN=AMQQUSQN+1
- S AMQQSQNN=AMQQUSQN
- S AMQQFSQN=""
- S %=AMQQSQAN
- I $G(AMQQSQST)="I",$P($G(AMQQCOMP),";",4)'="" S %=%_" ("_$P(AMQQCOMP,";",4)_")"
- I '$D(AMQQXX) S ^UTILITY("AMQQ",$J,"SQL",AMQQSQNN,.1)="W "_$S($D(AMQQGVF):"!!?3",1:("?"_(3*AMQQUSQL+6)))_",@AMQQRV,"""_$S($D(AMQQGVF):"Generic VISIT conditions",1:("Subject of subquery: "_%))_""",@AMQQNV"
- I '$D(AMQQXX),AMQQLINK>764,AMQQLINK<768 S ^UTILITY("AMQQ",$J,"SQL",AMQQSQNN,.1)=^UTILITY("AMQQ",$J,"SQL",AMQQSQNN,.1)_" days"
- I '$D(AMQQLSQF) S AMQQLSQF=AMQQSQNN
- K ^UTILITY("AMQQ",$J,"SQ",AMQQSQNN)
- Q
- ;
- SET2 I AMQQUSQL>1 S ^UTILITY("AMQQ",$J,"SQXS",AMQQSQAA,AMQQSQNN)="",AMQQSQDF="" Q
- S ^UTILITY("AMQQ",$J,"SQXQ",AMQQSQAA,AMQQSQNN)=""
- K AMQQSQAA
- Q
- ;
- SET3 I AMQQSQCT'="B" G SETSQ
- S %=^AMQQ(4,AMQQSQTP,0),%=$P(%,U)
- I "EV"[% S AMQQSQF1="BP",AMQQSQF2="AMQQF1" G SETSQ
- SETSQ S ^UTILITY("AMQQ",$J,"SQ",AMQQSQNN,AMQQSQFN)=AMQQSQN_U_AMQQSQNM_U_AMQQSQTP_U_AMQQSQF1_U_AMQQSQF2_U_AMQQSQCT_U_AMQQSQCV_U_$D(AMQQSQNT)
- Q
- ;
- FLAGS I AMQQSQCT="C" S (AMQQSQGF,AMQQSQCF)="" S:AMQQUSQL=1 AMQQFRED=1 Q
- I AMQQSQCT="T" S (AMQQSQTF,AMQQSQGF)="" Q
- I '$D(AMQQSQGF),AMQQSQCT="B",'$D(AMQQSQBF) D SETCOMPV Q
- I (AMQQSQN=59!((AMQQSQN>315)&(AMQQSQN<319))),'$D(AMQQSQGF),'$D(AMQQSQDF) K AMQQSQQF D SETCOMPD Q
- I '$D(AMQQSQGF),AMQQSQCT="D",'$D(AMQQSQDF) D SETCOMPD Q
- I '$D(AMQQSQGF),AMQQSQCT="S",'$D(AMQQSQBF) D SETCOMPS Q
- I '$D(AMQQSQGF),AMQQSQNM="LAST" S (AMQQSQGF,AMQQSQSC)="",$P(AMQQCOMP,";",3)=AMQQSQCV Q
- I AMQQSQCT="N" S AMQQSQNF="" Q
- I "MOL"[AMQQSQCT S AMQQSQGF="" Q
- Q
- ;
- SETCOMPV S AMQQSQBF=""
- I $D(AMQQSQNT) S AMQQSQBS="'"_AMQQSQBS
- I $P(AMQQCOMP,";",4)="" S AMQQSQSC=""
- I $G(AMQQSQST)="E"!($G(AMQQSQST)="V") S $P(AMQQCOMP,";",4)=AMQQSQCV Q
- I AMQQSQCV'[";" S $P(AMQQCOMP,";",4)=AMQQSQBS_":"_AMQQSQCV S:$D(AMQQRECV) $P(AMQQRECV,U,11)=$P(AMQQCOMP,";",4) Q
- S $P(AMQQCOMP,";",4)="'<:"_$P(AMQQSQCV,";")_":'>:"_$P(AMQQSQCV,";",2)
- Q
- ;
- SETCOMPS S AMQQSQBF=""
- I $D(AMQQSQNT) S AMQQSQBS="'"_AMQQSQBS
- I $P(AMQQCOMP,";",4)="" S AMQQSQSC=""
- S $P(AMQQCOMP,";",4)=AMQQSQBS_":"_AMQQSQCV
- S $P(AMQQRECV,U,11)=$P(AMQQCOMP,";",4)
- Q
- ;
- SETCOMPD S AMQQSQDF=""
- S:'$D(AMQQCOMP) AMQQCOMP=""
- I $P(AMQQCOMP,";")="" S AMQQSQSC=""
- I AMQQSQCV[";" F %=1,2 S $P(AMQQCOMP,";",%)=$P(AMQQSQCV,";",%) I %=2 G SETCEXIT
- I AMQQSQBS="<" S $P(AMQQCOMP,";",1)=0,$P(AMQQCOMP,";",2)=AMQQSQCV Q
- I AMQQSQBS="=" S $P(AMQQCOMP,";",1)=AMQQSQCV,$P(AMQQCOMP,";",2)=AMQQSQCV Q
- S $P(AMQQCOMP,";",1)=AMQQSQCV
- S $P(AMQQCOMP,";",2)=9999999
- SETCEXIT Q
- ;
- AMQQSQS ;IHS/CMI/THL - SETS INSTRUCTIONS FOR SUBQUERY ATTRIBUTES ;
- +1 ;;2.0;IHS PCC SUITE;**6,7**;MAY 14, 2009
- +2 ;-----
- RUN IF AMQQSQFN=1
- DO SET1
- +1 DO FLAGS
- +2 IF $GET(AMQQSQNC)
- SET AMQQNOCO=AMQQSQNC
- +3 IF $DATA(AMQQSQNT)
- SET AMQQNOT=""
- +4 IF '$DATA(AMQQSQSC)
- IF $DATA(AMQQSQRC)
- SET AMQQSQRC=AMQQSQNN
- +5 IF '$DATA(AMQQSQSC)
- IF $DATA(AMQQSQAA)
- DO SET2
- +6 IF '$DATA(AMQQSQSC)
- IF "LVM"'[$EXTRACT(AMQQSQCT)
- DO SET3
- +7 DO ^AMQQSQL
- EXIT KILL AMQQSQSC,%
- +1 QUIT
- +2 ;
- SET1 ; ENTRY POINT FROM AMQQSQP
- +1 SET AMQQUSQN=AMQQUSQN+1
- +2 SET AMQQSQNN=AMQQUSQN
- +3 SET AMQQFSQN=""
- +4 SET %=AMQQSQAN
- +5 IF $GET(AMQQSQST)="I"
- IF $PIECE($GET(AMQQCOMP),";",4)'=""
- SET %=%_" ("_$PIECE(AMQQCOMP,";",4)_")"
- +6 IF '$DATA(AMQQXX)
- SET ^UTILITY("AMQQ",$JOB,"SQL",AMQQSQNN,.1)="W "_$SELECT($DATA(AMQQGVF):"!!?3",1:("?"_(3*AMQQUSQL+6)))_",@AMQQRV,"""_$SELECT($DATA(AMQQGVF):"Generic VISIT conditions",1:("Subject of subquery: "_%))_""",@AMQQNV"
- +7 IF '$DATA(AMQQXX)
- IF AMQQLINK>764
- IF AMQQLINK<768
- SET ^UTILITY("AMQQ",$JOB,"SQL",AMQQSQNN,.1)=^UTILITY("AMQQ",$JOB,"SQL",AMQQSQNN,.1)_" days"
- +8 IF '$DATA(AMQQLSQF)
- SET AMQQLSQF=AMQQSQNN
- +9 KILL ^UTILITY("AMQQ",$JOB,"SQ",AMQQSQNN)
- +10 QUIT
- +11 ;
- SET2 IF AMQQUSQL>1
- SET ^UTILITY("AMQQ",$JOB,"SQXS",AMQQSQAA,AMQQSQNN)=""
- SET AMQQSQDF=""
- QUIT
- +1 SET ^UTILITY("AMQQ",$JOB,"SQXQ",AMQQSQAA,AMQQSQNN)=""
- +2 KILL AMQQSQAA
- +3 QUIT
- +4 ;
- SET3 IF AMQQSQCT'="B"
- GOTO SETSQ
- +1 SET %=^AMQQ(4,AMQQSQTP,0)
- SET %=$PIECE(%,U)
- +2 IF "EV"[%
- SET AMQQSQF1="BP"
- SET AMQQSQF2="AMQQF1"
- GOTO SETSQ
- SETSQ SET ^UTILITY("AMQQ",$JOB,"SQ",AMQQSQNN,AMQQSQFN)=AMQQSQN_U_AMQQSQNM_U_AMQQSQTP_U_AMQQSQF1_U_AMQQSQF2_U_AMQQSQCT_U_AMQQSQCV_U_$DATA(AMQQSQNT)
- +1 QUIT
- +2 ;
- FLAGS IF AMQQSQCT="C"
- SET (AMQQSQGF,AMQQSQCF)=""
- IF AMQQUSQL=1
- SET AMQQFRED=1
- QUIT
- +1 IF AMQQSQCT="T"
- SET (AMQQSQTF,AMQQSQGF)=""
- QUIT
- +2 IF '$DATA(AMQQSQGF)
- IF AMQQSQCT="B"
- IF '$DATA(AMQQSQBF)
- DO SETCOMPV
- QUIT
- +3 IF (AMQQSQN=59!((AMQQSQN>315)&(AMQQSQN<319)))
- IF '$DATA(AMQQSQGF)
- IF '$DATA(AMQQSQDF)
- KILL AMQQSQQF
- DO SETCOMPD
- QUIT
- +4 IF '$DATA(AMQQSQGF)
- IF AMQQSQCT="D"
- IF '$DATA(AMQQSQDF)
- DO SETCOMPD
- QUIT
- +5 IF '$DATA(AMQQSQGF)
- IF AMQQSQCT="S"
- IF '$DATA(AMQQSQBF)
- DO SETCOMPS
- QUIT
- +6 IF '$DATA(AMQQSQGF)
- IF AMQQSQNM="LAST"
- SET (AMQQSQGF,AMQQSQSC)=""
- SET $PIECE(AMQQCOMP,";",3)=AMQQSQCV
- QUIT
- +7 IF AMQQSQCT="N"
- SET AMQQSQNF=""
- QUIT
- +8 IF "MOL"[AMQQSQCT
- SET AMQQSQGF=""
- QUIT
- +9 QUIT
- +10 ;
- SETCOMPV SET AMQQSQBF=""
- +1 IF $DATA(AMQQSQNT)
- SET AMQQSQBS="'"_AMQQSQBS
- +2 IF $PIECE(AMQQCOMP,";",4)=""
- SET AMQQSQSC=""
- +3 IF $GET(AMQQSQST)="E"!($GET(AMQQSQST)="V")
- SET $PIECE(AMQQCOMP,";",4)=AMQQSQCV
- QUIT
- +4 IF AMQQSQCV'[";"
- SET $PIECE(AMQQCOMP,";",4)=AMQQSQBS_":"_AMQQSQCV
- IF $DATA(AMQQRECV)
- SET $PIECE(AMQQRECV,U,11)=$PIECE(AMQQCOMP,";",4)
- QUIT
- +5 SET $PIECE(AMQQCOMP,";",4)="'<:"_$PIECE(AMQQSQCV,";")_":'>:"_$PIECE(AMQQSQCV,";",2)
- +6 QUIT
- +7 ;
- SETCOMPS SET AMQQSQBF=""
- +1 IF $DATA(AMQQSQNT)
- SET AMQQSQBS="'"_AMQQSQBS
- +2 IF $PIECE(AMQQCOMP,";",4)=""
- SET AMQQSQSC=""
- +3 SET $PIECE(AMQQCOMP,";",4)=AMQQSQBS_":"_AMQQSQCV
- +4 SET $PIECE(AMQQRECV,U,11)=$PIECE(AMQQCOMP,";",4)
- +5 QUIT
- +6 ;
- SETCOMPD SET AMQQSQDF=""
- +1 IF '$DATA(AMQQCOMP)
- SET AMQQCOMP=""
- +2 IF $PIECE(AMQQCOMP,";")=""
- SET AMQQSQSC=""
- +3 IF AMQQSQCV[";"
- FOR %=1,2
- SET $PIECE(AMQQCOMP,";",%)=$PIECE(AMQQSQCV,";",%)
- IF %=2
- GOTO SETCEXIT
- +4 IF AMQQSQBS="<"
- SET $PIECE(AMQQCOMP,";",1)=0
- SET $PIECE(AMQQCOMP,";",2)=AMQQSQCV
- QUIT
- +5 IF AMQQSQBS="="
- SET $PIECE(AMQQCOMP,";",1)=AMQQSQCV
- SET $PIECE(AMQQCOMP,";",2)=AMQQSQCV
- QUIT
- +6 SET $PIECE(AMQQCOMP,";",1)=AMQQSQCV
- +7 SET $PIECE(AMQQCOMP,";",2)=9999999
- SETCEXIT QUIT
- +1 ;
