Changeset 1501 for qrda/C0Q/trunk/p/C0QNOTES.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/C0QNOTES.m (modified) (2 diffs)

qrda/C0Q/trunk/p/C0QNOTES.m

@@ -1 @@
-C0QNOTES        ;GPL - Utility to look up patient notes  ; 5/23/12 5:44pm
-        ;;1.0;C0Q;;May 21, 2012;Build 43
+C0QNOTES        ;GPL - Utility to look up patient notes  ; 7/31/12 8:17am
+        ;;1.0;C0Q;;May 21, 2012;Build 63
         ;
         ;2011 George Lilly <glilly@glilly.net> - Licensed under the terms of the GNU
@@ -112 +112 @@
         S GT(5,"HasMedRecon","Medication Reconcilation Complete")=""
         W $$TXTALL(.G,.GT,2) ; CHECK ALL PATIENT 2'S NOTEST FOR SMOKING
-        ZWRITE G
+        D ZWRITE^C0QUTIL("G")
         Q
         ;