Global: ^HLMA

FileMan FileNo	FileMan Filename	Package
773	HL7 MESSAGE ADMINISTRATION	Health Level Seven

Package	Total	Routines
Health Level Seven	56	HLCSAS1 HLCSHDR1 HLCSHDR3 HLCSHDR4 HLCSHDR6 HLCSIN HLCSREP HLCSRPT HLCSRPT1 HLCSRPT2 HLCSRPT3 HLCSRPT4 HLCSRPT5 HLCSTCP1 HLCSTCP2 HLCSTCP3 HLCSTCP4 HLCSUTL HLDIE HLDIE772 HLDIE773 HLEMU HLEVSRV0 HLEVUTI0 HLEVX002 HLMSG HLOAPI7 HLP145 HLPAT19 HLPAT54 HLPAT76 HLPAT96 HLPOST16 HLQPURGE HLTF HLTF0 HLTF1 HLTP3 HLTP31 HLTP3A HLTP4 HLTPCK1A HLTPCK2A HLTPCK2B HLUCM HLUCM001 HLUCM003 HLUCM009 HLUCM050 HLUCM090 HLUOPT1 HLUOPT3 HLUOPTF1 HLUTIL ^HLMA HLUTIL2
Clinical Information Resource Network	3	RGMTHL2 RGMTHLDP RGMTHLPD
Income Verification Match	3	IVM16PM IVM2078P IVMPTRN4
Clinical Procedures	2	MDCPHL7B MDHL7U3
Registration	2	DGPFHLS DGRUUTL1
Capacity Management	1	KMPHLMRT
E Claims Management Engine	1	BPSJACK
IFCAP	1	PRCXSTOP

Package	Total	Routines
Health Level Seven	9	HLCSTCP1 HLP145 HLP50PST HLPAT19 HLPAT54 HLPAT96 HLPOST16 HLQPURGE HLTF
Registration	3	DG53P951 DGPFHLUT DGRUHL1
Clinical Information Resource Network	2	RGHLLOG RGMTUT98
Consult Request Tracking	1	GMRCHL7H
IFCAP	1	PRCXSTOP
Inpatient Medications	1	PSJPADE

