iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

namespace fix

This commit is contained in:
george 2009-03-17 22:00:06 +00:00
parent 386f1c227c
commit 072bf69ed4
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
p/C0CFM3.m
View File

@ -40,7 +40,7 @@ RIMTBL(ZWHICH) ; PUT ALL PATIENT IN RIMTBL ZWHICH INTO THE CCR ELEMENTS FILE
; ;
PUTRIM(DFN,ZWHICH) ;DFN IS PATIENT , WHICH IS ELEMENT TYPE 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 '$D(ZWHICH) S ZWHICH="ALL"
I ZWHICH'="ALL" D ; SINGLE SECTION REQUESTED I ZWHICH'="ALL" D ; SINGLE SECTION REQUESTED
. S C0CVARS=$NA(@C0CGLB@(ZWHICH)) . S C0CVARS=$NA(@C0CGLB@(ZWHICH))
@ -278,3 +278,10 @@ ZVALUE(ZFN,ZTAB) ;EXTRINSIC TO RETURN VALUE FOR FIELD NAME PASSED
E S ZR="" E S ZR=""
Q ZR Q ZR
; ;
SHOWE4(DFN) ;
;
N ZG
S ZG=""
F S ZG=$O(^C0CE4("P",DFN,ZG)) Q:ZG="" D ZWR ^C0CE4(ZG,*)
Q
;