Global: ^BLRTXLOG

FileMan FileNo	FileMan Filename	Package
9009022	IHS LAB TRANSACTION LOG	IHS Changes To Lab

Package	Total	Routines
IHS Changes To Lab	30	BLRCU BLRDBG BLRDSP BLRFLTL BLRLINK BLRLINK1 BLRLINK3 BLRLINK4 BLRLINKP BLRLINKU BLRLTLX BLRMERG BLRNLINK BLRPCCVC BLRPST BLRRFILE BLRSLTL1 BLRSLTLD BLRSLTLR BLRSPRSE BLRTN BLRTN1 BLRTNA BLRTNB BLRTNDEL BLRTNM BLRTNM1 BLRUTIL3 BLRUTIL4 BLRUTIL5
Lab Service	1	LRSETUP
Patient Care Component	1	APCD206F

Package	Total	Routines
IHS Changes To Lab	14	BLRCU BLRDBG BLRDSP BLRLDFIS BLRLINK BLRLINK3 BLRLINK4 BLRLNKU2 BLRMERG BLRNLINK BLRQINST BLRRFILE BLRRLMUM BLRRLV
IHS Laboratory Point of Care	1	BLRPOC3

Package	Total	FileMan Files
IHS Changes To Lab	1	IHS LAB TRANSACTION LOG(#9009022)[101]

Package	Total	FileMan Files
Lab Service	7	LABORATORY TEST(#60)[.06] TOPOGRAPHY FIELD(#61)[2004] ETIOLOGY FIELD(#61.2)[1301] FUNCTION FIELD(#61.3)[1403] COLLECTION SAMPLE(#62)[1307] ANTIMICROBIAL SUSCEPTIBILITY(#62.06)[1303] LAB LOINC(#95.3)[1310]
IHS Changes To Lab	2	IHS LAB CPT CODE(#9009021)[111] IHS LAB TRANSACTION LOG(#9009022)[101]
Scheduling	2	CLINIC STOP(#40.7)[109] HOSPITAL LOCATION(#44)[1106]
DRG Grouper	1	ICD DIAGNOSIS(#80)[.11]
Kernel	1	NEW PERSON(#200)[113, 1104, 2006]
VA Fileman	1	FILE(#1)[104]

Fields, Total: 65

Field #	Name	Loc	Type	Details
.01	SEQUENCE NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: Same as the IEN for this entry. CROSS-REFERENCE: `9009022^B` 1)= S ^BLRTXLOG("B",$E(X,1,30),DA)="" 2)= K ^BLRTXLOG("B",$E(X,1,30),DA)
.02	LRFILE	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: The file number that the LR Lab data points to.
.03	LRDFN	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits` DESCRIPTION: The is the IEN to the LR Lab data global.
.04	PATIENT POINTER VALUE	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 25, 1997` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits`
.05	PATIENT NAME	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.`
.06	PANEL/TEST POINTER	0;6	POINTER TO LABORATORY TEST FILE (#60)	LABORATORY TEST(#60) LAST EDITED: `DEC 10, 1996` DESCRIPTION: Panel or test associated with this sequence. CROSS-REFERENCE: `9009022^AOT1^MUMPS` 1)= S BLRSET=1,BLRSUBS="AOT~11,1~11,2~X" D XREF^BLRLTLX 2)= S BLRSUBS="AOT~11,1~11,2~X" D XREF^BLRLTLX CROSS-REFERENCE: `9009022^AAT1^MUMPS` 1)= S BLRSET=1,BLRSUBS="AAT~12,2~X" D XREF^BLRLTLX 2)= S BLRSUBS="AAT~12,2~X" D XREF^BLRLTLX
.07	PANEL/TEST NAME	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.`
.08	LAB MODULE	0;8	SET	'CH' FOR GENERAL; 'MI' FOR MICROBIOLOGY; 'BB' FOR BLOOD BANK; 'AU' FOR AUTOPSY; 'CY' FOR CYTOPATHOLOGY; 'SP' FOR SURGICAL PATHOLOGY; 'OT' FOR OTHER; LAST EDITED: `NOV 14, 1996` HELP-PROMPT: `Enter SUBSCRIPT Code for section (ex: CH for GENERAL)` DESCRIPTION: This field contains the module (subscript from 63 lab data file) that tells the PCC link rtns the type of data being passed, Mi=micro, BB=blood bank, CH= general (chemistry,heme,urine etc)
.09	DUZ(2)	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 30, 1996` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits` DESCRIPTION: This field contains the DUZ(2) of the user identifing the institution.
.1	I/O CATEGORY	0;10	SET	'I' FOR IN PATIENT; 'A' FOR OUT PATIENT; LAST EDITED: `NOV 14, 1996` HELP-PROMPT: `Enter I for In-patient or A for out-patient`
.11	LAB POV	0;11	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `AUG 13, 1998` HELP-PROMPT: `Enter Purpose of Visit (ICD Code - Diagnosis)` DESCRIPTION: Stores pointer to ICD DIAGNOSIS file. This may be entered at the time of accessioning by lab if outpatient. Used to help define problem with orphaned labs.
101	PARENT POINTER	1;1	POINTER TO IHS LAB TRANSACTION LOG FILE (#9009022)	IHS LAB TRANSACTION LOG(#9009022) LAST EDITED: `NOV 05, 1996` DESCRIPTION: Self-referencing pointer.
102	STATUS FLAG	1;2	SET	'O' FOR ORDERED; 'A' FOR ACCESSIONED; 'R' FOR RESULTED; 'M' FOR MODIFIED; 'D' FOR DELETED; 'Z' FOR UNKNOWN; LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Enter STATUS flag for appropiate action.` DESCRIPTION: This field holds the status flag to tell the user whether the request has been Ordered, Accessioned, Resulted, Modified, Deleted or is Unknown. TECHNICAL DESCR: This field defines the status of the request.
103	ENTRY DATE/TIME	1;3	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Enter the Date and Time this entry is added to the file.` DESCRIPTION: The current date and time are sent in this field when the transaction log entry is placed. TECHNICAL DESCR: This is the date and time the entry was first put into the transaction log file.
104	ASSOCIATED V FILE	1;4	POINTER TO FILE FILE (#1)	FILE(#1) LAST EDITED: `NOV 05, 1996`
105	IEN OF V FILE ENTRY	1;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 2001` HELP-PROMPT: `Type a Number between 1 and 9999999999999`
106	PCC ERROR FLAG	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `DEC 19, 1996` HELP-PROMPT: `Answer must be 1-60 characters in length.` DESCRIPTION: ERROR REASON FOR TRXN REJECTION TO PCC
107	BILLABLE ITEM	1;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 31, 1997` HELP-PROMPT: `Enter a '1' if this is a billable event.` DESCRIPTION: This field defines whether the entry is a billable item. TECHNICAL DESCR: The truth of this field determines if action is taken by the billing module.
108	LAB TEST LIST COST	1;8	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999)!(X<0) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999, 2 Decimal Digits`
109	CLINIC STOP CODE POINTER	1;9	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `NOV 05, 1996`
110	CLINIC STOP NAME	1;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.`
111	CPT LAB CODE POINTER	1;11	POINTER TO IHS LAB CPT CODE FILE (#9009021)	IHS LAB CPT CODE(#9009021) LAST EDITED: `NOV 05, 1996`
112	CPT CODE	1;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.`
113	ENCOUNTER PROVIDER POINTER	1;13	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 05, 1996`
114	ENCOUNTER PROVIDER NAME	1;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.`
115	SOURCE OF DATA INPUT	1;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `NOV 06, 1996` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: This field holds a flag to tell the user if data came from the IHS LAB PACKAGE or form an external source. If from the lab package the value will be a "L". CROSS-REFERENCE: `9009022^BVER^MUMPS` 1)= I $G(X)="R" D XREF^BLRRLV(DA) 2)= K ^BLRTXLOG("BVER",DA) This x ref will be used to determine which transactions are being held for verification.
201	BILLING CPT STRING	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<3) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 3-240 characters in length.`
1101	ORDER DATE	11;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Enter the date and time of the order.` DESCRIPTION: This is the date of the order. TECHNICAL DESCR: This field contains the date and time the order is placed according to the lab package. It is not the same as the entry date field. CROSS-REFERENCE: `9009022^AOT^MUMPS` 1)= S BLRSET=1,BLRSUBS="AOT~X~11,2~0,6" D XREF^BLRLTLX 2)= S BLRSUBS="AOT~X~11,2~0,6" D XREF^BLRLTLX
1102	ORDER SEQUENCE NUMBER	11;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits` CROSS-REFERENCE: `9009022^AOT2^MUMPS` 1)= S BLRSET=1,BLRSUBS="AOT~11,1~X~0,6" D XREF^BLRLTLX 2)= S BLRSUBS="AOT~11,1~X~0,6" D XREF^BLRLTLX
1103	ORDER NUMBER	11;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 1999` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits` CROSS-REFERENCE: `9009022^C` 1)= S ^BLRTXLOG("C",$E(X,1,30),DA)="" 2)= K ^BLRTXLOG("C",$E(X,1,30),DA) C CROSSREF FOR ORDER NUMBER
1104	ORDERING PROVIDER POINTER	11;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 05, 1996`
1105	ORDERING PROVIDER NAME	11;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 14, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.`
1106	ORDERING LOCATION POINTER	11;6	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `NOV 05, 1996`
1107	ORDERING LOCATION NAME	11;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.`
1201	COLLECTION DATE/TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Enter the Date/Time the sample is collected.` DESCRIPTION: This field contains the date and time the sample is collected by the laboratory for accessioning. TECHNICAL DESCR: THis is the date and time from the lab package that determines the collection date/time.
1202	ACCESSION NUMBER	12;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `FEB 25, 1997` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `9009022^AAT^MUMPS` 1)= S BLRSET=1,BLRSUBS="AAT~X~0,6" D XREF^BLRLTLX 2)= S BLRSUBS="AAT~X~0,6" D XREF^BLRLTLX CROSS-REFERENCE: `9009022^AOD^MUMPS` 1)= S BLRSET=1,BLRSUBS="AOD~X~13,1~13,3" D XREF^BLRLTLX 2)= S BLRSUBS="AOD~X~13,1~13,3" D XREF^BLRLTLX CROSS-REFERENCE: `9009022^AOS^MUMPS` 1)= S BLRSET=1,BLRSUBS="AOS~X~13,1~13,5" D XREF^BLRLTLX 2)= S BLRSUBS="AOS~X~13,1~13,5" D XREF^BLRLTLX CROSS-REFERENCE: `9009022^AOA^MUMPS` 1)= S BLRSET=1,BLRSUBS="AOA~X~14,2~14,3" D XREF^BLRLTLX 2)= S BLRSUBS="AOA~X~14,2~14,3" D XREF^BLRLTLX CROSS-REFERENCE: `9009022^D` 1)= S ^BLRTXLOG("D",$E(X,1,30),DA)="" 2)= K ^BLRTXLOG("D",$E(X,1,30),DA) This cross reference is used with the view option to allow lookup by accession number
1301	ORGANISM	13;1	POINTER TO ETIOLOGY FIELD FILE (#61.2)	ETIOLOGY FIELD(#61.2) LAST EDITED: `DEC 18, 1996` DESCRIPTION: POINTER TO ETIOLOGY FILE 61.2 CROSS-REFERENCE: `9009022^AOD1^MUMPS` 1)= S BLRSET=1,BLRSUBS="AOD~12,2~X~13,3" D XREF^BLRLTLX 2)= S BLRSUBS="AOD~12,2~X~13,3" D XREF^BLRLTLX CROSS-REFERENCE: `9009022^AOG^MUMPS` 1)= S BLRSET=1,BLRSUBS="AOG~12,2~X" D XREF^BLRLTLX 2)= S BLRSUBS="AOG~12,2~X" D XREF^BLRLTLX CROSS-REFERENCE: `9009022^AOS1^MUMPS` 1)= S BLRSET=1,BLRSUBS="AOS~12,2~X~13,5" D XREF^BLRLTLX 2)= S BLRSUBS="AOS~12,2~X~13,5" D XREF^BLRLTLX
1302	ORGANISM NAME	13;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<5) X` LAST EDITED: `DEC 09, 1996` HELP-PROMPT: `Answer must be 5-30 characters in length.`
1303	ANTIBIOTIC	13;3	POINTER TO ANTIMICROBIAL SUSCEPTIBILITY FILE (#62.06)	ANTIMICROBIAL SUSCEPTIBILITY(#62.06) LAST EDITED: `DEC 09, 1996` DESCRIPTION: POINTER TO FILE ANTIMICROBIAL SUSCEPTIBILITY 62.06 CROSS-REFERENCE: `9009022^AOD2^MUMPS` 1)= S BLRSET=1,BLRSUBS="AOD~12,2~13,1~X" D XREF^BLRLTLX 2)= S BLRSUBS="AOD~12,2~13,1~X" D XREF^BLRLTLX
1304	ANTIBIOTIC NAME	13;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<5) X` LAST EDITED: `DEC 09, 1996` HELP-PROMPT: `Answer must be 5-15 characters in length.`
1305	STAGE COUNTER	13;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 18, 1996` HELP-PROMPT: `Type a Number between 1 and 100, 0 Decimal Digits` DESCRIPTION: NUMBER OF STAGES OF A PARASITE CROSS-REFERENCE: `9009022^AOS2^MUMPS` 1)= S BLRSET=1,BLRSUBS="AOS~12,2~13,1~X" D XREF^BLRLTLX 2)= S BLRSUBS="AOS~12,2~13,1~X" D XREF^BLRLTLX
1306	STAGE NAME	13;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 20, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: PARASITOLOGY STAGE NAME
1307	COLLECTION SAMPLE POINTER	13;7	POINTER TO COLLECTION SAMPLE FILE (#62)	COLLECTION SAMPLE(#62) LAST EDITED: `APR 01, 1998` DESCRIPTION: COLLECTION SAMPLE IS A POINTER TO A COLLECTION SAMPLE FILE
1308	COLLECTION SAMPLE NAME	13;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAR 02, 1998` HELP-PROMPT: `Answer must be 3-30 characters in length.`
1309	COMPLETE DATE	13;9	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 16, 2016` DESCRIPTION: COMPLETE DATE WILL COME FROM FILE 68.04,4 PIECE 5
1310	LOINC CODE	13;10	POINTER TO LAB LOINC FILE (#95.3)	LAB LOINC(#95.3) LAST EDITED: `FEB 26, 2002`
1401	BB TEST	14;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 14, 1997` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: Blood bank node number stored in ^LR
1402	BB TEST NAME	14;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JAN 15, 1997` HELP-PROMPT: `Answer must be 3-30 characters in length.` CROSS-REFERENCE: `9009022^AOB^MUMPS` 1)= S BLRSET=1,BLRSUBS="AOB~12,2~X" D XREF^BLRLTLX 2)= S BLRSUBS="AOB~12,2~X" D XREF^BLRLTLX CROSS-REFERENCE: `9009022^AOA1^MUMPS` 1)= S BLRSET=1,BLRSUBS="AOA~12,2~X~14,3" D XREF^BLRLTLX 2)= S BLRSUBS="AOA~12,2~X~14,3" D XREF^BLRLTLX
1403	ANTIBODY	14;3	POINTER TO FUNCTION FIELD FILE (#61.3)	FUNCTION FIELD(#61.3) LAST EDITED: `JAN 15, 1997` CROSS-REFERENCE: `9009022^AOA2^MUMPS` 1)= S BLRSET=1,BLRSUBS="AOA~12,2~14,2~X" D XREF^BLRLTLX 2)= S BLRSUBS="AOA~12,2~14,2~X" D XREF^BLRLTLX
1404	ANTIBODY NAME	14;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JAN 14, 1997` HELP-PROMPT: `Answer must be 3-30 characters in length.`
1601	PROVIDER NARRATIVE	16;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>160!($L(X)<2) X` LAST EDITED: `FEB 27, 2013` HELP-PROMPT: `Answer must be 2-160 characters in length.`
1602	SNOMED	16;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>16!($L(X)<3) X` LAST EDITED: `MAR 20, 2013` HELP-PROMPT: `Answer must be 3-16 characters in length.`
1603	ICD	16;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>16!($L(X)<3) X` LAST EDITED: `MAR 20, 2013` HELP-PROMPT: `Answer must be 3-16 characters in length.`
2001	RESULT	20;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>50!($L(X)<1) X` LAST EDITED: `MAR 25, 2002` HELP-PROMPT: `Answer must be 1-50 characters in length.`
2002	RESULT N/A FLAG	20;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 1-2 characters in length.`
2003	UNITS	20;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.`
2004	SITE/SPECIMEN POINTER	20;4	POINTER TO TOPOGRAPHY FIELD FILE (#61)	TOPOGRAPHY FIELD(#61) LAST EDITED: `NOV 05, 1996`
2005	SITE/SPECIMEN NAME	20;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.`
2006	VERIFIER POINTER	20;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 05, 1996`
2007	VERIFIER NAME	20;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.`
2008	REFERENCE LOW	20;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.`
2009	REFERENCE HIGH	20;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `NOV 05, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.`
3001	COMMENTS	30;0	Multiple #9009022.03001	9009022.03001
3002	CLINICAL INDICATOR	3;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>80!($L(X)<3) X` LAST EDITED: `MAR 20, 2013` HELP-PROMPT: `Enter a sign or symptom 3-80 characters in length` DESCRIPTION: `THIS IS THE LAB PURPOSE OF VISIT AS REQUIRED BY POLICIES DEVELOPED BY THE NEGOTIATED RULEMAKING COMMITTE ON CLINICAL DIAGNOSTIC LABORATORY TESTS PUBLISHED IN THE FEDERAL REGISTRY ON 11/23/2001. EFFECTIVE DATE: NOV 2002` LABEL MODIFIED TO 'CLINICAL INDICATOR' PER MEANINGFUL USE. MAY 2013.
4001	HL7 MESSAGE IEN	RL;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JAN 17, 2006` HELP-PROMPT: `Answer must be 1-10 characters in length.` CROSS-REFERENCE: `9009022^AHL7^MUMPS` 1)= I $P($G(^BLRTXLOG(DA,0)),"^",6)]"" S ^BLRTXLOG("AHL7",X_$P(^BLRTXLOG(DA,0),"^",6),DA)="" 2)= I $P($G(^BLRTXLOG(DA,0)),"^",6)]"" K ^BLRTXLOG("AHL7",X_$P(^BLRTXLOG(DA,0),"^",6),DA)

Customize PDF page

Package: IHS Changes To Lab

Global: ^BLRTXLOG

Information

Description

Directly Accessed By Routines, Total: 32

Accessed By FileMan Db Calls, Total: 15

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 14

Fields, Total: 65