Changeset 1230 for qrda/C0Q/trunk/p/C0QMAIN.m

Timestamp:

Aug 30, 2011, 1:51:06 PM (13 years ago)

Author:

George Lilly

Message:

update instead of delete old patient lists for performance

File:

• qrda/C0Q/trunk/p/C0QMAIN.m (modified) (3 diffs)

qrda/C0Q/trunk/p/C0QMAIN.m

@@ -1 +1 @@
 C0QMAIN ; GPL - Quality Reporting Main Processing ;10/13/10  17:05
-        ;;0.1;C0Q;nopatch;noreleasedate;Build 13
+        ;;0.1;C0Q;nopatch;noreleasedate;Build 14
         ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
         ;General Public License See attached copy of the License.
@@ -138 +138 @@
         I Y<1 Q  ; EXIT
         N MSIEN S MSIEN=+Y
-        D C0QRPC(.G,MSIEN)
+        ;D C0QRPC(.G,MSIEN)
+               D UPDATE^C0QUPDT(.G,MSIEN)
         Q
         ;
@@ -175 +176 @@
         D LIST^DIC($$C0QMMFN,","_MSET_",",".01I") ; GET ALL THE MEASURES
         D DELIST("C0QM")
-        N ZII S ZII=""
-        F  S ZII=$O(C0QM(ZII)) Q:ZII=""  D  ; FOR EACH MEASURE
+        N ZII S ZII=0
+        F  S ZII=$O(C0QM(ZII)) Q:+ZII=0  D  ; FOR EACH MEASURE
         . D CLEARMEA(MSET,ZII) ; FIRST CLEAR OUT THE MEASURE
         K C0QM