AMQQCMPP ;IHS/CMI/THL - MANAGES PRINTED REPORTS ;
;;2.0;IHS PCC SUITE;**2**;MAY 14, 2009
; CALLS TASKMAN
;-----
RUN N AMQQRV,AMQQNV,AMQQXV
S (AMQQRV,AMQQNV)="AMQQXV"
S AMQQXV=""
I '$D(AMQQFFF) D SUP I $D(AMQQQUIT) Q
I $D(^XUSEC("AMQQZRPT",DUZ)) S DIR("A")="Enter name of person requesting report",DIR(0)="P^200:AQEM",DIR("B")=$P(@AMQQ200(3)@(DUZ,0),U) D ^DIR S:Y>0 AMQQUSR=+Y K Y,DIRUT,DUOUT,DTOUT,DIR I '$D(AMQQUSR) S AMQQQUIT=1 Q
D DEV
I $D(AMQQQUIT) Q
I '$D(IO("Q")) U IO D TASK D ^%ZISC G EXIT
S ZTRTN="TASK^AMQQCMPP"
S ZTIO=ION
S ZTDTH="NOW"
S ZTDESC="QUERY UTILITY REPORT"
QUEUE ;F I=1:1 S %=$P("AMQV(;AMQQ200(;AMQQRV;AMQQSUPF;AMQQNV;AMQQFFF;AMQQXV;AMQQUSR;^UTILITY(""AMQQ"",$J,;^UTILITY(""AMQQ RAND"",$J,;^UTILITY(""AMQQ TAX"",$J,",";",I) Q:%="" S ZTSAVE(%)=""
F I=1:1 S %=$P("AMQV(;AMQQ200(;AMQQ*;AMQQRV;AMQQSUPF;AMQQNV;AMQQFFF;AMQQXV;AMQQUSR;^UTILITY(""AMQQ"",$J,;^UTILITY(""AMQQ RAND"",$J,;^UTILITY(""AMQQ TAX"",$J,",";",I) Q:%="" S ZTSAVE(%)="" ;PATCH XXX
D ^%ZTLOAD
D ^%ZISC
W !!,$S($D(ZTSK):"Request queued!",1:"Request cancelled!"),!!!
H 3
EXIT K X,Y,%,AMQQSUPF,I,AMQQUSR
W @IOF
Q
;
DEV W !
S %ZIS="QM"
S %ZIS("B")=""
D ^%ZIS
S AMQQIOP=IO
I POP S AMQQQUIT="" Q
D PRINT^AMQQSEC E W " <= Not a secure device!!",*7 G DEV
I $D(IO("Q")),IO=IO(0) W !!,"You can not queue a job to a slave printer..Try again",!!,*7 G DEV
Q
;
TASK I '$D(AMQQFFF) D COVER I $D(AMQQQUIT) Q
X AMQV(0)
I '$D(AMQQFFF) W !,"Total: ",+$G(AMQQTOT)
I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR,DUOUT,DTOUT,DIRUT
W @IOF
I $D(ZTQUEUED) D EXIT2^AMQQKILL S ZTREQ="@"
Q
;
COVER ; - EP -
S %=""
S $P(%,"*",79)=""
W !!!!,%,! K AMQQQUIT
W "** WARNING...The following report may contain CONFIDENTIAL PATIENT DATA. **"
W !,"** You are accountable for keeping the report in a SECURE AREA at all times.**"
W !,"** SHRED the report as soon as it is no longer needed. **"
W !,"** PRIVACY ACT violators are subject to a $5000 fine! **"
W !,%
CV1 S %=$P(@AMQQ200(3)@(DUZ,0),U)
S %=$P(%,",",2,9)_" "_$P(%,",") D
.W !!,"This report ",$S('$D(AMQQUSR)!($G(AMQQUSR)=DUZ):"requested",1:"printed")," by ",%
.I $D(AMQQUSR),AMQQUSR'=DUZ D
..S %=$P(@AMQQ200(3)@(AMQQUSR,0),U)
..S %=$P(%,",",2,9)_" "_$P(%,",")
..W " and requested by ",%
W !,"Date of report: "
S Y=DT
X ^DD("DD")
W Y
W !!
F %=0:0 S %=$O(^UTILITY("AMQQ",$J,"LIST",%)) Q:'% W ! X ^(%)
I $E(IOST,1,2)="C-" W !! S DIR(0)="E" D ^DIR K DIR I $D(DUOUT)+$D(DTOUT) K DUOUT,DTOUT,DIRUT S AMQQQUIT=""
Q
;
COUNT ; ENTRY POINT FROM AMQQCMPL
N AMQQRV,AMQQNV,AMQQXV
S (AMQQRV,AMQQNV)="AMQQXV"
S AMQQXV=""
D DEV
I $D(AMQQQUIT) Q
I '$D(IO("Q")) U IO D TASKC D ^%ZISC Q
S ZTRTN="TASKC^AMQQCMPP"
S ZTIO=ION
S ZTDTH="NOW"
S ZTDESC="Q-MAN COUNT"
D QUEUE
Q
;
TASKC S AMQQH1=$H
I $E(IOST,1,2)'="P-" W !!!!,"COUNTING....",!
E W !!!! D CV1 W !!!
X AMQV(0)
I $E(IOST,1,2)="C-" W $C(13),?9,$C(13)
W "Total: ",+$G(AMQQTOT)
S X1=AMQQH1
S X2=$H
D ELT^AMQQCMP0
W !,"Search time: ",X
I $E(IOST,1,2)="C-" W !!! S DIR(0)="E" D ^DIR K DIR,DIRUT,DUOUT,DTOUT
K AMQQH1,X1,X2
W @IOF
I $D(ZTQUEUED) D EXIT2^AMQQKILL S ZTREQ="@"
Q
;
SUP W !!,"Want to suppress patient names and only print the chart no."
S %=2
D YN^DICN
I %Y=U S AMQQQUIT="" K %Y Q
I $D(DUOUT)+$D(DTOUT) K DTOUT,DUOUT S AMQQQUIT="" Q
I "Nn"[$E(%Y) K %Y Q
S AMQQSUPF=""
K %Y
Q
;
AMQQCMPP ;IHS/CMI/THL - MANAGES PRINTED REPORTS ;
+1 ;;2.0;IHS PCC SUITE;**2**;MAY 14, 2009
+2 ; CALLS TASKMAN
+3 ;-----
RUN NEW AMQQRV,AMQQNV,AMQQXV
+1 SET (AMQQRV,AMQQNV)="AMQQXV"
+2 SET AMQQXV=""
+3 IF '$DATA(AMQQFFF)
DO SUP
IF $DATA(AMQQQUIT)
QUIT
+4 IF $DATA(^XUSEC("AMQQZRPT",DUZ))
SET DIR("A")="Enter name of person requesting report"
SET DIR(0)="P^200:AQEM"
SET DIR("B")=$PIECE(@AMQQ200(3)@(DUZ,0),U)
DO ^DIR
IF Y>0
SET AMQQUSR=+Y
KILL Y,DIRUT,DUOUT,DTOUT,DIR
IF '$DATA(AMQQUSR)
SET AMQQQUIT=1
QUIT
+5 DO DEV
+6 IF $DATA(AMQQQUIT)
QUIT
+7 IF '$DATA(IO("Q"))
USE IO
DO TASK
DO ^%ZISC
GOTO EXIT
+8 SET ZTRTN="TASK^AMQQCMPP"
+9 SET ZTIO=ION
+10 SET ZTDTH="NOW"
+11 SET ZTDESC="QUERY UTILITY REPORT"
QUEUE ;F I=1:1 S %=$P("AMQV(;AMQQ200(;AMQQRV;AMQQSUPF;AMQQNV;AMQQFFF;AMQQXV;AMQQUSR;^UTILITY(""AMQQ"",$J,;^UTILITY(""AMQQ RAND"",$J,;^UTILITY(""AMQQ TAX"",$J,",";",I) Q:%="" S ZTSAVE(%)=""
+1 ;PATCH XXX
FOR I=1:1
SET %=$PIECE("AMQV(;AMQQ200(;AMQQ*;AMQQRV;AMQQSUPF;AMQQNV;AMQQFFF;AMQQXV;AMQQUSR;^UTILITY(""AMQQ"",$J,;^UTILITY(""AMQQ RAND"",$J,;^UTILITY(""AMQQ TAX"",$J,",";",I)
IF %=""
QUIT
SET ZTSAVE(%)=""
+2 DO ^%ZTLOAD
+3 DO ^%ZISC
+4 WRITE !!,$SELECT($DATA(ZTSK):"Request queued!",1:"Request cancelled!"),!!!
+5 HANG 3
EXIT KILL X,Y,%,AMQQSUPF,I,AMQQUSR
+1 WRITE @IOF
+2 QUIT
+3 ;
DEV WRITE !
+1 SET %ZIS="QM"
+2 SET %ZIS("B")=""
+3 DO ^%ZIS
+4 SET AMQQIOP=IO
+5 IF POP
SET AMQQQUIT=""
QUIT
+6 DO PRINT^AMQQSEC
IF '$TEST
WRITE " <= Not a secure device!!",*7
GOTO DEV
+7 IF $DATA(IO("Q"))
IF IO=IO(0)
WRITE !!,"You can not queue a job to a slave printer..Try again",!!,*7
GOTO DEV
+8 QUIT
+9 ;
TASK IF '$DATA(AMQQFFF)
DO COVER
IF $DATA(AMQQQUIT)
QUIT
+1 XECUTE AMQV(0)
+2 IF '$DATA(AMQQFFF)
WRITE !,"Total: ",+$GET(AMQQTOT)
+3 IF $EXTRACT(IOST,1,2)="C-"
SET DIR(0)="E"
DO ^DIR
KILL DIR,DUOUT,DTOUT,DIRUT
+4 WRITE @IOF
+5 IF $DATA(ZTQUEUED)
DO EXIT2^AMQQKILL
SET ZTREQ="@"
+6 QUIT
+7 ;
COVER ; - EP -
+1 SET %=""
+2 SET $PIECE(%,"*",79)=""
+3 WRITE !!!!,%,!
KILL AMQQQUIT
+4 WRITE "** WARNING...The following report may contain CONFIDENTIAL PATIENT DATA. **"
+5 WRITE !,"** You are accountable for keeping the report in a SECURE AREA at all times.**"
+6 WRITE !,"** SHRED the report as soon as it is no longer needed. **"
+7 WRITE !,"** PRIVACY ACT violators are subject to a $5000 fine! **"
+8 WRITE !,%
CV1 SET %=$PIECE(@AMQQ200(3)@(DUZ,0),U)
+1 SET %=$PIECE(%,",",2,9)_" "_$PIECE(%,",")
Begin DoDot:1
+2 WRITE !!,"This report ",$SELECT('$DATA(AMQQUSR)!($GET(AMQQUSR)=DUZ):"requested",1:"printed")," by ",%
+3 IF $DATA(AMQQUSR)
IF AMQQUSR'=DUZ
Begin DoDot:2
+4 SET %=$PIECE(@AMQQ200(3)@(AMQQUSR,0),U)
+5 SET %=$PIECE(%,",",2,9)_" "_$PIECE(%,",")
+6 WRITE " and requested by ",%
End DoDot:2
End DoDot:1
+7 WRITE !,"Date of report: "
+8 SET Y=DT
+9 XECUTE ^DD("DD")
+10 WRITE Y
+11 WRITE !!
+12 FOR %=0:0
SET %=$ORDER(^UTILITY("AMQQ",$JOB,"LIST",%))
IF '%
QUIT
WRITE !
XECUTE ^(%)
+13 IF $EXTRACT(IOST,1,2)="C-"
WRITE !!
SET DIR(0)="E"
DO ^DIR
KILL DIR
IF $DATA(DUOUT)+$DATA(DTOUT)
KILL DUOUT,DTOUT,DIRUT
SET AMQQQUIT=""
+14 QUIT
+15 ;
COUNT ; ENTRY POINT FROM AMQQCMPL
+1 NEW AMQQRV,AMQQNV,AMQQXV
+2 SET (AMQQRV,AMQQNV)="AMQQXV"
+3 SET AMQQXV=""
+4 DO DEV
+5 IF $DATA(AMQQQUIT)
QUIT
+6 IF '$DATA(IO("Q"))
USE IO
DO TASKC
DO ^%ZISC
QUIT
+7 SET ZTRTN="TASKC^AMQQCMPP"
+8 SET ZTIO=ION
+9 SET ZTDTH="NOW"
+10 SET ZTDESC="Q-MAN COUNT"
+11 DO QUEUE
+12 QUIT
+13 ;
TASKC SET AMQQH1=$HOROLOG
+1 IF $EXTRACT(IOST,1,2)'="P-"
WRITE !!!!,"COUNTING....",!
+2 IF '$TEST
WRITE !!!!
DO CV1
WRITE !!!
+3 XECUTE AMQV(0)
+4 IF $EXTRACT(IOST,1,2)="C-"
WRITE $CHAR(13),?9,$CHAR(13)
+5 WRITE "Total: ",+$GET(AMQQTOT)
+6 SET X1=AMQQH1
+7 SET X2=$HOROLOG
+8 DO ELT^AMQQCMP0
+9 WRITE !,"Search time: ",X
+10 IF $EXTRACT(IOST,1,2)="C-"
WRITE !!!
SET DIR(0)="E"
DO ^DIR
KILL DIR,DIRUT,DUOUT,DTOUT
+11 KILL AMQQH1,X1,X2
+12 WRITE @IOF
+13 IF $DATA(ZTQUEUED)
DO EXIT2^AMQQKILL
SET ZTREQ="@"
+14 QUIT
+15 ;
SUP WRITE !!,"Want to suppress patient names and only print the chart no."
+1 SET %=2
+2 DO YN^DICN
+3 IF %Y=U
SET AMQQQUIT=""
KILL %Y
QUIT
+4 IF $DATA(DUOUT)+$DATA(DTOUT)
KILL DTOUT,DUOUT
SET AMQQQUIT=""
QUIT
+5 IF "Nn"[$EXTRACT(%Y)
KILL %Y
QUIT
+6 SET AMQQSUPF=""
+7 KILL %Y
+8 QUIT
+9 ;
