ACDRLS ;IHS/ADC/EDE/KML - SHOW SCREENS;
;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
;
SHOWP ;EP
I '$D(ACDDONE) W:$D(IOF) @IOF
W !!?6,"PRINT Items Selected:"
I ACDCTYP="S" W !?12,"Report includes sub-totals and total only." Q
I ACDCTYP="T" W !?12,"Report will includes total only." Q
Q:'$D(^ACDRPTD(ACDRPT,12))
S (ACDI,ACDTCW)=0 F S ACDI=$O(^ACDRPTD(ACDRPT,12,ACDI)) Q:ACDI'=+ACDI S ACDCRIT=$P(^ACDRPTD(ACDRPT,12,ACDI,0),U) D
.W !?12,$P(^ACDTITEM(ACDCRIT,0),U)," - column width ",$P(^ACDRPTD(ACDRPT,12,ACDI,0),U,2) S ACDTCW=ACDTCW+$P(^(0),U,2)+2
.I $Y>(IOSL-5) D PAUSE^ACDRL01 W:$D(IOF) @IOF
W !!?12,"Total Report width (including column margins - 2 spaces): ",ACDTCW
Q
SHOW ;EP
W:$D(IOF) @IOF
I $D(ACDDONE) S ACDLHDR="REPORT SUMMARY" W ?((80-$L(ACDLHDR))/2),ACDLHDR,!
W !!?6,$S(ACDPTVS="V":"VISIT",1:"PATIENT")_" Selection Criteria"
W:ACDPTVS="V" !?12,"Visit Date range: ",ACDBDD," to ",ACDEDD
I $D(ACDRDTR),$D(ACDBDD) W !,"Visit Date range: ",ACDBDD," to ",ACDEDD,"."
Q:'$D(^ACDRPTD(ACDRPT,11))
S ACDI=0 F S ACDI=$O(^ACDRPTD(ACDRPT,11,ACDI)) Q:ACDI'=+ACDI D
.I $Y>(IOSL-5) D PAUSE^ACDRL01 W @IOF
.W !?12,$P(^ACDTITEM(ACDI,0),U),": "
.K ACDQ
.S ACDY=0,ACDC=0 F S ACDY=$O(^ACDRPTD(ACDRPT,11,ACDI,11,"B",ACDY)) S ACDC=ACDC+1 Q:ACDY=""!($D(ACDQ)) W:ACDC'=1 " ; " S X=ACDY X:$D(^ACDTITEM(ACDI,2)) ^(2) W X
K ACDC,ACDQ
Q
SHOWR ;EP
I '$D(ACDDONE) W:$D(IOF) @IOF
W !!?6,$S(ACDPTVS="V":"Visit",1:"Patient")_" SORTING Criteria"
W:ACDPTVS="V"&('$D(ACDDONE)) !?12,"Visit Date range: ",ACDBDD," to ",ACDEDD
Q:'$G(ACDSORT)
W !?12,$S(ACDPTVS="V":"Visits",1:"Patients")_" will be sorted by: ",$P(^ACDTITEM(ACDSORT,0),U),!
Q
ACDRLS ;IHS/ADC/EDE/KML - SHOW SCREENS;
+1 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
+2 ;
SHOWP ;EP
+1 IF '$DATA(ACDDONE)
IF $DATA(IOF)
WRITE @IOF
+2 WRITE !!?6,"PRINT Items Selected:"
+3 IF ACDCTYP="S"
WRITE !?12,"Report includes sub-totals and total only."
QUIT
+4 IF ACDCTYP="T"
WRITE !?12,"Report will includes total only."
QUIT
+5 IF '$DATA(^ACDRPTD(ACDRPT,12))
QUIT
+6 SET (ACDI,ACDTCW)=0
FOR
SET ACDI=$ORDER(^ACDRPTD(ACDRPT,12,ACDI))
IF ACDI'=+ACDI
QUIT
SET ACDCRIT=$PIECE(^ACDRPTD(ACDRPT,12,ACDI,0),U)
Begin DoDot:1
+7 WRITE !?12,$PIECE(^ACDTITEM(ACDCRIT,0),U)," - column width ",$PIECE(^ACDRPTD(ACDRPT,12,ACDI,0),U,2)
SET ACDTCW=ACDTCW+$PIECE(^(0),U,2)+2
+8 IF $Y>(IOSL-5)
DO PAUSE^ACDRL01
IF $DATA(IOF)
WRITE @IOF
End DoDot:1
+9 WRITE !!?12,"Total Report width (including column margins - 2 spaces): ",ACDTCW
+10 QUIT
SHOW ;EP
+1 IF $DATA(IOF)
WRITE @IOF
+2 IF $DATA(ACDDONE)
SET ACDLHDR="REPORT SUMMARY"
WRITE ?((80-$LENGTH(ACDLHDR))/2),ACDLHDR,!
+3 WRITE !!?6,$SELECT(ACDPTVS="V":"VISIT",1:"PATIENT")_" Selection Criteria"
+4 IF ACDPTVS="V"
WRITE !?12,"Visit Date range: ",ACDBDD," to ",ACDEDD
+5 IF $DATA(ACDRDTR)
IF $DATA(ACDBDD)
WRITE !,"Visit Date range: ",ACDBDD," to ",ACDEDD,"."
+6 IF '$DATA(^ACDRPTD(ACDRPT,11))
QUIT
+7 SET ACDI=0
FOR
SET ACDI=$ORDER(^ACDRPTD(ACDRPT,11,ACDI))
IF ACDI'=+ACDI
QUIT
Begin DoDot:1
+8 IF $Y>(IOSL-5)
DO PAUSE^ACDRL01
WRITE @IOF
+9 WRITE !?12,$PIECE(^ACDTITEM(ACDI,0),U),": "
+10 KILL ACDQ
+11 SET ACDY=0
SET ACDC=0
FOR
SET ACDY=$ORDER(^ACDRPTD(ACDRPT,11,ACDI,11,"B",ACDY))
SET ACDC=ACDC+1
IF ACDY=""!($DATA(ACDQ))
QUIT
IF ACDC'=1
WRITE " ; "
SET X=ACDY
IF $DATA(^ACDTITEM(ACDI,2))
XECUTE ^(2)
WRITE X
End DoDot:1
+12 KILL ACDC,ACDQ
+13 QUIT
SHOWR ;EP
+1 IF '$DATA(ACDDONE)
IF $DATA(IOF)
WRITE @IOF
+2 WRITE !!?6,$SELECT(ACDPTVS="V":"Visit",1:"Patient")_" SORTING Criteria"
+3 IF ACDPTVS="V"&('$DATA(ACDDONE))
WRITE !?12,"Visit Date range: ",ACDBDD," to ",ACDEDD
+4 IF '$GET(ACDSORT)
QUIT
+5 WRITE !?12,$SELECT(ACDPTVS="V":"Visits",1:"Patients")_" will be sorted by: ",$PIECE(^ACDTITEM(ACDSORT,0),U),!
+6 QUIT
