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

Timestamp:

May 23, 2010, 10:07:57 PM (15 years ago)

Author:

George Lilly

Message:

encounters

File:

• ccr/trunk/p/C0CCCR.m (modified) (1 diff)

ccr/trunk/p/C0CCCR.m

@@ -131 +131 @@
  D EXTRACT^C0CACTOR("ACTT",ACTGLO,"ACTT2")
  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")
+ K CMTT,CMTT2
  N TRIMI,J,DONE S DONE=0
  F TRIMI=0:0 D  Q:DONE  ; DELETE UNTIL ALL EMPTY ELEMENTS ARE GONE