Changeset 433 for ccr/trunk/p/C0CFM2.m

Timestamp:

Apr 13, 2009, 10:03:39 PM (15 years ago)

Author:

George Lilly

Message:

lab changes for RPMS - LOINC codes from V Lab file

File:

• ccr/trunk/p/C0CFM2.m (modified) (3 diffs)

ccr/trunk/p/C0CFM2.m

@@ -30 +30 @@
 RIMTBL(ZWHICH) ; PUT ALL PATIENT IN RIMTBL ZWHICH INTO THE CCR ELEMENTS FILE
  ;
- I '$D(RIMBASE) D ASETUP^GPLRIMA ; FOR COMMAND LINE CALLS
+ I '$D(RIMBASE) D ASETUP^C0CRIMA ; FOR COMMAND LINE CALLS
  N ZI,ZJ,ZC,ZPATBASE
  S ZPATBASE=$NA(@RIMBASE@("RIMTBL","PATS",ZWHICH))
@@ -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
@@ -124 +124 @@
  . . S C0CZ1=ZTYP_","_ZSRC_","_PATN_","
  . . S C0CFDA(C0CFVAR,"?+"_ZCNT_","_ZD0_","_C0CZ1,.01)=ZVARN
- . . S C0CFDA(C0CFVAR,"?+"_ZCNT_","_ZD0_","_C0CZ1,1)=@ZVALS@(ZC0CI)
+ . . S ZZVAL=$TR(@ZVALS@(ZC0CI),"^","|")
+ . . S C0CFDA(C0CFVAR,"?+"_ZCNT_","_ZD0_","_C0CZ1,1)=ZZVAL
  . E  D  ; THIS IS A SUBELEMENT
  . . ;PUT THE FOLLOWING BACK TO USE RECURSION