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

Timestamp:

Dec 31, 2011, 12:08:05 AM (13 years ago)

Author:

George Lilly

Message:

latest ohum update

File:

• ccr/branches/ohum/p/C0CCCR.m (modified) (5 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 39
  ;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 3111222 To take inputs from user for date limits and notes
+        D ^C0CVALID
+        ;OHUM/RUT
  D XPAT(DFN) ; EXPORT TO A FILE
  Q
@@ -103 +106 @@
  D REPLACE^C0CXPATH(CCRGLO,"","//ContinuityOfCareRecord/Actors")
  D REPLACE^C0CXPATH(CCRGLO,"","//ContinuityOfCareRecord/Signatures")
- D REPLACE^C0CXPATH(CCRGLO,"","//ContinuityOfCareRecord/Comments")
  I DEBUG F I=1:1:@CCRGLO@(0) W @CCRGLO@(I),!
  ;
@@ -135 +137 @@
  D INSINNER^C0CXPATH(CCRGLO,"ACTT2","//ContinuityOfCareRecord/Actors")
  K ACTT,ACTT2
- ;D QUERY^C0CXPATH(TGLOBAL,"//ContinuityOfCareRecord/Comments","CMTT")
- ;D EXTRACT^C0CCMT("CMTT",DFN,"CMTT2")
- ;D INSINNER^C0CXPATH(CCRGLO,"CMTT2","//ContinuityOfCareRecord/Comments")
- ; gpl - turned off Comments for Certification
+ D QUERY^C0CXPATH(TGLOBAL,"//ContinuityOfCareRecord/Comments","CMTT")
+ D EXTRACT^C0CCMT("CMTT",DFN,"CMTT2")
+ D INSINNER^C0CXPATH(CCRGLO,"CMTT2","//ContinuityOfCareRecord/Comments")
  K CMTT,CMTT2
  N TRIMI,J,DONE S DONE=0
@@ -166 +167 @@
  D PUSH^C0CXPATH(TAB,"MAP;C0CLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""C0CCCR"",$J,DFN,""RESULTS"")")
  D PUSH^C0CXPATH(TAB,"EXTRACT;C0CPROC;//ContinuityOfCareRecord/Body/Procedures;^TMP(""C0CCCR"",$J,DFN,""PROCEDURES"")")
+ ;OHUM/RUT 3111228 Condition for Notes ; It should be included or not
  ;D PUSH^C0CXPATH(TAB,"EXTRACT;C0CENC;//ContinuityOfCareRecord/Body/Encounters;^TMP(""C0CCCR"",$J,DFN,""ENCOUNTERS"")")
- ; gpl - turned off Encounters for Certification
+ I ^TMP("C0CCCR","TIULIMIT")'="" D PUSH^C0CXPATH(TAB,"EXTRACT;C0CENC;//ContinuityOfCareRecord/Body/Encounters;^TMP(""C0CCCR"",$J,DFN,""ENCOUNTERS"")")
+ ;OHUM/RUT
  Q
  ;