Changeset 1501 for qrda/C0Q/trunk/p/C0QINIT.m

Timestamp:

Aug 2, 2012, 8:59:21 PM (12 years ago)

Author:

Sam Habiel

Message:

Latest routines; T11 copy

File:

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

qrda/C0Q/trunk/p/C0QINIT.m

@@ -1 @@
-C0QINIT ; GPL - Quality Reporting Initialization Routines ; 5/23/12 5:43pm
-        ;;1.0;C0Q;;May 21, 2012;Build 43
+C0QINIT ; GPL - Quality Reporting Initialization Routines ; 7/31/12 8:16am
+        ;;1.0;C0Q;;May 21, 2012;Build 63
         ;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
         ;General Public License See attached copy of the License.
@@ -64 +64 @@
         K ZERR
         D CLEAN^DILF
-        ZWRITE C0QFDA
+        D ZWRITE^C0QUTIL("C0QFDA")
         D UPDATE^DIE("","C0QFDA","","ZERR")
         I $D(ZERR) S ZZERR=ZZERR ; ZZERR DOESN'T EXIST,