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

Timestamp:

Oct 18, 2012, 1:33:05 PM (12 years ago)

Author:

Sam Habiel

Message:

Final updated routines for patch 5

File:

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

qrda/C0Q/trunk/p/C0QMU12.m

@@ -1 @@
-C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 10/10/12 11:28am
-        ;;1.0;QUALITY MEASURES;**1**;May 21, 2012;Build 32
+C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 10/17/12 12:52pm
+        ;;1.0;QUALITY MEASURES;**1,5**;May 21, 2012;Build 32
         ;
         ;2011 Zach Gonzales<zach@linux.com> - Licensed under the terms of the GNU
@@ -67 +67 @@
         . I C0QPL D  ;
         . . D FILE ; FILE THE PATIENT LISTS
-        . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ; 
-        . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ; 
+        . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientMeasurementSet")) ;
+        . . D UPDATE^C0QUPDT(.G,C0QPARM(ZDIV,"InpatientQualitySet")) ;
         . K C0QLIST
         Q
@@ -76 +76 @@
         ; this is done so that if there are no matching patients, the patient list
         ; will be zeroed out
-        K C0QLIST
+        ; K C0QLIST - VEN/SMH - Oops, we kill the previous lists!!!
         S C0QLIST(ZYR_"HasDemographics")=""
         S C0QLIST(ZYR_"Patient")="" ; VEN/SMH - Is this needed? Not used in EP.
@@ -87 +87 @@
         S C0QLIST(ZYR_"HasMedOrders")=""
         S C0QLIST(ZYR_"HasSmokingStatus")=""
+        S C0QLIST(ZYR_"ALL-PATIENTS")="" ; VEN/SMH C0Q*1*5
         Q
         ;
@@ -124 +125 @@
         K PROBL
         Q
-        ; 
+        ;
 ALLERGY ; ALLERGY LIST
         ; WANT TO CHANGE ALLERGIES FOR 2012 TO POPULATE THE C0QLIST DIRECTLY. GPL
@@ -162 +163 @@
 RECON   ; MEDICATIONS RECONCILIATION
         ; WANT TO SIMPLIFY MEDS RECON FOR 2012. GPL
-        ; 
+        ;
         I $$HASNTYN^C0QNOTES("MED/SURG NURSING ADMISSION ASSESSMENT",DFN) D  ;
         . S C0QLIST(ZYR_"XferOfCare",DFN)="" ; transfer of care patient
@@ -240 +241 @@
         Q
         ;
+        ;
+        ;
 COD     ; TEST FOR PRELIMINARY CAUSE OF DEATH NOTE
         I $$HASNTYN^C0QNOTES("PRELIMINARY CAUSE OF DEATH",DFN) D  ;
@@ -251 +254 @@
         I '$$HFYN^C0QHF(DFN,"ED DEPARTURE TIME") S FOUND=0
         I '$$HFYN^C0QHF(DFN,"TIME DECISION TO ADMIT MADE") S FOUND=0
-        I FOUND D  ; 
+        I FOUND D  ;
         . S C0QLIST(ZYR_"HasEDtime",DFN)=""
         E  S C0QLIST(ZYR_"NoEDtime",DFN)=""
@@ -281 +284 @@
         S GF=$NA(C0QLIST(ZYR_"ICUReporting")) ; the filtered list destination
         D AND^C0QSET(GF,GN,GO) ; filter the list with the AND set operation
-        ; 
+        ;
         ; FILTER VTE-2 DENOMINATOR FOR QUALITY MEASURE
         ;
@@ -404 +407 @@
         . D VITALS
         D FILE ; FILE THE PATIENT LISTS
-        ; 
+        ;
         ; Now process eRx MU measures for these patients
         ; Check for eRx template and code first; if they exist, run the code