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

copy of LA7QRY1.m from John M.

This commit is contained in:
george 2009-05-06 16:55:56 +00:00
parent 67db6019e3
commit 2953007f1d
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
p/LA7QRY1.m
View File

@ -1,9 +1,9 @@
LA7QRY1 ;DALOI/JMC - Lab HL7 Query Utility ;01/19/99 13:48 LA7QRY1 ;DALOI/JMC - Lab HL7 Query Utility ;01/19/99 13:48
;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61**;Sep 27, 1994 ;;5.2;AUTOMATED LAB INSTRUMENTS;**46,61**;Sep 27, 1994;Build 26
; ;
Q Q
; ;
CHKSC ; Check search NLT/LOINC codes CHKSC ; Check search NLT/LOINC codes
; ;
N J N J
; ;
@ -20,7 +20,7 @@ CHKSC ; Check search NLT/LOINC codes
Q Q
; ;
; ;
SPEC ; Convert HL7 Specimen Codes to File #61, Topography codes SPEC ; Convert HL7 Specimen Codes to File #61, Topography codes
; Find all topographies that use this HL7 specimen code ; Find all topographies that use this HL7 specimen code
N J,K,L N J,K,L
; ;
@ -31,7 +31,7 @@ SPEC ; Convert HL7 Specimen Codes to File #61, Topography codes
Q Q
; ;
; ;
BUILDMSG ; Build HL7 message with result of query BUILDMSG ; Build HL7 message with result of query
; ;
N HL,HLECH,HLFS,HLQ,LA,LA763,LA7ECH,LA7FS,LA7MSH,LA7NOMSG,LA7NTESN,LA7NVAF,LA7OBRSN,LA7OBXSN,LA7PIDSN,LA7ROOT,LA7X,X N HL,HLECH,HLFS,HLQ,LA,LA763,LA7ECH,LA7FS,LA7MSH,LA7NOMSG,LA7NTESN,LA7NVAF,LA7OBRSN,LA7OBXSN,LA7PIDSN,LA7ROOT,LA7X,X
; ;
@ -60,7 +60,7 @@ BUILDMSG ; Build HL7 message with result of query
Q Q
; ;
; ;
PID ; Build PID segment PID ; Build PID segment
; ;
N LA7PID N LA7PID
; ;
@ -73,7 +73,7 @@ PID ; Build PID segment
Q Q
; ;
; ;
ORC ; Build ORC segment ORC ; Build ORC segment
; ;
N X N X
; ;
@ -89,7 +89,7 @@ ORC ; Build ORC segment
Q Q
; ;
; ;
OBR ; Build OBR segment OBR ; Build OBR segment
; ;
N LA764,LA7NLT N LA764,LA7NLT
; ;
@ -105,7 +105,7 @@ OBR ; Build OBR segment
Q Q
; ;
; ;
OBX ; Build OBX segment OBX ; Build OBX segment
; ;
N LA7DATA,LA7VT N LA7DATA,LA7VT
; ;