- BRNRUS ; IHS/OIT/LJF - SHOW LOGIC SO FAR
- ;;2.0;RELEASE OF INFO SYSTEM;*1*;APR 10, 2003
- ;IHS/OIT/LJF 10/25/2007 PATCH 1 Added routine
- ;
- SHOWP ;EP - display print item selections
- NEW BRNI
- I '$D(BRNDONE) W:$D(IOF) @IOF
- W !!?6,"REPORT/OUTPUT Type:"
- I BRNCTYP="S" W !,?12,"Report includes sub-totals by ",$G(BRNSORV)," and total count." Q
- I BRNCTYP="T" W !,?12,"Report will include total only." Q
- Q:'$D(^BRNRPT(BRNRPT,12))
- W !?12,"PRINT Items Selected:"
- S (BRNI,BRNTCW)=0 F S BRNI=$O(^BRNRPT(BRNRPT,12,BRNI)) Q:BRNI'=+BRNI S BRNCRIT=$P(^BRNRPT(BRNRPT,12,BRNI,0),U) D
- . W !?12,$P(^BRNSORT(BRNCRIT,0),U)," - column width ",$P(^BRNRPT(BRNRPT,12,BRNI,0),U,2)
- . S BRNTCW=BRNTCW+$P(^BRNRPT(BRNRPT,12,BRNI,0),U,2)+2
- . I $Y>(IOSL-5) D PAUSE^BRNU W:$D(IOF) @IOF
- W !?12,"Total Report width (including column margins - 2 spaces): ",BRNTCW
- Q
- ;
- SHOW ;EP - display selection criteria so far
- NEW X,BRNI,BRNC,BRNQ,BRNY,BRNC
- W:$D(IOF) @IOF
- I $D(BRNDONE) S X="REPORT SUMMARY" W ?((80-$L(X))/2),X,!
- W !!?6,"Disclosure Request Selection Criteria:"
- W !?12,"Request Date range: ",BRNBDD," to ",BRNEDD
- Q:'$D(^BRNRPT(BRNRPT,11))
- ;
- S BRNI=0 F S BRNI=$O(^BRNRPT(BRNRPT,11,BRNI)) Q:BRNI'=+BRNI D
- . I $Y>(IOSL-5) D PAUSE^BRNU W @IOF
- . W !?12,$P(^BRNSORT(BRNI,0),U),": "
- . S BRNY="",BRNC=0
- . F S BRNY=$O(^BRNRPT(BRNRPT,11,BRNI,11,"B",BRNY)) S BRNC=BRNC+1 Q:BRNY=""!($D(BRNQ)) D
- . . W:BRNC'=1 " ; " S X=BRNY X:$D(^BRNSORT(BRNI,2)) ^(2) W X
- Q
- ;
- SHOWR ;EP - display sorting criteria
- I '$D(BRNDONE) W:$D(IOF) @IOF
- W !!?6,"SORTING Item:"
- I BRNCTYP="T" W !?12,"Total only will be displayed, no sorting done.",! Q
- I BRNCTYP="C" W !?12,"Search Template being created, no sorting done.",! Q
- Q:'$G(BRNSORT)
- W !?12,"Disclosure requests will be sorted by: ",$P(^BRNSORT(BRNSORT,0),U),!
- Q
- BRNRUS ; IHS/OIT/LJF - SHOW LOGIC SO FAR
- +1 ;;2.0;RELEASE OF INFO SYSTEM;*1*;APR 10, 2003
- +2 ;IHS/OIT/LJF 10/25/2007 PATCH 1 Added routine
- +3 ;
- SHOWP ;EP - display print item selections
- +1 NEW BRNI
- +2 IF '$DATA(BRNDONE)
- IF $DATA(IOF)
- WRITE @IOF
- +3 WRITE !!?6,"REPORT/OUTPUT Type:"
- +4 IF BRNCTYP="S"
- WRITE !,?12,"Report includes sub-totals by ",$GET(BRNSORV)," and total count."
- QUIT
- +5 IF BRNCTYP="T"
- WRITE !,?12,"Report will include total only."
- QUIT
- +6 IF '$DATA(^BRNRPT(BRNRPT,12))
- QUIT
- +7 WRITE !?12,"PRINT Items Selected:"
- +8 SET (BRNI,BRNTCW)=0
- FOR
- SET BRNI=$ORDER(^BRNRPT(BRNRPT,12,BRNI))
- IF BRNI'=+BRNI
- QUIT
- SET BRNCRIT=$PIECE(^BRNRPT(BRNRPT,12,BRNI,0),U)
- Begin DoDot:1
- +9 WRITE !?12,$PIECE(^BRNSORT(BRNCRIT,0),U)," - column width ",$PIECE(^BRNRPT(BRNRPT,12,BRNI,0),U,2)
- +10 SET BRNTCW=BRNTCW+$PIECE(^BRNRPT(BRNRPT,12,BRNI,0),U,2)+2
- +11 IF $Y>(IOSL-5)
- DO PAUSE^BRNU
- IF $DATA(IOF)
- WRITE @IOF
- End DoDot:1
- +12 WRITE !?12,"Total Report width (including column margins - 2 spaces): ",BRNTCW
- +13 QUIT
- +14 ;
- SHOW ;EP - display selection criteria so far
- +1 NEW X,BRNI,BRNC,BRNQ,BRNY,BRNC
- +2 IF $DATA(IOF)
- WRITE @IOF
- +3 IF $DATA(BRNDONE)
- SET X="REPORT SUMMARY"
- WRITE ?((80-$LENGTH(X))/2),X,!
- +4 WRITE !!?6,"Disclosure Request Selection Criteria:"
- +5 WRITE !?12,"Request Date range: ",BRNBDD," to ",BRNEDD
- +6 IF '$DATA(^BRNRPT(BRNRPT,11))
- QUIT
- +7 ;
- +8 SET BRNI=0
- FOR
- SET BRNI=$ORDER(^BRNRPT(BRNRPT,11,BRNI))
- IF BRNI'=+BRNI
- QUIT
- Begin DoDot:1
- +9 IF $Y>(IOSL-5)
- DO PAUSE^BRNU
- WRITE @IOF
- +10 WRITE !?12,$PIECE(^BRNSORT(BRNI,0),U),": "
- +11 SET BRNY=""
- SET BRNC=0
- +12 FOR
- SET BRNY=$ORDER(^BRNRPT(BRNRPT,11,BRNI,11,"B",BRNY))
- SET BRNC=BRNC+1
- IF BRNY=""!($DATA(BRNQ))
- QUIT
- Begin DoDot:2
- +13 IF BRNC'=1
- WRITE " ; "
- SET X=BRNY
- IF $DATA(^BRNSORT(BRNI,2))
- XECUTE ^(2)
- WRITE X
- End DoDot:2
- End DoDot:1
- +14 QUIT
- +15 ;
- SHOWR ;EP - display sorting criteria
- +1 IF '$DATA(BRNDONE)
- IF $DATA(IOF)
- WRITE @IOF
- +2 WRITE !!?6,"SORTING Item:"
- +3 IF BRNCTYP="T"
- WRITE !?12,"Total only will be displayed, no sorting done.",!
- QUIT
- +4 IF BRNCTYP="C"
- WRITE !?12,"Search Template being created, no sorting done.",!
- QUIT
- +5 IF '$GET(BRNSORT)
- QUIT
- +6 WRITE !?12,"Disclosure requests will be sorted by: ",$PIECE(^BRNSORT(BRNSORT,0),U),!
- +7 QUIT
