Index: ccr/trunk/p/C0CFM3.m
===================================================================
--- ccr/trunk/p/C0CFM3.m	(revision 407)
+++ ccr/trunk/p/C0CFM3.m	(revision 408)
@@ -41,5 +41,5 @@
 PUTRIM(DFN,ZWHICH) ;DFN IS PATIENT , WHICH IS ELEMENT TYPE
  ;
- S C0CGLB=$NA(^TMP("GPLRIM","VARS",DFN))
+ S C0CGLB=$NA(^TMP("C0CRIM","VARS",DFN))
  I '$D(ZWHICH) S ZWHICH="ALL"
  I ZWHICH'="ALL" D  ; SINGLE SECTION REQUESTED
@@ -279,2 +279,9 @@
  Q ZR
  ;
+SHOWE4(DFN) ;
+ ;
+ N ZG
+ S ZG=""
+ F  S ZG=$O(^C0CE4("P",DFN,ZG)) Q:ZG=""  D  ZWR ^C0CE4(ZG,*)
+ Q
+ ;