Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BPXRMIM1

BPXRMIM1.m

Go to the documentation of this file. 
  1. 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
  1.  ;=================================================================
  1.  ;This routine is designed to evaluate the immunication forcast
  1.  ;data to determine if an immunization is due for a child requiring a
  1.  ;seried of immunizations
  1.  ;=====================================================================
  1. TD(DFN,TEST,DATE,VALUE,TEXT) ; EP
  1.  ;This computed finding will check the imunization forecast file to find
  1.  ;TD immunizations that are setup in the reminder term for TD
  1.  N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
  1.  S BPXNAME="IHS-TD IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  K ^TMP("PXRMCF",$J,DFN)
  1.  S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  I BPXREM="" D
  1.  . S BPXNAME="IHS-TD IMMUN 2012",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  . S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  Q:BPXREM=""
  1.  S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-TD IMMUNIZATION",BPXTRM))
  1.  I BPXTRM=""  S TEST=0,TEXT="Reminder term does not exist" Q
  1.  D GETVAR^BPXRMIM2(BPXTRM)
  1.  Q
  1. TDPED(DFN,TEST,DATE,VALUE,TEXT) ;EP
  1.  ;This computed finding will check the imunization forecast file to find
  1.  ;DT-Ped immunizations that are setup in the reminder term for DT-Ped
  1.  N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
  1.  K ^TMP("BPXRMCF",$J,DFN)
  1.  S BPXNAME="IHS-PED DT IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  I BPXREM="" D
  1.  . S BPXNAME="IHS-PED DT IMMUN 2012",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  . S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  Q:BPXREM=""
  1.  S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-PED TD IMMUNIZATION",BPXTRM))
  1.  I BPXTRM=""  S TEST=0,TEXT="Reminder term does not exist" Q
  1.  D GETVAR^BPXRMIM2(BPXTRM)
  1.  Q
  1. FLU(DFN,TEST,DATE,VALUE,TEXT) ;EP
  1.  ;This computed finding will check the imunization forecast file to find
  1.  ;Flu immunizations that are setup in the reminder term for Flu
  1.  N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
  1.  K ^TMP("BPXRMCF",$J,DFN)
  1.  S BPXNAME="IHS-INFLUENZA IMMUN 2017",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  I BPXREM="" D
  1.  . S BPXNAME="IHS-INFLUENZA IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  . S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  Q:BPXREM=""
  1.  S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-INFLUENZA 2017",BPXTRM))
  1.  I BPXTRM=""  S TEST=0,TEXT="Reminder term does not exist" Q
  1.  D GETVAR^BPXRMIM2(BPXTRM)
  1.  Q
  1. PNEUMO(DFN,TEST,DATE,VALUE,TEXT) ;EP
  1.  ;This computed finding will check the imunization forecast file to find
  1.  ;pneumo immunizations that are setup in the reminder term for Pneumo
  1.  N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
  1.  K ^TMP("BPXRMCF",$J,DFN)
  1.  S BPXNAME="IHS-PNEUMOVAX IMMUN 2016",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  I BPXREM="" D
  1.  . S BPXNAME="IHS-PNEUMOVAX IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  . S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  Q:BPXREM=""
  1.  S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-PNEUMOVAX IMMUNIZATION",BPXTRM))
  1.  I BPXTRM=""  S TEST=0,TEXT="Reminder term does not exist" Q
  1.  D GETVAR^BPXRMIM2(BPXTRM)
  1.  Q
  1. PNEUPED(DFN,TEST,DATE,VALUE,TEXT) ;EP
  1.  ;This computed finding will check the imunization forecast file to find
  1.  ;pneumo immunizations that are setup in the reminder term for Pneumo
  1.  N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
  1.  K ^TMP("BPXRMCF",$J,DFN)
  1.  S BPXNAME="IHS-PED PNEUMOCOCCAL IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  I BPXREM="" D
  1.  . S BPXNAME="IHS-PED PNEUMOCOCCAL IMMUN 2012",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  . S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  Q:BPXREM=""
  1.  S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-PED PNEUMOVAX IMMUNIZATION",BPXTRM))
  1.  I BPXTRM=""  S TEST=0,TEXT="Reminder term does not exist" Q
  1.  D GETVAR^BPXRMIM2(BPXTRM)
  1.  Q
  1. HEPA(DFN,TEST,DATE,VALUE,TEXT) ;EP
  1.  ;This computed finding will check the imunization forecast file to find
  1.  ;HepA immunizations that are setup in the reminder term for HepA
  1.  N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
  1.  K ^TMP("BPXRMCF",$J,DFN)
  1.  S BPXNAME="IHS-PED HEPA IMMUN 2014",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  I BPXREM="" D
  1.  . S BPXNAME="IHS-PED HEPA IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  . S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  Q:BPXREM=""
  1.  S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-HEPA IMMUNIZATION",BPXTRM))
  1.  I BPXTRM=""  S TEST=0,TEXT="Reminder term does not exist" Q
  1.  D GETVAR^BPXRMIM2(BPXTRM)
  1.  Q
  1. HEPADULT(DFN,TEST,DATE,VALUE,TEXT) ;EP
  1.  ;This computed finding will check the imunization forecast file to find
  1.  ;HepA ADULT immunizations that are setup in the reminder term for HepA
  1.  N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
  1.  K ^TMP("BPXRMCF",$J,DFN)
  1.  S BPXNAME="IHS-HEP A ADULT IMMUN 2014",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  I BPXREM="" D
  1.  . S BPXNAME="IHS-HEP A ADULT IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  . S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  Q:BPXREM=""
  1.  S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-HEPADULT IMMUNIZATION",BPXTRM))
  1.  I BPXTRM=""  S TEST=0,TEXT="Reminder term does not exist" Q
  1.  D GETVAR^BPXRMIM2(BPXTRM)
  1.  Q
  1. HEBADULT(DFN,TEST,DATE,VALUE,TEXT) ;EP
  1.  ;This computed finding will check the imunization forecast file to find
  1.  ;Hepb Adult immunizations that are setup in the reminder term for HepA
  1.  N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
  1.  K ^TMP("BPXRMCF",$J,DFN)
  1.  S BPXNAME="IHS-HEP B ADULT IMMUN 2014",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  I BPXREM="" D
  1.  . S BPXNAME="IHS-HEP B ADULT IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  . S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  Q:BPXREM=""
  1.  S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-HEBADULT IMMUNIZATION",BPXTRM))
  1.  I BPXTRM=""  S TEST=0,TEXT="Reminder term does not exist" Q
  1.  D GETVAR^BPXRMIM2(BPXTRM)
  1.  Q
  1. MENING(DFN,TEST,DATE,VALUE,TEXT) ;EP
  1.  ;This computed finding will check the imunization forecast file to find
  1.  ;Meningitis immunizations that are setup in the reminder term for HepA
  1.  N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
  1.  K ^TMP("BPXRMCF",$J,DFN)
  1.  S BPXNAME="IHS-MENINGITIS IMMUN 2016",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  I BPXREM="" D
  1.  . S BPXNAME="IHS-MENINGITIS IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  . S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  Q:BPXREM=""
  1.  S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-MENINGITIS 2016",BPXTRM))
  1.  I BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-MENINGITIS IMMUNE",BPXTRM))
  1.  I BPXTRM=""  S TEST=0,TEXT="Reminder term does not exist" Q
  1.  D GETVAR^BPXRMIM2(BPXTRM)
  1.  Q
  1. TDAP(DFN,TEST,DATE,VALUE,TEXT) ;EP
  1.  ;This computed finding will check the imunization forecast file to find
  1.  ;tdap immunizations that are setup in the reminder term for tdap
  1.  N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
  1.  K ^TMP("BPXRMCF",$J,DFN)
  1.  S BPXNAME="IHS-TDAP IMMUN 2013",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  I BPXREM="" D
  1.  . S BPXNAME="IHS-TDAP IMMUN 2012",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  . S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  Q:BPXREM=""
  1.  S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-TDAP IMMUNE",BPXTRM))
  1.  I BPXTRM=""  S TEST=0,TEXT="Reminder term does not exist" Q
  1.  D GETVAR^BPXRMIM2(BPXTRM)
  1.  Q
  1. MENINGB(DFN,TEST,DATE,VALUE,TEXT) ;EP
  1.  ;This computed finding will check the imunization forecast file to find
  1.  ;Meningitis B immunizations that are setup in the reminder term for Meningococcal B
  1.  N BPXNAME,BPXTRM,BPXIN,BPXCNT,BPXHI,BPXREM,BPXRTM,BPXTEST,EARLY,LATE,TARGET,LINE,TODAY,COUNT
  1.  K ^TMP("BPXRMCF",$J,DFN)
  1.  S BPXNAME="IHS-MENINGOCOCCAL B IMMUN 2016",LINE=1,TEST=0,DATE="",VALUE="",TEXT=""
  1.  S BPXREM="" S BPXREM=$O(^PXD(811.9,"B",BPXNAME,BPXREM))
  1.  Q:BPXREM=""
  1.  S BPXTRM="" S BPXTRM=$O(^PXRMD(811.5,"B","IHS-MENINGOCOCCAL B",BPXTRM))
  1.  I BPXTRM=""  S TEST=0,TEXT="Reminder term does not exist" Q
  1.  D GETVAR^BPXRMIM2(BPXTRM)
  1.  Q