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

Timestamp:

Jan 4, 2012, 4:37:42 PM (12 years ago)

Author:

George Lilly

Message:

latest C0Q changes with parameters

File:

• qrda/C0Q/trunk/p/C0QMAIN.m (modified) (4 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 19
+        ;;0.1;C0Q;nopatch;noreleasedate;Build 23
         ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
         ;General Public License See attached copy of the License.
@@ -27 +27 @@
 RLSTFN()        Q 810.5 ; FN FOR REMINDER PATIENT LIST FILE
 RLSTPFN()       Q 810.53 ; FN FOR REMINDER PATIENT LIST PATIENT SUBFILE
-C0QALFN()       Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE     ;
+C0QALFN()       Q 1130580001.311 ; FILE NUMBER FOR C0Q PATIENT LIST PATIENT SUBFILE ;
 EXPORT    ; EXPORT ENTRY POINT FOR CCR
         ; Select a patient.
@@ -139 +139 @@
         N MSIEN S MSIEN=+Y
         ;D C0QRPC(.G,MSIEN)
-               D UPDATE^C0QUPDT(.G,MSIEN)
+        D UPDATE^C0QUPDT(.G,MSIEN)
         Q
         ;
@@ -147 +147 @@
         I Y<1 Q  ; EXIT
         N MSIEN S MSIEN=+Y
+        ; changed by gpl to call the new UPDATE^C0QUPDT routine instead
+        D UPDATE^C0QUPDT(.G,MSIEN)
+        Q
+        ; end gpl change
         S C0QSUM=1
         D C0QRPC(.G,MSIEN)