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

Timestamp:

Jun 12, 2012, 8:11:47 PM (12 years ago)

Author:

Sam Habiel

Message:

Adding support for running eRx from the main C0Q package

File:

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

qrda/C0Q/trunk/p/C0QMU12.m

@@ -1 @@
-C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 5/23/12 5:43pm
-        ;;1.0;C0Q;;May 21, 2012;Build 43
+C0QMU12 ;JJOH/ZAG/GPL - Patient Reminder List ; 5/30/12 11:28am
+        ;;1.0;C0Q;;May 21, 2012;Build 44
         ;
         ;2011 Zach Gonzales<zach@linux.com> - Licensed under the terms of the GNU
@@ -812 +812 @@
         . 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
+        ; I $D(^C0PX("B","GETMEDS6")),$L($T(SOAP^C0PWS2)) DO  ; smh -cmm for now
+        . 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
+        . K C0QDEBUG ; remove debug variable
+        ;
         N C0QCIEN
         S ZI=""