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

BIREPQ2.m

Go to the documentation of this file.
  1. BIREPQ2 ;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, GATHER DATA.
  1. ;
  1. ;
  1. ;----------
  1. ;---> Produce Header array for Quarterly Immunization Report.
  1. ;---> Parameters:
  1. ; 1 - BIQDT (req) Quarter Ending Date.
  1. ; 2 - BICC (req) Current Community array.
  1. ; 3 - BIHCF (req) Health Care Facility array.
  1. ; 4 - BICM (req) Case Manager array.
  1. ; 5 - BIBEN (req) Beneficiary Type array.
  1. ; 6 - BIUP (req) User Population/Group (Registered, Imm, User, Active).
  1. ;
  1. ;---> Check for required Variables.
  1. Q:'$G(BIQDT)
  1. Q:'$D(BICC)
  1. Q:'$D(BIHCF)
  1. Q:'$D(BICM)
  1. Q:'$D(BIBEN)
  1. S:$G(BIUP)="" BIUP="u"
  1. ;
  1. K VALMHDR
  1. N BILINE,X S BILINE=0
  1. ;
  1. N X S X=""
  1. ;---> If Header array is NOT being for Listmananger include version. vvv83
  1. S:'$D(VALM("BM")) X=$$LMVER^BILOGO()
  1. ;
  1. D WH^BIW(.BILINE,X)
  1. S X=$$REPHDR^BIUTL6(DUZ(2)) D CENTERT^BIUTL5(.X)
  1. D WH^BIW(.BILINE,X)
  1. ;
  1. S X="* 3-27 Month Immunization Report *" D CENTERT^BIUTL5(.X)
  1. D WH^BIW(.BILINE,X)
  1. ;S X="For Children 3-27 Months of Age" D CENTERT^BIUTL5(.X) vvv83
  1. ;D WH^BIW(.BILINE,X)
  1. ;
  1. S X=$$SP^BIUTL5(27)_"Report Date: "_$$SLDT1^BIUTL5(DT)
  1. D WH^BIW(.BILINE,X)
  1. ;
  1. S X=$$SP^BIUTL5(30)_"End Date: "_$$SLDT1^BIUTL5(BIQDT)
  1. D WH^BIW(.BILINE,X,1)
  1. ;
  1. S X=" "_$$BIUPTX^BIUTL6(BIUP) D WH^BIW(.BILINE,X)
  1. D WH^BIW(.BILINE,$$SP^BIUTL5(79,"-"))
  1. ;
  1. D
  1. .;---> If specific Communities were selected (not ALL), then print
  1. .;---> the Communities in a subheader at the top of the report.
  1. .D SUBH^BIOUTPT5("BICC","Community",,"^AUTTCOM(",.BILINE,.BIERR,,12)
  1. .I $G(BIERR) D ERRCD^BIUTL2(BIERR,.X) D WH^BIW(.BILINE,X) Q
  1. .;
  1. .;---> If specific Health Care Facilities, print subheader.
  1. .D SUBH^BIOUTPT5("BIHCF","Facility",,"^DIC(4,",.BILINE,.BIERR,,12)
  1. .I $G(BIERR) D ERRCD^BIUTL2(BIERR,.X) D WH^BIW(.BILINE,X) Q
  1. .;
  1. .;---> If specific Case Managers, print Case Manager subheader.
  1. .D SUBH^BIOUTPT5("BICM","Case Manager",,"^VA(200,",.BILINE,.BIERR,,12)
  1. .I $G(BIERR) D ERRCD^BIUTL2(BIERR,.X) D WH^BIW(.BILINE,X) Q
  1. .;
  1. .;---> If specific Beneficiary Types, print Beneficiary Type subheader.
  1. .D SUBH^BIOUTPT5("BIBEN","Beneficiary Type",,"^AUTTBEN(",.BILINE,.BIERR,,12)
  1. .I $G(BIERR) D ERRCD^BIUTL2(BIERR,.X) D WH^BIW(.BILINE,X) Q
  1. .;
  1. .S X=$$SP^BIUTL5(10)_"|"_$$SP^BIUTL5(21)_"Age in Months"
  1. .S X=X_$$SP^BIUTL5(24)_"|"
  1. .D WH^BIW(.BILINE,X)
  1. .S X=$$SP^BIUTL5(10)_"|"_$$SP^BIUTL5(58,"-")_"| Totals"
  1. .D WH^BIW(.BILINE,X)
  1. .S X=" | 3-4 5-6 7-15 16-18 19-23"
  1. .S X=X_" 24-27 |"
  1. .D WH^BIW(.BILINE,X)
  1. ;
  1. ;---> If Header array is being built for Listmananger,
  1. ;---> reset display window margins for Communities, etc.
  1. D:$D(VALM("BM"))
  1. .S VALM("TM")=BILINE+3
  1. .S VALM("LINES")=VALM("BM")-VALM("TM")+1
  1. .;---> Safeguard to prevent divide/0 error.
  1. .S:VALM("LINES")<1 VALM("LINES")=1
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. START(BIQDT,BICC,BIHCF,BICM,BIBEN,BIHPV,BIUP) ;EP
  1. ;---> Produce array for Quarterly Immunization Report.
  1. ;---> Parameters:
  1. ; 1 - BIQDT (req) Quarter Ending Date.
  1. ; 2 - BICC (req) Current Community array.
  1. ; 3 - BIHCF (req) Health Care Facility array.
  1. ; 4 - BICM (req) Case Manager array.
  1. ; 5 - BIBEN (req) Beneficiary Type array.
  1. ; 6 - BIHPV (opt) 1=Include Varicella & Pneumo.
  1. ; 7 - BIUP (req) User Population/Group (Registered, Imm, User, Active).
  1. ;
  1. K ^TMP("BIREPQ1",$J)
  1. N BILINE,BITMP,X S BILINE=0,BIPOP=0
  1. ;
  1. ;---> Check for required Variables.
  1. ;
  1. I '$G(BIQDT) D ERRCD^BIUTL2(623,.X) D WRITERR(BILINE,X) Q
  1. I '$D(BICC) D ERRCD^BIUTL2(614,.X) D WRITERR(BILINE,X) Q
  1. I '$D(BIHCF) D ERRCD^BIUTL2(625,.X) D WRITERR(BILINE,X) Q
  1. I '$D(BICM) D ERRCD^BIUTL2(615,.X) D WRITERR(BILINE,X) Q
  1. I '$D(BIBEN) D ERRCD^BIUTL2(662,.X) D WRITERR(BILINE,X) Q
  1. S:'$D(BIHPV) BIHPV=1
  1. S:$G(BIUP)="" BIUP="u"
  1. ;
  1. ;---> Write Age Totals line.
  1. D AGETOT^BIREPQ3(.BILINE,.BICC,.BIHCF,.BICM,.BIBEN,BIQDT,BIHPV,BIUP,.BIPOP)
  1. Q:BIPOP
  1. ;
  1. ;---> Write lines that define minimum needs.
  1. D MNEED^BIREPQ3(.BILINE,BIHPV)
  1. ;
  1. ;---> Write Approp for Age and Vaccine Group lines.
  1. D APPROP^BIREPQ3(.BILINE)
  1. ;
  1. ;---> Write Statistics lines for each Vaccine Group (BIVGRP).
  1. F BIVGRP=1,2,6,3,4,7,9,11,15 D VGRP^BIREPQ3(.BILINE,BIVGRP)
  1. ;---> Per Ros Singleton, show HPV individual stats, even if not including
  1. ;---> them in the totals for Age Appropriate.
  1. ;F BIVGRP=1,2,6,3,4 D VGRP^BIREPQ3(.BILINE,BIVGRP)
  1. ;I $G(BIHPV) F BIVGRP=7,9,11 D VGRP^BIREPQ3(.BILINE,BIVGRP)
  1. ;
  1. ;---> Now write total patients considered who had refusals.
  1. N M,N S (M,N)=0 F S M=$O(BITMP("REFUSALS",M)) Q:'M S N=N+1
  1. S X=" Total Patients included who had Refusals on record"_$J(N,25)
  1. D WRITE^BIREPQ3(.BILINE,X),WRITE^BIREPQ3(.BILINE,$$SP^BIUTL5(79,"-"))
  1. ;
  1. S VALMCNT=BILINE
  1. Q
  1. ;
  1. ;
  1. ;----------
  1. WRITERR(BILINE,X) ;EP
  1. ;---> Write error line to report.
  1. ;---> Parameters:
  1. ; 1 - BILINE (ret) Last line# written.
  1. ; 2 - BIVAL (req) Error text.
  1. ;
  1. S:'$D(X) X="No error text."
  1. S:'$D(BILINE) BILINE=1
  1. D WRITE^BIREPQ3(.BILINE,X) S VALMCNT=BILINE
  1. Q