Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BCHRLS

BCHRLS.m

Go to the documentation of this file.
  1. BCHRLS ; IHS/CMI/LAB - SHOW SCREENS ;
  1. ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27
  1. ;
  1. SHOWP ;EP
  1. I '$D(BCHDONE) W:$D(IOF) @IOF
  1. W !!?6,"PRINT Items Selected:"
  1. I BCHCTYP="S" W !?12,"Report includes sub-totals and total only." Q
  1. I BCHCTYP="T" W !?12,"Report will includes total only." Q
  1. Q:'$D(^BCHTRPT(BCHRPT,12))
  1. 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
  1. .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
  1. .I $Y>(IOSL-5) D PAUSE^BCHRL01 W:$D(IOF) @IOF
  1. W !!?12,"Total Report width (including column margins - 2 spaces): ",BCHTCW
  1. Q
  1. SHOW ;EP
  1. W:$D(IOF) @IOF
  1. I $D(BCHDONE) S BCHLHDR="REPORT SUMMARY" W ?((80-$L(BCHLHDR))/2),BCHLHDR,!
  1. W !!?6,$S(BCHPTVS="V":"VISIT",1:"PATIENT")_" Selection Criteria"
  1. W:BCHTYPE="D" !?12,"Date of Service range: ",BCHBDD," to ",BCHEDD
  1. W:BCHTYPE="S" !?12,"Search Template: ",$P(^DIBT(BCHSEAT,0),U)
  1. I $D(BCHRDTR),$D(BCHBDD) W !,"Date of Service range: ",BCHBDD," to ",BCHEDD,"."
  1. Q:'$D(^BCHTRPT(BCHRPT,11))
  1. S BCHI=0 F S BCHI=$O(^BCHTRPT(BCHRPT,11,BCHI)) Q:BCHI'=+BCHI D
  1. .I $Y>(IOSL-5) D PAUSE^BCHRL01 W @IOF
  1. .W !?12,$P(^BCHSORT(BCHI,0),U),": "
  1. .K BCHQ
  1. .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
  1. K BCHC,BCHQ
  1. Q
  1. SHOWR ;EP
  1. I '$D(BCHDONE) W:$D(IOF) @IOF
  1. W !!?6,$S(BCHPTVS="V":"Visit",1:"Patient")_" SORTING Criteria"
  1. W:BCHTYPE="D"&('$D(BCHDONE)) !?12,"Date of Service range: ",BCHBDD," to ",BCHEDD
  1. W:BCHTYPE="S"&('$D(BCHDONE)) !?12,"Search Template: ",$P(^DIBT(BCHSEAT,0),U)
  1. Q:'$G(BCHSORT)
  1. W !?12,$S(BCHPTVS="V":"Visits",1:"Patients")_" will be sorted by: ",$P(^BCHSORT(BCHSORT,0),U),!
  1. Q