BIREPQ5 ;IHS/CMI/MWR - REPORT, QTR IMM LIST REJECTS;MAY 30,2007
;;8.2;IMMUNIZATION;;SEP 11,2007
;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
;; QUARTERLY IMM REPORT, VIEW PATIENTS: REJECTED, APPROPRIATE, OR ALL.
;
;---> Called by ProtocolS BI REPORT QTR PATIENTS REJECTED, APPRO, ALL.
;---> on the Protocol Menu BI MENU REPORT QTR VIEW to view
;
;----------
MAIN(BIVAL) ;
;---> Display Patients.
;---> Parameters:
; 1 - BIVAL (opt) Value indicates which patients:
; 0=All, 1=Rejects only, 2=Appropriate only.
;
S:(($G(BIVAL)<1)!($G(BIVAL)>2)) BIVAL=0
N VALMCNT
;---> If <STKOV> errors appear here, increase STACK in SYSGEN,
;---> System Configuration Parameters.
;
D START(BIVAL)
D RESET1^BIREPQ1
Q
;
;
;----------
START(BIVAL) ;EP
;---> Display Patients.
;---> Parameters:
; 1 - BIVAL (opt) Value indicates which patients.
; 0=All patients, 1=Rejects only, 2=Appropriate only
;
;---> If Vaccine Table is not standard, display Error Text and quit.
I $D(^BISITE(-1)) D ERRCD^BIUTL2(503,,1) Q
D SETVARS^BIUTL5
;
N BIPOP
D D DIRZ^BIUTL3(.BIPOP)
.I $G(BIVAL)=1 D Q
..D TITLE^BIUTL5("VIEW PATIENTS NOT APPROPRIATE IN QUARTERLY REPORT"),TEXT1 Q
.I $G(BIVAL)=2 D Q
..D TITLE^BIUTL5("VIEW PATIENTS APPROPRIATE IN QUARTERLY REPORT"),TEXT2
.D TITLE^BIUTL5("VIEW ALL PATIENTS REVIEWED IN QUARTERLY REPORT"),TEXT3 Q
Q:$G(BIPOP)
W !!?5,"Please hold...",!
;
;---> Get Total Patients from ^TMP("BIDUL",$J,1,DOB,NAME,BIDFN)
;---> From STOR^BIREPQ4, call to STORE^BIDUR1.
N BIT S BIT=0
D
.N M,N,P
.S N=0 F S N=$O(^TMP("BIDUL",$J,1,N)) Q:N="" D
..S M=0 F S M=$O(^TMP("BIDUL",$J,1,N,M)) Q:M="" D
...N BIVAL1
...S P=0 F S P=$O(^TMP("BIDUL",$J,1,N,M,P)) Q:P="" S BIVAL1=^(P) D
....I $G(BIVAL) Q:BIVAL'=BIVAL1
....S BIT=BIT+1
;
;---> For now, comment out any additional info, per Group's request v8.0.
;N BINFO S BINFO="1,2,3,5,7,8"
N BIPG
S BIPG=$S(BIVAL=1:"Not Appropriate",BIVAL=2:"Appropriate",1:"Both Groups")
S BIPG="Report - "_BIPG
N BIAG S BIAG="3-27"
;---> Clear View global.
K ^TMP("BIDULV",$J)
;---> For now, no Additional Info.
;D START^BIDUVLS1(BIQDT,BINFO,BIPG,BIAG,BIT,BIVAL)
D START^BIDUVLS1(BIQDT,,BIPG,BIAG,BIT,BIVAL,1)
Q
;
;
;----------
TEXT1 ;EP
;;This action will display a List of the patients who were NOT within
;;the recommended guidelines for immunizations and therefore were
;;NOT included in the tallies for the "Approp. for Age" row of the
;;report.
;;
;;NOTE! It is possible that some patients rejected by the report
;; (as Not Appropriate for Age) are NOT DUE for any immunizations.
;; Immunizations given after the recommended age cutoff will
;; cause a patient to be rejected from the "Approp for Age" tally.
;; Also, any immunizations given after the Quarter Ending Date
;; of the report are not counted.
D PRINTX("TEXT1")
Q
;
;
;----------
TEXT2 ;EP
;;This action will display a List of the patients who were WITHIN
;;the recommended guidelines for immunizations and therefore were
;;INCLUDED in the tallies for the "Approp. for Age" row of the
;;report.
;;
;;
D PRINTX("TEXT2")
Q
;
;
;----------
TEXT3 ;EP
;;This action will display a list of ALL the patients who were
;;considered in this report.
;;
;;
D PRINTX("TEXT3")
Q
;
;
;----------
PRINTX(BILINL,BITAB) ;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'[";;" W !,T,$P(X,";;",2)
Q
BIREPQ5 ;IHS/CMI/MWR - REPORT, QTR IMM LIST REJECTS;MAY 30,2007
+1 ;;8.2;IMMUNIZATION;;SEP 11,2007
+2 ;;* MICHAEL REMILLARD, DDS * CIMARRON MEDICAL INFORMATICS, FOR IHS *
+3 ;; QUARTERLY IMM REPORT, VIEW PATIENTS: REJECTED, APPROPRIATE, OR ALL.
+4 ;
+5 ;---> Called by ProtocolS BI REPORT QTR PATIENTS REJECTED, APPRO, ALL.
+6 ;---> on the Protocol Menu BI MENU REPORT QTR VIEW to view
+7 ;
+8 ;----------
MAIN(BIVAL) ;
+1 ;---> Display Patients.
+2 ;---> Parameters:
+3 ; 1 - BIVAL (opt) Value indicates which patients:
+4 ; 0=All, 1=Rejects only, 2=Appropriate only.
+5 ;
+6 IF (($GET(BIVAL)<1)!($GET(BIVAL)>2))
SET BIVAL=0
+7 NEW VALMCNT
+8 ;---> If <STKOV> errors appear here, increase STACK in SYSGEN,
+9 ;---> System Configuration Parameters.
+10 ;
+11 DO START(BIVAL)
+12 DO RESET1^BIREPQ1
+13 QUIT
+14 ;
+15 ;
+16 ;----------
START(BIVAL) ;EP
+1 ;---> Display Patients.
+2 ;---> Parameters:
+3 ; 1 - BIVAL (opt) Value indicates which patients.
+4 ; 0=All patients, 1=Rejects only, 2=Appropriate only
+5 ;
+6 ;---> If Vaccine Table is not standard, display Error Text and quit.
+7 IF $DATA(^BISITE(-1))
DO ERRCD^BIUTL2(503,,1)
QUIT
+8 DO SETVARS^BIUTL5
+9 ;
+10 NEW BIPOP
+11 Begin DoDot:1
+12 IF $GET(BIVAL)=1
Begin DoDot:2
+13 DO TITLE^BIUTL5("VIEW PATIENTS NOT APPROPRIATE IN QUARTERLY REPORT")
DO TEXT1
QUIT
End DoDot:2
QUIT
+14 IF $GET(BIVAL)=2
Begin DoDot:2
+15 DO TITLE^BIUTL5("VIEW PATIENTS APPROPRIATE IN QUARTERLY REPORT")
DO TEXT2
End DoDot:2
QUIT
+16 DO TITLE^BIUTL5("VIEW ALL PATIENTS REVIEWED IN QUARTERLY REPORT")
DO TEXT3
QUIT
End DoDot:1
DO DIRZ^BIUTL3(.BIPOP)
+17 IF $GET(BIPOP)
QUIT
+18 WRITE !!?5,"Please hold...",!
+19 ;
+20 ;---> Get Total Patients from ^TMP("BIDUL",$J,1,DOB,NAME,BIDFN)
+21 ;---> From STOR^BIREPQ4, call to STORE^BIDUR1.
+22 NEW BIT
SET BIT=0
+23 Begin DoDot:1
+24 NEW M,N,P
+25 SET N=0
FOR
SET N=$ORDER(^TMP("BIDUL",$JOB,1,N))
IF N=""
QUIT
Begin DoDot:2
+26 SET M=0
FOR
SET M=$ORDER(^TMP("BIDUL",$JOB,1,N,M))
IF M=""
QUIT
Begin DoDot:3
+27 NEW BIVAL1
+28 SET P=0
FOR
SET P=$ORDER(^TMP("BIDUL",$JOB,1,N,M,P))
IF P=""
QUIT
SET BIVAL1=^(P)
Begin DoDot:4
+29 IF $GET(BIVAL)
IF BIVAL'=BIVAL1
QUIT
+30 SET BIT=BIT+1
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+31 ;
+32 ;---> For now, comment out any additional info, per Group's request v8.0.
+33 ;N BINFO S BINFO="1,2,3,5,7,8"
+34 NEW BIPG
+35 SET BIPG=$SELECT(BIVAL=1:"Not Appropriate",BIVAL=2:"Appropriate",1:"Both Groups")
+36 SET BIPG="Report - "_BIPG
+37 NEW BIAG
SET BIAG="3-27"
+38 ;---> Clear View global.
+39 KILL ^TMP("BIDULV",$JOB)
+40 ;---> For now, no Additional Info.
+41 ;D START^BIDUVLS1(BIQDT,BINFO,BIPG,BIAG,BIT,BIVAL)
+42 DO START^BIDUVLS1(BIQDT,,BIPG,BIAG,BIT,BIVAL,1)
+43 QUIT
+44 ;
+45 ;
+46 ;----------
TEXT1 ;EP
+1 ;;This action will display a List of the patients who were NOT within
+2 ;;the recommended guidelines for immunizations and therefore were
+3 ;;NOT included in the tallies for the "Approp. for Age" row of the
+4 ;;report.
+5 ;;
+6 ;;NOTE! It is possible that some patients rejected by the report
+7 ;; (as Not Appropriate for Age) are NOT DUE for any immunizations.
+8 ;; Immunizations given after the recommended age cutoff will
+9 ;; cause a patient to be rejected from the "Approp for Age" tally.
+10 ;; Also, any immunizations given after the Quarter Ending Date
+11 ;; of the report are not counted.
+12 DO PRINTX("TEXT1")
+13 QUIT
+14 ;
+15 ;
+16 ;----------
TEXT2 ;EP
+1 ;;This action will display a List of the patients who were WITHIN
+2 ;;the recommended guidelines for immunizations and therefore were
+3 ;;INCLUDED in the tallies for the "Approp. for Age" row of the
+4 ;;report.
+5 ;;
+6 ;;
+7 DO PRINTX("TEXT2")
+8 QUIT
+9 ;
+10 ;
+11 ;----------
TEXT3 ;EP
+1 ;;This action will display a list of ALL the patients who were
+2 ;;considered in this report.
+3 ;;
+4 ;;
+5 DO PRINTX("TEXT3")
+6 QUIT
+7 ;
+8 ;
+9 ;----------
PRINTX(BILINL,BITAB) ;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
WRITE !,T,$PIECE(X,";;",2)
+4 QUIT
