AMHRLS ; IHS/CMI/LAB - SHOW SCREENS ;
;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
;
SHOWP ;EP
I '$D(AMHDONE) W:$D(IOF) @IOF
W !!?6,"PRINT Items Selected:"
I AMHCTYP="S" W !?12,"Report includes sub-totals and total only." Q
I AMHCTYP="T" W !?12,"Report will include total only." Q
Q:'$D(^AMHTRPT(AMHRPT,12))
S (AMHI,AMHTCW)=0 F S AMHI=$O(^AMHTRPT(AMHRPT,12,AMHI)) Q:AMHI'=+AMHI S AMHCRIT=$P(^AMHTRPT(AMHRPT,12,AMHI,0),U) D
.W !?12,$P(^AMHSORT(AMHCRIT,0),U)," - column width ",$P(^AMHTRPT(AMHRPT,12,AMHI,0),U,2) S AMHTCW=AMHTCW+$P(^(0),U,2)+2
.I $Y>(IOSL-5) D PAUSE^AMHRL01 W:$D(IOF) @IOF
W !!?12,"Total Report width (including column margins - 2 spaces): ",AMHTCW
Q
SHOW ;EP
W:$D(IOF) @IOF
I $D(AMHDONE) S AMHLHDR="REPORT SUMMARY" W ?((80-$L(AMHLHDR))/2),AMHLHDR,!
W !!?6,AMHPTTX_" Selection Criteria"
W:AMHTYPE="D" !?12,"Encounter Date range: ",AMHBDD," to ",AMHEDD
W:AMHTYPE="S" !?12,"Search Template: ",$P(^DIBT(AMHSEAT,0),U)
I $D(AMHRDTR),$D(AMHBDD) W !,"Encounter Date range: ",AMHBDD," to ",AMHEDD,"."
Q:'$D(^AMHTRPT(AMHRPT,11))
S AMHI=0 F S AMHI=$O(^AMHTRPT(AMHRPT,11,AMHI)) Q:AMHI'=+AMHI D
.I $Y>(IOSL-5) D PAUSE^AMHRL01 W @IOF
.W !?12,$P(^AMHSORT(AMHI,0),U),": "
.K AMHQ
.S AMHY=0,AMHC=0 F S AMHY=$O(^AMHTRPT(AMHRPT,11,AMHI,11,"B",AMHY)) S AMHC=AMHC+1 Q:AMHY=""!($D(AMHQ)) W:AMHC'=1 " ; " S X=AMHY X:$D(^AMHSORT(AMHI,2)) ^(2) W X
K AMHC,AMHQ
Q
SHOWR ;EP
I '$D(AMHDONE) W:$D(IOF) @IOF
W !!?6,AMHPTTX_" SORTING Criteria"
W:AMHTYPE="D"&('$D(AMHDONE)) !?12,"Encounter Date range: ",AMHBDD," to ",AMHEDD
W:AMHTYPE="S"&('$D(AMHDONE)) !?12,"Search Template: ",$P(^DIBT(AMHSEAT,0),U)
Q:'$G(AMHSORT)
W !?12,AMHPTTS_" will be sorted by: ",$P(^AMHSORT(AMHSORT,0),U),!
Q
AMHRLS ; IHS/CMI/LAB - SHOW SCREENS ;
+1 ;;4.0;IHS BEHAVIORAL HEALTH;;MAY 14, 2010
+2 ;
SHOWP ;EP
+1 IF '$DATA(AMHDONE)
IF $DATA(IOF)
WRITE @IOF
+2 WRITE !!?6,"PRINT Items Selected:"
+3 IF AMHCTYP="S"
WRITE !?12,"Report includes sub-totals and total only."
QUIT
+4 IF AMHCTYP="T"
WRITE !?12,"Report will include total only."
QUIT
+5 IF '$DATA(^AMHTRPT(AMHRPT,12))
QUIT
+6 SET (AMHI,AMHTCW)=0
FOR
SET AMHI=$ORDER(^AMHTRPT(AMHRPT,12,AMHI))
IF AMHI'=+AMHI
QUIT
SET AMHCRIT=$PIECE(^AMHTRPT(AMHRPT,12,AMHI,0),U)
Begin DoDot:1
+7 WRITE !?12,$PIECE(^AMHSORT(AMHCRIT,0),U)," - column width ",$PIECE(^AMHTRPT(AMHRPT,12,AMHI,0),U,2)
SET AMHTCW=AMHTCW+$PIECE(^(0),U,2)+2
+8 IF $Y>(IOSL-5)
DO PAUSE^AMHRL01
IF $DATA(IOF)
WRITE @IOF
End DoDot:1
+9 WRITE !!?12,"Total Report width (including column margins - 2 spaces): ",AMHTCW
+10 QUIT
SHOW ;EP
+1 IF $DATA(IOF)
WRITE @IOF
+2 IF $DATA(AMHDONE)
SET AMHLHDR="REPORT SUMMARY"
WRITE ?((80-$LENGTH(AMHLHDR))/2),AMHLHDR,!
+3 WRITE !!?6,AMHPTTX_" Selection Criteria"
+4 IF AMHTYPE="D"
WRITE !?12,"Encounter Date range: ",AMHBDD," to ",AMHEDD
+5 IF AMHTYPE="S"
WRITE !?12,"Search Template: ",$PIECE(^DIBT(AMHSEAT,0),U)
+6 IF $DATA(AMHRDTR)
IF $DATA(AMHBDD)
WRITE !,"Encounter Date range: ",AMHBDD," to ",AMHEDD,"."
+7 IF '$DATA(^AMHTRPT(AMHRPT,11))
QUIT
+8 SET AMHI=0
FOR
SET AMHI=$ORDER(^AMHTRPT(AMHRPT,11,AMHI))
IF AMHI'=+AMHI
QUIT
Begin DoDot:1
+9 IF $Y>(IOSL-5)
DO PAUSE^AMHRL01
WRITE @IOF
+10 WRITE !?12,$PIECE(^AMHSORT(AMHI,0),U),": "
+11 KILL AMHQ
+12 SET AMHY=0
SET AMHC=0
FOR
SET AMHY=$ORDER(^AMHTRPT(AMHRPT,11,AMHI,11,"B",AMHY))
SET AMHC=AMHC+1
IF AMHY=""!($DATA(AMHQ))
QUIT
IF AMHC'=1
WRITE " ; "
SET X=AMHY
IF $DATA(^AMHSORT(AMHI,2))
XECUTE ^(2)
WRITE X
End DoDot:1
+13 KILL AMHC,AMHQ
+14 QUIT
SHOWR ;EP
+1 IF '$DATA(AMHDONE)
IF $DATA(IOF)
WRITE @IOF
+2 WRITE !!?6,AMHPTTX_" SORTING Criteria"
+3 IF AMHTYPE="D"&('$DATA(AMHDONE))
WRITE !?12,"Encounter Date range: ",AMHBDD," to ",AMHEDD
+4 IF AMHTYPE="S"&('$DATA(AMHDONE))
WRITE !?12,"Search Template: ",$PIECE(^DIBT(AMHSEAT,0),U)
+5 IF '$GET(AMHSORT)
QUIT
+6 WRITE !?12,AMHPTTS_" will be sorted by: ",$PIECE(^AMHSORT(AMHSORT,0),U),!
+7 QUIT
