cleared ^TMP("HLS") after processing LABS HL7 message

2008-11-09 17:04:39 +00:00 · 2008-11-09 17:04:39 +00:00 · edd85ba0e5
parent bf02c389b7
commit edd85ba0e5
1 changed files with 1 additions and 0 deletions
--- a/p/GPLLABS.m
+++ b/p/GPLLABS.m
@ -29,6 +29,7 @@ EXTRACT(ILXML,DFN,OLXML) ; EXTRACT LABS INTO THE C0CLVAR GLOBAL
 S C0CSILENT=1 ; SURPRESS LISTING
 D LIST ; EXTRACT THE VARIABLES
 K C0CSILENT ; RESET SILENT FLAG
+ K ^TMP("HLS") ; KILL HL7 MESSAGE OUTPUT
 I $D(OLXML) S @OLXML@(0)=0 ; EXTRACT DOES NOT PRODUCE XML... SEE MAP^GPLLABS
 Q
     ;