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

Timestamp:

Jan 4, 2012, 9:41:28 PM (13 years ago)

Author:

George Lilly

Message:

ohum version without tabs

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
  ;