Changeset 52 for ccr/trunk/p/GPLCCR.m

Timestamp:

Jul 7, 2008, 1:12:04 PM (16 years ago)

Author:

George Lilly

Message:

Added TRIM^{GPLXPATH to delete empty elements from output}

File:

• ccr/trunk/p/GPLCCR.m (modified) (2 diffs)

ccr/trunk/p/GPLCCR.m

@@ -71 +71 @@
     D EXTRACT^GPLACTORS("ACTT",ACTGLO,"ACTT2")
     D INSINNER^GPLXPATH(CCRGLO,"ACTT2","//ContinuityOfCareRecord/Actors")
+    N I,J,DONE S DONE=0
+    F I=0:0 D  Q:DONE ; DELETE UNTIL ALL EMPTY ELEMENTS ARE GONE
+    . S J=$$TRIM^GPLXPATH(CCRGLO) ; DELETE EMPTY ELEMENTS
+    . W "TRIMMED",J,!
+    . I J=0 S DONE=1 ; DONE WHEN TRIM RETURNS FALSE
     Q
     ;
@@ -160 +165 @@
  ;;>>>D EXTRACT^GPLACTORS("G2","ACTTEST","G3")
  ;;>>?G3(G3(0))["</Actors>"
+ ;;><TRIM>
+ ;;>>>D ZTEST^GPLCCR("CCR")
+ ;;>>>W $$TRIM^GPLXPATH(CCRGLO)
  ;;></TEST>