BPXRMIM1 ; IHS/MSC/MGH - Handle computed findings for immunizations. ;17-Jan-2018 08:55;DU;;2.0;CLINICAL REMINDERS;**1001**;Feb 04, 2005
;;2.0;CLINICAL REMINDERS;**1001,1002,1003,1008**;Feb 04, 2005;Build 10
;=================================================================
;This routine is designed to evaluate the immunication forcast
;data to determine if an immunization is due for a child requiring a
;seried of immunizations
;=====================================================================
TD(DFN,TEST,DATE,VALUE,TEXT) ; EP
;This computed finding will check the imunization forecast file to find
;TD immunizations that are setup in the reminder term for TD
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
S BPXNAME="IHS-TD IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
K ^TMP("PXRMCF",$J,DFN)
S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
I BPXREM="" D
. S BPXNAME="IHS-TD IMMUN 2012",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
. S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
Q:BPXREM=""
S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-TD IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
TDPED(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;DT-Ped immunizations that are setup in the reminder term for DT-Ped
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-PED DT IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
I BPXREM="" D
. S BPXNAME="IHS-PED DT IMMUN 2012",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
. S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
Q:BPXREM=""
S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-PED TD IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
FLU(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;Flu immunizations that are setup in the reminder term for Flu
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-INFLUENZA IMMUN 2017",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
I BPXREM="" D
. S BPXNAME="IHS-INFLUENZA IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
. S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
Q:BPXREM=""
S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-INFLUENZA 2017",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
PNEUMO(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;pneumo immunizations that are setup in the reminder term for Pneumo
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-PNEUMOVAX IMMUN 2016",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
I BPXREM="" D
. S BPXNAME="IHS-PNEUMOVAX IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
. S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
Q:BPXREM=""
S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-PNEUMOVAX IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
PNEUPED(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;pneumo immunizations that are setup in the reminder term for Pneumo
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-PED PNEUMOCOCCAL IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
I BPXREM="" D
. S BPXNAME="IHS-PED PNEUMOCOCCAL IMMUN 2012",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
. S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
Q:BPXREM=""
S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-PED PNEUMOVAX IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
HEPA(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;HepA immunizations that are setup in the reminder term for HepA
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-PED HEPA IMMUN 2014",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
I BPXREM="" D
. S BPXNAME="IHS-PED HEPA IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
. S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
Q:BPXREM=""
S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-HEPA IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
HEPADULT(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;HepA ADULT immunizations that are setup in the reminder term for HepA
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-HEP A ADULT IMMUN 2014",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
I BPXREM="" D
. S BPXNAME="IHS-HEP A ADULT IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
. S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
Q:BPXREM=""
S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-HEPADULT IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
HEBADULT(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;Hepb Adult immunizations that are setup in the reminder term for HepA
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-HEP B ADULT IMMUN 2014",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
I BPXREM="" D
. S BPXNAME="IHS-HEP B ADULT IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
. S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
Q:BPXREM=""
S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-HEBADULT IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
MENING(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;Meningitis immunizations that are setup in the reminder term for HepA
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-MENINGITIS IMMUN 2016",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
I BPXREM="" D
. S BPXNAME="IHS-MENINGITIS IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
. S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
Q:BPXREM=""
S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-MENINGITIS 2016",BPXTRM))
I BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-MENINGITIS IMMUNE",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
TDAP(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;tdap immunizations that are setup in the reminder term for tdap
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-TDAP IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
I BPXREM="" D
. S BPXNAME="IHS-TDAP IMMUN 2012",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
. S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
Q:BPXREM=""
S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-TDAP IMMUNE",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
MENINGB(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;Meningitis B immunizations that are setup in the reminder term for Meningococcal B
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-MENINGOCOCCAL B IMMUN 2016",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
Q:BPXREM=""
S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-MENINGOCOCCAL B",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
BPXRMIM1 ; IHS/MSC/MGH - Handle computed findings for immunizations. ;17-Jan-2018 08:55;DU;;2.0;CLINICAL REMINDERS;**1001**;Feb 04, 2005
+1 ;;2.0;CLINICAL REMINDERS;**1001,1002,1003,1008**;Feb 04, 2005;Build 10
+2 ;=================================================================
+3 ;This routine is designed to evaluate the immunication forcast
+4 ;data to determine if an immunization is due for a child requiring a
+5 ;seried of immunizations
+6 ;=====================================================================
TD(DFN,TEST,DATE,VALUE,TEXT) ; EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;TD immunizations that are setup in the reminder term for TD
+3 NEW BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
+4 SET BPXNAME="IHS-TD IMMUN 2013"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+5 KILL ^TMP("PXRMCF",$JOB,DFN)
+6 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
+7 IF BPXREM=""
Begin DoDot:1
+8 SET BPXNAME="IHS-TD IMMUN 2012"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+9 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
End DoDot:1
+10 IF BPXREM=""
QUIT
+11 SET BPXTRM=""
SET BPXTRM=$ORDER(^PXRMD(811.5,"B","IHS-TD IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
TDPED(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;DT-Ped immunizations that are setup in the reminder term for DT-Ped
+3 NEW BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
+4 KILL ^TMP("BPXRMCF",$JOB,DFN)
+5 SET BPXNAME="IHS-PED DT IMMUN 2013"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+6 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
+7 IF BPXREM=""
Begin DoDot:1
+8 SET BPXNAME="IHS-PED DT IMMUN 2012"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+9 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
End DoDot:1
+10 IF BPXREM=""
QUIT
+11 SET BPXTRM=""
SET BPXTRM=$ORDER(^PXRMD(811.5,"B","IHS-PED TD IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
FLU(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;Flu immunizations that are setup in the reminder term for Flu
+3 NEW BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
+4 KILL ^TMP("BPXRMCF",$JOB,DFN)
+5 SET BPXNAME="IHS-INFLUENZA IMMUN 2017"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+6 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
+7 IF BPXREM=""
Begin DoDot:1
+8 SET BPXNAME="IHS-INFLUENZA IMMUN 2013"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+9 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
End DoDot:1
+10 IF BPXREM=""
QUIT
+11 SET BPXTRM=""
SET BPXTRM=$ORDER(^PXRMD(811.5,"B","IHS-INFLUENZA 2017",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
PNEUMO(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;pneumo immunizations that are setup in the reminder term for Pneumo
+3 NEW BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
+4 KILL ^TMP("BPXRMCF",$JOB,DFN)
+5 SET BPXNAME="IHS-PNEUMOVAX IMMUN 2016"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+6 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
+7 IF BPXREM=""
Begin DoDot:1
+8 SET BPXNAME="IHS-PNEUMOVAX IMMUN 2013"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+9 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
End DoDot:1
+10 IF BPXREM=""
QUIT
+11 SET BPXTRM=""
SET BPXTRM=$ORDER(^PXRMD(811.5,"B","IHS-PNEUMOVAX IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
PNEUPED(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;pneumo immunizations that are setup in the reminder term for Pneumo
+3 NEW BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
+4 KILL ^TMP("BPXRMCF",$JOB,DFN)
+5 SET BPXNAME="IHS-PED PNEUMOCOCCAL IMMUN 2013"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+6 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
+7 IF BPXREM=""
Begin DoDot:1
+8 SET BPXNAME="IHS-PED PNEUMOCOCCAL IMMUN 2012"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+9 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
End DoDot:1
+10 IF BPXREM=""
QUIT
+11 SET BPXTRM=""
SET BPXTRM=$ORDER(^PXRMD(811.5,"B","IHS-PED PNEUMOVAX IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
HEPA(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;HepA immunizations that are setup in the reminder term for HepA
+3 NEW BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
+4 KILL ^TMP("BPXRMCF",$JOB,DFN)
+5 SET BPXNAME="IHS-PED HEPA IMMUN 2014"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+6 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
+7 IF BPXREM=""
Begin DoDot:1
+8 SET BPXNAME="IHS-PED HEPA IMMUN 2013"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+9 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
End DoDot:1
+10 IF BPXREM=""
QUIT
+11 SET BPXTRM=""
SET BPXTRM=$ORDER(^PXRMD(811.5,"B","IHS-HEPA IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
HEPADULT(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;HepA ADULT immunizations that are setup in the reminder term for HepA
+3 NEW BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
+4 KILL ^TMP("BPXRMCF",$JOB,DFN)
+5 SET BPXNAME="IHS-HEP A ADULT IMMUN 2014"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+6 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
+7 IF BPXREM=""
Begin DoDot:1
+8 SET BPXNAME="IHS-HEP A ADULT IMMUN 2013"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+9 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
End DoDot:1
+10 IF BPXREM=""
QUIT
+11 SET BPXTRM=""
SET BPXTRM=$ORDER(^PXRMD(811.5,"B","IHS-HEPADULT IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
HEBADULT(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;Hepb Adult immunizations that are setup in the reminder term for HepA
+3 NEW BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
+4 KILL ^TMP("BPXRMCF",$JOB,DFN)
+5 SET BPXNAME="IHS-HEP B ADULT IMMUN 2014"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+6 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
+7 IF BPXREM=""
Begin DoDot:1
+8 SET BPXNAME="IHS-HEP B ADULT IMMUN 2013"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+9 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
End DoDot:1
+10 IF BPXREM=""
QUIT
+11 SET BPXTRM=""
SET BPXTRM=$ORDER(^PXRMD(811.5,"B","IHS-HEBADULT IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
MENING(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;Meningitis immunizations that are setup in the reminder term for HepA
+3 NEW BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
+4 KILL ^TMP("BPXRMCF",$JOB,DFN)
+5 SET BPXNAME="IHS-MENINGITIS IMMUN 2016"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+6 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
+7 IF BPXREM=""
Begin DoDot:1
+8 SET BPXNAME="IHS-MENINGITIS IMMUN 2013"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+9 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
End DoDot:1
+10 IF BPXREM=""
QUIT
+11 SET BPXTRM=""
SET BPXTRM=$ORDER(^PXRMD(811.5,"B","IHS-MENINGITIS 2016",BPXTRM))
+12 IF BPXTRM=""
SET BPXTRM=$ORDER(^PXRMD(811.5,"B","IHS-MENINGITIS IMMUNE",BPXTRM))
+13 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+14 DO GETVAR^BPXRMIM2(BPXTRM)
+15 QUIT
TDAP(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;tdap immunizations that are setup in the reminder term for tdap
+3 NEW BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
+4 KILL ^TMP("BPXRMCF",$JOB,DFN)
+5 SET BPXNAME="IHS-TDAP IMMUN 2013"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+6 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
+7 IF BPXREM=""
Begin DoDot:1
+8 SET BPXNAME="IHS-TDAP IMMUN 2012"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+9 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
End DoDot:1
+10 IF BPXREM=""
QUIT
+11 SET BPXTRM=""
SET BPXTRM=$ORDER(^PXRMD(811.5,"B","IHS-TDAP IMMUNE",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
MENINGB(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;Meningitis B immunizations that are setup in the reminder term for Meningococcal B
+3 NEW BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
+4 KILL ^TMP("BPXRMCF",$JOB,DFN)
+5 SET BPXNAME="IHS-MENINGOCOCCAL B IMMUN 2016"
SET LINE=1
SET TEST=0
SET DATE=""
SET VALUE=""
SET TEXT=""
+6 SET BPXREM=""
SET BPXREM=$ORDER(^PXD(811.9,"B",BPXNAME,BPXREM))
+7 IF BPXREM=""
QUIT
+8 SET BPXTRM=""
SET BPXTRM=$ORDER(^PXRMD(811.5,"B","IHS-MENINGOCOCCAL B",BPXTRM))
+9 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+10 DO GETVAR^BPXRMIM2(BPXTRM)
+11 QUIT
