Actors unit test D ZTEST^GPLCCR("ACTORS")

2008-07-06 00:12:17 +00:00 · 2008-07-06 00:12:17 +00:00 · e3e39ff745
parent 967aa094e8
commit e3e39ff745
1 changed files with 1 additions and 0 deletions
--- a/p/GPLCCR.m
+++ b/p/GPLCCR.m
@ -157,4 +157,5 @@ TLIST  ; LIST THE TESTS
 ;;>>>D ZTEST^GPLCCR("ACTLST")
 ;;>>>D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","G2")
 ;;>>>D EXTRACT^GPLACTORS("G2","ACTTEST","G3")
+ ;;>>?G3(G3(0))["</Actors>"
 ;;></TEST>