iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

This commit is contained in:
george 2008-11-09 17:04:39 +00:00
parent bf02c389b7
commit edd85ba0e5
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
p/GPLLABS.m
View File

@ -29,6 +29,7 @@ EXTRACT(ILXML,DFN,OLXML) ; EXTRACT LABS INTO THE C0CLVAR GLOBAL
S C0CSILENT=1 ; SURPRESS LISTING S C0CSILENT=1 ; SURPRESS LISTING
D LIST ; EXTRACT THE VARIABLES D LIST ; EXTRACT THE VARIABLES
K C0CSILENT ; RESET SILENT FLAG 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 I $D(OLXML) S @OLXML@(0)=0 ; EXTRACT DOES NOT PRODUCE XML... SEE MAP^GPLLABS
Q Q
; ;