Sub-Field: 63.01

Parent File	Name	Number	Package
LAB DATA(#63)	BLOOD BANK	63.01	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	DATE/TIME SPECIMEN TAKEN	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXS",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999-Y` LAST EDITED: `JUN 29, 1992` HELP-PROMPT: `ENTER PAST OR PRESENT DATE/TIME ONLY` DESCRIPTION: This is the date/time the specimen was collected. NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.03	DATE REPORT COMPLETED	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` DESCRIPTION: This is the date the report was completed.
.04	ENTERING PERSON	0;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 30, 1991` DESCRIPTION: This is the person entering the date.
.05	SPECIMEN	0;5	POINTER TO TOPOGRAPHY FIELD FILE (#61)	TOPOGRAPHY FIELD(#61) DESCRIPTION: This is the specimen collected.
.055	COLLECTION SAMPLE	0;11	POINTER TO COLLECTION SAMPLE FILE (#62)	**********************REQUIRED FIELD********************** COLLECTION SAMPLE(#62) LAST EDITED: `NOV 26, 1991` DESCRIPTION: This is the collection sample for the specimen.
.06	ACCESSION NUMBER	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `MAY 08, 1987` HELP-PROMPT: `ANSWER MUST BE 1-20 CHARACTERS IN LENGTH` DESCRIPTION: This is the blood bank accession.
.07	PHYSICIAN	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 20, 1990` DESCRIPTION: This is the requesting provider. SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"` EXPLANATION: `Selection must be made from active PROVIDERS who hold the PROVIDER security key.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.08	WARD	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>19!($L(X)<1) X` LAST EDITED: `MAY 06, 1987` HELP-PROMPT: `ANSWER MUST BE 1-19 CHARACTERS IN LENGTH` DESCRIPTION: This is the requesting location.
.09	PHLEBOTOMIST	0;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 30, 1991` DESCRIPTION: This is the person collecting the sample
.1	DATE/TIME RECEIVED	0;10	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EXT",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),X'["." K X` LAST EDITED: `JUN 15, 1985` HELP-PROMPT: `Enter date and time !` DESCRIPTION: This is the date/time the sample was received at the blood bank. EXECUTABLE HELP: `K DZ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.12	ACCESSION LINK	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>24!($L(X)<1) X` LAST EDITED: `SEP 28, 1994` HELP-PROMPT: `Answer must be 1-24 characters in length.` DESCRIPTION: `This field is used to determine the accession area, accession date and the accession number. The data is stuffed by the accessioning logic. The contents is used by the workload capturing routines.` NOTE: THIS FIELD SHOULD NOT BE EDITED MANUALLY, ONLY PROGRAM LOGIC SHOULD SET THIS FIELD. TECHNICAL DESCR: `The structure of the entry is accession area #, accession date and accession number separated by vertical bar.` 29\|2940927\|3 UNEDITABLE
.99	SPECIMEN COMMENT	99;0	Multiple #63.199	63.199 HELP-PROMPT: `ANSWER MUST BE 2-80 CHARACTERS IN LENGTH` DESCRIPTION: This is a comment on the specimen.
2.1	DIRECT AHG(POLYSPECIFIC)	2;1	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.2	DIRECT AHG(5 min incub)	2;2	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.3	DIRECT AHG CC	2;3	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.4	ANTI-IgG	2;4	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.5	ANTI-IgG CC	2;5	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.6	ANTI-COMPLEMENT	2;6	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.7	ANTI-COMPLEMENT (5 min incub)	2;7	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.8	ANTI-COMPLEMENT CC	2;8	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.9	DIRECT AHG INTERPRETATION	2;9	SET	LAST EDITED: `OCT 21, 1984` DESCRIPTION: Interpretation of the direct AHG
2.91	DIRECT AHG TEST COMMENT	2;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="JX" D ^LRUB` LAST EDITED: `MAY 19, 1987` HELP-PROMPT: `ANSWER MUST BE 1-80 CHARACTERS IN LENGTH` DESCRIPTION: Any comment on the direct AHG test EXECUTABLE HELP: `S L(1)="JX" D Q^LRUB` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	ELUATE ANTIBODY	EA;0	POINTER Multiple #63.012	63.012 DESCRIPTION: These are eluate antibodies. SCREEN: `S DIC("S")="I $P(^(0),U,5)=""AB"""` EXPLANATION: `Selects only antibodies`
4	SCREEN CELL METHOD	3;0	SET Multiple #63.014	63.014 DESCRIPTION: These are the screen cell methods.
6	ANTIBODY SCREEN INTERPRETATION	6;1	SET	LAST EDITED: `OCT 17, 1984` DESCRIPTION: If antibodies are present in the patient's serum the antibody screen interpretation will usually be positive.
6.1	RBC ANTIGEN PRESENT	1.1;0	POINTER Multiple #63.011	63.011 DESCRIPTION: Antigens present on RBC's of patient are entered here. SCREEN: `S DIC("S")="I $P(^(0),U,5)=""AN"""` EXPLANATION: `Selects red blood cell antigens`
6.2	RBC ANTIGEN ABSENT	1.2;0	POINTER Multiple #63.0112	63.0112 DESCRIPTION: Antigens identified as absent on red blood cells are entered here. SCREEN: `S DIC("S")="I $P(^(0),U,5)=""AN"""` EXPLANATION: `Selects red blood cell antigens`
6.3	HLA ANTIGEN PRESENT	1.3;0	POINTER Multiple #63.013	63.013 DESCRIPTION: HLA antgens present on WBC's are entered here. SCREEN: `S DIC("S")="I $P(^(0),U,5)=""HL"""` EXPLANATION: `Selects HLA antigens`
6.4	HLA ANTIGEN ABSENT	1.4;0	POINTER Multiple #63.0114	63.0114 DESCRIPTION: HLA antigens absent on WBC's are entered here. SCREEN: `S DIC("S")="I $P(^(0),U,5)=""HL"""` EXPLANATION: `Selects HLA antigens`
7	SERUM ANTIBODY	5;0	POINTER Multiple #63.46	63.46 DESCRIPTION: These are the serum antibodies. SCREEN: `S DIC("S")="I $P(^(0),U,5)=""AB"""` EXPLANATION: `SELECTS ANTIBODIES`
8	ANTIBODY SCREEN COMMENT	4;0	Multiple #63.48	63.48 DESCRIPTION: These are antibody screen comments.
9	RBC TYPING METHOD	1;0	SET Multiple #63.018	63.018 DESCRIPTION: These are RBC typing methods.
10	ABO INTERPRETATION	10;1	SET	LAST EDITED: `JUN 04, 1985` DESCRIPTION: This is the patient's ABO interpretation.
10.2	ABO TYPING TECH	10;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 30, 1991` DESCRIPTION: Technologist interpretating ABO typing results
10.3	ABO TESTING COMMENT	10;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="JX" D ^LRUB` LAST EDITED: `MAY 19, 1987` HELP-PROMPT: `ANSWER MUST BE 1-80 CHARACTERS` DESCRIPTION: This is a comment on the ABO testing. EXECUTABLE HELP: `S L(1)="JX" D Q^LRUB` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
11	RH INTERPRETATION	11;1	SET	LAST EDITED: `JUN 04, 1985` DESCRIPTION: This is the patient's Rh interpretation.
11.2	RH TYPING TECH	11;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 30, 1991` DESCRIPTION: Technologist interpretating Rh typing results
11.3	RH TESTING COMMENT	11;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="JX" D ^LRUB` LAST EDITED: `MAY 19, 1987` HELP-PROMPT: `ANSWER MUST BE 1-80 CHARACTERS` DESCRIPTION: This is a comment on the Rh testing. EXECUTABLE HELP: `S L(1)="JX" D Q^LRUB` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
121	PT CELLS+ANTI D (sal)	12;1	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
122	PT CELLS+RH CTRL (sal)	12;2	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
123	PT CELLS(sal)+ANTI D(hp IS)	12;3	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
124	PT CELLS(ser)+ANTI D(hp IS)	12;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
125	PT CELLS+ANTI D (hp 37)	12;5	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
126	PT CELLS+ANTI D (hp AHG)	12;6	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
127	PT CELLS+ANTI D SLIDE (hp)	12;7	SET	LAST EDITED: `FEB 27, 1984`
128	PT CELLS(sal)+RH CTRL (hp IS)	12;8	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
129	PT CELLS(ser)+RH CTRL(hp IS)	12;9	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
129.1	PT CELLS+RH CTRL (hp 37)	12;10	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
129.11	PT CELLS+RH CTRL (hp AHG)	12;11	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
129.12	PT CELLS+RH CTRL SLIDE (hp)	12;12	SET	LAST EDITED: `FEB 27, 1984`
131	INTERPRETATION OF RH TESTING	13;1	SET	**********************REQUIRED FIELD********************** LAST EDITED: `JUL 24, 1984`
132	RH TEST COMMENT	13;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<2) X` LAST EDITED: `FEB 27, 1984` HELP-PROMPT: `ANSWER MUST BE 2-80 CHARACTERS IN LENGTH`
133	PT Cells(sal)+Anti D(mod) IS	13;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
134	PT Cells(ser)+Anti D(mod) IS	13;4	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
135	PT Cells+Anti D(mod) 37	13;5	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
136	PT Cells+Anti D(mod) AHG	13;6	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
138	PT Cells(sal)+RH Ctrl(sal) IS	13;8	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
139	PT Cells(ser)+RH Ctrl(sal) IS	13;9	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
139.1	PT Cells+RH Ctrl(sal) 37	13;10	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
139.11	PT Cells+RH Ctrl(sal) AHG	13;11	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
141	PT CELLS(ser)+ANTI A IS	14;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
142	PT CELLS(sal)+ANTI A IS	14;2	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
143	PT CELLS+ANTI A SLIDE	14;3	SET	LAST EDITED: `FEB 27, 1984`
144	PT CELLS(ser)+ANTI B IS	14;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
145	PT CELLS(sal)+ANTI B IS	14;5	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
146	PT CELLS+ANTI B SLIDE	14;6	SET	LAST EDITED: `FEB 27, 1984`
147	PT CELLS(ser)+ANTI A,B IS	14;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
148	PT CELLS(ser)+ANTI A,B (RT)	14;8	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
149	PT CELLS(sal)+ANTI A,B (IS)	14;9	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
149.1	PT CELLS(sal)+ANTI A,B (RT)	14;10	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
149.11	PT CELLS+ANTI A,B SLIDE	14;11	SET	LAST EDITED: `FEB 27, 1984`
149.12	PT SERUM+A1 CELLS	14;12	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
149.13	PT SERUM+B CELLS	14;13	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 21, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
151	INTERPRETATION OF ABO TESTING	15;1	SET	**********************REQUIRED FIELD********************** LAST EDITED: `JUL 24, 1984`
152	ABO TESTING COMMENT	15;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<2) X` LAST EDITED: `FEB 27, 1984` HELP-PROMPT: `ANSWER MUST BE 2-80 CHARACTERS IN LENGTH`
153	INTERPRETATION ABO GROUP(cell)	15;3	SET	LAST EDITED: `MAR 14, 1984` DESCRIPTION: This is the interpretation of the patient's ABO group(cell).
154	INTERPRETATION ABO GROUP(ser)	15;4	SET	DESCRIPTION: This is the interpretation of the patient's ABO type.

Customize PDF page

Package: Lab Service

LAB DATA(#63)-->63.01

Sub-Field: 63.01

Information

Details