Global: ^ECX(727.7

FileMan FileNo	FileMan Filename	Package
727.7	LAB RESULTS TRANSLATION	DSS Extracts

Description

This file is a translation table for converting free text lab test results into numeric codes for use by Decision Support System (DSS). The translation table is used to translate the RESULTS field (#10) of the LAB RESULTS EXTRACT file (#727.824) to a standard numeric code to indicate the test result when text has been entered instead of a numeric value. The translated value is used to populate the LAB RESULTS TRANSLATION field (#27) of the LAB RESULTS EXTRACT file (#727.824). This file has been populated initially with common free text values for lab test results that were compiled by the DSS Program Office. Sites may add new entries to this file as needed with other free text values and their corresponding translation codes.

Package	Total	Routines
DSS Extracts	5	ECXALAR2 ^ECX(729 ECXLABR ^ECX(727.7 ECXLRED

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	RESULT	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")` LAST EDITED: `JUL 31, 2002` HELP-PROMPT: `Answer must be 1-30 characters in length` DESCRIPTION: `Lab results free text value for conversion.` `Note: All lower case characters entered into this field are converted to upper case.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `727.7^B` `1)= S ^ECX(727.7,"B",$E(X,1,30),DA)=""` `2)= K ^ECX(727.7,"B",$E(X,1,30),DA)`
1	TRANSLATION CODE	0;2	SET	**********************REQUIRED FIELD********************** '0' FOR Negative, Non-Reactive; '1' FOR Positive, Reactive; '2' FOR Borderline, Indeterminate; '3' FOR Test Not Performed, Qty not sufficient or other reason; '5' FOR Result cannot be translated; LAST EDITED: `JUL 30, 2002` HELP-PROMPT: `Enter the translation code.` DESCRIPTION: `Numerice Translation Code that the Result will be translated to.`

RESULT

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
LAST EDITED: JUL 31, 2002
HELP-PROMPT: Answer must be 1-30 characters in length
DESCRIPTION: Lab results free text value for conversion.
Note: All lower case characters entered into this field are converted to upper case.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 727.7^B
1)= S ^ECX(727.7,"B",$E(X,1,30),DA)=""
2)= K ^ECX(727.7,"B",$E(X,1,30),DA)

TRANSLATION CODE

0;2

SET

************************REQUIRED FIELD************************

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K)
X	.01+1!*, .01(XREF 1S), .01(XREF 1K)