BCHRLS ; IHS/CMI/LAB - SHOW SCREENS ;
;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27
;
SHOWP ;EP
I '$D(BCHDONE) W:$D(IOF) @IOF
W !!?6,"PRINT Items Selected:"
I BCHCTYP="S" W !?12,"Report includes sub-totals and total only." Q
I BCHCTYP="T" W !?12,"Report will includes total only." Q
Q:'$D(^BCHTRPT(BCHRPT,12))
S (BCHI,BCHTCW)=0 F S BCHI=$O(^BCHTRPT(BCHRPT,12,BCHI)) Q:BCHI'=+BCHI S BCHCRIT=$P(^BCHTRPT(BCHRPT,12,BCHI,0),U) D
.W !?12,$P(^BCHSORT(BCHCRIT,0),U)," - column width ",$P(^BCHTRPT(BCHRPT,12,BCHI,0),U,2) S BCHTCW=BCHTCW+$P(^(0),U,2)+2
.I $Y>(IOSL-5) D PAUSE^BCHRL01 W:$D(IOF) @IOF
W !!?12,"Total Report width (including column margins - 2 spaces): ",BCHTCW
Q
SHOW ;EP
W:$D(IOF) @IOF
I $D(BCHDONE) S BCHLHDR="REPORT SUMMARY" W ?((80-$L(BCHLHDR))/2),BCHLHDR,!
W !!?6,$S(BCHPTVS="V":"VISIT",1:"PATIENT")_" Selection Criteria"
W:BCHTYPE="D" !?12,"Date of Service range: ",BCHBDD," to ",BCHEDD
W:BCHTYPE="S" !?12,"Search Template: ",$P(^DIBT(BCHSEAT,0),U)
I $D(BCHRDTR),$D(BCHBDD) W !,"Date of Service range: ",BCHBDD," to ",BCHEDD,"."
Q:'$D(^BCHTRPT(BCHRPT,11))
S BCHI=0 F S BCHI=$O(^BCHTRPT(BCHRPT,11,BCHI)) Q:BCHI'=+BCHI D
.I $Y>(IOSL-5) D PAUSE^BCHRL01 W @IOF
.W !?12,$P(^BCHSORT(BCHI,0),U),": "
.K BCHQ
.S BCHY=0,BCHC=0 F S BCHY=$O(^BCHTRPT(BCHRPT,11,BCHI,11,"B",BCHY)) S BCHC=BCHC+1 Q:BCHY=""!($D(BCHQ)) W:BCHC'=1 " ; " S X=BCHY X:$D(^BCHSORT(BCHI,2)) ^(2) W X
K BCHC,BCHQ
Q
SHOWR ;EP
I '$D(BCHDONE) W:$D(IOF) @IOF
W !!?6,$S(BCHPTVS="V":"Visit",1:"Patient")_" SORTING Criteria"
W:BCHTYPE="D"&('$D(BCHDONE)) !?12,"Date of Service range: ",BCHBDD," to ",BCHEDD
W:BCHTYPE="S"&('$D(BCHDONE)) !?12,"Search Template: ",$P(^DIBT(BCHSEAT,0),U)
Q:'$G(BCHSORT)
W !?12,$S(BCHPTVS="V":"Visits",1:"Patients")_" will be sorted by: ",$P(^BCHSORT(BCHSORT,0),U),!
Q
BCHRLS ; IHS/CMI/LAB - SHOW SCREENS ;
+1 ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27
+2 ;
SHOWP ;EP
+1 IF '$DATA(BCHDONE)
IF $DATA(IOF)
WRITE @IOF
+2 WRITE !!?6,"PRINT Items Selected:"
+3 IF BCHCTYP="S"
WRITE !?12,"Report includes sub-totals and total only."
QUIT
+4 IF BCHCTYP="T"
WRITE !?12,"Report will includes total only."
QUIT
+5 IF '$DATA(^BCHTRPT(BCHRPT,12))
QUIT
+6 SET (BCHI,BCHTCW)=0
FOR
SET BCHI=$ORDER(^BCHTRPT(BCHRPT,12,BCHI))
IF BCHI'=+BCHI
QUIT
SET BCHCRIT=$PIECE(^BCHTRPT(BCHRPT,12,BCHI,0),U)
Begin DoDot:1
+7 WRITE !?12,$PIECE(^BCHSORT(BCHCRIT,0),U)," - column width ",$PIECE(^BCHTRPT(BCHRPT,12,BCHI,0),U,2)
SET BCHTCW=BCHTCW+$PIECE(^(0),U,2)+2
+8 IF $Y>(IOSL-5)
DO PAUSE^BCHRL01
IF $DATA(IOF)
WRITE @IOF
End DoDot:1
+9 WRITE !!?12,"Total Report width (including column margins - 2 spaces): ",BCHTCW
+10 QUIT
SHOW ;EP
+1 IF $DATA(IOF)
WRITE @IOF
+2 IF $DATA(BCHDONE)
SET BCHLHDR="REPORT SUMMARY"
WRITE ?((80-$LENGTH(BCHLHDR))/2),BCHLHDR,!
+3 WRITE !!?6,$SELECT(BCHPTVS="V":"VISIT",1:"PATIENT")_" Selection Criteria"
+4 IF BCHTYPE="D"
WRITE !?12,"Date of Service range: ",BCHBDD," to ",BCHEDD
+5 IF BCHTYPE="S"
WRITE !?12,"Search Template: ",$PIECE(^DIBT(BCHSEAT,0),U)
+6 IF $DATA(BCHRDTR)
IF $DATA(BCHBDD)
WRITE !,"Date of Service range: ",BCHBDD," to ",BCHEDD,"."
+7 IF '$DATA(^BCHTRPT(BCHRPT,11))
QUIT
+8 SET BCHI=0
FOR
SET BCHI=$ORDER(^BCHTRPT(BCHRPT,11,BCHI))
IF BCHI'=+BCHI
QUIT
Begin DoDot:1
+9 IF $Y>(IOSL-5)
DO PAUSE^BCHRL01
WRITE @IOF
+10 WRITE !?12,$PIECE(^BCHSORT(BCHI,0),U),": "
+11 KILL BCHQ
+12 SET BCHY=0
SET BCHC=0
FOR
SET BCHY=$ORDER(^BCHTRPT(BCHRPT,11,BCHI,11,"B",BCHY))
SET BCHC=BCHC+1
IF BCHY=""!($DATA(BCHQ))
QUIT
IF BCHC'=1
WRITE " ; "
SET X=BCHY
IF $DATA(^BCHSORT(BCHI,2))
XECUTE ^(2)
WRITE X
End DoDot:1
+13 KILL BCHC,BCHQ
+14 QUIT
SHOWR ;EP
+1 IF '$DATA(BCHDONE)
IF $DATA(IOF)
WRITE @IOF
+2 WRITE !!?6,$SELECT(BCHPTVS="V":"Visit",1:"Patient")_" SORTING Criteria"
+3 IF BCHTYPE="D"&('$DATA(BCHDONE))
WRITE !?12,"Date of Service range: ",BCHBDD," to ",BCHEDD
+4 IF BCHTYPE="S"&('$DATA(BCHDONE))
WRITE !?12,"Search Template: ",$PIECE(^DIBT(BCHSEAT,0),U)
+5 IF '$GET(BCHSORT)
QUIT
+6 WRITE !?12,$SELECT(BCHPTVS="V":"Visits",1:"Patients")_" will be sorted by: ",$PIECE(^BCHSORT(BCHSORT,0),U),!
+7 QUIT
