AMQQQ2 ; IHS/CMI/THL - COMPILES SCRIPT QUERIES ;
;;2.0;IHS PCC SUITE;;MAY 14, 2009
;-----
RUN D SUBJ
EN1 ; ENTRY POINT FROM NATURAL LANGUAGE INTERFACE
F AMQQYYAT=0:0 S AMQQYYAT=$O(AMQQXX(AMQQYYAT)) Q:'AMQQYYAT D ATT
EXIT K X,AMQQYYYY,AMQQYYCC,AMQQYYAA,AMQQNSUB,%
Q
;
SUBJ S Y=AMQQXX(0)
I Y?1"`"1.N S Y="^DPT(^"_$E(Y,2,9)_U_$P(^DPT($E(Y,2,9),0),U) D PERSON^AMQQ1
Q
;
ATT I $D(AMQQXX(AMQQYYAT,2)) D OR Q
S (%,AMQQYYYY)=AMQQXX(AMQQYYAT,1)
I $E($P(%,";",2))="M" S AMQQCTXS=1,AMQQXXND="AMQQXX("_AMQQYYAT_",1)" D MULT G ASET
A1 S (Y,AMQQYYAA)=$P(%,";")
S AMQQYYCC=$P(%,";",2)
S AMQQCOMP=$P(%,";",3,4)
I AMQQYYCC="TAX" D TAX G ASET
D EN1^AMQQATA
I $D(AMQQONE) D ^AMQQAC Q
I AMQQYYCC'="" S Y=AMQQYYCC D EN1^AMQQAC
I +$G(AMQQYYAA)=112 D ^AMQQAC,^AMQQAV
ASET D SET^AMQQAT
D EXIT^AMQQAT
D ^AMQQATR
D ^AMQQATS
S AMQQUATN=AMQQUATN+1
S:'$D(AMQQNULL) AMQQUNBC=AMQQUNBC+1
K AMQQNULL
Q
;
TAX S %=^AMQQ(5,+Y,0)
S AMQQATNM=$P(Y,U,2)
S AMQQLINK=$P(%,U,5)
S AMQQATN=+Y
S AMQQSBCT=$P(%,U,20)
I $G(AMQQSBCT)="" S AMQQSBCT=$P(^AMQQ(1,AMQQLINK,0),U,5)
S %=^AMQQ(1,AMQQLINK,0)
S AMQQCTXS=$P(%,U,7)
S AMQQVCL=$P(%,U,6)
S AMQQFTYP=$P(^AMQQ(4,$P(%,U,5),0),U)
S AMQQTAX=AMQQCOMP
S AMQQCOMP=";;;"_AMQQCOMP
K AMQQCOND
Q
;
OR S AMQQCOND=265
S AMQQSYMB="="
S AMQQKGNO=$G(AMQQKGNO)+1
S AMQQKONG=""
F AMQQYYON=0:0 S AMQQYYON=$O(AMQQXX(AMQQYYAT,AMQQYYON)) Q:'AMQQYYON S (AMQQYYYY,%)=AMQQXX(AMQQYYAT,AMQQYYON) D A1
K AMQQYYON,AMQQKONG
Q
;
MULT ; ENTRY POINT FROM AMQQSQ
S AMQQSQAA=AMQQUATN
S %=$P(AMQQYYYY,";")
S (AMQQSQAN,AMQQATNM)=$P(%,U,2)
S AMQQSQSN=+%
S %=$P(^AMQQ(5,+%,0),U,5)
S:%=9 %=AMQQATN+($J/100000)
S AMQQLINK=%
S %=$P(^AMQQ(1,%,0),U,5)
S (AMQQSQST,AMQQFTYP)=$P(^AMQQ(4,%,0),U)
S AMQQYYMI=0
I $P(AMQQYYYY,";",2)="MTAX" S %=$P(AMQQYYYY,";",3),AMQQCOMP=";;;"_%,AMQQTAX=% I $D(AMQQONE),$D(^UTILITY("AMQQ TAX",$J,$P(AMQQYYYY,";",3),"*")) S $P(AMQQCOMP,";",5)="ALL",AMQQSER="-.1"
D EN1^AMQQSQ
K AMQQYYMI,AMQQYYCC,AMQQMMMM,AMQQMMVV
Q
;
AMQQQ2 ; IHS/CMI/THL - COMPILES SCRIPT QUERIES ;
+1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
+2 ;-----
RUN DO SUBJ
EN1 ; ENTRY POINT FROM NATURAL LANGUAGE INTERFACE
+1 FOR AMQQYYAT=0:0
SET AMQQYYAT=$ORDER(AMQQXX(AMQQYYAT))
IF 'AMQQYYAT
QUIT
DO ATT
EXIT KILL X,AMQQYYYY,AMQQYYCC,AMQQYYAA,AMQQNSUB,%
+1 QUIT
+2 ;
SUBJ SET Y=AMQQXX(0)
+1 IF Y?1"`"1.N
SET Y="^DPT(^"_$EXTRACT(Y,2,9)_U_$PIECE(^DPT($EXTRACT(Y,2,9),0),U)
DO PERSON^AMQQ1
+2 QUIT
+3 ;
ATT IF $DATA(AMQQXX(AMQQYYAT,2))
DO OR
QUIT
+1 SET (%,AMQQYYYY)=AMQQXX(AMQQYYAT,1)
+2 IF $EXTRACT($PIECE(%,";",2))="M"
SET AMQQCTXS=1
SET AMQQXXND="AMQQXX("_AMQQYYAT_",1)"
DO MULT
GOTO ASET
A1 SET (Y,AMQQYYAA)=$PIECE(%,";")
+1 SET AMQQYYCC=$PIECE(%,";",2)
+2 SET AMQQCOMP=$PIECE(%,";",3,4)
+3 IF AMQQYYCC="TAX"
DO TAX
GOTO ASET
+4 DO EN1^AMQQATA
+5 IF $DATA(AMQQONE)
DO ^AMQQAC
QUIT
+6 IF AMQQYYCC'=""
SET Y=AMQQYYCC
DO EN1^AMQQAC
+7 IF +$GET(AMQQYYAA)=112
DO ^AMQQAC
DO ^AMQQAV
ASET DO SET^AMQQAT
+1 DO EXIT^AMQQAT
+2 DO ^AMQQATR
+3 DO ^AMQQATS
+4 SET AMQQUATN=AMQQUATN+1
+5 IF '$DATA(AMQQNULL)
SET AMQQUNBC=AMQQUNBC+1
+6 KILL AMQQNULL
+7 QUIT
+8 ;
TAX SET %=^AMQQ(5,+Y,0)
+1 SET AMQQATNM=$PIECE(Y,U,2)
+2 SET AMQQLINK=$PIECE(%,U,5)
+3 SET AMQQATN=+Y
+4 SET AMQQSBCT=$PIECE(%,U,20)
+5 IF $GET(AMQQSBCT)=""
SET AMQQSBCT=$PIECE(^AMQQ(1,AMQQLINK,0),U,5)
+6 SET %=^AMQQ(1,AMQQLINK,0)
+7 SET AMQQCTXS=$PIECE(%,U,7)
+8 SET AMQQVCL=$PIECE(%,U,6)
+9 SET AMQQFTYP=$PIECE(^AMQQ(4,$PIECE(%,U,5),0),U)
+10 SET AMQQTAX=AMQQCOMP
+11 SET AMQQCOMP=";;;"_AMQQCOMP
+12 KILL AMQQCOND
+13 QUIT
+14 ;
OR SET AMQQCOND=265
+1 SET AMQQSYMB="="
+2 SET AMQQKGNO=$GET(AMQQKGNO)+1
+3 SET AMQQKONG=""
+4 FOR AMQQYYON=0:0
SET AMQQYYON=$ORDER(AMQQXX(AMQQYYAT,AMQQYYON))
IF 'AMQQYYON
QUIT
SET (AMQQYYYY,%)=AMQQXX(AMQQYYAT,AMQQYYON)
DO A1
+5 KILL AMQQYYON,AMQQKONG
+6 QUIT
+7 ;
MULT ; ENTRY POINT FROM AMQQSQ
+1 SET AMQQSQAA=AMQQUATN
+2 SET %=$PIECE(AMQQYYYY,";")
+3 SET (AMQQSQAN,AMQQATNM)=$PIECE(%,U,2)
+4 SET AMQQSQSN=+%
+5 SET %=$PIECE(^AMQQ(5,+%,0),U,5)
+6 IF %=9
SET %=AMQQATN+($JOB/100000)
+7 SET AMQQLINK=%
+8 SET %=$PIECE(^AMQQ(1,%,0),U,5)
+9 SET (AMQQSQST,AMQQFTYP)=$PIECE(^AMQQ(4,%,0),U)
+10 SET AMQQYYMI=0
+11 IF $PIECE(AMQQYYYY,";",2)="MTAX"
SET %=$PIECE(AMQQYYYY,";",3)
SET AMQQCOMP=";;;"_%
SET AMQQTAX=%
IF $DATA(AMQQONE)
IF $DATA(^UTILITY("AMQQ TAX",$JOB,$PIECE(AMQQYYYY,";",3),"*"))
SET $PIECE(AMQQCOMP,";",5)="ALL"
SET AMQQSER="-.1"
+12 DO EN1^AMQQSQ
+13 KILL AMQQYYMI,AMQQYYCC,AMQQMMMM,AMQQMMVV
+14 QUIT
+15 ;
