Changeset 408 for ccr/trunk/p

Timestamp:

Mar 17, 2009, 6:00:06 PM (16 years ago)

Author:

George Lilly

Message:

namespace fix

File:

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

ccr/trunk/p/C0CFM3.m

@@ -41 +41 @@
 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 +279 @@
  Q ZR
  ;
+SHOWE4(DFN) ;
+ ;
+ N ZG
+ S ZG=""
+ F  S ZG=$O(^C0CE4("P",DFN,ZG)) Q:ZG=""  D  ZWR ^C0CE4(ZG,*)
+ Q
+ ;