Package	Total	FileMan Files
Clinical Procedures	1	CP_HL7_LOG(#704.002)[.04]
Health Level Seven	1	HL7 MESSAGE ADMINISTRATION(#773)[6, 12]
Radiology Nuclear Medicine	1	HL7 MESSAGE EXCEPTIONS(#79.3)[.05]

Package	Total	FileMan Files
Health Level Seven	8	HL7 APPLICATION PARAMETER(#771)[13, 14] HL7 MESSAGE TYPE(#771.2)[15] HL7 MESSAGE STATUS(#771.6)[20] HL7 ERROR MESSAGE(#771.7)[23] HL7 MESSAGE TEXT(#772)[.01] HL7 EVENT TYPE CODE(#779.001)[16] HL LOGICAL LINK(#870)[7, 17] HL7 MESSAGE ADMINISTRATION(#773)[6, 12]
Kernel	1	PROTOCOL(#101)[8]

Fields, Total: 51

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 13, 1998` HELP-PROMPT: `Type a Number between 1 and 999999999, 0 Decimal Digits`
.01	DATE/TIME ENTERED	0;1	POINTER TO HL7 MESSAGE TEXT FILE (#772)	**********************REQUIRED FIELD********************** HL7 MESSAGE TEXT(#772) LAST EDITED: `JUN 08, 2022` AUDIT: `YES, ALWAYS` CROSS-REFERENCE: `773^B` `1)= S ^HLMA("B",$E(X,1,30),DA)=""` `2)= K ^HLMA("B",$E(X,1,30),DA)`
2	MESSAGE ID	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `MAY 15, 2008` HELP-PROMPT: `Answer must be 1-60 characters in length` DESCRIPTION: `This is an unique identifier associated with a message.` CROSS-REFERENCE: `773^AH^MUMPS` `1)= S:$P(^HLMA(DA,0),U,12) ^HLMA("AH",+$P(^(0),U,12),X,DA)=""` `2)= K:$P(^HLMA(DA,0),U,12) ^HLMA("AH",+$P(^(0),U,12),X,DA)` `3)= This x-reference is used in conjunction with the 'AG' x-ref on field 205` `This x-reference is used to look up the original message when processing a response.` FIELD INDEX: `C (#782) REGULAR IR LOOKUP & SORTING` `Short Descr: This is a regular index of new-style cross-reference on the Message ID field` `Description: This cross reference allows a user to look up an HL7 message by its unique message ID.` `Set Logic: S ^HLMA("C",$E(X,1,60),DA)=""` `Kill Logic: K ^HLMA("C",$E(X,1,60),DA)` `Whole Kill: K ^HLMA("C")` `X(1): MESSAGE ID (773,2) (Subscr 1) (Len 60) (forwards)` FIELD INDEX: `AHNEW (#799) MUMPS IR ACTION` `Short Descr: This x-ref is used to look up the original message to check duplicate` `Set Logic: N HDR,FLD S HDR=$G(^HLMA(DA,"MSH",1,0)) Q:HDR']"" S:$G(^HLMA(DA,"MSH",2,0))]"" HDR=HDR_$G(^HLMA(DA,"MSH",2,0)) S FLD=$E(HDR,4) Q:FLD']"" S HDR=$P(HDR,FLD,3,6) S:HDR]"" ^HLMA("AH-NEW",HDR,X,DA)=""` `Kill Logic: N HDR,FLD S HDR=$G(^HLMA(DA,"MSH",1,0)) Q:HDR']"" S:$G(^HLMA(DA,"MSH",2,0))]"" HDR=HDR_$G(^HLMA(DA,"MSH",2,0)) S FLD=$E(HDR,4) Q:FLD']"" S HDR=$P(HDR,FLD,3,6) K:HDR]"" ^HLMA("AH-NEW",HDR,X,DA)` `Whole Kill: K ^HLMA("AH-NEW")` `X(1): MESSAGE ID (773,2) (Subscr 1) (Len 60) (forwards)`
2.02	FAST PURGE DT/TM	2;2	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `SEP 23, 2003` HELP-PROMPT: `This is the date and time that the record may be purged.` FIELD INDEX: `AJ (#347) MUMPS ACTION` `Short Descr: Removes record from the "AI" x-ref if Fast Purge Date/Time is edited.` `Set Logic: Q` `Kill Logic: K:$G(X1(1)) ^HLMA("AI",X1(1),773,+$G(DA))` `X(1): FAST PURGE DT/TM (773,2.02) (Subscr 1) (forwards)`
3	TRANSMISSION TYPE	0;3	SET	**********************REQUIRED FIELD********************** 'I' FOR INCOMING; 'O' FOR OUTGOING; LAST EDITED: `MAY 13, 1998` HELP-PROMPT: `The type of transmission (incoming or outgoing).` DESCRIPTION: `The type of transmission (incoming or outgoing).` `UNEDITABLE`
4	PRIORITY	0;4	SET	'I' FOR IMMEDIATE; 'D' FOR DEFERRED; LAST EDITED: `MAY 05, 1998` HELP-PROMPT: `The mode in which this message is delivered` DESCRIPTION: `The delivery priority assigned to this outgoing message.`
5	HEADER TYPE	0;5	SET	'M' FOR SINGLE MESSAGE; 'B' FOR BATCH OF MESSAGES; 'F' FOR FILE OF BATCHES; LAST EDITED: `AUG 11, 1998` DESCRIPTION: `There are three types of messages as follows:` `M for Single message (contains only one MSH segment)` `B for Batch of messages (contains multiple MSH segments)` `F for File of batches (contains multiple BHS segments)` `This field is automatically filled in by the Messaging System and is used to determine the appropriate header segment to build for a message.`
6	INITIAL MESSAGE	0;6	POINTER TO HL7 MESSAGE ADMINISTRATION FILE (#773)	HL7 MESSAGE ADMINISTRATION(#773) LAST EDITED: `DEC 08, 1998` DESCRIPTION: `This is the first message of a transaction. All messages pointing to the initial message are part of the transaction.` CROSS-REFERENCE: `773^AF` `1)= S ^HLMA("AF",$E(X,1,30),DA)=""` `2)= K ^HLMA("AF",$E(X,1,30),DA)`
7	LOGICAL LINK	0;7	POINTER TO HL LOGICAL LINK FILE (#870)	HL LOGICAL LINK(#870) LAST EDITED: `DEC 02, 2003` HELP-PROMPT: `The link that will be used to transmit this message over.` DESCRIPTION: `This is a pointer to the Logical Link file (#870). This link is used to transmit messages to an external receiving application. This field is not filled in when messages are exchanged between DHCP applications on the` `same system.` CROSS-REFERENCE: `773^AC^MUMPS` `1)= Q S %=$P(^HLMA(DA,0),U,3) S:%]"" ^HLMA("AC",%,X,DA)="" I %="O",'$D(HLTCPO) D LLCNT^HLCSTCP(X,3)` `2)= Q S %=$P(^HLMA(DA,0),U,3) K:%]"" ^HLMA("AC",%,X,DA)` `3)= Required to determine outgoing transmissions and incoming deferred responses.` `This cross-references is used to determine outgoing transmission for a Logical Link; ^HLMA("AC","O",LL,DA). The background job for the LL will use this x-ref and delete it as each message is transmitted. It is also used` `to process incoming messages that have a deferred response; ^HLMA("AC","I",LL,DA). The incoming filer will check this x-ref and delete it as it processes each message.`
8	SUBSCRIBER PROTOCOL	0;8	POINTER TO PROTOCOL FILE (#101)	PROTOCOL(#101) LAST EDITED: `JUL 06, 1998` HELP-PROMPT: `The Protocol related to this message.` DESCRIPTION: `The Protocol related to this message.`
9	SECURITY	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `MAY 26, 1998` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `The value to use in the Security field of the Message Header segment.`
10	DON'T PURGE	2;1	SET	'1' FOR DON'T PURGE; '0' FOR TO PURGE; LAST EDITED: `MAY 05, 1998` HELP-PROMPT: `When set to 1, the message will never be purged by HL7.` DESCRIPTION: `When this field is set to 1, the message wil never be purged by the HL7 "Purge Message Text File Entries" option. However, when this field is set to 0 or is empty, the message is allowed to be purged by the HL7 "Purge` `Message Text Entries" option.`
11	CONTINUATION POINTER	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>180!($L(X)<1) X` LAST EDITED: `MAY 26, 1998` HELP-PROMPT: `Answer must be 1-180 characters in length.` DESCRIPTION: `The value to use in the Continuation Pointer field of the Message Header segment.`
12	ACKNOWLEDGEMENT TO	0;10	POINTER TO HL7 MESSAGE ADMINISTRATION FILE (#773)	HL7 MESSAGE ADMINISTRATION(#773) LAST EDITED: `DEC 08, 1998` DESCRIPTION: `This field points to the message that the MSA segment in the current message is acknowledging.`
13	SENDING APPLICATION	0;11	POINTER TO HL7 APPLICATION PARAMETER FILE (#771)	HL7 APPLICATION PARAMETER(#771) LAST EDITED: `AUG 11, 1998` DESCRIPTION: `The application that is sending the message.`
14	RECEIVING APPLICATION	0;12	POINTER TO HL7 APPLICATION PARAMETER FILE (#771)	HL7 APPLICATION PARAMETER(#771) LAST EDITED: `AUG 11, 1998` DESCRIPTION: `The application that is receiving this message.` CROSS-REFERENCE: `773^AE^MUMPS` `1)= S:$P($G(^HLMA(DA,0)),U,2)]"" ^HLMA("AH",X,$P(^(0),U,2),DA)=""` `2)= K:$P($G(^HLMA(DA,0)),U,2)]"" ^HLMA("AH",X,$P(^(0),U,2),DA)` `3)= This x-reference is used in conjunction with the 'AH' on field 2.` `This x-reference is used to look up the original message when processing a response.`
15	MESSAGE TYPE	0;13	POINTER TO HL7 MESSAGE TYPE FILE (#771.2)	HL7 MESSAGE TYPE(#771.2) LAST EDITED: `AUG 12, 1998` DESCRIPTION: `This is the Message type from the HL7 standard.`
16	EVENT TYPE	0;14	POINTER TO HL7 EVENT TYPE CODE FILE (#779.001)	HL7 EVENT TYPE CODE(#779.001) LAST EDITED: `AUG 12, 1998` DESCRIPTION: `This is the Event Type from the HL7 standard.`
17	LOGICAL LINK - IN QUEUE	0;17	POINTER TO HL LOGICAL LINK FILE (#870)	HL LOGICAL LINK(#870) LAST EDITED: `JAN 28, 2004` HELP-PROMPT: `The logical link for this message's subscriber protocol is set into this field.`
20	STATUS	P;1	POINTER TO HL7 MESSAGE STATUS FILE (#771.6)	**********************REQUIRED FIELD********************** HL7 MESSAGE STATUS(#771.6) LAST EDITED: `AUG 04, 2003` HELP-PROMPT: `The current status of this message.` DESCRIPTION: `The status currently assigned to this message.` CROSS-REFERENCE: `773^AG` `1)= S ^HLMA("AG",$E(X,1,30),DA)=""` `2)= K ^HLMA("AG",$E(X,1,30),DA)` FIELD INDEX: `AI (#346) MUMPS ACTION` `Short Descr: Used by the Fast Purge process.` `Description: This cross-reference is used by the fast purge option to purge records in both file 773 and file 772. The format is:` `"AI",,772,)=""` `"AI",,773,)=""` `Set Logic: D PXREF^HLUOPTF1($G(DA),$G(X2(1)))` `Kill Logic: Q` `X(1): STATUS (773,20) (Subscr 1) (forwards)`
21	STATUS UPDATE DATE/TIME	P;2	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 26, 1998` HELP-PROMPT: `The date and time the Status was updated.` DESCRIPTION: `The date and time the Status field was last updated for this message.`
22	ERROR MESSAGE	P;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<3) X` LAST EDITED: `MAY 05, 1998` HELP-PROMPT: `Answer must be 3-200 characters in length.` DESCRIPTION: `If there was an error in sending or receiving this message, this field will contain the error message.`
23	ERROR TYPE	P;4	POINTER TO HL7 ERROR MESSAGE FILE (#771.7)	HL7 ERROR MESSAGE(#771.7) LAST EDITED: `MAY 05, 1998` DESCRIPTION: `A description of the type of error that occured.`
24	TRANSMISSION ATTEMPTS	P;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 30, 2000` HELP-PROMPT: `Type a Number between 1 and 999.` DESCRIPTION: `This field contains the number of transmission attempts for this outgoing message.`
25	OPEN ATTEMPTS	P;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `MAR 30, 2000` HELP-PROMPT: `Type a number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of attempts to open a TCP connections for this outgoing message.`
26	ACK TIMEOUT	P;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>600)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `MAR 30, 2000` HELP-PROMPT: `Type a number between 0 and 600, 0 Decimal Digits` DESCRIPTION: `The number of seconds the Lower Layer Protocol waits for an acknowledgement from the receiving application. This field will override the ACK TIMEOUT of the Logical Link for this message.`
50	MESSAGE SIZE		COMPUTED	MUMPS CODE: `S X=$$MSGSIZE^HLCSUTL(D0) S X=$J(X,0,0)` ALGORITHM: `S X=$$MSGSIZE^HLCSUTL(D0) (ALWAYS 0 DECIMAL DIGITS)` DESCRIPTION: `This computed field returns the number of character in a message. It includes the message header and body.`
90.01	HLP-SUBSCRIBER PROTOCOL	90;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<1) X` LAST EDITED: `OCT 22, 2002` HELP-PROMPT: `This field's source is the HLP("SUBSCRIBER"[,#]) array (1-45 characters)` DESCRIPTION: `This field holds the SUBSCRIBER PROTOCOL that was on the 1st piece of the HLP("SUBSCRIBER"[,#]) subscriber entry. (If the HLP("SUBSCRIBER") entry was used to reset the MSH segment fields, this field will be null.)` `Additional Comments on ^HLMA(ien,90) Node` `-----------------------------------------` `When the MSH segment fields are successfully reset using either HLP("SUBSCRIBER") or HLP("SUBSCRIBER",#), the entire HLP("SUBSCRIBER") or HLP("SUBSCRIBER",#) array entry is stored on the ^HLMA(#,90) node. There are eight` `pieces in the HLP("SUBSCRIBER"[,#]) array, and there are eight fields on the ^HLMA(ien,90) node. The eight pieces of HLP("SUBSCRIBER"[,#]) and the eight ^HLMA(ien,90) fields exactly correspond to each other.` `Note: When ^HLMA(ien,90) is created, it is set equal to the entire` `value of the HLP("SUBSCRIBER"[,#]) array entry. The fields on` `the ^HLMA(ien,90) node are not set separately! (So, if the` `application developer creates an invalid HLP("SUBSCRIBER"[,#])` `array, with invalid data stored in one or more of the eight` `pieces, the ^HLMA(ien,90) node will similarly hold invalid` `data.)`
90.02	HLP-SENDING APPLICATION	90;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<1) X` LAST EDITED: `OCT 22, 2002` HELP-PROMPT: `This field's source is the HLP("SUBSCRIBER"[,#]) array (1-45 characters)` DESCRIPTION: `This field holds the SENDING APPLICATION that was on the 2nd piece of the HLP("SUBSCRIBER"[,#]) subscriber entry.` `(See the 'Additional Comments on ^HLMA(ien,90) Node' section in the description for field # 90.01.)`
90.03	HLP-SENDING FACILITY	90;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `OCT 22, 2002` HELP-PROMPT: `This field's source is the HLP("SUBSCRIBER"[,#]) array (1-30 characters)` DESCRIPTION: `This field holds the SENDING FACILITY that was on the 3rd piece of the HLP("SUBSCRIBER"[,#]) subscriber entry.` `(See the 'Additional Comments on ^HLMA(ien,90) Node' section in the description for field # 90.01.)`
90.04	HLP-RECEIVING APPLICATION	90;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<1) X` LAST EDITED: `OCT 22, 2002` HELP-PROMPT: `This field's source is the HLP("SUBSCRIBER"[,#]) array (1-45 characters)` DESCRIPTION: `This field holds the RECEIVING APPLICATION that was on the 4th piece of the HLP("SUBSCRIBER"[,#]) subscriber entry.` `(See the 'Additional Comments on ^HLMA(ien,90) Node' section in the description for field # 90.01.)`
90.05	HLP-RECEIVING FACILITY	90;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `OCT 22, 2002` HELP-PROMPT: `This field's source is the HLP("SUBSCRIBER"[,#]) array (1-30 characters)` DESCRIPTION: `This field holds the RECEIVING FACILITY that was on the 5th piece of the HLP("SUBSCRIBER"[,#]) subscriber entry.` `(See the 'Additional Comments on ^HLMA(ien,90) Node' section in the description for field # 90.01.)`
90.06	HLP-SUBROUTINE	90;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `OCT 22, 2002` HELP-PROMPT: `This field's source is the HLP("SUBSCRIBER"[,#]) array (1-8 characters)` DESCRIPTION: `See the description for the HLP-ROUTINE field (#90.07).`
90.07	HLP-ROUTINE	90;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `OCT 22, 2002` HELP-PROMPT: `This field's source is the HLP("SUBSCRIBER"[,#]) array (1-8 characters)` DESCRIPTION: `Application developers may pass a reference to M code in the HLP("SUBSCRIBER"[,#]) subscriber entry. When this is done, the subroutine being referenced is stored in the HLP-SUBROUTINE field (#90.06), and the routine is` `stored in this field.`
90.08	HLP-DEBUG	90;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `OCT 22, 2002` HELP-PROMPT: `This field's source is the HLP("SUBSCRIBER"[,#]) array (1-12 characters)` DESCRIPTION: `The application developer can control what type of debugging data is stored when MSH segment fields are reset by the HLP("SUBSCRIBER"[,#]) entry. This field holds the data on the eighth piece of the HLP("SUBSCRIBER"[,#])` `entry, which also specifies which debugging data should be stored.` `Types Debug Data:` `-----------------` `There are three types of debug data:` `- Node ^HLMA(ien,90) data. (See global map of this file for fields.)` `- Node ^HLMA(ien,91) data. (See global map of this file for fields.)` `- ^XTMP("HLCSHDR3 ien") data. (See patch documentation for` `explanation.)` `Syntax:` `-------` `The syntax for the eight piece of the HLP("SUBSCRIBER"[,#]) array entry, (which is also the value for this field), is:` `[1]-[1]-[1]` `The [brackets] above indicate optionality; any of the three dash-delimited pieces may be null.` `Examples: 1-1-1 -> ^HLMA(ien,90), ^HLMA(ien,91) and ^XTMP data captured.` `1--1 -> ^HLMA(ien,90 and ^XTMP data captured.` `--1 -> Only ^XTMP data captured.`
91.01	ORIGINAL SND APP	91;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<1) X` LAST EDITED: `JAN 23, 2003` HELP-PROMPT: `This field contains the value of the SENDING APPLICATION before overwrite.` DESCRIPTION: `The value of the SENDING APPLICATION is calculated from the event driver protocol. If this value is overwritten by a HLP("SUBSCRIBER"[,#]) entry, the value before overwrite is stored in this field.` `Note: Fields 91.03, 91.05, and 91.07 similarly hold the pre-overwrite` `values for their respective fields.`
91.02	ORIGINAL SND APP-SOURCE	91;2	SET	'A' FOR ARRAY; 'M' FOR M CODE; LAST EDITED: `JAN 23, 2003` HELP-PROMPT: `This field records whether the overwrite was created by the HLP("SUBSCRIBER"[,#]) array, or by M code.` DESCRIPTION: `MSH segment fields can be overwritten by free-text values on pieces 2 through 5 of the HLP("SUBSCRIBER"[,#]) node, or by M code referenced in this node. If the HLP-ORIGINAL SND APP field (#91.01) is overwritten by` `free-text data, this field will hold an "A" (for array.) If overwritten by M code this field will hold "M".`
91.03	ORIGINAL SND FAC	91;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JAN 23, 2003` HELP-PROMPT: `This field contains the value of the SENDING FACILITY before overwrite.` DESCRIPTION: `The value of the SENDING FACILITY is calculated from the event driver protocol. If this value is overwritten by a HLP("SUBSCRIBER"[,#]) entry, the value before overwrite is stored in this field.`
91.04	ORIGINAL SND FAC-SOURCE	91;4	SET	'A' FOR ARRAY; 'M' FOR M CODE; LAST EDITED: `JAN 23, 2003` HELP-PROMPT: `This field records whether the overwrite was created by the HLP("SUBSCRIBER"[,#]) array, or by M code.` DESCRIPTION: `MSH segment fields can be overwritten by free-text values on pieces 2 through 5 of the HLP("SUBSCRIBER"[,#]) node, or by M code referenced in this node. If the HLP-ORIGINAL SND FAC field (#91.03) is overwritten by` `free-text data, this field will hold an "A" (for array.) If overwritten by M code this field will hold "M".`
91.05	ORIGINAL REC APP	91;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<1) X` LAST EDITED: `JAN 23, 2003` HELP-PROMPT: `This field contains the value of the RECEIVING APPLICATION before overwrite.` DESCRIPTION: `The value of the RECEIVING APPLICATION is calculated from the subscriber protocol. If this value is overwritten by a HLP("SUBSCRIBER"[,#]) entry, the value before overwrite is stored in this field.`
91.06	ORIGINAL REC APP-SOURCE	91;6	SET	'A' FOR ARRAY; 'M' FOR M CODE; LAST EDITED: `JAN 23, 2003` HELP-PROMPT: `This field records whether the overwrite was created by the HLP("SUBSCRIBER"[,#]) array, or by M code.` DESCRIPTION: `MSH segment fields can be overwritten by free-text values on pieces 2 through 5 of the HLP("SUBSCRIBER"[,#]) node, or by M code referenced in this node. If the HLP-ORIGINAL REC APP field (#91.05) is overwritten by` `free-text data, this field will hold an "A" (for array.) If overwritten by M code this field will hold "M".`
91.07	ORIGINAL REC FAC	91;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `MAR 21, 2003` HELP-PROMPT: `This field contains the value of the SENDING FACILITY before overwrite.` DESCRIPTION: `The value of the RECEIVING FACILITY is calculated from the subscriber protocol. If this value is overwritten by a HLP("SUBSCRIBER"[,#]) entry, the value before overwrite is stored in this field.`
91.08	ORIGINAL REC FAC-SOURCE	91;8	SET	'A' FOR ARRAY; 'M' FOR M CODE; LAST EDITED: `MAR 21, 2003` HELP-PROMPT: `This field records whether the overwrite was created by the HLP("SUBSCRIBER"[,#]) array, or by M code.` DESCRIPTION: `MSH segment fields can be overwritten by free-text values on pieces 2 through 5 of the HLP("SUBSCRIBER"[,#]) node, or by M code referenced in this node. If the HLP-ORIGINAL REC FAC field (#91.07) is overwritten by` `free-text data, this field will hold an "A" (for array.) If overwritten by M code this field will hold "M".`
100	LAST DATE/TIME UPDATED	S;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 24, 2009` HELP-PROMPT: `The date and time this transmission was processed.` DESCRIPTION: `For outgoing message:` `1. Date/time of its commit ACK received.` `2. Date/time of its application ACK message received (overwriting` `#1).` `And for incoming message:` `1. Date/time of the message received.` `2. Date/time of the message has been processed by the application` `(overwriting #1).` CROSS-REFERENCE: `773^AD^MUMPS` `1)= S ^HLMA("AD",X,DA)="" N %,%1 S %=$G(^HLMA(DA,0)),%1=$P(%,U,3),%=$P(%,U,7) K:%1]""&% ^HLMA("AC",%1,%,DA)` `2)= K ^HLMA("AD",X,DA)` `3)= Required to determine if a message has been processed.` `This cross-reference is used to remove messages from the 'AC' x-ref. after they have been processed. It also set the 'AD' x-ref for the date processed.` CROSS-REFERENCE: `773^AF` `1)= S ^HLMA("AF",$E(X,1,30),DA)=""` `2)= K ^HLMA("AF",$E(X,1,30),DA)`
102	TIME START TO SEND	S;2	DATE	INPUT TRANSFORM: `S %DT="ESTR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `FEB 23, 2009` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `This is the date/time the transmission of this outgoing message began.`
103	TIME SENT	S;3	DATE	INPUT TRANSFORM: `S %DT="ESTR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `FEB 23, 2009` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `This is the date/time the transmission of this outgoing message finished.`
104	TIME OF COMMIT/APP ACK	S;4	DATE	INPUT TRANSFORM: `S %DT="ESTR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `FEB 23, 2009` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `This is the date/time this message received the commit ACK, or application ACK of original mode or direct connect transmission (API: DIRECT^HLMA).`
105	TIME OF APPLICATION ACK	S;5	DATE	INPUT TRANSFORM: `S %DT="ESTR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `FEB 23, 2009` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `This is the date/time this message received the application ACK.`
106	TIME START PROCESSING	S;6	DATE	INPUT TRANSFORM: `S %DT="ESTR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `FEB 23, 2009` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `This is the date/time the application began processing this message.`
107	TIME PROCESSED	S;7	DATE	INPUT TRANSFORM: `S %DT="ESTR" D ^%DT S X=Y K:X<1 X` LAST EDITED: `FEB 23, 2009` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `This is the date/time the application finished processing this message.`
200	MSH	MSH;0	WORD-PROCESSING #773.01	LAST EDITED: `JUN 14, 2004` LAST EDITED: `DEC 01, 2010` DESCRIPTION: `This is the message header, MSH, for this message.`

Name	Line Occurrences (* Changed, ! Killed)
^HLMA - [#773]	IXAHNEWSL+1, IXAHNEWKL+1, 2(XREF 2S), 2(XREF 2K), 7(XREF 1S), 7(XREF 1K), 14(XREF 1S), 14(XREF 1K), 100(XREF 1S)
^HLMA("AC"	7(XREF 1S), 7(XREF 1K), 100(XREF 1S)
^HLMA("AD"	100(XREF 1S), 100(XREF 1K)
^HLMA("AF"	6(XREF 1S), 6(XREF 1K), 100(XREF 2S), 100(XREF 2K)
^HLMA("AG"	20(XREF 1S), 20(XREF 1K)
^HLMA("AH"	2(XREF 2S), 2(XREF 2K), 14(XREF 1S), 14(XREF 1K)
^HLMA("AH-NEW"	IXAHNEWSL+1*, IXAHNEWKL+1!, IXAHNEWKEIC+1!
^HLMA("AI"	IXAJKL+1!
^HLMA("B"	.01(XREF 1S), .01(XREF 1K)
^HLMA("C"	IXCSL+1*, IXCKL+1!, IXCKEIC+1!

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	7(XREF 1S), 7(XREF 1K), 100(XREF 1S)
%1	100(XREF 1S)
>> %DT	2.02+1, 21+1, 100+1, 102+1, 103+1, 104+1, 105+1, 106+1, 107+1*
>> D0	50+1
>> DA	IXAHNEWSL+1, IXAHNEWKL+1, IXAISL+1, IXAJKL+1, IXCSL+1, IXCKL+1, .01(XREF 1S), .01(XREF 1K), 2(XREF 2S), 2(XREF 2K) , 6(XREF 1S), 6(XREF 1K), 7(XREF 1S), 7(XREF 1K), 14(XREF 1S), 14(XREF 1K), 20(XREF 1S), 20(XREF 1K), 100(XREF 1S), 100(XREF 1K) , 100(XREF 2S), 100(XREF 2K)
FLD	IXAHNEWSL+1~, IXAHNEWKL+1~
HDR	IXAHNEWSL+1~, IXAHNEWKL+1~
>> HLTCPO	7(XREF 1S)
U	ID2+1, 2(XREF 2S), 2(XREF 2K), 7(XREF 1S), 7(XREF 1K), 14(XREF 1S), 14(XREF 1K), 100(XREF 1S)
X	IXAHNEWSL+1, IXAHNEWKL+1, IXCSL+1, IXCKL+1, .001+1!, .01(XREF 1S), .01(XREF 1K), 2+1!, 2(XREF 2S), 2(XREF 2K) , 2.02+1!, 6(XREF 1S), 6(XREF 1K), 7(XREF 1S), 7(XREF 1K), 9+1!, 11+1!, 14(XREF 1S), 14(XREF 1K), 20(XREF 1S) , 20(XREF 1K), 21+1!, 22+1!, 24+1!, 25+1!, 26+1!, 50+1, 90.01+1!, 90.02+1!, 90.03+1! , 90.04+1!, 90.05+1!, 90.06+1!, 90.07+1!, 90.08+1!, 91.01+1!, 91.03+1!, 91.05+1!, 91.07+1!, 100+1! , 100(XREF 1S), 100(XREF 1K), 100(XREF 2S), 100(XREF 2K), 102+1!, 103+1!, 104+1!, 105+1!, 106+1!, 107+1!
>> X1(1	IXAJKL+1
>> X2(1	IXAISL+1
>> Y	2.02+1, 21+1, 100+1, 102+1, 103+1, 104+1, 105+1, 106+1, 107+1

Customize PDF page

Package: Health Level Seven

Global: ^HLMA

Information

Description

Directly Accessed By Routines, Total: 70

Accessed By FileMan Db Calls, Total: 17

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 9

Fields, Total: 51

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	2.02+1, 21+1, 100+1, 102+1, 103+1, 104+1, 105+1, 106+1, 107+1
LLCNT^HLCSTCP	7(XREF 1S)
$$MSGSIZE^HLCSUTL	50+1
PXREF^HLUOPTF1	IXAISL+1