BIREPA ;IHS/CMI/MWR - REPORT, VAC ACCOUNTABILITY; MAY 10, 2010
;;8.5;IMMUNIZATION;;SEP 01,2011
;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
;; VIEW VACCINE ACCOUNTABILITY REPORT.
;
;
;----------
START ;EP
;---> Listman Screen for viewing Vaccine Accountability Report.
D SETVARS^BIUTL5 N BIRTN
;
;---> If Vaccine Table is not standard, display Error Text and quit.
I $D(^BISITE(-1)) D ERRCD^BIUTL2(503,,1) Q
;
D EN
D EXIT
Q
;
;
;----------
EN ;EP
;---> Main entry point for BI REPORT VAC ACCOUNTABILITY.
D EN^VALM("BI REPORT ACCOUNTABILITY")
Q
;
;
;----------
INIT ;EP
;---> Initialize variables and list array.
K ^TMP("BIREPA",$J)
S VALM("TITLE")=$$LMVER^BILOGO
S VALMSG="Select a left column number to change an item."
N BILINE,X S BILINE=0
D WRITE(.BILINE)
S X=IOUON_"VACCINE ACCOUNTABILITY REPORT"
D CENTERT^BIUTL5(.X,42)
D WRITE(.BILINE,X_IOINORM)
K X
;
;---> Date Range.
S:'$G(BIBEGDT) BIBEGDT=(DT-10000)
S:'$G(BIENDDT) BIENDDT=DT
;D DATERNG^BIREP(.BILINE,"BIREPA",1,BIBEGDT,BIENDDT)
D DATERNG^BIREP(.BILINE,"BIREPA",1,BIBEGDT,BIENDDT,1,1,1)
;
;---> Current Community.
D DISP^BIREP(.BILINE,"BIREPA",.BICC,"Community",2,1,0)
;
;---> Health Care Facility.
N A,B S A="Health Care Facility",B="Facilities"
D DISP^BIREP(.BILINE,"BIREPA",.BIHCF,A,3,2,0,,,B)
;
;---> Case Manager.
D DISP^BIREP(.BILINE,"BIREPA",.BICM,"Case Manager",4,3)
;
;---> Beneficiary Type.
D DISP^BIREP(.BILINE,"BIREPA",.BIBEN,"Beneficiary Type",5,4,0)
;
;---> Visit Type.
D VTYPE^BIREP(.BILINE,"BIREPA",.BIVT,6)
;
;---> Include Historical.
N BIHIST1 S BIHIST1=""
S:'$D(BIHIST) BIHIST=1
S BIHIST1=$S(BIHIST:"YES",1:"NO")
S X=" 7 - Include Historical.........: "_BIHIST1
D WRITE(.BILINE,X)
K X
;
;---> Display by Lot Number.
N BIDLOT1 S BIDLOT1=""
S:'$D(BIDLOT) BIDLOT=0
S BIDLOT1=$S(BIDLOT:"YES",1:"NO")
S X=" 8 - Display by Lot Number......: "_BIDLOT1
D WRITE(.BILINE,X)
K X
;
;
;---> Finish up Listmanager List Count.
S VALMCNT=BILINE
S BIRTN="BIREPA"
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,"BIREPA",$G(BIVAL),$G(BIBLNK))
Q
;
;
;----------
RESET ;EP
;---> Update partition for return to Listmanager.
I $D(VALMQUIT) S VALMBCK="Q" Q
D TERM^VALM0 S VALMBCK="R"
;
;---> NOT USED. Could be used to correct margins.
;K VALMHDR S VALM("BM")=15,VALM("LINES")=14,VALM("TM")=2
D INIT
Q
;
;
;----------
HELP ;EP
;---> Help code.
N BIX S BIX=X
D FULL^VALM1
W !!?5,"Enter ""V"" to view this report on screen, ""P"" to print it,"
W !?5,"or ""H"" to view the Help Text for this report and its parameters."
D DIRZ^BIUTL3(""," Press ENTER/RETURN to continue")
D:BIX'="??" RE^VALM4
Q
;
;
;----------
HELP1 ;EP
;----> Explanation of this report.
N BITEXT D TEXT1(.BITEXT)
D START^BIHELP("VACCINE ACCOUNTABILITY REPORT - HELP",.BITEXT)
Q
;
;
;----------
TEXT1(BITEXT) ;EP
;;The Vaccine Accountability Report provides "doses administered"
;;by vaccine series (e.g.DTaP) and by age group. This report can be
;;printed for any time period, for a given facility, visit type, or
;;community(s).
;;
;;There are 8 items or "parameters" on the screen that you may
;;change in order to select for a specific group of patients.
;;To change an item, enter its left column number (1-8) at the
;;prompt on the bottom of the screen. Use "?" at any prompt where
;;you would like help or more information on the parameter you are
;;changing.
;;
;;Once you have the parameters set to retrieve the group of patients
;;you want, select V to View the Vaccine Acct Report or P to print it.
;;
;;If it customarily takes a long time for your computer to prepare
;;this report, it may be preferable to Print and Queue the report
;;to a printer, rather than Viewing it on screen. (This would avoid
;;tying up your screen while the report is being prepared.)
;;
;;DATE RANGE: Only immunizations given within the Date Range you
;;select will be included in the report.
;;
;;COMMUNITIES: If you select for specific Communities, only patients
;;whose Current Community matches one of the Communities selected will
;;be included in the report. "Current Community" is refers to Item 6
;;on Page 1 of the RPMS Patient Registration.
;;
;;HEALTH CARE FACILITIES: If you select for specific Health Care
;;Facilities, only immunizations given at the selected Health Care
;;Facilities will be included in the report.
;;
;;CASE MANAGERS: If you select for specific Case Managers, only
;;patients who have the selected Case Managers will be included
;;in the report.
;;
;;BENEFICIARY TYPES: If you select for specific Beneficiary Types,
;;only patients whose Beneficiary Type is one of those you select
;;will be included in the report. "Beneficiary Type" refers to
;;Item 3 on Page 2 of the RPMS Patient Registration.
;;
;;VISIT TYPES: If you select for specific Visit Types, only visits
;;that are classifed with one of the Visit Types you select will
;;included in the report.
;;
;;INCLUDE HISTORICAL: If this parameter is set to "YES", then Visits
;;with a Category of "Historical" will be counted in the Vaccine
;;Accountability Report. (Category is displayed and edited on the
;;ADD/EDIT IMMUNIZATION VISIT Screen.) If set to "NO", they will
;;not be counted in the report.
;;
;;DISPLAY BY LOT NUMBERS: The report lists the statistics by age for
;;each vaccine. However, you may elect to display the statistics for
;;each separate lot number under each vaccine. The totals for all
;;lot numbers of each vaccine will also be displayed.
;;
D LOADTX("TEXT1",,.BITEXT)
Q
;
;
;----------
LOADTX(BILINL,BITAB,BITEXT) ;EP
Q:$G(BILINL)=""
N I,T,X S T="" S:'$D(BITAB) BITAB=5 F I=1:1:BITAB S T=T_" "
F I=1:1 S X=$T(@BILINL+I) Q:X'[";;" S BITEXT(I)=T_$P(X,";;",2)
Q
;
;
;----------
EXIT ;EP
;---> End of job cleanup.
D KILLALL^BIUTL8(1)
K ^TMP("BIREPA",$J)
D CLEAR^VALM1
Q
BIREPA ;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 VACCINE ACCOUNTABILITY REPORT.
+4 ;
+5 ;
+6 ;----------
START ;EP
+1 ;---> Listman Screen for viewing Vaccine Accountability Report.
+2 DO SETVARS^BIUTL5
NEW BIRTN
+3 ;
+4 ;---> If Vaccine Table is not standard, display Error Text and quit.
+5 IF $DATA(^BISITE(-1))
DO ERRCD^BIUTL2(503,,1)
QUIT
+6 ;
+7 DO EN
+8 DO EXIT
+9 QUIT
+10 ;
+11 ;
+12 ;----------
EN ;EP
+1 ;---> Main entry point for BI REPORT VAC ACCOUNTABILITY.
+2 DO EN^VALM("BI REPORT ACCOUNTABILITY")
+3 QUIT
+4 ;
+5 ;
+6 ;----------
INIT ;EP
+1 ;---> Initialize variables and list array.
+2 KILL ^TMP("BIREPA",$JOB)
+3 SET VALM("TITLE")=$$LMVER^BILOGO
+4 SET VALMSG="Select a left column number to change an item."
+5 NEW BILINE,X
SET BILINE=0
+6 DO WRITE(.BILINE)
+7 SET X=IOUON_"VACCINE ACCOUNTABILITY REPORT"
+8 DO CENTERT^BIUTL5(.X,42)
+9 DO WRITE(.BILINE,X_IOINORM)
+10 KILL X
+11 ;
+12 ;---> Date Range.
+13 IF '$GET(BIBEGDT)
SET BIBEGDT=(DT-10000)
+14 IF '$GET(BIENDDT)
SET BIENDDT=DT
+15 ;D DATERNG^BIREP(.BILINE,"BIREPA",1,BIBEGDT,BIENDDT)
+16 DO DATERNG^BIREP(.BILINE,"BIREPA",1,BIBEGDT,BIENDDT,1,1,1)
+17 ;
+18 ;---> Current Community.
+19 DO DISP^BIREP(.BILINE,"BIREPA",.BICC,"Community",2,1,0)
+20 ;
+21 ;---> Health Care Facility.
+22 NEW A,B
SET A="Health Care Facility"
SET B="Facilities"
+23 DO DISP^BIREP(.BILINE,"BIREPA",.BIHCF,A,3,2,0,,,B)
+24 ;
+25 ;---> Case Manager.
+26 DO DISP^BIREP(.BILINE,"BIREPA",.BICM,"Case Manager",4,3)
+27 ;
+28 ;---> Beneficiary Type.
+29 DO DISP^BIREP(.BILINE,"BIREPA",.BIBEN,"Beneficiary Type",5,4,0)
+30 ;
+31 ;---> Visit Type.
+32 DO VTYPE^BIREP(.BILINE,"BIREPA",.BIVT,6)
+33 ;
+34 ;---> Include Historical.
+35 NEW BIHIST1
SET BIHIST1=""
+36 IF '$DATA(BIHIST)
SET BIHIST=1
+37 SET BIHIST1=$SELECT(BIHIST:"YES",1:"NO")
+38 SET X=" 7 - Include Historical.........: "_BIHIST1
+39 DO WRITE(.BILINE,X)
+40 KILL X
+41 ;
+42 ;---> Display by Lot Number.
+43 NEW BIDLOT1
SET BIDLOT1=""
+44 IF '$DATA(BIDLOT)
SET BIDLOT=0
+45 SET BIDLOT1=$SELECT(BIDLOT:"YES",1:"NO")
+46 SET X=" 8 - Display by Lot Number......: "_BIDLOT1
+47 DO WRITE(.BILINE,X)
+48 KILL X
+49 ;
+50 ;
+51 ;---> Finish up Listmanager List Count.
+52 SET VALMCNT=BILINE
+53 SET BIRTN="BIREPA"
+54 QUIT
+55 ;
+56 ;
+57 ;----------
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,"BIREPA",$GET(BIVAL),$GET(BIBLNK))
+8 QUIT
+9 ;
+10 ;
+11 ;----------
RESET ;EP
+1 ;---> Update partition for return to Listmanager.
+2 IF $DATA(VALMQUIT)
SET VALMBCK="Q"
QUIT
+3 DO TERM^VALM0
SET VALMBCK="R"
+4 ;
+5 ;---> NOT USED. Could be used to correct margins.
+6 ;K VALMHDR S VALM("BM")=15,VALM("LINES")=14,VALM("TM")=2
+7 DO INIT
+8 QUIT
+9 ;
+10 ;
+11 ;----------
HELP ;EP
+1 ;---> Help code.
+2 NEW BIX
SET BIX=X
+3 DO FULL^VALM1
+4 WRITE !!?5,"Enter ""V"" to view this report on screen, ""P"" to print it,"
+5 WRITE !?5,"or ""H"" to view the Help Text for this report and its parameters."
+6 DO DIRZ^BIUTL3(""," Press ENTER/RETURN to continue")
+7 IF BIX'="??"
DO RE^VALM4
+8 QUIT
+9 ;
+10 ;
+11 ;----------
HELP1 ;EP
+1 ;----> Explanation of this report.
+2 NEW BITEXT
DO TEXT1(.BITEXT)
+3 DO START^BIHELP("VACCINE ACCOUNTABILITY REPORT - HELP",.BITEXT)
+4 QUIT
+5 ;
+6 ;
+7 ;----------
TEXT1(BITEXT) ;EP
+1 ;;The Vaccine Accountability Report provides "doses administered"
+2 ;;by vaccine series (e.g.DTaP) and by age group. This report can be
+3 ;;printed for any time period, for a given facility, visit type, or
+4 ;;community(s).
+5 ;;
+6 ;;There are 8 items or "parameters" on the screen that you may
+7 ;;change in order to select for a specific group of patients.
+8 ;;To change an item, enter its left column number (1-8) at the
+9 ;;prompt on the bottom of the screen. Use "?" at any prompt where
+10 ;;you would like help or more information on the parameter you are
+11 ;;changing.
+12 ;;
+13 ;;Once you have the parameters set to retrieve the group of patients
+14 ;;you want, select V to View the Vaccine Acct Report or P to print it.
+15 ;;
+16 ;;If it customarily takes a long time for your computer to prepare
+17 ;;this report, it may be preferable to Print and Queue the report
+18 ;;to a printer, rather than Viewing it on screen. (This would avoid
+19 ;;tying up your screen while the report is being prepared.)
+20 ;;
+21 ;;DATE RANGE: Only immunizations given within the Date Range you
+22 ;;select will be included in the report.
+23 ;;
+24 ;;COMMUNITIES: If you select for specific Communities, only patients
+25 ;;whose Current Community matches one of the Communities selected will
+26 ;;be included in the report. "Current Community" is refers to Item 6
+27 ;;on Page 1 of the RPMS Patient Registration.
+28 ;;
+29 ;;HEALTH CARE FACILITIES: If you select for specific Health Care
+30 ;;Facilities, only immunizations given at the selected Health Care
+31 ;;Facilities will be included in the report.
+32 ;;
+33 ;;CASE MANAGERS: If you select for specific Case Managers, only
+34 ;;patients who have the selected Case Managers will be included
+35 ;;in the report.
+36 ;;
+37 ;;BENEFICIARY TYPES: If you select for specific Beneficiary Types,
+38 ;;only patients whose Beneficiary Type is one of those you select
+39 ;;will be included in the report. "Beneficiary Type" refers to
+40 ;;Item 3 on Page 2 of the RPMS Patient Registration.
+41 ;;
+42 ;;VISIT TYPES: If you select for specific Visit Types, only visits
+43 ;;that are classifed with one of the Visit Types you select will
+44 ;;included in the report.
+45 ;;
+46 ;;INCLUDE HISTORICAL: If this parameter is set to "YES", then Visits
+47 ;;with a Category of "Historical" will be counted in the Vaccine
+48 ;;Accountability Report. (Category is displayed and edited on the
+49 ;;ADD/EDIT IMMUNIZATION VISIT Screen.) If set to "NO", they will
+50 ;;not be counted in the report.
+51 ;;
+52 ;;DISPLAY BY LOT NUMBERS: The report lists the statistics by age for
+53 ;;each vaccine. However, you may elect to display the statistics for
+54 ;;each separate lot number under each vaccine. The totals for all
+55 ;;lot numbers of each vaccine will also be displayed.
+56 ;;
+57 DO LOADTX("TEXT1",,.BITEXT)
+58 QUIT
+59 ;
+60 ;
+61 ;----------
LOADTX(BILINL,BITAB,BITEXT) ;EP
+1 IF $GET(BILINL)=""
QUIT
+2 NEW I,T,X
SET T=""
IF '$DATA(BITAB)
SET BITAB=5
FOR I=1:1:BITAB
SET T=T_" "
+3 FOR I=1:1
SET X=$TEXT(@BILINL+I)
IF X'[";;"
QUIT
SET BITEXT(I)=T_$PIECE(X,";;",2)
+4 QUIT
+5 ;
+6 ;
+7 ;----------
EXIT ;EP
+1 ;---> End of job cleanup.
+2 DO KILLALL^BIUTL8(1)
+3 KILL ^TMP("BIREPA",$JOB)
+4 DO CLEAR^VALM1
+5 QUIT
