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

Timestamp:

Jan 10, 2012, 8:53:25 PM (13 years ago)

Author:

George Lilly

Message:

T7 ohum version with parameters

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 1
+ ;;1.0;C0C;;May 19, 2009;Build 2
  ;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 3120109 commented
+ ;;OHUM/RUT 3120102 To take inputs from user for date limits and notes
+ ;D ^C0CVALID
+ ;;OHUM/RUT
  ;OHUM/RUT
  D XPAT(DFN) ; EXPORT TO A FILE
@@ -171 +173 @@
  ;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 3120109 Changed the condition
+ ;;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"")")
+ I $P(^C0CPARM(1,2),"^",3)=1 D PUSH^C0CXPATH(TAB,"EXTRACT;C0CENC;//ContinuityOfCareRecord/Body/Encounters;^TMP(""C0CCCR"",$J,DFN,""ENCOUNTERS"")")
+ ;;OHUM/RUT
  ;OHUM/RUT
  Q