BWGRVLS ; IHS/CMI/LAB - APC visit counts - show screens ;15-Feb-2003 21:54;PLS
;;2.0;WOMEN'S HEALTH;**6,8**;MAY 16, 1996
;
SHOWP ;EP
I '$D(BWGRDONE) W:$D(IOF) @IOF
W !!?6,"REPORT/OUTPUT Type:"
I BWGRCTYP="S" W !,?12,"Report includes sub-totals by ",$G(BWGRSORV)," and total count." Q
I BWGRCTYP="T" W !,?12,"Report will include total only." Q
I BWGRCTYP="C" W !?12,"SEARCH TEMPLATE ",$P(^DIBT(BWGRSTMP,0),U)," will be created.",!?12,"Total record count will be displayed." Q
I BWGRCTYP="F" W !?12,"FLAT file of Area Database formatted records will be created.",!?12,"File Name: ",BWGRFILE
Q:'$D(^BWGRTRPT(BWGRRPT,12))
W !?12,"PRINT Items Selected:"
S (BWGRI,BWGRTCW)=0 F S BWGRI=$O(^BWGRTRPT(BWGRRPT,12,BWGRI)) Q:BWGRI'=+BWGRI S BWGRCRIT=$P(^BWGRTRPT(BWGRRPT,12,BWGRI,0),U) D
.W !?12,$P(^BWGRI(BWGRCRIT,0),U)," - column width ",$P(^BWGRTRPT(BWGRRPT,12,BWGRI,0),U,2) S BWGRTCW=BWGRTCW+$P(^(0),U,2)+2
.I $Y>(IOSL-5) D PAUSE^BWGRVL W:$D(IOF) @IOF
W !?12,"Total Report width (including column margins - 2 spaces): ",BWGRTCW
Q
SHOW ;EP
W:$D(IOF) @IOF
I $D(BWGRDONE) S BWGRLHDR="REPORT SUMMARY" W ?((80-$L(BWGRLHDR))/2),BWGRLHDR,!
W !!?6,$S(BWGRPTVS="R":"WH PROCEDURE",1:"PATIENT")_" Selection Criteria:"
W:BWGRTYPE="RP" !?12,"PATIENT Search Template: ",$P(^DIBT(BWGRSEAT,0),U)
W:BWGRTYPE["R" !?12,"Procedure Date range: ",BWGRBDD," to ",BWGREDD
W:BWGRTYPE="PS" !?12,"PATIENT Search Template: ",$P(^DIBT(BWGRSEAT,0),U)
Q:'$D(^BWGRTRPT(BWGRRPT,11))
S BWGRI=0 F S BWGRI=$O(^BWGRTRPT(BWGRRPT,11,BWGRI)) Q:BWGRI'=+BWGRI D
.I $Y>(IOSL-5) D PAUSE^BWGRVL W @IOF
.W !?12,$P(^BWGRI(BWGRI,0),U),": "
.K BWGRQ
.S BWGRY="",BWGRC=0 F S BWGRY=$O(^BWGRTRPT(BWGRRPT,11,BWGRI,11,"B",BWGRY)) S BWGRC=BWGRC+1 Q:BWGRY=""!($D(BWGRQ)) W:BWGRC'=1 " ; " S X=BWGRY X:$D(^BWGRI(BWGRI,2)) ^(2) W X
K BWGRC,BWGRQ
Q
SHOWR ;EP
I '$D(BWGRDONE) W:$D(IOF) @IOF
W !!?6,"SORT Item:"
I BWGRCTYP="T" W !?12,"Total only will be displayed, no sorting done.",! Q
I BWGRCTYP="C" W !?12,"Search Template being created, no sorting done.",! Q
Q:'$G(BWGRSORT)
W !?12,$S(BWGRPTVS="R":"WH Procedures",1:"Patients")_" will be sorted by: ",$P(^BWGRI(BWGRSORT,0),U),!
Q
BWGRVLS ; IHS/CMI/LAB - APC visit counts - show screens ;15-Feb-2003 21:54;PLS
+1 ;;2.0;WOMEN'S HEALTH;**6,8**;MAY 16, 1996
+2 ;
SHOWP ;EP
+1 IF '$DATA(BWGRDONE)
IF $DATA(IOF)
WRITE @IOF
+2 WRITE !!?6,"REPORT/OUTPUT Type:"
+3 IF BWGRCTYP="S"
WRITE !,?12,"Report includes sub-totals by ",$GET(BWGRSORV)," and total count."
QUIT
+4 IF BWGRCTYP="T"
WRITE !,?12,"Report will include total only."
QUIT
+5 IF BWGRCTYP="C"
WRITE !?12,"SEARCH TEMPLATE ",$PIECE(^DIBT(BWGRSTMP,0),U)," will be created.",!?12,"Total record count will be displayed."
QUIT
+6 IF BWGRCTYP="F"
WRITE !?12,"FLAT file of Area Database formatted records will be created.",!?12,"File Name: ",BWGRFILE
+7 IF '$DATA(^BWGRTRPT(BWGRRPT,12))
QUIT
+8 WRITE !?12,"PRINT Items Selected:"
+9 SET (BWGRI,BWGRTCW)=0
FOR
SET BWGRI=$ORDER(^BWGRTRPT(BWGRRPT,12,BWGRI))
IF BWGRI'=+BWGRI
QUIT
SET BWGRCRIT=$PIECE(^BWGRTRPT(BWGRRPT,12,BWGRI,0),U)
Begin DoDot:1
+10 WRITE !?12,$PIECE(^BWGRI(BWGRCRIT,0),U)," - column width ",$PIECE(^BWGRTRPT(BWGRRPT,12,BWGRI,0),U,2)
SET BWGRTCW=BWGRTCW+$PIECE(^(0),U,2)+2
+11 IF $Y>(IOSL-5)
DO PAUSE^BWGRVL
IF $DATA(IOF)
WRITE @IOF
End DoDot:1
+12 WRITE !?12,"Total Report width (including column margins - 2 spaces): ",BWGRTCW
+13 QUIT
SHOW ;EP
+1 IF $DATA(IOF)
WRITE @IOF
+2 IF $DATA(BWGRDONE)
SET BWGRLHDR="REPORT SUMMARY"
WRITE ?((80-$LENGTH(BWGRLHDR))/2),BWGRLHDR,!
+3 WRITE !!?6,$SELECT(BWGRPTVS="R":"WH PROCEDURE",1:"PATIENT")_" Selection Criteria:"
+4 IF BWGRTYPE="RP"
WRITE !?12,"PATIENT Search Template: ",$PIECE(^DIBT(BWGRSEAT,0),U)
+5 IF BWGRTYPE["R"
WRITE !?12,"Procedure Date range: ",BWGRBDD," to ",BWGREDD
+6 IF BWGRTYPE="PS"
WRITE !?12,"PATIENT Search Template: ",$PIECE(^DIBT(BWGRSEAT,0),U)
+7 IF '$DATA(^BWGRTRPT(BWGRRPT,11))
QUIT
+8 SET BWGRI=0
FOR
SET BWGRI=$ORDER(^BWGRTRPT(BWGRRPT,11,BWGRI))
IF BWGRI'=+BWGRI
QUIT
Begin DoDot:1
+9 IF $Y>(IOSL-5)
DO PAUSE^BWGRVL
WRITE @IOF
+10 WRITE !?12,$PIECE(^BWGRI(BWGRI,0),U),": "
+11 KILL BWGRQ
+12 SET BWGRY=""
SET BWGRC=0
FOR
SET BWGRY=$ORDER(^BWGRTRPT(BWGRRPT,11,BWGRI,11,"B",BWGRY))
SET BWGRC=BWGRC+1
IF BWGRY=""!($DATA(BWGRQ))
QUIT
IF BWGRC'=1
WRITE " ; "
SET X=BWGRY
IF $DATA(^BWGRI(BWGRI,2))
XECUTE ^(2)
WRITE X
End DoDot:1
+13 KILL BWGRC,BWGRQ
+14 QUIT
SHOWR ;EP
+1 IF '$DATA(BWGRDONE)
IF $DATA(IOF)
WRITE @IOF
+2 WRITE !!?6,"SORT Item:"
+3 IF BWGRCTYP="T"
WRITE !?12,"Total only will be displayed, no sorting done.",!
QUIT
+4 IF BWGRCTYP="C"
WRITE !?12,"Search Template being created, no sorting done.",!
QUIT
+5 IF '$GET(BWGRSORT)
QUIT
+6 WRITE !?12,$SELECT(BWGRPTVS="R":"WH Procedures",1:"Patients")_" will be sorted by: ",$PIECE(^BWGRI(BWGRSORT,0),U),!
+7 QUIT
