Changeset 1232 for qrda/C0Q/trunk/p/C0QPRML.m

Timestamp:

Sep 2, 2011, 5:18:06 PM (13 years ago)

Author:

George Lilly

Message:

added smoking status and cpoe calculation

File:

• qrda/C0Q/trunk/p/C0QPRML.m (modified) (7 diffs)

qrda/C0Q/trunk/p/C0QPRML.m

@@ -1 +1 @@
 C0QPRML ;JJOH/ZAG/GPL - Patient Reminder List ;7/5/11 8:50pm
-        ;;1.0;MU PACKAGE;;;Build 14
+        ;;1.0;MU PACKAGE;;;Build 19
         ;
         ;2011 Zach Gonzales<zach@linux.com> - Licensed under the terms of the GNU
@@ -27 +27 @@
         N G1 ; ONE SET OF VALUES - RNF1 FORMAT
         ; INITIALIZE LISTS
+        ; this is done so that if there are no matching patients, the patient list
+        ; will be zeroed out
         S C0QLIST("HasDemographics")=""
         S C0QLIST("Patient")=""
@@ -32 +34 @@
         S C0QLIST("HasAllergy")=""
         S C0QLIST("HasMed")=""
+        S C0QLIST("HasVitalSigns")=""
+        S C0QLIST("HasMedOrders")=""
+        S C0QLIST("HasSmokingStatus")=""
         D ALL ; all currently admitted patients in the hospital
         D DIS ; all patients discharged since the reporting period began
@@ -54 +59 @@
         . . . D ALLERGY
         . . . D MEDS
+        . . . D SMOKING
+        . . . D VITALS
         . . . I C0QPR D PRINT
         . . . I C0QSS D SS
@@ -77 +84 @@
         . Q:'ETHN
         . S ETHNDSC=$P($G(^DIC(10.2,ETHN,0)),U) ;ethnincity description
-        S RB=$P(^DPT(DFN,.101),U) ;room and bed
+        S RB=$P($G(^DPT(DFN,.101)),U) ;room and bed
         Q
         ;
@@ -97 +104 @@
         ;
 MEDS    ; MEDICATIONS
-        D COVER^ORWPS(.MEDSL,DFN)
-        S MDCNT=""
-        F  S MDCNT=$O(MEDSL(MDCNT)) Q:MDCNT=""  D
-        . Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE"  ;active medications only
-        . S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description
-        . S MDITEM=$P($G(MEDSL(MDCNT)),U,3)
+        ;
+        I DFN=97 D  Q  ;
+        . S MDCNT=271
         K MEDSL
+        D EN^C0CNHIN(.MEDSL,DFN,"MED;") ; GET THE MEDS FROM THE NHIN API
+        ; can't use COVER^ORWPS even though it's fast.. we need to detect
+        ; if the medications are Inpatient to compute the CPOE measure
+        ; we will use the NHINV routines for this purpose
+        ;D COVER^ORWPS(.MEDSL,DFN)
+        S MDCNT="" S HASINP=0
+        F  S MDCNT=$O(MEDSL("med",MDCNT)) Q:MDCNT=""  D
+        . ;Q:$P(MEDSL(MDCNT),U,4)'="ACTIVE"  ;active medications only
+        . Q:MEDSL("med",MDCNT,"status@value")'="active"
+        . ;S MDDESC=$P(MEDSL(MDCNT),U,2) ;medication description
+        . S MDDESC=$G(MEDSL("med",MDCNT,"products.product@name"))
+        . ;S MDITEM=$P($G(MEDSL(MDCNT)),U,3)
+        . S MDITEM=$G(MEDSL("med",MDCNT,"sig")) ; i think this is what meditem is
+        . I MEDSL("med",MDCNT,"vaType@value")="I" S HASINP=1
+        I HASINP D  ; THE PATIENT HAS AN INPATIENT MED
+        . S C0QLIST("HasMedOrders",DFN)="" ; an inpatient drug indicates CPOE
+        E  S C0QLIST("NoMedOrders",DFN)="" ; this will be different for outpatient
+        K MEDSL
+        Q
+        ;
+SMOKING ; 
+        N C0QSMOKE
+        D HFCAT^C0QHF(.C0QSMOKE,DFN,"TOBACCO") ; GET ALL HEALTH FACTORS FOR THE
+        ; PATIENT IN THE CATEGORY OF TOBACCO
+        I $D(C0QSMOKE) S C0QLIST("HasSmokingStatus",DFN)=""
+        E  S C0QLIST("NoSmokingStatus",DFN)=""
+        Q
+        ;
+VITALS  ;
+        ;
+        N C0QSDT,C0QEDT
+        D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE
+        D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY
+        D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS
+        I $D(VITRSLT) D  ;ZWR VITRSLT B  ;
+        . I VITRSLT(1)["No vitals found." S C0QLIST("NoVitalSigns",DFN)=""
+        . E  S C0QLIST("HasVitalSigns",DFN)=""
         Q
         ;
@@ -207 +248 @@
         . . D ALLERGY
         . . D MEDS
+        . . D SMOKING
+        . . D VITALS
         . . I C0QPR D PRINT
         . . I C0QSS D SS