- 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
