Changeset 1205 for ccr/trunk/p/C0CLABS.m

Timestamp:

Jul 8, 2011, 3:24:07 PM (13 years ago)

Author:

George Lilly

Message:

version for certification

File:

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

ccr/trunk/p/C0CLABS.m

@@ -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
@@ -152 +154 @@
         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
@@ -172 +175 @@
         . 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