Sub-Field: 66.04

Parent File	Name	Number	Package
BLOOD PRODUCT(#66)	TESTS TO CHECK	66.04	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TESTS TO CHECK	0;1	POINTER TO LABORATORY TEST FILE (#60)	LABORATORY TEST(#60) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)[""CH""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 24, 1985` DESCRIPTION: `When a blood component is requested the tests selected will be` `checked to see if request seems reasonable based on test values.` SCREEN: `S DIC("S")="I $P(^(0),U,5)[""CH"""` EXPLANATION: `Selects only single chem, hem, tox, ser, etc. tests`
.02	SPECIMEN	0;2	POINTER TO TOPOGRAPHY FIELD FILE (#61)	**********************REQUIRED FIELD********************** TOPOGRAPHY FIELD(#61) INPUT TRANSFORM: `I $D(X) S X(1)=+^LAB(66,DA(1),6,DA,0) I '$D(^LAB(60,X(1),1,X)) W $C(7),!,"Not in SITE/SPECIMEN FIELD OF LAB TEST FILE for this test",! K X` LAST EDITED: `JUN 10, 1996` DESCRIPTION: `Specimen the test is performed on. This must be a specimen entered in lab` `test file (#60) in SITE/SPECIMEN field.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.03	> OR < TEST VALUE	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>7!($L(X)<2)!(X'?1"<".E&(X'?1">".E))!(X'?1E.N.".".N) X` LAST EDITED: `JUL 24, 1985` HELP-PROMPT: `Enter '<' or '>' then test value` DESCRIPTION: `The test value with a '>' or '<' as a prefix to the value for checking` `component requests.` EXECUTABLE HELP: `W !,"ENTER '>' IF ABOVE TEST VALUE NOT ACCEPTABLE",!,"(Ex. If test value for hct is 30 then enter '>30' so any results above 30 will be",!,"flagged"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

.01

TESTS TO CHECK

0;1

POINTER TO LABORATORY TEST FILE (#60)

LABORATORY TEST(#60)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)[""CH""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 24, 1985
DESCRIPTION: When a blood component is requested the tests selected will be
checked to see if request seems reasonable based on test values.
SCREEN: S DIC("S")="I $P(^(0),U,5)[""CH"""
EXPLANATION: Selects only single chem, hem, tox, ser, etc. tests

.02

SPECIMEN

0;2

POINTER TO TOPOGRAPHY FIELD FILE (#61)

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

TOPOGRAPHY FIELD(#61)

INPUT TRANSFORM: I $D(X) S X(1)=+^LAB(66,DA(1),6,DA,0) I '$D(^LAB(60,X(1),1,X)) W $C(7),!,"Not in SITE/SPECIMEN FIELD OF LAB TEST FILE for this test",! K X
LAST EDITED: JUN 10, 1996
DESCRIPTION: Specimen the test is performed on. This must be a specimen entered in lab
test file (#60) in SITE/SPECIMEN field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

.03

> OR < TEST VALUE

0;3

FREE TEXT

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

INPUT TRANSFORM: K:$L(X)>7!($L(X)<2)!(X'?1"<".E&(X'?1">".E))!(X'?1E.N.".".N) X
LAST EDITED: JUL 24, 1985
HELP-PROMPT: Enter '<' or '>' then test value
DESCRIPTION: The test value with a '>' or '<' as a prefix to the value for checking
component requests.
EXECUTABLE HELP: W !,"ENTER '>' IF ABOVE TEST VALUE NOT ACCEPTABLE",!,"(Ex. If test value for hct is 30 then enter '>30' so any results above 30 will be",!,"flagged"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

Customize PDF page

Package: Lab Service

BLOOD PRODUCT(#66)-->66.04

Sub-Field: 66.04

Information

Details