Global: ^LAHM(62.49

FileMan FileNo	FileMan Filename	Package
62.49	LA7 MESSAGE QUEUE	Automated Lab Instruments

Package	Total	Routines
Automated Lab Instruments	35	ADDITIONAL MESSAGE IDENTIFIERS CH SUBSCRIPT LA23 LA27 LA7CHKF LA7HDR LA7HL7 LA7LOG LA7POC LA7PURG LA7UID2 LA7UIIN LA7UIIN1 LA7UIIN2 LA7UIO1 LA7UTIL LA7UTILA LA7UTILB LA7UTILC LA7UXQA LA7VHL LA7VHLU1 LA7VHLU2 LA7VIN LA7VORM1 ^LAHM(62.93 LA7VHLU LA7VHLU8 LA7VIN1 LA7VIN3 LA7VMSG LA7VMSG1 LA7VORU1 LA7VORUA ^LAHM(62.49
Lab Service	1	LRU

Package	Total	Routines
Automated Lab Instruments	10	LA74 LA7HL7 LA7PURG LA7UID2 LA7UIIN LA7UTILA LA7UTILB LA7UTILC LA7VHLU LA7VMSG
Lab Service	2	LRVRAR LRVRPOC

Package	Total	FileMan Files
Automated Lab Instruments	1	LA7 MESSAGE QUEUE(#62.49)[6]

Package	Total	FileMan Files
Automated Lab Instruments	2	LA7 MESSAGE PARAMETER(#62.48)[.5] LA7 MESSAGE QUEUE(#62.49)[6]

Fields, Total: 35

Field #	Name	Loc	Type	Details
.01	MESSAGE NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 18, 1994` HELP-PROMPT: `Type a Number between 0 and 999999999, 0 Decimal Digits.` DESCRIPTION: `This field contains a unique laboratory message number that is generated by the system.` CROSS-REFERENCE: `62.49^B` `1)= S ^LAHM(62.49,"B",$E(X,1,30),DA)=""` `2)= K ^LAHM(62.49,"B",$E(X,1,30),DA)`
.5	CONFIGURATION	.5;1	POINTER TO LA7 MESSAGE PARAMETER FILE (#62.48)	LA7 MESSAGE PARAMETER(#62.48) LAST EDITED: `MAR 19, 2002` HELP-PROMPT: `Enter in the appropriate LA7 MESSAGE PARAMETER file (#62.48) entry that pertains to this message.` DESCRIPTION: `This field contains the pointer to the LA7 MESSAGE PARAMETER file (#62.48) which contains vital information concerning the processing, purging, and sending of alert messages.` RECORD INDEXES: `AC (#1083), Q (#1086)`
1	TYPE	0;2	SET	**********************REQUIRED FIELD********************** 'I' FOR INCOMING; 'O' FOR OUTGOING; LAST EDITED: `MAR 19, 2002` HELP-PROMPT: `Enter the direction, "I" for incoming or "O" for outgoing, of the message.` DESCRIPTION: `This field identifies the direction of the message.` RECORD INDEXES: `AC (#1083), Q (#1086)`
2	STATUS	0;3	SET	'B' FOR BUILDING; 'Q' FOR QUEUED FOR ACTION; 'E' FOR ERROR; 'X' FOR PURGEABLE; 'P' FOR PROCESS; 'A' FOR AWAITING ACK; LAST EDITED: `MAR 19, 2002` DESCRIPTION: `This field contains the current status of the message. The status is used for queuing, processing, and purging of messages.` RECORD INDEXES: `AC (#1083), Q (#1086)`
3	PRIORITY	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 18, 1994` HELP-PROMPT: `Type a Number between 1 and 5, 0 Decimal Digits.` DESCRIPTION: `This field contains the priority put on each queued message. The priorities range from one to five, five being the lowest priority.`
4	DATE/TIME ENTERED	0;5	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 19, 1995` HELP-PROMPT: `Enter the current date and time.` DESCRIPTION: `This field contains the exact time that this entry was created.` CROSS-REFERENCE: `62.49^AD^MUMPS` `1)= S ^LAHM(62.49,"AD",$P(X,"."),DA)=""` `2)= K ^LAHM(62.49,"AD",$P(X,"."),DA)` `3)= DO NOT DELETE` `This cross reference gives a breakdown of message by date. The cross reference is in the following format` `S ^LAHM(62.49,"AD",$P(DATE/TIME ENTERED,"."),MESSAGE NUMBER)=""`
5	INSTRUMENT NAME	0;6	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1) X` LAST EDITED: `APR 02, 2007` HELP-PROMPT: `Answer must be 1-45 characters in length.` DESCRIPTION: `This field contains the instrument name from the AUTO INSTRUMENT file (#62.4). This field is used for looking up messages by instrument name.` FIELD INDEX: `C (#1084) REGULAR IR LOOKUP & SORTING` `Short Descr: Instrument name and related specimen id.` `Description: This field contains the instrument name from the AUTO INSTRUMENT file (#62.4). This field is used for looking up messages by instrument name` `The INSTRUMENT NAME field is constructed as follows:` `1. Instrument name from the #.01 Name field of the Auto Instrument file #62.4` `2. Message type - "I" for Incoming, "O" for Outgoing` `3. Lab Unique Id or Accession number` `- Outgoing messages always use the UID when building this name.` `- Incoming messages are based on what is found in the message.` `Examples: CX7-I-2061020105` `H747-O-3163120010` `MLA-I-45` `Messages with no instrument name will use "UNKNOWN".` `Messages with no/unknown UID/accession number will use 0 (zero).` `Example: UNKNOWN-I-0` `Set Logic: S ^LAHM(62.49,"C",$E(X,1,45),DA)=""` `Kill Logic: K ^LAHM(62.49,"C",$E(X,1,45),DA)` `Whole Kill: K ^LAHM(62.49,"C")` `X(1): INSTRUMENT NAME (62.49,5) (Subscr 1) (Len 45) (forwards)`
5.1	ADDITIONAL MESSAGE IDENTIFIERS	.2;0	Multiple #62.49002	62.49002 DESCRIPTION: `Multiple to store additional message identifiers to lookup a message using lab utilities.` INDEXED BY: `ADDITIONAL MESSAGE IDENTIFIERS (B)`
6	MESSAGE TEXT	0;7	POINTER TO LA7 MESSAGE QUEUE FILE (#62.49)	LA7 MESSAGE QUEUE(#62.49) LAST EDITED: `MAR 06, 1997` HELP-PROMPT: `This field contains the pointer to the entry that contains the HL7 message.` DESCRIPTION: `This field holds a pointer to the entry in this file that contains the HL7 message text.`
100	MSH	100;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `APR 18, 1994` HELP-PROMPT: `Answer must be 3 characters in length.` DESCRIPTION: `This field contains the letters, "MSH". Fields 100 through 111 are all used to identify the HL7 message header segment (MSH).`
101	ENCODING CHARACTERS	100;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `APR 18, 1994` HELP-PROMPT: `Answer must be 4 characters in length.` DESCRIPTION: `This field identifies this messages HL7 encoding characters. Fields 100 through 111 are all used to identify the HL7 message header segment (MSH).`
102	SENDING APPLICATION	100;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `APR 18, 1994` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `This field contains the HL7 15 character sending application. Fields 100 through 111 are all used to identify the HL7 message header segment (MSH).`
103	SENDING FACILITY	100;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `APR 18, 1994` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This field contains this messages HL7 sending facility. Fields 100 through 111 are all used to identify the HL7 message header segment (MSH).`
104	RECEIVING APPLICATION	100;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `APR 18, 1994` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `This field contains the HL7 receiving application. Fields 100 through 111 are all used to identify the HL7 message header segment (MSH).`
105	RECEIVING FACILITY	100;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `APR 18, 1994` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This field contains the HL7 receiving facility for this message. Fields 100 through 111 are all used to identify the HL7 message header segment (MSH).`
106	DATE/TIME OF MESSAGE	100;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>19!($L(X)<1) X` OUTPUT TRANSFORM: `S Y=$$FMDATE^HLFNC(Y) D D^DIQ` LAST EDITED: `APR 19, 1994` HELP-PROMPT: `Answer must be 1-19 characters in length.` DESCRIPTION: `This field contains the date and time of the HL7 messages. Fields 100 through 111 are all used to identify the HL7 message header segment (MSH).`
107	SECURITY	100;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `JAN 26, 1997` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `This field contains the security information in the HL7 message. Fields 100 through 111 are all used to identify the HL7 message header segment (MSH).`
108	MESSAGE TYPE	100;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<1) X` LAST EDITED: `MAR 19, 2002` HELP-PROMPT: `Answer must be 1-7 characters in length.` DESCRIPTION: `This field contains the message type (ORU, ORM, ORR, ...) of the HL7 message. Fields 100 through 111 are all used to identify the HL7 message header segment (MSH).` RECORD INDEXES: `AC (#1083)`
109	MESSAGE CONTROL ID	100;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 22, 1997` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This field contains the HL7 unique message control id. This is used by the HL7 package to uniquely identify every message. Fields 100 through 111 are all used to identify the HL7 message header segment (MSH).` CROSS-REFERENCE: `62.49^ID` `1)= S ^LAHM(62.49,"ID",$E(X,1,30),DA)=""` `2)= K ^LAHM(62.49,"ID",$E(X,1,30),DA)` `This cross reference is used by the ORU acknowledgment processing routine, ACK^LA7VMSG, to update the status in the LAB PENDING ORDERS ENTRY file (#69.6).`
110	PROCESSING ID	100;11	SET	'D' FOR DEBUGGING; 'P' FOR PRODUCTION; 'T' FOR TRAINING; LAST EDITED: `APR 18, 1994` HELP-PROMPT: `Enter in the HL7 processing id.` DESCRIPTION: `This field contains the HL7 processing id. This field is used by HL7 to differentiate between messages for debugging, production, and training. Fields 100 through 111 are all used to identify the HL7 message header` `segment (MSH).`
111	VERSION ID	100;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `APR 18, 1994` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: `This field contains the HL7 version id for this HL7 message. Fields 100 through 111 are all used to identify the HL7 message header segment (MSH).`
150	HL7 TEXT	150;0	WORD-PROCESSING #62.495	DESCRIPTION: `This field contains the actual text HL7 message.` LAST EDITED: `APR 18, 1994` DESCRIPTION: `This field contains the actual text HL7 message.`
151	HUID	63;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 21, 1997` HELP-PROMPT: `The field holds the Host site's universal identifier.` DESCRIPTION: `This field represents the Host site's universal identifier or unique accession number.`
152	REMOTE SYSTEM	63;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<2) X` LAST EDITED: `MAR 17, 1997` HELP-PROMPT: `This field contains the primary hospital's station number.` DESCRIPTION: `This field contains the primary hospital's station number.`
153	RUID	63;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 21, 1997` HELP-PROMPT: `This field holds the remote site's universal identifier.` DESCRIPTION: `This field contains the remote site's universal identifier or unique accession number.`
154	ORDERED TEST	63;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `OCT 14, 1997` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: `This field contains the free text value of the ordered test. This field is used to link the results back to the ordered test.`
155	NLT	63;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JAN 21, 1997` HELP-PROMPT: `This field holds the NLT code for the ordered test.` DESCRIPTION: `This field contains the NLT code from the WKLD CODE file (#64) for the ordered test.`
156	INVERSE DATE	63;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 21, 1997` HELP-PROMPT: `This field holds the inverse date of the ordered test.` DESCRIPTION: `This field contains the inverse date of the ordered test.`
157	SUBSCRIPT	63;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<2) X` LAST EDITED: `JAN 21, 1997` HELP-PROMPT: `This field holds the LAB DATA file (#63) subscript node of the results for the ordered test.` DESCRIPTION: `This field contains the subscript location of the results. (Ex. "CH")`
158	LRDFN	63;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 22, 1997` HELP-PROMPT: `This field holds the patients LRDFN.` DESCRIPTION: `This field contains the LRDFN of the patients for which the tests were ordered.`
159	ORDERED DATE	63;9	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 22, 1997` HELP-PROMPT: `This field holds the date the test was ordered.` DESCRIPTION: `This field contains the date the test was ordered.`
160	ERROR CODE	ERR;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JAN 22, 1997` HELP-PROMPT: `This field holds the error codes returned by the HL7 package.` DESCRIPTION: `This field contains any error codes returned by the VISTA Health Level Seven (HL7) package while processing HL7 messages.`
161	ERROR MESSAGE	ERR;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `JAN 22, 1997` HELP-PROMPT: `This field holds text error messages that might occur while processing HL7 messages.` DESCRIPTION: `This field holds text error messages that might occur while processing HL7 messages.`
162	CH SUBSCRIPT	1;0	Multiple #62.49162	62.49162 DESCRIPTION: `This multiple contains the "CH" subscript nodes where the results are stored in the LAB DATA file (#63).`
700	HL7 ENV	700;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<1) X` LAST EDITED: `APR 18, 2003` HELP-PROMPT: `Answer must be 1-245 characters in length` DESCRIPTION: `Stores HL7 environment relating to incoming HL7 message for later use in generating an HL7 application acknowledgement.`

Name	Field # of Occurrence
^%DT	4+1, 159+1
EN^DDIOL	IDW1+1, IDW2+1, IDW3+1
$$EXTERNAL^DILFD	IDW1+1, IDW2+1, IDW3+1
D^DIQ	106OT+1
$$FMDATE^HLFNC	106OT+1
$$FMTE^XLFDT	IDW1+1

Name	Field # of Occurrence
^(	IDW3+1
^(0	IDW1+1, IDW2+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	4+1, 159+1
>> DA	IXACSL+1, IXACKL+1, IXCSL+1, IXCKL+1, IXDSL+1, IXDKL+1, IXQSL+1, IXQKL+1, .01(XREF 1S), .01(XREF 1K) , 4(XREF 1S), 4(XREF 1K), 109(XREF 1S), 109(XREF 1K)
>> DA(1	IXDSL+1, IXDKL+1
LRX	IDW1+1~, IDW2+1~, IDW3+1~*
U	IDW1+1, IDW2+1, IDW3+1
X	IXACSCC+1, IXACKCC+1, IXCSL+1, IXCKL+1, IXDSL+1, IXDKL+1, IXQSCC+1, IXQKCC+1, IXQP4CC+1, .01+1! , .01(XREF 1S), .01(XREF 1K), 3+1!, 4+1!, 4(XREF 1S), 4(XREF 1K), 5+1!, 100+1!, 101+1!, 102+1! , 103+1!, 104+1!, 105+1!, 106+1!, 107+1!, 108+1!, 109+1!, 109(XREF 1S), 109(XREF 1K), 111+1! , 151+1!, 152+1!, 153+1!, 154+1!, 155+1!, 156+1!, 157+1!, 158+1!, 159+1*!, 160+1! , 161+1!, 700+1!
X(1	IXACSL+1, IXACKL+1, IXQSL+1, IXQKL+1
X(2	IXACSL+1, IXACSCC+1, IXACKL+1, IXACKCC+1, IXQSCC+1, IXQKCC+1, IXQP4CC+1
X(3	IXACSL+1, IXACKL+1, IXQSCC+1, IXQKCC+1, IXQP4CC+1
X(4	IXACSCC+1, IXACKCC+1, IXQSL+1, IXQKL+1
>> Y	4+1, 106OT+1*, 159+1
>> Y(0	106OT+1*

Customize PDF page

Package: Automated Lab Instruments

Global: ^LAHM(62.49

Information

Description

Directly Accessed By Routines, Total: 36

Accessed By FileMan Db Calls, Total: 12

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 2

Fields, Total: 35

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: