Changeset 266 for ccr/trunk/p/GPLLABS.m

Timestamp:

Nov 9, 2008, 11:56:39 AM (16 years ago)

Author:

George Lilly

Message:

integrate LABS with ANALYZE^{GPLRIMA attribute categories}

File:

• ccr/trunk/p/GPLLABS.m (modified) (4 diffs)

ccr/trunk/p/GPLLABS.m

@@ -18 +18 @@
  ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
            ;
-EXTRACT(DFN) ; EXTRACT LABS INTO PROVIDED XML TEMPLATE
+EXTRACT(ILXML,DFN,OLXML) ; EXTRACT LABS INTO THE C0CLVAR GLOBAL
  ;
  ; LABXML AND LABOUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
@@ -25 +25 @@
  ;
  D GHL7 ; GET HL7 MESSAGE FOR THIS PATIENT
- S C0CLB=$NA(^TMP("GPLCCR",$J,"LABS")) ; BASE GLB FOR LABS VARS
+ S C0CLB=$NA(^TMP("GPLCCR",$J,"RESULTS")) ; BASE GLB FOR LABS VARS
  K @C0CLB ; CLEAR OUT OLD VARS IF ANY
  S C0CSILENT=1 ; SURPRESS LISTING
  D LIST ; EXTRACT THE VARIABLES
+ K C0CSILENT ; RESET SILENT FLAG
+ I $D(OLXML) S @OLXML@(0)=0 ; EXTRACT DOES NOT PRODUCE XML... SEE MAP^GPLLABS
  Q
      ;
@@ -47 +49 @@
  ; N C0CI,C0CJ,C0COBT,C0CHB,C0CVAR
  ; D EXTRACT^GPLLABS(1)
- I '$D(C0CLB) S C0CLB=$NA(^TMP("GPLCCR",$J,"LABS")) ; BASE GLB FOR LABS VARS
+ I '$D(C0CLB) S C0CLB=$NA(^TMP("GPLCCR",$J,"RESULTS")) ; BASE GLB FOR LABS VARS
  I '$D(C0CSILENT) S C0CSILENT=0
  I '$D(DFN) S DFN=1 ; DEFAULT TEST PATIENT
@@ -97 +99 @@
  . . W C0CI," ",C0CTYP,!
  . ; S C0CI=$O(@C0CHB@(C0CI))
- K ^TMP("GPLRIM","VARS",DFN,"LABS")
- M ^TMP("GPLRIM","VARS",DFN,"LABS")=@C0CLB
+ ;K ^TMP("GPLRIM","VARS",DFN,"RESULTS")
+ ;M ^TMP("GPLRIM","VARS",DFN,"RESULTS")=@C0CLB
  Q
 LTYP(OSEG,OTYP,OVARA,OC0CSILENT) ;