Changeset 1333 for ccr/branches/ohum/p/C0CCCR.m

Timestamp:

Jan 4, 2012, 12:05:49 AM (12 years ago)

Author:

George Lilly

Message:

ohum new version

File:

• ccr/branches/ohum/p/C0CCCR.m (modified) (3 diffs)

ccr/branches/ohum/p/C0CCCR.m

@@ -1 +1 @@
 C0CCCR    ; CCDCCR/GPL - CCR MAIN PROCESSING; 6/6/08
-        ;;1.0;C0C;;May 19, 2009;Build 38
+        ;;1.0;C0C;;May 19, 2009;Build 1
         ;Copyright 2008,2009 George Lilly, University of Minnesota.
         ;Licensed under the terms of the GNU General Public License.
@@ -26 +26 @@
         I Y<1 Q  ; EXIT
         S DFN=$P(Y,U,1) ; SET THE PATIENT
+        ;OHUM/RUT 3120102 To take inputs from user for date limits and notes
+        D ^C0CVALID
+        ;OHUM/RUT
         D XPAT(DFN) ; EXPORT TO A FILE
         Q
@@ -168 +171 @@
         ;D PUSH^C0CXPATH(TAB,"EXTRACT;C0CENC;//ContinuityOfCareRecord/Body/Encounters;^TMP(""C0CCCR"",$J,DFN,""ENCOUNTERS"")")
         ; gpl - turned off Encounters for Certification
+        ;OHUM/RUT 3111228 Condition for Notes ; It should be included or not
+        I ^TMP("C0CCCR","TIULIMIT")'="" D PUSH^C0CXPATH(TAB,"EXTRACT;C0CENC;//ContinuityOfCareRecord/Body/Encounters;^TMP(""C0CCCR"",$J,DFN,""ENCOUNTERS"")")
+        ;OHUM/RUT
         Q
         ;