Changeset 1325 for ccr/branches/ohum/p/C0CLABS.m

Timestamp:

Dec 31, 2011, 12:08:05 AM (12 years ago)

Author:

George Lilly

Message:

latest ohum update

File:

• ccr/branches/ohum/p/C0CLABS.m (modified) (5 diffs)

ccr/branches/ohum/p/C0CLABS.m

@@ -1 +1 @@
 C0CALABS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR LAB RESULTS ; 10/01/08
- ;;1.0;C0C;;May 19, 2009;Build 38
+ ;;1.0;C0C;;May 19, 2009;Build 39
  ;Copyright 2008,2009 George Lilly, University of Minnesota.
  ;Licensed under the terms of the GNU General Public License.
@@ -130 +130 @@
  S C0CQT=1 ; SURPRESS LISTING
  D LIST ; EXTRACT THE VARIABLES
- ; FOR CERTIFICATION, SEE IF THERE ARE OTHER RESULTS TO ADD
- D EN^C0CORSLT(C0CLB,DFN) ; LOOKS FOR ECG TESTS
  S C0CQT=QTSAV ; RESET SILENT FLAG
  K ^TMP("HLS",$J) ; KILL HL7 MESSAGE OUTPUT
@@ -154 +152 @@
  W "LAB LIMIT: ",C0CLLMT,!
  D DT^DILF(,C0CLSTRT,.C0CEDT) ; END DATE TODAY - IMPLEMENT END DATE PARM
- S C0CEDT=$$NOW^XLFDT ; PULL LABS STARTING NOW
  S C0CR=$$LAB^C0CLA7Q(C0CPTID,C0CSDT,C0CEDT,C0CSPC,C0CSPC) ; CALL LAB LOOKUP
  Q
@@ -175 +172 @@
  . S C0CTYP=$P(@C0CHB@(C0CI),"|",1)
  . D LTYP(@C0CHB@(C0CI),C0CTYP,.C0CVAR,C0CQT)
- . I $G(C0CVAR("RESULTCODINGSYSTEM"))="LN" D  ; gpl - for certification
- . . S C0CVAR("RESULTCODINGSYSTEM")="LOINC" ; NEED TO SPELL IT OUT
- . . N C0CRDT S C0CRDT=C0CVAR("RESULTDESCRIPTIONTEXT") ; THE DESCRIPTION
- . . N C0CRCD S C0CRCD=C0CVAR("RESULTCODE") ; THE LOINC CODE
- . . S C0CVAR("RESULTDESCRIPTIONTEXT")=C0CRDT_" LOINC: "_C0CRCD
  . M XV=C0CVAR ;
  . I C0CTYP="OBR" D  ; BEGINNING OF NEW SECTION
@@ -199 +191 @@
  . . . S XV("RESULTTESTCODEVALUE")=C0CVAR("C1") ; THE LOINC CODE VALUE
  . . . S XV("RESULTTESTCODINGSYSTEM")="LOINC" ; DISPLAY NAME FOR LOINC
- . . . ;S XV("RESULTTESTDESCRIPTIONTEXT")=C0CVAR("C2") ; DESC TXT
- . . . S XV("RESULTTESTDESCRIPTIONTEXT")=C0CVAR("C2")_" LOINC: "_C0CVAR("C1")
+ . . . S XV("RESULTTESTDESCRIPTIONTEXT")=C0CVAR("C2") ; DESCRIPTION TEXT
  . . E  I C0CVAR("C6")="LN" D  ; SECONDARY CODE IS LOINC
  . . . S XV("RESULTTESTCODEVALUE")=C0CVAR("C4") ; THE LOINC CODE VALUE