BPXRMIM3 ; IHS/MSC/MGH - Handle computed findings for immunizations. ;04-Mar-2015 12:36;du
;;2.0;CLINICAL REMINDERS;**1001,1002,1003**;Feb 04, 2005;Build 21
;=================================================================
;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
;=====================================================================
ROTA(DFN,TEST,DATE,VALUE,TEXT) ; EP
;This computed finding will check the imunization forecast file to find
;Rotavirus immunizations that are setup in the reminder term for ROTAVIRUS
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-PED ROTAVIRUS 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 ROTAVIRUS 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-ROTAVIRUS IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
HPV(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;HPV immunizations that are setup in the reminder term for HPV
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-HPV 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-HPV 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-HPV IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
H1N1(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;HPV immunizations that are setup in the reminder term for HPV
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
S BPXNAME="IHS-H1N1 IMMUN 2009",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-H1N1 IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
ZOSTER(DFN,TEST,DATE,VALUE,TEXT) ;EP
;This computed finding will check the imunization forecast file to find
;ZOSTER immunizations that are setup in the reminder term for HPV
N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
K ^TMP("BPXRMCF",$J,DFN)
S BPXNAME="IHS-ZOSTER 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-ZOSTER 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-ZOSTER IMMUNIZATION",BPXTRM))
I BPXTRM="" S TEST=0,TEXT="Reminder term does not exist" Q
D GETVAR^BPXRMIM2(BPXTRM)
Q
BPXRMIM3 ; IHS/MSC/MGH - Handle computed findings for immunizations. ;04-Mar-2015 12:36;du
+1 ;;2.0;CLINICAL REMINDERS;**1001,1002,1003**;Feb 04, 2005;Build 21
+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 ;=====================================================================
ROTA(DFN,TEST,DATE,VALUE,TEXT) ; EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;Rotavirus immunizations that are setup in the reminder term for ROTAVIRUS
+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 ROTAVIRUS 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 ROTAVIRUS 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-ROTAVIRUS IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
HPV(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;HPV immunizations that are setup in the reminder term for HPV
+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-HPV 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-HPV 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-HPV IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
H1N1(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;HPV immunizations that are setup in the reminder term for HPV
+3 NEW BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
+4 SET BPXNAME="IHS-H1N1 IMMUN 2009"
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-H1N1 IMMUNIZATION",BPXTRM))
+9 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+10 DO GETVAR^BPXRMIM2(BPXTRM)
+11 QUIT
ZOSTER(DFN,TEST,DATE,VALUE,TEXT) ;EP
+1 ;This computed finding will check the imunization forecast file to find
+2 ;ZOSTER immunizations that are setup in the reminder term for HPV
+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-ZOSTER 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-ZOSTER 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-ZOSTER IMMUNIZATION",BPXTRM))
+12 IF BPXTRM=""
SET TEST=0
SET TEXT="Reminder term does not exist"
QUIT
+13 DO GETVAR^BPXRMIM2(BPXTRM)
+14 QUIT
