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

BIREPQ.m

Go to the documentation of this file.
  1. BIREPQ ;IHS/CMI/MWR - REPORT, QUARTERLY IMM; MAY 10, 2010
  1. ;;8.5;IMMUNIZATION;;SEP 01,2011
  1. ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
  1. ;; VIEW QUARTERLY IMMUNIZATION REPORT.
  1. ;
  1. ;
  1. ;----------
  1. START ;EP
  1. ;---> Listman Screen for printing Immunization Due Letters.
  1. D SETVARS^BIUTL5 N BIRTN
  1. ;
  1. ;---> If Vaccine Table is not standard, display Error Text and quit.
  1. I $D(^BISITE(-1)) D ERRCD^BIUTL2(503,,1) Q
  1. ;
  1. D EN
  1. D EXIT
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. EN ;EP
  1. ;---> Main entry point for BI LETTER PRINT DU
  1. D EN^VALM("BI REPORT QUARTERLY IMM")
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. INIT ;EP
  1. ;---> Initialize variables and list array. vvv83
  1. S VALM("TITLE")=$$LMVER^BILOGO
  1. S VALMSG="Select a left column number to change an item."
  1. N BILINE,X S BILINE=0
  1. D WRITE(.BILINE)
  1. S X=IOUON_"3-27 MONTH IMMUNIZATION REPORT" D CENTERT^BIUTL5(.X,42)
  1. D WRITE(.BILINE,X_IOINORM)
  1. K X
  1. ;
  1. D WRITE(.BILINE)
  1. ;---> Date.
  1. S:'$G(BIQDT) BIQDT=$G(DT)
  1. D DATE^BIREP(.BILINE,"BIREPQ",1,$G(BIQDT),"Quarter Ending Date",,,,1)
  1. ;
  1. ;---> Current Community.
  1. D DISP^BIREP(.BILINE,"BIREPQ",.BICC,"Community",2,1)
  1. ;
  1. ;---> Health Care Facility.
  1. N A,B S A="Health Care Facility",B="Facilities"
  1. D DISP^BIREP(.BILINE,"BIREPQ",.BIHCF,A,3,2,,,,B) K A,B
  1. ;
  1. ;---> Case Manager.
  1. D DISP^BIREP(.BILINE,"BIREPQ",.BICM,"Case Manager",4,3)
  1. ;
  1. ;---> Beneficiary Type.
  1. S:$O(BIBEN(0))="" BIBEN(1)=""
  1. D DISP^BIREP(.BILINE,"BIREPQ",.BIBEN,"Beneficiary Type",5,4)
  1. ;
  1. ;---> User Population.
  1. D:($G(BIUP)="")
  1. .I $$GPRAIEN^BIUTL6 S BIUP="i" Q
  1. .S BIUP="u"
  1. ;
  1. S X=" 6 - Patient Population Group...: "
  1. D
  1. .I BIUP="r" S X=X_"Registered Patients (All)" Q
  1. .I BIUP="i" S X=X_"Immunization Register Patients (Active)" Q
  1. .I BIUP="u" S X=X_"User Population (1 visit, 3 yrs)" Q
  1. .I BIUP="a" S X=X_"Active Users (2+ visits, 3 yrs)" Q
  1. D WRITE(.BILINE,X,1)
  1. K X
  1. ;
  1. ;---> Include Hep A, Pneumo.
  1. S:'$D(BIHPV) BIHPV=1
  1. S X=" 7 - Include Varicella & Pneumo.: "
  1. S X=X_$S($G(BIHPV):"YES",1:"NO")
  1. D WRITE(.BILINE,X,1)
  1. K X
  1. ;
  1. ;---> Finish up Listmanager List Count.
  1. S VALMCNT=BILINE
  1. S BIRTN="BIREPQ"
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. WRITE(BILINE,BIVAL,BIBLNK) ;EP
  1. ;---> Write lines to ^TMP (see documentation in ^BIW).
  1. ;---> Parameters:
  1. ; 1 - BILINE (ret) Last line# written.
  1. ; 2 - BIVAL (opt) Value/text of line (Null=blank line).
  1. ; 3 - BIBLNK (opt) Number of blank lines to add after line sent.
  1. ;
  1. Q:'$D(BILINE)
  1. D WL^BIW(.BILINE,"BIREPQ",$G(BIVAL),$G(BIBLNK))
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. RESET ;EP
  1. ;---> Update partition for return to Listmanager.
  1. I $D(VALMQUIT) S VALMBCK="Q" Q
  1. D TERM^VALM0 S VALMBCK="R"
  1. D INIT Q
  1. ;
  1. ;
  1. ;----------
  1. HELP ;EP
  1. ;---> Help code.
  1. N BIX S BIX=X
  1. D FULL^VALM1
  1. W !!?5,"Enter ""V"" to view this report on screen, ""P"" to print it,"
  1. W !?5,"or ""H"" to view the Help Text for this report and its parameters."
  1. D DIRZ^BIUTL3(""," Press ENTER/RETURN to continue")
  1. D:BIX'="??" RE^VALM4
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. HELP1 ;EP
  1. ;----> Explanation of this report. vvv83
  1. N BITEXT D TEXT1(.BITEXT)
  1. D START^BIHELP("3-27 MONTH IMMUNIZATION REPORT - HELP",.BITEXT)
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. TEXT1(BITEXT) ;EP
  1. ;;
  1. ;;3-27 Month Immunization Report
  1. ;;
  1. ;;The IHS and Tribal programs report the current age-appropriate
  1. ;;immunization rate of active children 3-27 months of age.
  1. ;;NOTE: Any child who was Inactivated at any point during the 90 days
  1. ;;prior to the Quarter Ending Date will not be included in the report.
  1. ;;
  1. ;;The criteria listed below are used by IHS to determine the
  1. ;;up-to-date status of children in each age group, and the specific
  1. ;;age group rates are combined into a total rate. Varicella and Pneumo
  1. ;;can be excluded from the report totals by entering "NO" in Option 6.
  1. ;;However, for Headquarters Reports enter "YES" for Option 6 in order to
  1. ;;include Varicella and Pneumo (PCV) in the totals.
  1. ;;The criteria for the Headquarters Report are listed below:
  1. ;;
  1. ;; 3-4 months old 1-DTaP 1-IPV 1-Hib 1-HepB 1-PCV
  1. ;; 5-6 months old 2-DTaP 2-IPV 2-Hib 2-HepB 2-PCV
  1. ;; 7-15 months old 3-DTaP 2-IPV 2-Hib 2-HepB 3-PCV
  1. ;; 16-18 months old 3-DTaP 2-IPV 3-Hib 2-HepB 3-PCV 1-MMR 1-VAR
  1. ;; 19-23 months old 4-DTaP 3-IPV 3-Hib 3-HepB 4-PCV 1-MMR 1-VAR
  1. ;; 24-27 months old 4-DTaP 3-IPV 3-Hib 3-HepB 4-PCV 1-MMR 1-VAR
  1. ;;
  1. ;;In Version 8.5 we have revised the 3-27 month report to have
  1. ;;manufacturer-specific logic:
  1. ;;
  1. ;; PedvaxHib (PRP-OMP) requires 3 doses
  1. ;; ActHib (PRP-T0 requires 4 doses
  1. ;; RotaTeq (Rota-5) requires 3 doses
  1. ;; RotaRix (Rota-1) requires 2 doses
  1. ;;
  1. ;;Version 8.5 also adjusts for catch-up schedules to require fewer doses
  1. ;;of Hib and PCV13 in children who start late:
  1. ;;
  1. ;; Hib: 16-27 months - requires 3 doses, or 2 doses >=12 months,
  1. ;; or 1 dose >=15 months
  1. ;;
  1. ;; PCV13: 16-27 months - requires 4 doses, or 3 doses >=7 months,
  1. ;; or 2 doses >=12 months, or 1 dose >=24 months
  1. ;;
  1. ;;
  1. ;;The 3-27 MONTH IMMUNIZATION REPORT screen allows you to adjust
  1. ;;the report to your needs.
  1. ;;
  1. ;;There are 7 items or "parameters" on the screen that you may
  1. ;;change in order to select for a specific group of patients.
  1. ;;To change an item, enter its left column number (1-7) at the
  1. ;;prompt on the bottom of the screen. Use "?" at any prompt where
  1. ;;you would like more information on the parameter you are changing.
  1. ;;
  1. ;;Once you have the parameters set to retrieve the group of patients
  1. ;;you want, select V to View the Quarterly Report or P to print it.
  1. ;;
  1. ;;If it customarily takes a long time for your computer to prepare
  1. ;;this report, it may be preferable to Print and Queue the report
  1. ;;to a printer, rather than Viewing it on screen. (This would avoid
  1. ;;tying up your screen while the report is being prepared.)
  1. ;;
  1. ;;QUARTER ENDING DATE: The report will compile immunization rates
  1. ;;as of the date entered. Typically, this date would be the end
  1. ;;of a Quarter.
  1. ;;
  1. ;;COMMUNITIES: If you select for specific Communities, only patients
  1. ;;whose Current Community matches one of the Communities selected will
  1. ;;be included in the report. "Current Community" is refers to Item 6
  1. ;;on Page 1 of the RPMS Patient Registration.
  1. ;;
  1. ;;HEALTH CARE FACILITIES: If you select for specific Health Care
  1. ;;Facilities, only Patients who have active Chart#'s at one or more
  1. ;;of the selected Facilities will be included in the report.
  1. ;;
  1. ;;CASE MANAGERS: If you select for specific Case Managers, only
  1. ;;patients who have the selected Case Managers will be included
  1. ;;in the report.
  1. ;;
  1. ;;BENEFICIARY TYPES: If you select for specific Beneficiary Types,
  1. ;;only patients whose Beneficiary Type is one of those you select
  1. ;;will be included in the report. "Beneficiary Type" refers to
  1. ;;Item 3 on Page 2 of the RPMS Patient Registration.
  1. ;;
  1. ;;PATIENT POPULATION GROUP: You may select one of four patient groups
  1. ;;to be considered in the report: Registered Patients (All),
  1. ;;Immunization Register Patients (Active), User Population (1+ visits
  1. ;;in 3 yrs), or Active Clinical Users (2+ visits in 3 yrs).
  1. ;;Immunization Register Patients (Active) is the default.
  1. ;;
  1. ;;INCLUDE VARICELLA & PNEUMO: Answer "YES" if you wish to have Varicella
  1. ;;and Pneumo included in the statistics of the "Appropriate for Age" row
  1. ;;at the top of the report. If you answer "NO", Varicella and Pneumo will
  1. ;;NOT appear in the Minimum needs header row at the top of the report.
  1. ;;In both cases, the statistics for Varicella and Pneumo will be displayed
  1. ;;individually in additional rows at the bottom of the report.
  1. ;;
  1. D LOADTX("TEXT1",,.BITEXT)
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. LOADTX(BILINL,BITAB,BITEXT) ;EP
  1. Q:$G(BILINL)=""
  1. N I,T,X S T="" S:'$D(BITAB) BITAB=5 F I=1:1:BITAB S T=T_" "
  1. F I=1:1 S X=$T(@BILINL+I) Q:X'[";;" S BITEXT(I)=T_$P(X,";;",2)
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. EXIT ;EP
  1. ;---> End of job cleanup.
  1. D KILLALL^BIUTL8(1)
  1. K ^TMP("BIREPQ",$J)
  1. D CLEAR^VALM1
  1. D FULL^VALM1
  1. Q