BIREPA2 ;IHS/CMI/MWR - REPORT, VAC ACCOUNTABILITY; MAY 10, 2010
;;8.5;IMMUNIZATION;;SEP 01,2011
;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
;; VIEW OR PRINT VACCINE ACCOUNTABILITY REPORT.
;
;----------
HEAD(BIBEGDT,BIENDDT,BICC,BIHCF,BICM,BIBEN,BIHIST,BIVT) ;EP
;---> Produce Header array for Vaccine Accountability Report.
;---> Parameters:
; 1 - BIBEGDT (req) Begin date of report.
; 2 - BIENDDT (req) End date of report.
; 3 - BICC (req) Current Community array.
; 4 - BIHCF (req) Health Care Facility array.
; 5 - BICM (req) Case Manager array.
; 6 - BIBEN (req) Beneficiary Type array.
; 7 - BIHIST (req) Include Historical (1=yes,0=no).
; 8 - BIVT (req) Visit Type array.
;
;---> Check for required Variables.
Q:'$G(BIBEGDT)
Q:'$G(BIENDDT)
Q:'$D(BICC)
Q:'$D(BIHCF)
Q:'$D(BICM)
Q:'$D(BIBEN)
Q:'$D(BIHIST)
Q:'$D(BIVT)
;
K VALMHDR
N BILINE,X S BILINE=0
;
N X S X=""
;---> If Header array is NOT being for Listmananger include version.
S:'$D(VALM("BM")) X=$$LMVER^BILOGO()
;
D WH^BIW(.BILINE,X)
S X=$$REPHDR^BIUTL6(DUZ(2)) D CENTERT^BIUTL5(.X)
D WH^BIW(.BILINE,X)
;
S X="* Vaccine Accountability Report *" D CENTERT^BIUTL5(.X)
D WH^BIW(.BILINE,X)
;
;S X=$$TXDT1^BIUTL5(DT) D CENTERT^BIUTL5(.X)
;D WH^BIW(.BILINE,X,1)
;
S X=$$SP^BIUTL5(27)_"Report Date: "_$$SLDT1^BIUTL5(DT)
D WH^BIW(.BILINE,X)
;
S X=$$SP^BIUTL5(28)_"Date Range: "_$$SLDT1^BIUTL5(BIBEGDT)_" - "_$$SLDT1^BIUTL5(BIENDDT)
D WH^BIW(.BILINE,X,1)
;
;
S X=" (Historical "_$S(BIHIST:"In",1:"Ex")_"cluded)"
D WH^BIW(.BILINE,X)
S X=$$SP^BIUTL5(79,"-")
D WH^BIW(.BILINE,X)
;
D
.;---> If specific Communities were selected (not ALL), then print
.;---> the Communities in a subheader at the top of the report.
.D SUBH^BIOUTPT5("BICC","Community",,"^AUTTCOM(",.BILINE,.BIERR,,12)
.I $G(BIERR) D ERRCD^BIUTL2(BIERR,.X) D WH^BIW(.BILINE,X) Q
.;
.;---> If specific Health Care Facilities, print subheader.
.D SUBH^BIOUTPT5("BIHCF","Facility",,"^DIC(4,",.BILINE,.BIERR,,12)
.I $G(BIERR) D ERRCD^BIUTL2(BIERR,.X) D WH^BIW(.BILINE,X) Q
.;
.;---> If specific Case Managers, print Case Manager subheader.
.D SUBH^BIOUTPT5("BICM","Case Manager",,"^VA(200,",.BILINE,.BIERR,,12)
.I $G(BIERR) D ERRCD^BIUTL2(BIERR,.X) D WH^BIW(.BILINE,X) Q
.;
.;---> If specific Beneficiary Types, print Beneficiary Type subheader.
.D SUBH^BIOUTPT5("BIBEN","Beneficiary Type",,"^AUTTBEN(",.BILINE,.BIERR,,12)
.I $G(BIERR) D ERRCD^BIUTL2(BIERR,.X) D WH^BIW(.BILINE,X) Q
.;
.;---> If specific Beneficiary Types, print Beneficiary Type subheader.
.D SUBH^BIOUTPT5("BIVT","Visit Type",,"9000010-.03",.BILINE,.BIERR,,12)
.I $G(BIERR) D ERRCD^BIUTL2(BIERR,.X) D WH^BIW(.BILINE,X) Q
.;
.S X=" <1 -1- -2- 3-5 -6- 7-10 11-12 13-18 19-24 25-44 45-64 "
.S X=X_"65+ TOTAL"
.D WH^BIW(.BILINE,X)
.;
.S X=$$SUML()
.D WH^BIW(.BILINE,X)
;
;
;---> If Header array is being built for Listmananger,
;---> reset display window margins for Communities, etc.
D:$D(VALM("BM"))
.S VALM("TM")=BILINE+3
.S VALM("LINES")=VALM("BM")-VALM("TM")+1
.;---> Safeguard to prevent divide/0 error.
.S:VALM("LINES")<1 VALM("LINES")=1
Q
;
;
;----------
GET(BIBEGDT,BIENDDT,BICC,BIHCF,BICM,BIBEN,BIHIST,BIVT,BIDLOT) ;EP
;----------
;---> Produce array for Vaccine Accountability Report.
;---> Parameters:
; 1 - BIBEGDT (req) Begin date of report.
; 2 - BIENDDT (req) End date of report.
; 3 - BICC (req) Current Community array.
; 4 - BIHCF (req) Health Care Facility array.
; 5 - BICM (req) Case Manager array.
; 6 - BIBEN (req) Beneficiary Type array.
; 7 - BIHIST (req) Include Historical (1=yes,0=no).
; 8 - BIVT (req) Visit Type array.
; 9 - BIDLOT (req) If BIDLOT=1, display by Lot Numbers.
;
K ^TMP("BIREPA1",$J)
N BILINE,BITMP,X S BILINE=0
;
;---> Check for required Variables.
I '$G(BIBEGDT) D ERRCD^BIUTL2(626,.X) D WRITE(.BILINE,X) Q
I '$G(BIENDDT) D ERRCD^BIUTL2(627,.X) D WRITE(.BILINE,X) Q
I '$D(BICC) D ERRCD^BIUTL2(614,.X) D WRITE(.BILINE,X) Q
I '$D(BIHCF) D ERRCD^BIUTL2(625,.X) D WRITE(.BILINE,X) Q
I '$D(BICM) D ERRCD^BIUTL2(615,.X) D WRITE(.BILINE,X) Q
I '$D(BIBEN) D ERRCD^BIUTL2(662,.X) D WRITE(.BILINE,X) Q
I '$D(BIHIST) D ERRCD^BIUTL2(663,.X) D WRITE(.BILINE,X) Q
I '$D(BIVT) D ERRCD^BIUTL2(664,.X) D WRITE(.BILINE,X) Q
I '$D(BIDLOT) D ERRCD^BIUTL2(681,.X) D WRITE(.BILINE,X) Q
;
;---> Gather data.
D GETIMMS^BIREPA3(BIBEGDT,BIENDDT,.BICC,.BIHCF,.BICM,.BIBEN,BIHIST,.BIVT)
;
;---> Write Stats lines for each Vaccine Group.
;---> BIG=Vaccine Group, BIV=Vaccine Name, BIA=Age.
N BILINE S BILINE=0
N BIG S BIG=0
F S BIG=$O(BITMP("STATS",BIG)) Q:'BIG D
.N BIV S BIV=0
.F S BIV=$O(BITMP("STATS",BIG,BIV)) Q:BIV="" D
..;
..N BILSAV,X
..;
..;---> Write Vaccine Name line.
..S X=BIV
..I $G(BIDLOT) S X=X_" - All Lots"
..D CENTERT^BIUTL5(.X)
..;---> Save this line# for marking as a single record to print.
..D WRITE(.BILINE,X) S BILSAV=BILINE
..;
..;---> Build Age Totals line for this vaccine.
..S X=$$SUML() D WRITE(.BILINE,X)
..S X="" N BIA
..F BIA=1:1:12 S X=X_$J($G(BITMP("STATS",BIG,BIV,"ALL",BIA)),6)
..;---> Now concat Total column (for this vaccine row).
..S X=X_$J($G(BITMP("STATS",BIG,BIV,"ALL","TOTAL")),7)
..D WRITE(.BILINE,X)
..D WRITE(.BILINE,$$SP^BIUTL5(79,"-"))
..;---> Now mark the top line of this vaccine to print as one record.
..D:$G(BILSAV) MARK^BIW(BILSAV,BILINE-BILSAV,"BIREPA1")
..;
..Q:'$G(BIDLOT)
..;---> Display rows by individual Lot Number.
..N BIL S BIL=0
..F S BIL=$O(BITMP("STATS",BIG,BIV,BIL)) Q:BIL="" D
...Q:(BIL="ALL")
...;---> Write Vaccine Name with Lot Number concatenated.
...S X=BIV_" - "_BIL D CENTERT^BIUTL5(.X)
...D WRITE(.BILINE,X) S BILSAV=BILINE
...S X=$$SUML() D WRITE(.BILINE,X)
...S X="" N BIA
...F BIA=1:1:12 S X=X_$J($G(BITMP("STATS",BIG,BIV,BIL,BIA)),6)
...S X=X_$J($G(BITMP("STATS",BIG,BIV,BIL,"TOTAL")),7)
...D WRITE(.BILINE,X)
...D WRITE(.BILINE,$$SP^BIUTL5(79,"-"))
...D:$G(BILSAV) MARK^BIW(BILSAV,BILINE-BILSAV,"BIREPA1")
...;
...;---> Now mark the top line of this vaccine to print as one record.
...D:$G(BILSAV) MARK^BIW(BILSAV,BILINE-BILSAV,"BIREPA1")
;
;---> Now write total in .
S X=" TOTAL IMMUNIZATIONS (for all vaccines in this report)"
S X=X_$$SP^BIUTL5(16)_$J(+$G(BITMP("STATS","ALL","TOTAL")),9)
D WRITE(.BILINE,X),WRITE(.BILINE,$$SP^BIUTL5(79,"-"))
;
;---> Now write total patients considered who had refusals.
;---> Not desired on this report, per Ros 10-12-05
;N M,N S (M,N)=0 F S M=$O(BITMP("REFUSALS",M)) Q:'M S N=N+1
;S X=" Total Patients included who had Refusals on record"_$J(N,28)
;D WRITE(.BILINE,X),WRITE(.BILINE,$$SP^BIUTL5(79,"-"))
;
;---> Set final VALMCNT (Listman line count).
S VALMCNT=BILINE
Q
;
;
;----------
WRITE(BILINE,BIVAL,BIBLNK) ;EP
;---> Write lines to ^TMP (see documentation in ^BIW).
;---> Parameters:
; 1 - BILINE (ret) Last line# written.
; 2 - BIVAL (opt) Value/text of line (Null=blank line).
;
Q:'$D(BILINE)
D WL^BIW(.BILINE,"BIREPA1",$G(BIVAL),$G(BIBLNK))
;
;--->Set VALMCNT (Listman line count) for errors calls above.
S VALMCNT=BILINE
Q
;
;
;----------
SUML() ;EP
;---> Produce Header array for Vaccine Accountability Report.
;---> Parameters:
; 1 - Y (opt) If Y=1 write line for subtotals instead of header.
N X
;S X=$S($G(Y):" ----",1:" ----")_"| ---- --- --- --- --- ----"
;Q X_" ----- ----- ----- ----- ----- ----- -----"
S X=" ---- ---- ---- ---- ---- ---- ----- ----- ----- ----- "
Q X_"----- ----- -----"
BIREPA2 ;IHS/CMI/MWR - REPORT, VAC ACCOUNTABILITY; MAY 10, 2010
+1 ;;8.5;IMMUNIZATION;;SEP 01,2011
+2 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
+3 ;; VIEW OR PRINT VACCINE ACCOUNTABILITY REPORT.
+4 ;
+5 ;----------
HEAD(BIBEGDT,BIENDDT,BICC,BIHCF,BICM,BIBEN,BIHIST,BIVT) ;EP
+1 ;---> Produce Header array for Vaccine Accountability Report.
+2 ;---> Parameters:
+3 ; 1 - BIBEGDT (req) Begin date of report.
+4 ; 2 - BIENDDT (req) End date of report.
+5 ; 3 - BICC (req) Current Community array.
+6 ; 4 - BIHCF (req) Health Care Facility array.
+7 ; 5 - BICM (req) Case Manager array.
+8 ; 6 - BIBEN (req) Beneficiary Type array.
+9 ; 7 - BIHIST (req) Include Historical (1=yes,0=no).
+10 ; 8 - BIVT (req) Visit Type array.
+11 ;
+12 ;---> Check for required Variables.
+13 IF '$GET(BIBEGDT)
QUIT
+14 IF '$GET(BIENDDT)
QUIT
+15 IF '$DATA(BICC)
QUIT
+16 IF '$DATA(BIHCF)
QUIT
+17 IF '$DATA(BICM)
QUIT
+18 IF '$DATA(BIBEN)
QUIT
+19 IF '$DATA(BIHIST)
QUIT
+20 IF '$DATA(BIVT)
QUIT
+21 ;
+22 KILL VALMHDR
+23 NEW BILINE,X
SET BILINE=0
+24 ;
+25 NEW X
SET X=""
+26 ;---> If Header array is NOT being for Listmananger include version.
+27 IF '$DATA(VALM("BM"))
SET X=$$LMVER^BILOGO()
+28 ;
+29 DO WH^BIW(.BILINE,X)
+30 SET X=$$REPHDR^BIUTL6(DUZ(2))
DO CENTERT^BIUTL5(.X)
+31 DO WH^BIW(.BILINE,X)
+32 ;
+33 SET X="* Vaccine Accountability Report *"
DO CENTERT^BIUTL5(.X)
+34 DO WH^BIW(.BILINE,X)
+35 ;
+36 ;S X=$$TXDT1^BIUTL5(DT) D CENTERT^BIUTL5(.X)
+37 ;D WH^BIW(.BILINE,X,1)
+38 ;
+39 SET X=$$SP^BIUTL5(27)_"Report Date: "_$$SLDT1^BIUTL5(DT)
+40 DO WH^BIW(.BILINE,X)
+41 ;
+42 SET X=$$SP^BIUTL5(28)_"Date Range: "_$$SLDT1^BIUTL5(BIBEGDT)_" - "_$$SLDT1^BIUTL5(BIENDDT)
+43 DO WH^BIW(.BILINE,X,1)
+44 ;
+45 ;
+46 SET X=" (Historical "_$SELECT(BIHIST:"In",1:"Ex")_"cluded)"
+47 DO WH^BIW(.BILINE,X)
+48 SET X=$$SP^BIUTL5(79,"-")
+49 DO WH^BIW(.BILINE,X)
+50 ;
+51 Begin DoDot:1
+52 ;---> If specific Communities were selected (not ALL), then print
+53 ;---> the Communities in a subheader at the top of the report.
+54 DO SUBH^BIOUTPT5("BICC","Community",,"^AUTTCOM(",.BILINE,.BIERR,,12)
+55 IF $GET(BIERR)
DO ERRCD^BIUTL2(BIERR,.X)
DO WH^BIW(.BILINE,X)
QUIT
+56 ;
+57 ;---> If specific Health Care Facilities, print subheader.
+58 DO SUBH^BIOUTPT5("BIHCF","Facility",,"^DIC(4,",.BILINE,.BIERR,,12)
+59 IF $GET(BIERR)
DO ERRCD^BIUTL2(BIERR,.X)
DO WH^BIW(.BILINE,X)
QUIT
+60 ;
+61 ;---> If specific Case Managers, print Case Manager subheader.
+62 DO SUBH^BIOUTPT5("BICM","Case Manager",,"^VA(200,",.BILINE,.BIERR,,12)
+63 IF $GET(BIERR)
DO ERRCD^BIUTL2(BIERR,.X)
DO WH^BIW(.BILINE,X)
QUIT
+64 ;
+65 ;---> If specific Beneficiary Types, print Beneficiary Type subheader.
+66 DO SUBH^BIOUTPT5("BIBEN","Beneficiary Type",,"^AUTTBEN(",.BILINE,.BIERR,,12)
+67 IF $GET(BIERR)
DO ERRCD^BIUTL2(BIERR,.X)
DO WH^BIW(.BILINE,X)
QUIT
+68 ;
+69 ;---> If specific Beneficiary Types, print Beneficiary Type subheader.
+70 DO SUBH^BIOUTPT5("BIVT","Visit Type",,"9000010-.03",.BILINE,.BIERR,,12)
+71 IF $GET(BIERR)
DO ERRCD^BIUTL2(BIERR,.X)
DO WH^BIW(.BILINE,X)
QUIT
+72 ;
+73 SET X=" <1 -1- -2- 3-5 -6- 7-10 11-12 13-18 19-24 25-44 45-64 "
+74 SET X=X_"65+ TOTAL"
+75 DO WH^BIW(.BILINE,X)
+76 ;
+77 SET X=$$SUML()
+78 DO WH^BIW(.BILINE,X)
End DoDot:1
+79 ;
+80 ;
+81 ;---> If Header array is being built for Listmananger,
+82 ;---> reset display window margins for Communities, etc.
+83 IF $DATA(VALM("BM"))
Begin DoDot:1
+84 SET VALM("TM")=BILINE+3
+85 SET VALM("LINES")=VALM("BM")-VALM("TM")+1
+86 ;---> Safeguard to prevent divide/0 error.
+87 IF VALM("LINES")<1
SET VALM("LINES")=1
End DoDot:1
+88 QUIT
+89 ;
+90 ;
+91 ;----------
GET(BIBEGDT,BIENDDT,BICC,BIHCF,BICM,BIBEN,BIHIST,BIVT,BIDLOT) ;EP
+1 ;----------
+2 ;---> Produce array for Vaccine Accountability Report.
+3 ;---> Parameters:
+4 ; 1 - BIBEGDT (req) Begin date of report.
+5 ; 2 - BIENDDT (req) End date of report.
+6 ; 3 - BICC (req) Current Community array.
+7 ; 4 - BIHCF (req) Health Care Facility array.
+8 ; 5 - BICM (req) Case Manager array.
+9 ; 6 - BIBEN (req) Beneficiary Type array.
+10 ; 7 - BIHIST (req) Include Historical (1=yes,0=no).
+11 ; 8 - BIVT (req) Visit Type array.
+12 ; 9 - BIDLOT (req) If BIDLOT=1, display by Lot Numbers.
+13 ;
+14 KILL ^TMP("BIREPA1",$JOB)
+15 NEW BILINE,BITMP,X
SET BILINE=0
+16 ;
+17 ;---> Check for required Variables.
+18 IF '$GET(BIBEGDT)
DO ERRCD^BIUTL2(626,.X)
DO WRITE(.BILINE,X)
QUIT
+19 IF '$GET(BIENDDT)
DO ERRCD^BIUTL2(627,.X)
DO WRITE(.BILINE,X)
QUIT
+20 IF '$DATA(BICC)
DO ERRCD^BIUTL2(614,.X)
DO WRITE(.BILINE,X)
QUIT
+21 IF '$DATA(BIHCF)
DO ERRCD^BIUTL2(625,.X)
DO WRITE(.BILINE,X)
QUIT
+22 IF '$DATA(BICM)
DO ERRCD^BIUTL2(615,.X)
DO WRITE(.BILINE,X)
QUIT
+23 IF '$DATA(BIBEN)
DO ERRCD^BIUTL2(662,.X)
DO WRITE(.BILINE,X)
QUIT
+24 IF '$DATA(BIHIST)
DO ERRCD^BIUTL2(663,.X)
DO WRITE(.BILINE,X)
QUIT
+25 IF '$DATA(BIVT)
DO ERRCD^BIUTL2(664,.X)
DO WRITE(.BILINE,X)
QUIT
+26 IF '$DATA(BIDLOT)
DO ERRCD^BIUTL2(681,.X)
DO WRITE(.BILINE,X)
QUIT
+27 ;
+28 ;---> Gather data.
+29 DO GETIMMS^BIREPA3(BIBEGDT,BIENDDT,.BICC,.BIHCF,.BICM,.BIBEN,BIHIST,.BIVT)
+30 ;
+31 ;---> Write Stats lines for each Vaccine Group.
+32 ;---> BIG=Vaccine Group, BIV=Vaccine Name, BIA=Age.
+33 NEW BILINE
SET BILINE=0
+34 NEW BIG
SET BIG=0
+35 FOR
SET BIG=$ORDER(BITMP("STATS",BIG))
IF 'BIG
QUIT
Begin DoDot:1
+36 NEW BIV
SET BIV=0
+37 FOR
SET BIV=$ORDER(BITMP("STATS",BIG,BIV))
IF BIV=""
QUIT
Begin DoDot:2
+38 ;
+39 NEW BILSAV,X
+40 ;
+41 ;---> Write Vaccine Name line.
+42 SET X=BIV
+43 IF $GET(BIDLOT)
SET X=X_" - All Lots"
+44 DO CENTERT^BIUTL5(.X)
+45 ;---> Save this line# for marking as a single record to print.
+46 DO WRITE(.BILINE,X)
SET BILSAV=BILINE
+47 ;
+48 ;---> Build Age Totals line for this vaccine.
+49 SET X=$$SUML()
DO WRITE(.BILINE,X)
+50 SET X=""
NEW BIA
+51 FOR BIA=1:1:12
SET X=X_$JUSTIFY($GET(BITMP("STATS",BIG,BIV,"ALL",BIA)),6)
+52 ;---> Now concat Total column (for this vaccine row).
+53 SET X=X_$JUSTIFY($GET(BITMP("STATS",BIG,BIV,"ALL","TOTAL")),7)
+54 DO WRITE(.BILINE,X)
+55 DO WRITE(.BILINE,$$SP^BIUTL5(79,"-"))
+56 ;---> Now mark the top line of this vaccine to print as one record.
+57 IF $GET(BILSAV)
DO MARK^BIW(BILSAV,BILINE-BILSAV,"BIREPA1")
+58 ;
+59 IF '$GET(BIDLOT)
QUIT
+60 ;---> Display rows by individual Lot Number.
+61 NEW BIL
SET BIL=0
+62 FOR
SET BIL=$ORDER(BITMP("STATS",BIG,BIV,BIL))
IF BIL=""
QUIT
Begin DoDot:3
+63 IF (BIL="ALL")
QUIT
+64 ;---> Write Vaccine Name with Lot Number concatenated.
+65 SET X=BIV_" - "_BIL
DO CENTERT^BIUTL5(.X)
+66 DO WRITE(.BILINE,X)
SET BILSAV=BILINE
+67 SET X=$$SUML()
DO WRITE(.BILINE,X)
+68 SET X=""
NEW BIA
+69 FOR BIA=1:1:12
SET X=X_$JUSTIFY($GET(BITMP("STATS",BIG,BIV,BIL,BIA)),6)
+70 SET X=X_$JUSTIFY($GET(BITMP("STATS",BIG,BIV,BIL,"TOTAL")),7)
+71 DO WRITE(.BILINE,X)
+72 DO WRITE(.BILINE,$$SP^BIUTL5(79,"-"))
+73 IF $GET(BILSAV)
DO MARK^BIW(BILSAV,BILINE-BILSAV,"BIREPA1")
+74 ;
+75 ;---> Now mark the top line of this vaccine to print as one record.
+76 IF $GET(BILSAV)
DO MARK^BIW(BILSAV,BILINE-BILSAV,"BIREPA1")
End DoDot:3
End DoDot:2
End DoDot:1
+77 ;
+78 ;---> Now write total in .
+79 SET X=" TOTAL IMMUNIZATIONS (for all vaccines in this report)"
+80 SET X=X_$$SP^BIUTL5(16)_$JUSTIFY(+$GET(BITMP("STATS","ALL","TOTAL")),9)
+81 DO WRITE(.BILINE,X)
DO WRITE(.BILINE,$$SP^BIUTL5(79,"-"))
+82 ;
+83 ;---> Now write total patients considered who had refusals.
+84 ;---> Not desired on this report, per Ros 10-12-05
+85 ;N M,N S (M,N)=0 F S M=$O(BITMP("REFUSALS",M)) Q:'M S N=N+1
+86 ;S X=" Total Patients included who had Refusals on record"_$J(N,28)
+87 ;D WRITE(.BILINE,X),WRITE(.BILINE,$$SP^BIUTL5(79,"-"))
+88 ;
+89 ;---> Set final VALMCNT (Listman line count).
+90 SET VALMCNT=BILINE
+91 QUIT
+92 ;
+93 ;
+94 ;----------
WRITE(BILINE,BIVAL,BIBLNK) ;EP
+1 ;---> Write lines to ^TMP (see documentation in ^BIW).
+2 ;---> Parameters:
+3 ; 1 - BILINE (ret) Last line# written.
+4 ; 2 - BIVAL (opt) Value/text of line (Null=blank line).
+5 ;
+6 IF '$DATA(BILINE)
QUIT
+7 DO WL^BIW(.BILINE,"BIREPA1",$GET(BIVAL),$GET(BIBLNK))
+8 ;
+9 ;--->Set VALMCNT (Listman line count) for errors calls above.
+10 SET VALMCNT=BILINE
+11 QUIT
+12 ;
+13 ;
+14 ;----------
SUML() ;EP
+1 ;---> Produce Header array for Vaccine Accountability Report.
+2 ;---> Parameters:
+3 ; 1 - Y (opt) If Y=1 write line for subtotals instead of header.
+4 NEW X
+5 ;S X=$S($G(Y):" ----",1:" ----")_"| ---- --- --- --- --- ----"
+6 ;Q X_" ----- ----- ----- ----- ----- ----- -----"
+7 SET X=" ---- ---- ---- ---- ---- ---- ----- ----- ----- ----- "
+8 QUIT X_"----- ----- -----"
