Changeset 1205 for ccr/trunk/p/C0CCCR.m

Timestamp:

Jul 8, 2011, 3:24:07 PM (13 years ago)

Author:

George Lilly

Message:

version for certification

File:

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

ccr/trunk/p/C0CCCR.m

@@ -103 +103 @@
         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),!
         ;
@@ -134 +135 @@
         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")
+        ;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
         K CMTT,CMTT2
         N TRIMI,J,DONE S DONE=0
@@ -164 +166 @@
         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"")")
-        D PUSH^C0CXPATH(TAB,"EXTRACT;C0CENC;//ContinuityOfCareRecord/Body/Encounters;^TMP(""C0CCCR"",$J,DFN,""ENCOUNTERS"")")
+        ;D PUSH^C0CXPATH(TAB,"EXTRACT;C0CENC;//ContinuityOfCareRecord/Body/Encounters;^TMP(""C0CCCR"",$J,DFN,""ENCOUNTERS"")")
+        ; gpl - turned off Encounters for Certification
         Q
         ;