- BNIGVLS ; IHS/CMI/LAB - gen ret show screens ;
- ;;1.0;BNI CPHD ACTIVITY DATASYSTEM;;DEC 20, 2006
- ;
- SHOWP ;EP
- I '$D(BNIGDONE) W:$D(IOF) @IOF I $G(BNIGUI) W "ZZZZZZZ",!
- W !!?6,"REPORT/OUTPUT Type:"
- I BNIGCTYP="S" W !,?12,"Report includes sub-totals by ",$G(BNIGSORV)," and total count." Q
- I BNIGCTYP="T" W !,?12,"Report will include total only." Q
- I BNIGCTYP="C" W !?12,"SEARCH TEMPLATE ",$P(^DIBT(BNIGSTMP,0),U)," will be created.",!?12,"Total record count will be displayed." Q
- I BNIGCTYP="F" W !?12,"FLAT file of Area Database formatted records will be created.",!?12,"File Name: ",BNIGFILE
- Q:'$D(^BNIRTMP(BNIGRPT,12))
- W !?12,"PRINT Items Selected:"
- S (BNIGI,BNIGTCW)=0 F S BNIGI=$O(^BNIRTMP(BNIGRPT,12,BNIGI)) Q:BNIGI'=+BNIGI S BNIGCRIT=$P(^BNIRTMP(BNIGRPT,12,BNIGI,0),U) D
- .W !?12,$P(^BNIGRI(BNIGCRIT,0),U)," - column width ",$P(^BNIRTMP(BNIGRPT,12,BNIGI,0),U,2) S BNIGTCW=BNIGTCW+$P(^(0),U,2)+2
- .I $Y>(BNIIOSL-5) D PAUSE^BNIGVL W:$D(IOF) @IOF I $G(BNIGUI) W "ZZZZZZZ",!
- W !?12,"Total Report width (including column margins - 2 spaces): ",BNIGTCW
- Q
- SHOW ;EP
- W:$D(IOF) @IOF I $G(BNIGUI) W "ZZZZZZZ",!
- I $D(BNIGDONE) S BNIGLHDR="REPORT SUMMARY" W ?((80-$L(BNIGLHDR))/2),BNIGLHDR,!
- W !!?6,"CPHAD Activity Record Selection Criteria:"
- W:BNIGTYPE["R" !?12," Date range: ",BNIGBDD," to ",BNIGEDD
- Q:'$D(^BNIRTMP(BNIGRPT,11))
- S BNIGI=0 F S BNIGI=$O(^BNIRTMP(BNIGRPT,11,BNIGI)) Q:BNIGI'=+BNIGI D
- .I $Y>(BNIIOSL-5) D PAUSE^BNIGVL W @IOF I $G(BNIGUI) W "ZZZZZZZ",!
- .W !?12,$P(^BNIGRI(BNIGI,0),U),": "
- .K BNIGQ
- .S BNIGY="",BNIGC=0 F S BNIGY=$O(^BNIRTMP(BNIGRPT,11,BNIGI,11,"B",BNIGY)) S BNIGC=BNIGC+1 Q:BNIGY=""!($D(BNIGQ)) W:BNIGC'=1 " ; " S X=BNIGY X:$D(^BNIGRI(BNIGI,2)) ^(2) W X
- K BNIGC,BNIGQ
- Q
- SHOWR ;EP
- I '$D(BNIGDONE) W:$D(IOF) @IOF I $G(BNIGUI) W "ZZZZZZZ",!
- W !!?6,"SORT Item:"
- I BNIGCTYP="T" W !?12,"Total only will be displayed, no sorting done.",! Q
- I BNIGCTYP="C" W !?12,"Search Template being created, no sorting done.",! Q
- Q:'$G(BNIGSORT)
- W !?12,"CPHAD Activity Records will be sorted by: ",$P(^BNIGRI(BNIGSORT,0),U),!
- Q
- BNIGVLS ; IHS/CMI/LAB - gen ret show screens ;
- +1 ;;1.0;BNI CPHD ACTIVITY DATASYSTEM;;DEC 20, 2006
- +2 ;
- SHOWP ;EP
- +1 IF '$DATA(BNIGDONE)
- IF $DATA(IOF)
- WRITE @IOF
- IF $GET(BNIGUI)
- WRITE "ZZZZZZZ",!
- +2 WRITE !!?6,"REPORT/OUTPUT Type:"
- +3 IF BNIGCTYP="S"
- WRITE !,?12,"Report includes sub-totals by ",$GET(BNIGSORV)," and total count."
- QUIT
- +4 IF BNIGCTYP="T"
- WRITE !,?12,"Report will include total only."
- QUIT
- +5 IF BNIGCTYP="C"
- WRITE !?12,"SEARCH TEMPLATE ",$PIECE(^DIBT(BNIGSTMP,0),U)," will be created.",!?12,"Total record count will be displayed."
- QUIT
- +6 IF BNIGCTYP="F"
- WRITE !?12,"FLAT file of Area Database formatted records will be created.",!?12,"File Name: ",BNIGFILE
- +7 IF '$DATA(^BNIRTMP(BNIGRPT,12))
- QUIT
- +8 WRITE !?12,"PRINT Items Selected:"
- +9 SET (BNIGI,BNIGTCW)=0
- FOR
- SET BNIGI=$ORDER(^BNIRTMP(BNIGRPT,12,BNIGI))
- IF BNIGI'=+BNIGI
- QUIT
- SET BNIGCRIT=$PIECE(^BNIRTMP(BNIGRPT,12,BNIGI,0),U)
- Begin DoDot:1
- +10 WRITE !?12,$PIECE(^BNIGRI(BNIGCRIT,0),U)," - column width ",$PIECE(^BNIRTMP(BNIGRPT,12,BNIGI,0),U,2)
- SET BNIGTCW=BNIGTCW+$PIECE(^(0),U,2)+2
- +11 IF $Y>(BNIIOSL-5)
- DO PAUSE^BNIGVL
- IF $DATA(IOF)
- WRITE @IOF
- IF $GET(BNIGUI)
- WRITE "ZZZZZZZ",!
- End DoDot:1
- +12 WRITE !?12,"Total Report width (including column margins - 2 spaces): ",BNIGTCW
- +13 QUIT
- SHOW ;EP
- +1 IF $DATA(IOF)
- WRITE @IOF
- IF $GET(BNIGUI)
- WRITE "ZZZZZZZ",!
- +2 IF $DATA(BNIGDONE)
- SET BNIGLHDR="REPORT SUMMARY"
- WRITE ?((80-$LENGTH(BNIGLHDR))/2),BNIGLHDR,!
- +3 WRITE !!?6,"CPHAD Activity Record Selection Criteria:"
- +4 IF BNIGTYPE["R"
- WRITE !?12," Date range: ",BNIGBDD," to ",BNIGEDD
- +5 IF '$DATA(^BNIRTMP(BNIGRPT,11))
- QUIT
- +6 SET BNIGI=0
- FOR
- SET BNIGI=$ORDER(^BNIRTMP(BNIGRPT,11,BNIGI))
- IF BNIGI'=+BNIGI
- QUIT
- Begin DoDot:1
- +7 IF $Y>(BNIIOSL-5)
- DO PAUSE^BNIGVL
- WRITE @IOF
- IF $GET(BNIGUI)
- WRITE "ZZZZZZZ",!
- +8 WRITE !?12,$PIECE(^BNIGRI(BNIGI,0),U),": "
- +9 KILL BNIGQ
- +10 SET BNIGY=""
- SET BNIGC=0
- FOR
- SET BNIGY=$ORDER(^BNIRTMP(BNIGRPT,11,BNIGI,11,"B",BNIGY))
- SET BNIGC=BNIGC+1
- IF BNIGY=""!($DATA(BNIGQ))
- QUIT
- IF BNIGC'=1
- WRITE " ; "
- SET X=BNIGY
- IF $DATA(^BNIGRI(BNIGI,2))
- XECUTE ^(2)
- WRITE X
- End DoDot:1
- +11 KILL BNIGC,BNIGQ
- +12 QUIT
- SHOWR ;EP
- +1 IF '$DATA(BNIGDONE)
- IF $DATA(IOF)
- WRITE @IOF
- IF $GET(BNIGUI)
- WRITE "ZZZZZZZ",!
- +2 WRITE !!?6,"SORT Item:"
- +3 IF BNIGCTYP="T"
- WRITE !?12,"Total only will be displayed, no sorting done.",!
- QUIT
- +4 IF BNIGCTYP="C"
- WRITE !?12,"Search Template being created, no sorting done.",!
- QUIT
- +5 IF '$GET(BNIGSORT)
- QUIT
- +6 WRITE !?12,"CPHAD Activity Records will be sorted by: ",$PIECE(^BNIGRI(BNIGSORT,0),U),!
- +7 QUIT
