Changeset 1572 for qrda/C0Q/trunk/p/C0QMU12.m

Timestamp:

Oct 14, 2012, 4:06:20 PM (12 years ago)

Author:

Sam Habiel

Message:

Updated routines with changes for patch 1 and 5. Patch 5 fixes several bugs:
Vitals date range now includes today's date.
Empty lists are now created in advance for Outpatient Measures.
Inverse date display for visit was incorrect. That is fixed.
Outpatient Quality Measure Set in Parameters is now used; before it was ignored.
In C0QUPDT, (all previous are in C0QMU12), the variable C0QNALT is newed. This variable is a flag to indicate whether a measure uses the reminders package or uses the quality measures package for a patient list. Previously, if not newed it adversely affects subsequenet processing of lists, as the counts of the patients depends on the value of the flag. For example, a measurement set that mixes quality measures with performance measures will calculate wrong counts for the quality measures.

Patch 1 adds support for real-data MU ERx Measure based on data from the eRx vendor.

File:

• qrda/C0Q/trunk/p/C0QMU12.m (modified) (6 diffs)

qrda/C0Q/trunk/p/C0QMU12.m

@@ -1 @@
-C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 7/31/12 12:34pm
-        ;;1.0;C0Q;;May 21, 2012;Build 63
+C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 10/10/12 11:28am
+        ;;1.0;QUALITY MEASURES;**1**;May 21, 2012;Build 32
         ;
         ;2011 Zach Gonzales<zach@linux.com> - Licensed under the terms of the GNU
@@ -78 +78 @@
         K C0QLIST
         S C0QLIST(ZYR_"HasDemographics")=""
-        S C0QLIST(ZYR_"Patient")=""
+        S C0QLIST(ZYR_"Patient")="" ; VEN/SMH - Is this needed? Not used in EP.
         S C0QLIST(ZYR_"HasProblem")=""
         S C0QLIST(ZYR_"HasAllergy")=""
         S C0QLIST(ZYR_"HasMed")=""
+        S C0QLIST(ZYR_"HasERX")="" ; VEN/SMH C0Q*1*5
+        S C0QLIST(ZYR_"HasMedRecon")="" ; VEN/SMH C0Q*1*5
         S C0QLIST(ZYR_"HasVitalSigns")=""
         S C0QLIST(ZYR_"HasMedOrders")=""
@@ -224 +226 @@
         D DT^DILF(,"JULY 3,2011",.C0QSDT) ; START DATE
         D DT^DILF(,"T",.C0QEDT) ; END DATE TODAY
+        S C0QEDT=C0QEDT+.999999 ; Move to the end of the day! VEN/SMH C0Q*1*5
         D VITALS^ORQQVI(.VITRSLT,DFN,C0QSDT,C0QEDT) ; CALL FAST VITALS
         I $D(VITRSLT) D  ;ZWR VITRSLT B  ;
@@ -347 +350 @@
         S ZI="" ; BEGIN AT LATEST DATE FOR THIS LOC IN VISIT FILE
         F  S ZI=$O(^AUPNVSIT("AHL",ULOC,ZI)) Q:(ZI="")!(ZI>IDTE)  D  ; FOR EACH DATE
-        . W !,$$FMTE^XLFDT(9999999-ZI) ;B  ;
+        . N C0QDATE S C0QDATE=9999999-$P(ZI,".")_"."_$P(ZI,".",2) ; VEN/SMH *5
+        . W !,$$FMTE^XLFDT(C0QDATE) ; VEN/SMH *5
         . I ZI="" Q  ;
         . N ZJ S ZJ=""
@@ -389 +393 @@
         S DFN=""
         S ZYR=ZYR_"EP-"
+        D INITCLST ; VEN/SMH - Initialize Empty Lists just in case we don't have
+                   ; any. C0Q*1*5
         F  S DFN=$O(C0QLIST(ZYR_"ALL-PATIENTS",DFN)) Q:DFN=""  D  ; EACH PATIENT
         . D DEMO^C0QMU122
@@ -398 +404 @@
         . D VITALS
         D FILE ; FILE THE PATIENT LISTS
-        N C0QCIEN
-        S ZI=""
+        ; 
+        ; Now process eRx MU measures for these patients
+        ; Check for eRx template and code first; if they exist, run the code
+        I $D(^C0PX("B","GETMEDS6")),$L($T(SOAP^C0PWS2)) DO
+        . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data;
+        . D EN^C0QMUERX($$PATLN^C0QMU12(ZYR_"HasERX")) ; Pass the eRx patient list
+        ;
+        N ZI S ZI=""
         F  S ZI=$O(C0QPARM(ZI)) Q:ZI=""  D  ;
-        . S C0QCIEN=C0QPARM(ZI,"EPMeasurementSet") ; ien of measurement set
-        . D UPDATE^C0QUPDT(.G,C0QCIEN) ; UPDATE THE MU MEASUREMENT SET
+        . N C0QDEBUG S C0QDEBUG=1 ; This causes the code to print out data;
+        . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPMeasurementSet")) ; UPDATE THE MU MEASUREMENT SET
+        . ; VEN/SMH -- Quality Set missing for Outpatient -- adding
+        . D UPDATE^C0QUPDT(.G,C0QPARM(ZI,"EPQualitySet")) ; C0Q*1*5
         Q
         ;