BPXRMIMM ; IHS/MSC/MGH - Computed Findings for Immunizations. ;05-Oct-2017 17:26;DU
;;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
;=====================================================================
POLIO(DFN,TEST,DATE,VALUE,TEXT) ; EP
;This computed finding will check the imunization forecast file to find
;IPV immunizations that are setup in the reminder term for polio
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("PXRMCF",$J,DFN)
S BPXNAME="IHS-PED POLIO 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 POLIO 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-POLIO IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
DTP(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;DPT immunizations that are setup in the reminder term for dpt
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
S BPXNAME="IHS-PED DTP IMMUN",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
K ^TMP("PXRMCF",$J,DFN)
S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
Q:BPXREM=""
S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-DTP IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
DTAP(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;DTap immunizations that are setup in the reminder term for DTap
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-PED DTAP 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 DTAP 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-DTAP IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
MMR(DFN,TEST,DATE,VALUE,TEXT) ; EP
;This computed finding will check the imunization forecast file to find
;MMR immunizations that are setup in the reminder term for MMR
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-PED MMR 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 MMR 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-MMR IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
HEPB(DFN,TEST,DATE,VALUE,TEXT) ; EP
;This computed finding will check the imunization forecast file to find
;hepb pediatric immunizations that are setup in the reminder term for hep b
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-PED HEPB 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 HEPB 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-HEPB IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
HIB(DFN,TEST,DATE,VALUE,TEXT) ; EP
;This computed finding will check the imunization forecast file to find
;hibtiter immunizations that are setup in the reminder term for hibtiter
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-PED HIBTITER 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 HIBTITER 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-HIBTITER IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
PEDIARIX(DFN,TEST,DATE,VALUE,TEXT) ; EP
;This computed finding will check the imunization forecast file to find
;pediarix immunizations that are setup in the reminder term for pediarix
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-PED PEDIARIX 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 PEDIARIX 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-PEDIARIX IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
PEDIAVAC(DFN,TEST,DATE,VALUE,TEXT) ; EP
;This computed finding will check the imunization forecast file to find
;vaxhib immunizations that are setup in the reminder term for vaxhib
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-PED PEDVAXHIB 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 PEDVAXHIB 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-PEDVAXHIB IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
VARI(DFN,TEST,DATE,VALUE,TEXT) ; EP
;This computed finding will check the imunization forecast file to find
;varicella immunizations that are setup in the reminder term for varicella
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-PED VARICELLA 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 VARICELLA 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-VARICELLA IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
BPXRMIMM ; IHS/MSC/MGH - Computed Findings for Immunizations. ;05-Oct-2017 17:26;DU
+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 ;=====================================================================
POLIO(DFN,TEST,DATE,VALUE,TEXT) ; EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;IPV immunizations that are setup in the reminder term for polio
+3 NEW BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
+4 KILL ^TMP("PXRMCF",$JOB,DFN)
+5 SET BPXNAME="IHS-PED POLIO 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 POLIO 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-POLIO IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
DTP(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;DPT immunizations that are setup in the reminder term for dpt
+3 NEW BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
+4 SET BPXNAME="IHS-PED DTP IMMUN"
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=""
QUIT
+8 SET BPXTRM=""
SET BPXTRM=$ORDER(^PXRMD(811.5,"B","IHS-DTP IMMUNIZATION",BPXTRM))
+9 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+10 DO GETVAR^BPXRMIM2(BPXTRM)
+11 QUIT
DTAP(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;DTap immunizations that are setup in the reminder term for DTap
+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 DTAP 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 DTAP 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-DTAP IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
MMR(DFN,TEST,DATE,VALUE,TEXT) ; EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;MMR immunizations that are setup in the reminder term for MMR
+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 MMR 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 MMR 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-MMR IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
HEPB(DFN,TEST,DATE,VALUE,TEXT) ; EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;hepb pediatric immunizations that are setup in the reminder term for hep 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-PED HEPB 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 HEPB 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-HEPB IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
HIB(DFN,TEST,DATE,VALUE,TEXT) ; EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;hibtiter immunizations that are setup in the reminder term for hibtiter
+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 HIBTITER 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 HIBTITER 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-HIBTITER IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
PEDIARIX(DFN,TEST,DATE,VALUE,TEXT) ; EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;pediarix immunizations that are setup in the reminder term for pediarix
+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 PEDIARIX 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 PEDIARIX 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-PEDIARIX IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
PEDIAVAC(DFN,TEST,DATE,VALUE,TEXT) ; EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;vaxhib immunizations that are setup in the reminder term for vaxhib
+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 PEDVAXHIB 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 PEDVAXHIB 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-PEDVAXHIB IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
VARI(DFN,TEST,DATE,VALUE,TEXT) ; EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;varicella immunizations that are setup in the reminder term for varicella
+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 VARICELLA 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 VARICELLA 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-VARICELLA IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
