Changeset 433


Ignore:
Timestamp:
Apr 13, 2009, 10:03:39 PM (12 years ago)
Author:
George Lilly
Message:

lab changes for RPMS - LOINC codes from V Lab file

Location:
ccr/trunk/p
Files:
3 added
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CFM2.m

    r424 r433  
    3030RIMTBL(ZWHICH) ; PUT ALL PATIENT IN RIMTBL ZWHICH INTO THE CCR ELEMENTS FILE
    3131 ;
    32  I '$D(RIMBASE) D ASETUP^GPLRIMA ; FOR COMMAND LINE CALLS
     32 I '$D(RIMBASE) D ASETUP^C0CRIMA ; FOR COMMAND LINE CALLS
    3333 N ZI,ZJ,ZC,ZPATBASE
    3434 S ZPATBASE=$NA(@RIMBASE@("RIMTBL","PATS",ZWHICH))
     
    4141PUTRIM(DFN,ZWHICH) ;DFN IS PATIENT , WHICH IS ELEMENT TYPE
    4242 ;
    43  S C0CGLB=$NA(^TMP("GPLRIM","VARS",DFN))
     43 S C0CGLB=$NA(^TMP("C0CRIM","VARS",DFN))
    4444 I '$D(ZWHICH) S ZWHICH="ALL"
    4545 I ZWHICH'="ALL" D  ; SINGLE SECTION REQUESTED
     
    124124 . . S C0CZ1=ZTYP_","_ZSRC_","_PATN_","
    125125 . . S C0CFDA(C0CFVAR,"?+"_ZCNT_","_ZD0_","_C0CZ1,.01)=ZVARN
    126  . . S C0CFDA(C0CFVAR,"?+"_ZCNT_","_ZD0_","_C0CZ1,1)=@ZVALS@(ZC0CI)
     126 . . S ZZVAL=$TR(@ZVALS@(ZC0CI),"^","|")
     127 . . S C0CFDA(C0CFVAR,"?+"_ZCNT_","_ZD0_","_C0CZ1,1)=ZZVAL
    127128 . E  D  ; THIS IS A SUBELEMENT
    128129 . . ;PUT THE FOLLOWING BACK TO USE RECURSION
Note: See TracChangeset for help on using the changeset viewer.