STANDARD DATA DICTIONARY #65.5 -- BLOOD DONOR FILE 3/24/25 PAGE 1
STORED IN ^LRE( *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
List of blood donors with demographic, collection, and test data and components prepared from each collection.
EDITING OF FILE IS NOT ALLOWED.
APPLICATION GROUP(S): LR
IDENTIFIED BY: SEX (#.02), DOB (#.03)[R], CITY (#1.4)
POINTED TO BY: PATIENT field (#9) of the ACCESSION WKLD CODE TIME sub-field (#64.1111) of the WKLD CODE sub-field (#64.111) of the
DATE sub-field (#64.11) of the WKLD DATA File (#64.1)
CROSS
REFERENCED BY: COMPLETE DATE/TIME(AA), ABO INTERPRETATION(AC), DONATION OR DEFERRAL DATE(AD), RH INTERPRETATION(AE),
SYPHILIS SEROLOGY(AF), HBsAg(AG), HIV ANTIBODY(AH), ANTIBODY SCREEN RESULT(AI), HBcAb(AJ), ALT(AK),
HTLV-I ANTIBODY(AL), HCV ANTIBODY(AM), HIV ANTIGEN(AN), UNIT ID(AT), NAME(B), UNIT ID(C), UNIT ID(D), DOB(E),
NAME(F), SSN(G), SSN(G4), NAME(G40)
65.5,.001 IDENTIFICATION NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 14, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999
DESCRIPTION: This is a unique number assigned to the blood donor. An existing
number cannot be assigned to a new donor.
65.5,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>30!(X?1N.E)!($L(X)<3)!(X?1P.E)!(X'?1U.ANP)!(X'[",") X I $D(X) S Y=", " F I=0:0 Q:$F(X,Y)<1
S X=$E(X,1,($F(X,Y)-2))_$E(X,$F(X,Y),99)
LAST EDITED: NOV 09, 1988
HELP-PROMPT: THE NAME MUST BE 3-30 CHARACTERS AND NOT START WITH PUNCTUATION OR A NUMBER
DESCRIPTION:
Name of blood donor
EXECUTABLE HELP: D EN^DDIOL("Enter Last name,First name")
DELETE TEST: 1,0)= I '$D(^XUSEC("LRBLSUPER",DUZ))
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65.5^B
1)= S ^LRE("B",$E(X,1,30),DA)=""
2)= K ^LRE("B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^65.5^.11
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRE(D0,0)):^(0),1:"") S X=$P(Y(1),U,11) S DIU=X K Y
S X=DIV N %I,%H,% D NOW^%DTC X ^DD(65.5,.01,1,2,1.4)
1.4)= S DIH=$S($D(^LRE(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,10,99)) S DIH=DIH_U" S
%=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(0)=$P(DIH,U,1,10)_U_DIV_$S(%]"":U_%,1:""),DIH=65.5,DIG=.11 D
^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= TODAY
DELETE VALUE)= NO EFFECT
FIELD)= DATE REGISTERED
CROSS-REFERENCE: 65.5^F^MUMPS
1)= Q:'$P(^LRE(DA,0),U,3) S ^LRE("D",$E(X,1)_$E($P(^(0),U,3),4,7),DA)=""
2)= Q:'$P(^LRE(DA,0),U,3) K ^LRE("D",$E(X,1)_$E($P(^(0),U,3),4,7),DA)
Cross-references the entries of the Blood Donor file (^LRE(DA,) by the first letter of the last
name/month/date of the DOB.
CROSS-REFERENCE: 65.5^G40^MUMPS
1)= Q:'$P(^LRE(DA,0),U,13) S P=$S($P(^(0),U,13)["P":11,1:10) S ^LRE("G4",$E(^(0))_$E($P(^(0),U,13)
,6,P),DA)=""
2)= Q:'$P(^LRE(DA,0),U,13) S P=$S($P(^(0),U,13)["P":11,1:10) K ^LRE("G4",$E(^(0))_$E($P(^(0),U,13)
,6,P),DA)
Cross-references the entries in the Blood Donor file (^LRE(DA,) by the first letter of the last
name/last 4 # of the SSN.
65.5,.02 SEX 0;2 SET
'M' FOR MALE;
'F' FOR FEMALE;
DESCRIPTION:
This is the sex of the blood donor.
65.5,.03 DOB 0;3 DATE (Required)
INPUT TRANSFORM: S %DT="EXP",%DT(0)="-T" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 16, 1998
DESCRIPTION:
This is the age of the donor. (Must be 17 years or older.)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65.5^E^MUMPS
1)= S ^LRE("D",$E(^LRE(DA,0))_$E(X,4,7),DA)=""
2)= K ^LRE("D",$E(^LRE(DA,0))_$E(X,4,7),DA)
65.5,.031 AGE ; COMPUTED
MUMPS CODE: S Y(65.5,.031,1)=$S($D(^LRE(D0,0)):^(0),1:""),X=DT S X=X,X1=X,X2=$P(Y(65.5,.031,1),U,3),X="" D:X2 ^
%DTC:X1 S X=X\365.25 S X=$J(X,0,0)
ALGORITHM: TODAY-DOB\365.25 (ALWAYS 0 DECIMAL DIGITS)
DESCRIPTION:
This is the computed age of the donor.
65.5,.04 APHERESIS CODE 0;4 SET
'1' FOR YES;
'2' FOR NO;
'1' FOR yes;
'2' FOR no;
LAST EDITED: AUG 05, 1987
DESCRIPTION: If donor is willing donate plasma, platelets, or leukocytes
enter 'YES'
65.5,.05 ABO GROUP 0;5 SET
'A' FOR A;
'B' FOR B;
'O' FOR O;
'AB' FOR AB;
LAST EDITED: MAY 02, 1985
DESCRIPTION:
The ABO group of the donor is entered here
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.5,.06 RH TYPE 0;6 SET
'POS' FOR POSITIVE;
'NEG' FOR NEGATIVE;
LAST EDITED: MAR 24, 1985
DESCRIPTION:
The RH type of the donor is entered here
65.5,.07 CUMULATIVE DONATIONS 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 31, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 9999999
DESCRIPTION: Total number of donation credits based on values assigned
to each type of donation.
65.5,.08 TOTAL AWARDS 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUL 12, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
DESCRIPTION: Number of awards given based on 1 award for each gallon
or equivalent (8 donation credits) donated
NOTES: TRIGGERED by the GIVE NEW AWARD field of the BLOOD DONOR File
65.5,.085 GIVE NEW AWARD 3;1 SET
'1' FOR YES;
LAST EDITED: JUL 23, 1987
DESCRIPTION:
To acknowledge giving award delete entry by entering '@'
CROSS-REFERENCE: ^^TRIGGER^65.5^.08
1)= Q
1.4)= S DIH=$S($D(^LRE(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH_U" S
%=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=65.5,DIG=.08 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRE(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X
K Y S X=DIV S X=DIU+1 X ^DD(65.5,.085,1,1,2.4)
2.4)= S DIH=$S($D(^LRE(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S DIH=DIH_U" S
%=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=65.5,DIG=.08 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE VALUE)= TOTAL AWARDS+1
FIELD)= TOTAL AWARDS
65.5,.09 DEMOG ENT/EDIT BY 0;9 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Person entering or editing donor demographic data
65.5,.1 PERMANENT DEFERRAL 0;10 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 07, 1985
HELP-PROMPT: If the donor is to be permanently excluded from donation enter 'YES'
DESCRIPTION: Donor should be permanently deferred as a homologous blood
donor based on donor history or test results.
65.5,.11 DATE REGISTERED/EDITED 0;11 DATE
DATE DONOR IS ENTERED/EDITED IN THE FILE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 17, 1986
DESCRIPTION:
This is the date the donor was registered into this file.
NOTES: TRIGGERED by the NAME field of the BLOOD DONOR File
65.5,.12 DEFERRAL ENTER/EDIT BY 0;12 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Person entering or editing permanent deferral of donor.
65.5,.13 SSN 0;13 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<9) X D:$D(X) ^LRBLSSN
OUTPUT TRANSFORM: S Y=$S(Y["P":$E(Y,10)_"-"_$E(Y,1,3)_"-"_$E(Y,4,5)_"-"_$E(Y,6,9),1:$E(Y,1,3)_"-"_$E(Y,4,5)_"-"_$E(Y,
6,9))
LAST EDITED: APR 01, 1993
HELP-PROMPT: ANSWER MUST BE 9-10 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains the social security number of the donor.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65.5^G
1)= S ^LRE("G",$E(X,1,30),DA)=""
2)= K ^LRE("G",$E(X,1,30),DA)
CROSS-REFERENCE: 65.5^G4^MUMPS
1)= S P=$S(X["P":11,1:10) S ^LRE("G4",$E(^LRE(DA,0))_$E(X,6,P),DA)=""
2)= S P=$S(X["P":11,1:10) K ^LRE("G4",$E(^LRE(DA,0))_$E(X,6,P),DA)
65.5,.14 MILITARY RANK 0;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<2) X
LAST EDITED: FEB 19, 1991
HELP-PROMPT: Answer must be 2-20 characters in length.
DESCRIPTION: If this collection is being performed by a DOD site, the rank of the donor is entered in this
field.
TECHNICAL DESCR: For DoD sites using this the DHCP Laboratory package, this field must be pointed to file 9003
(MILITARY RANK). This file is not exported by DHCP, therefore this field is defined as Free Text
for techincal verification purposes.
65.5,.16 PERMANENT DEFERRAL DATE CHANGE 0;16 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 17, 1988
DESCRIPTION:
If the deferral date is adjusted, the date is entered in this field.
65.5,1.1 ADDRESS LINE 1 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
First line of donor address
65.5,1.2 ADDRESS LINE 2 1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
Second line of donor address (if necessary)
65.5,1.3 ADDRESS LINE 3 1;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
Third line of donor address (if necessary)
65.5,1.4 CITY 1;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
City of donor
65.5,1.5 STATE 1;5 POINTER TO STATE FILE (#5)
DESCRIPTION:
State of donor residence..
65.5,1.6 ZIP CODE 1;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<5) X
HELP-PROMPT: ANSWER MUST BE 5-9 CHARACTERS IN LENGTH
DESCRIPTION:
Zip code of donor
65.5,1.7 HOME PHONE 1;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
DESCRIPTION:
Home phone of donor
65.5,1.8 WORK PHONE 1;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
DESCRIPTION: Phone where donor works so that the donor may be reached
during working hours if necessary
65.5,2 GROUP AFFILIATION 2;0 POINTER Multiple #65.51 (Add New Entry without Asking)
DESCRIPTION:
These are groups with which the donor may be associated.
SCREEN: S DIC("S")="I $P(^(0),U,2)[""G"""
EXPLANATION: SELECTS ONLY GROUP AFFILIATIONS FROM DESCRIPTION LIST
65.51,.01 GROUP AFFILIATION 0;1 POINTER TO BLOOD BANK UTILITY FILE (#65.4) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)[""G""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: JAN 23, 1986
DESCRIPTION:
Any group with which a donor might wish to be affiliated
SCREEN: S DIC("S")="I $P(^(0),U,2)[""G"""
EXPLANATION: SELECTS GROUPS DONOR IS AFFILIATED WITH
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.51,.02 FULL NAME ; COMPUTED
MUMPS CODE: X ^DD(65.51,.02,9.2) S D0=$P(Y(65.51,.02,1),U,1) S:'$D(^LAB(65.4,+D0,0)) D0=-1 S Y(65.51,.02,101)=$
S($D(^LAB(65.4,D0,0)):^(0),1:"") S X=$P(Y(65.51,.02,101),U,3) S D0=Y(65.51,.02,80) S D1=Y(65.51,.02
,81)
9.2 = S Y(65.51,.02,81)=$S($D(D1):D1,1:""),Y(65.51,.02,80)=$S($D(D0):D0,1:""),Y(65.51,.02,1)=$S($D(
^LRE(D0,2,D1,0)):^(0),1:"")
ALGORITHM: .01:FULL NAME
DESCRIPTION:
This is the full name of the donor.
65.5,4 DONOR SCHEDULING/RECALL 4;0 SET Multiple #65.53 (Add New Entry without Asking)
DESCRIPTION:
These are donors placed on a specific recall list for recruitment purposes.
65.53,.01 DONOR SCHEDULING/RECALL 0;1 SET (Multiply asked)
'1' FOR JAN;
'2' FOR FEB;
'3' FOR MAR;
'4' FOR APR;
'5' FOR MAY;
'6' FOR JUN;
'7' FOR JUL;
'8' FOR AUG;
'9' FOR SEP;
'10' FOR OCT;
'11' FOR NOV;
'12' FOR DEC;
'13' FOR 7/4;
'14' FOR LABOR DAY;
'15' FOR XMAS;
'16' FOR EMERGENCY;
DESCRIPTION: Specific recall list on which the donor will be placed
for recruitment purposes
65.5,5 DONATION OR DEFERRAL DATE 5;0 DATE Multiple #65.54 (Add New Entry without Asking)
DESCRIPTION:
These are the dates of donation or referral.
65.54,.01 DONATION OR DEFERRAL DATE 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="EX",%DT(0)="-T" D ^%DT K %DT(0) S X=Y,DINUM=9999999-Y K:Y<1 X
LAST EDITED: MAR 17, 1988
DESCRIPTION: Date when a person appears for donation. If no donation then
this date is the deferral date otherwise it is the donation date.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65.5^AD^MUMPS
1)= S ^LRE("AD",$P(X,".",1),DA(1))=""
2)= K ^LRE("AD",$P(X,".",1),DA(1))
65.54,.011 DONATION ENTERED/EDIT BY 0;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Person entering or editing donation information
65.54,.02 COLLECTION SITE 0;6 POINTER TO BLOOD BANK UTILITY FILE (#65.4) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)[""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 30, 1985
DESCRIPTION:
Site at which a donation attempt is made.
SCREEN: S DIC("S")="I $P(^(0),U,2)[""C"""
EXPLANATION: SELECTS ONLY COLLECTION SITES FROM DESCRIPTION LIST
65.54,.03 DONATION GROUP 0;7 POINTER TO BLOOD BANK UTILITY FILE (#65.4)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)[""G""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 30, 1985
DESCRIPTION:
Group affiliation for which a donation attempt is made
SCREEN: S DIC("S")="I $P(^(0),U,2)[""G"""
EXPLANATION: SELECTS ONLY GROUP AFFILIATION FROM BLOOD BANK DESCRIPTIONS LIST
65.54,.13 ARRIVAL/APPT TIME 0;13 DATE
INPUT TRANSFORM: S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: JAN 19, 1987
HELP-PROMPT: Future date/time not allowed
DESCRIPTION:
This is the date/time the donor arrives for an appointment to donate.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,.14 ENTRY VIA OLD RECORDS 0;14 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: APR 25, 1988
DESCRIPTION: If data entry for donation/deferral date subfield is by way of the
enter old records option a 'YES' is entered in this field.
65.54,1 DONATION/DEFERRAL CODE 0;2 SET
'W' FOR WHOLE BLOOD;
'P' FOR PLASMAPHERESIS;
'C' FOR CYTAPHERESIS;
'N' FOR NO DONATION;
LAST EDITED: JUL 12, 1985
DESCRIPTION: This is the result of donation attempt.
If donation successful, the type of donation is entered.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,1.1 DONATION TYPE 0;11 SET
'H' FOR HOMOLOGOUS;
'A' FOR AUTOLOGOUS;
'T' FOR THERAPEUTIC;
'D' FOR DIRECTED;
INPUT TRANSFORM:I $P(^LRE(DA(1),0),U,10),"AT"'[X W !,"Permanent deferral, only autologous or therapeutic donation a
llowed." K X
LAST EDITED: MAY 05, 1989
DESCRIPTION:
This is the donation type.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,1.2 RESTRICTED FOR 0;12 FREE TEXT
INPUT TRANSFORM:D ^LRUG I $D(X) W !,"Is this the patient " S %=2 D YN^LRU K:%'=1 X
OUTPUT TRANSFORM:S:Y X=^LR(Y,0),Y=$P(X,U,3),X=$P(X,U,2),X=^DIC(X,0,"GL"),Y=@(X_Y_",0)"),Y=$P(Y,U,1)_" "_$P(Y,U,9)
LAST EDITED: JUL 14, 1988
HELP-PROMPT: If autologous donation donor must be the same as the patient
DESCRIPTION: If autologous donor must also be the patient selected.
If directed donation can be any patient selected.
EXECUTABLE HELP:S X="?" D ^LRUG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,2 DEFERRAL REASON 1;0 POINTER Multiple #65.55 (Add New Entry without Asking)
DESCRIPTION:
These are the reasons for which the donor is deferred.
SCREEN: S DIC("S")="I $P(^(0),U,2)=""D"""
EXPLANATION: SELECTS ONLY REASONS FOR DEFERRAL OF DONATION FROM DESCRIPTION LIST
65.55,.01 DEFERRAL REASON 0;1 POINTER TO BLOOD BANK UTILITY FILE (#65.4) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,2)=""D""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
DESCRIPTION:
Reason(s) for which the donor is (are) deferred.
65.54,3 DONOR REACTION CODE 0;3 POINTER TO BLOOD BANK UTILITY FILE (#65.4)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,2)=""R""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 30, 1985
DESCRIPTION: Any adverse reaction which the donor might have suffered
during or immediately following the blood donation.
SCREEN: S DIC("S")="I $P(^(0),U,2)=""R"""
EXPLANATION: SELECTS ONLY DONOR REACTIONS TO BLOOD COLLECTION"
65.54,4 UNIT ID 0;4 FREE TEXT (Required)
UNIQUE ID ASSIGNED TO PRIMARY UNIT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) S X(1)=DA D ^LRBLU
LAST EDITED: DEC 22, 1988
HELP-PROMPT: Enter ID that component(s) prepared from donation will be labeled.
DESCRIPTION: This determines that the donor ID assigned to another donation within the past 5 years will not
be allowed.
EXECUTABLE HELP:W !?20,"Not less than 6 or more than 11 characters"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:65.5^C
1)= S ^LRE("C",$E(X,1,30),DA(1),DA)=""
2)= K ^LRE("C",$E(X,1,30),DA(1),DA)
CROSS-REFERENCE:65.5^AT^MUMPS
1)= F Z=9.99:0 S Z=$O(^DD(65.54,Z)) Q:Z>65.99!('Z) I Z#1=0,'$D(^LRE(DA(1),5,DA,Z)) S ^LRE("AT",X,Z
,DA(1),DA)=""
2)= K ^LRE("AT",X)
CROSS-REFERENCE:65.5^D^MUMPS
1)= S X(1)=$P(^LAB(69.9,1,0),U,18)+1 I X(1)>1,$L(X)>4 S ^LRE("C",$E(X,X(1),$L(X)),DA(1),DA)=""
2)= S X=$P(^LRE(DA(1),5,DA,0),"^",4),X(1)=$P(^LAB(69.9,1,0),U,18)+1 K:X(1)>1 ^LRE("C",$E(X,X(1),$L(
X)),DA(1),DA)
65.54,4.1 PRIMARY BAG 2;1 SET (Required)
'1' FOR SINGLE;
'2' FOR DOUBLE;
'3' FOR TRIPLE;
'4' FOR QUADRUPLE;
'5' FOR QUINTUPLE;
LAST EDITED: AUG 09, 1989
DESCRIPTION:
This is the type of bag used for the collection of the donor blood.
65.54,4.11 ANTICOAGULANT/ADDITIVE 2;9 SET (Required)
'1' FOR CPD;
'2' FOR ACD;
'3' FOR CPDA-1;
'4' FOR ADSOL;
LAST EDITED: MAY 20, 1996
DESCRIPTION:
This is the type of anticoagulant in the collection bag.
65.54,4.15 BAG LOT # 2;10 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<1) X
LAST EDITED: JUN 25, 1985
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
DESCRIPTION:
This is the lot number of the collection bag.
65.54,4.2 DATE/TIME COLLECTION STARTED 2;2 DATE (Required)
INPUT TRANSFORM:S %DT="EPXR",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X
LAST EDITED: NOV 03, 1999
HELP-PROMPT: Date AND time must be entered !! Future dates NOT allowed
DESCRIPTION:
This is the date and time the donation was started.
EXECUTABLE HELP:K DZ W ?5,"Enter date then ""@"" then time"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,4.3 DATE/TIME COLLECTION COMPLETED 2;3 DATE (Required)
INPUT TRANSFORM:S %DT="EPXR",%DT(0)="-NOW" D ^%DT K %DT(0) S X=Y K:Y<1 X S:$D(X) LR(65.54)=X
LAST EDITED: NOV 03, 1999
HELP-PROMPT: Date AND Time must be entered!! Future dates NOT allowed
DESCRIPTION:
This is the date and time the donation was completed.
EXECUTABLE HELP:K DZ W !,"Be sure collection completed time later than collection started time.",!,"Also TIME mu
st be entered as well as DATE !",!
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,4.4 DATE/TIME PROCESSED 2;4 DATE (Required)
DATE AND TIME COLLECTION WAS PROCESSED
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),$D(LR(65.54)),X9999)!(X<1)!(X?.E1"."2N.N) X
LAST EDITED: DEC 26, 1995
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 9999
DESCRIPTION:
This is the gross weight of the unit collected.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,4.6 EMPTY PRIMARY UNIT WT (gm) 2;6 NUMBER
WEIGHT IN GRAMS OF COLLECTION CONTAINER
INPUT TRANSFORM:K:+X'=X!(X>1000)!(X<1)!(X?.E1"."2N.N) X
LAST EDITED: APR 05, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 1000
DESCRIPTION:
Weight of the empty donor bag (primary bag only).
65.54,4.7 COLLECTION VOL (ml) 2;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 17, 1995
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 9999
DESCRIPTION: Volume of blood collected (ml)
( Volume = collected primary unit wt (gm) minus
empty primary unit wt (gm) divided by 1.06 )
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,4.8 PROCESSING TECH 2;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Person performing the component preparation.
65.54,5 PATIENT CREDIT 0;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
HELP-PROMPT: Enter patient for donation credit
DESCRIPTION: Patient for whom a unit of blood was donated, i.e. to
whom should the "replacement" be credited.
65.54,6 PHLEBOTOMIST 0;9 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
LAST EDITED: OCT 05, 1984
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
Name of person performing the collection.
65.54,6.1 COLLECTION DISPOSITION 0;10 SET
'0' FOR PREPARE COMPONENT(S);
'1' FOR QUARANTINE;
'2' FOR DISCARD COLLECTION;
LAST EDITED: DEC 29, 1985
DESCRIPTION:
Records what happened to the collection.
65.54,6.2 COLLECTION DISPOSITION COMMENT 3;0 Multiple #65.546 (Add New Entry without Asking)
DESCRIPTION:
These are comments regarding the collection disposition.
65.546,.01 COLLECTION DISPOSITION COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X I $D(X) S L=80,L(1)="Z" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
Comment(s) about the collection. disposition
EXECUTABLE HELP:S L(1)="Z" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,7 RBC TYPING METHOD 7;0 SET Multiple #65.61 (Add New Entry without Asking)
DESCRIPTION:
These are the RBC typing methods.
65.61,.01 RBC TYPING METHOD 0;1 SET
'S' FOR SALINE;
'M' FOR SERUM;
LAST EDITED: APR 02, 1985
DESCRIPTION:
This is the RBC typing method.
65.61,.02 TECHNIQUE 0;2 SET (Required)
'S' FOR SLIDE;
'T' FOR TUBE;
'A' FOR AUTOMATED;
'M' FOR MICROPLATE;
LAST EDITED: APR 02, 1985
DESCRIPTION:
This is the RBC typing technique.
65.61,.03 TECHNOLOGIST 0;3 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This identifies the technologist performing the RBC typing.
65.61,1 ANTISERUM 1;0 POINTER Multiple #65.62 (Add New Entry without Asking)
DESCRIPTION:
This is the antiserum used for testing donor's antibodies.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""AB"""
EXPLANATION: SELECTS ANTISERA ON
65.62,.01 ANTISERUM 0;1 POINTER TO BLOOD PRODUCT FILE (#66) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""AB""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 02, 1985
DESCRIPTION:
This is the antiserum used for testing.
65.62,.02 LOT # 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: APR 02, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the lot number of the antiserum.
65.62,.03 INTERPRETATION 0;3 SET (Required)
'P' FOR POSITIVE;
'N' FOR NEGATIVE;
'U' FOR UNCERTAIN;
LAST EDITED: APR 02, 1985
DESCRIPTION:
This is the interpretation of the donor's antibody screen.
65.62,.04 IS 0;4 FREE TEXT
Immediate spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 02, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.62,.05 37 C 0;5 FREE TEXT
37 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 02, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.62,.06 AHG 0;6 FREE TEXT
Anti-human globulin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 02, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.62,.07 CONTROL CELL 0;7 FREE TEXT
Antibody coated control cell
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 02, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.62,.08 ROOM TEMP 0;8 FREE TEXT
22-24 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 02, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.62,.09 12-18 C 0;9 FREE TEXT
12-18 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 02, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.62,.1 4 C 0;10 FREE TEXT
4 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 02, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,8.1 DONOR CELLS+ANTI A 8;1 FREE TEXT (Required)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 02, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,8.2 DONOR CELLS+ANTI B 8;2 FREE TEXT (Required)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 02, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,8.3 DONOR CELLS+ANTI A,B 8;3 FREE TEXT (Required)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 02, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,8.4 DONOR PLASMA/SERUM+A1 CELLS 8;4 FREE TEXT (Required)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 02, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,8.5 DONOR PLASMA/SERUM+B CELLS 8;5 FREE TEXT (Required)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 02, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,9.1 DONOR CELLS+ANTI D 9;1 FREE TEXT (Required)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 03, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,9.2 DONOR CELLS+RH CONTROL 9;2 FREE TEXT (Required)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 03, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,9.3 DONOR CELLS+ANTI D (37 C) 9;3 FREE TEXT (Required)
DONOR CELLS+ANTI D INCUBATED AT 37 DEGREES CENTIGRADE
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 03, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,9.4 DONOR CELLS+RH CTRL (37 C) 9;4 FREE TEXT (Required)
DONOR CELLS+RH CONTROL INCUBATED AT 37 CENTIGRADE
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 03, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,9.5 DONOR CELLS+ANTI D (AHG) 9;5 FREE TEXT (Required)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 04, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,9.6 DONOR CELLS+RH CTRL (AHG) 9;6 FREE TEXT (Required)
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: APR 04, 1985
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,10 ABO INTERPRETATION 10;1 SET
INTERPRETATION OF ABO TESTING
'A' FOR A;
'O' FOR O;
'B' FOR B;
'AB' FOR AB;
'ND' FOR NOT DONE;
LAST EDITED: APR 10, 1990
DESCRIPTION:
This is the intererpretation of ABO grouping results.
CROSS-REFERENCE:65.5^AC^MUMPS
1)= S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"" ^LRE("AT",A,10,DA(1),DA)
2)= S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,10)):1,$P(^(10),U)="":1,1:0) S:A]""&(B)
^LRE("AT",A,10,DA(1),DA)=""
65.54,10.2 TECH ENTERING-ABO INTERP 10;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the technologist entering ABO interpretation.
65.54,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)="X" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment concerning the ABO testing.
EXECUTABLE HELP:S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,10.4 ABO INTERPRETATION RECHECK 10;4 SET
'A' FOR A;
'O' FOR O;
'B' FOR B;
'AB' FOR AB;
LAST EDITED: JUN 08, 1988
DESCRIPTION:
Recheck of ABO group interpretation
65.54,10.5 TECH ENTERING-ABO RECHECK 10;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Technologist entering ABO grouping recheck
65.54,10.6 ABO RECHECK COMMENT 10;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="X" D ^LRUB
LAST EDITED: JUN 08, 1988
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
ABO grouping recheck comment
EXECUTABLE HELP:S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,11 RH INTERPRETATION 11;1 SET
INTERPRETATION OF RH TESTING
'NEG' FOR NEGATIVE;
'POS' FOR POSITIVE;
'ND' FOR NOT DONE;
LAST EDITED: JUN 14, 1988
DESCRIPTION:
This is the interpretation of Rh typing results.
CROSS-REFERENCE:65.5^AE^MUMPS
1)= S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"" ^LRE("AT",A,11,DA(1),DA)
2)= S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,11)):1,$P(^(11),U)="":1,1:0) S:A]""&(B)
^LRE("AT",A,11,DA(1),DA)=""
65.54,11.2 TECH ENTERING-RH INTERP 11;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the technologist entering Rh interpretation.
65.54,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)="X" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment concerning the RH testing.
EXECUTABLE HELP:S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,11.4 RH INTERPRETATION RECHECK 11;4 SET
'POS' FOR POSITIVE;
'NEG' FOR NEGATIVE;
LAST EDITED: JUN 08, 1988
DESCRIPTION:
Rh interpretation recheck
65.54,11.5 TECH ENTERING-RH RECHECK 11;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Technologist entering Rh type recheck
65.54,11.6 RH TESTING RECHECK COMMENT 11;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="X" D ^LRUB
LAST EDITED: JUN 08, 1988
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
Rh testing recheck comment
EXECUTABLE HELP:S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,12 SYPHILIS SEROLOGY 12;1 SET
'1' FOR REACTIVE;
'0' FOR NEGATIVE;
'ND' FOR NOT DONE;
LAST EDITED: DEC 26, 1986
DESCRIPTION:
This is the results of syphilis serology test.
CROSS-REFERENCE:65.5^AF^MUMPS
1)= S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"" ^LRE("AT",A,12,DA(1),DA)
2)= S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,12)):1,$P(^(12),U)="":1,1:0) S:A]""&(B)
^LRE("AT",A,12,DA(1),DA)=""
65.54,12.2 TECH-SYPHILIS SEROLOGY 12;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Technologist entering syphilis serology results.
65.54,12.3 SYPHILIS SEROLOGY COMMENT 12;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="X" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment concerning the syphilis serology test.
EXECUTABLE HELP:S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,13 HBsAg 13;1 SET
Hepatitis B surface antigen
'1' FOR REACTIVE;
'0' FOR NEGATIVE;
'ND' FOR NOT DONE;
LAST EDITED: DEC 26, 1986
DESCRIPTION:
These are the results of hepatitis B surface antigen testing.
CROSS-REFERENCE:65.5^AG^MUMPS
1)= S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"" ^LRE("AT",A,13,DA(1),DA)
2)= S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,13)):1,$P(^(13),U)="":1,1:0) S:A]""&(B)
^LRE("AT",A,13,DA(1),DA)=""
65.54,13.2 TECH-HBsAg 13;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Technologist entering Hepatitis B surface antigen test results.
65.54,13.3 HBsAg COMMENT 13;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="X" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment concerning the HBsAg test.
EXECUTABLE HELP:S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,14 HIV ANTIBODY 14;1 SET
HUMAN IMMUNODEFICIENCY ANTIBODY
'1' FOR REACTIVE;
'0' FOR NEGATIVE;
'ND' FOR NOT DONE;
LAST EDITED: DEC 26, 1986
DESCRIPTION:
These are results of HIV antibody testing.
CROSS-REFERENCE:65.5^AH^MUMPS
1)= S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"" ^LRE("AT",A,14,DA(1),DA)
2)= S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,14)):1,$P(^(14),U)="":1,1:0) S:A]""&(B)
^LRE("AT",A,14,DA(1),DA)=""
65.54,14.2 TECH-HIV 14;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Technologist entering HTLV-III test results.
65.54,14.3 HIV TESTING COMMENT 14;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="X" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment concerning the HIV test.
EXECUTABLE HELP:S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,15 ANTIBODY SCREEN RESULT 15;1 SET
'0' FOR NEGATIVE;
'1' FOR POSITIVE;
'ND' FOR NOT DONE;
LAST EDITED: APR 06, 1985
DESCRIPTION:
These are the results of antibody screening.
CROSS-REFERENCE:65.5^AI^MUMPS
1)= S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"" ^LRE("AT",A,15,DA(1),DA)
2)= S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,15)):1,$P(^(15),U)="":1,1:0) S:A]""&(B)
^LRE("AT",A,15,DA(1),DA)=""
65.54,15.2 TECH-ANTIBODY SCREEN 15;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Technologist entering antibody screening test results.
65.54,15.3 ANTIBODY SCREEN COMMENT 15;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="X" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment concerning the antibody screen.
EXECUTABLE HELP:S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,16 HBcAb 16;1 SET
HEPATITIS CORE ANTIBODY
'1' FOR REACTIVE;
'0' FOR NEGATIVE;
'ND' FOR NOT DONE;
LAST EDITED: DEC 26, 1986
DESCRIPTION:
These are the results of hepatitis core antibody testing.
CROSS-REFERENCE:65.5^AJ^MUMPS
1)= S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"" ^LRE("AT",A,16,DA(1),DA)
2)= S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,16)):1,$P(^(16),U)="":1,1:0) S:A]""&(B)
^LRE("AT",A,16,DA(1),DA)=""
65.54,16.2 TECH-HBcAb 16;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the technologist entering Hepatitis Core Antibody results.
65.54,16.3 HBcAb TEST COMMENT 16;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="X" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment concerning the HBcAb test.
EXECUTABLE HELP:S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,17 ALT 17;1 SET
ALANINE-AMINO TRANSFERASE
'1' FOR ELEVATED;
'0' FOR NOT ELEVATED;
'ND' FOR NOT DONE;
LAST EDITED: NOV 18, 1986
DESCRIPTION:
These are the results of alanine-amino transferase testing.
CROSS-REFERENCE:65.5^AK^MUMPS
1)= S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"" ^LRE("AT",A,17,DA(1),DA)
2)= S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,17)):1,$P(^(17),U)="":1,1:0) S:A]""&(B)
^LRE("AT",A,17,DA(1),DA)=""
65.54,17.2 TECH-ALT 17;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the technologist entering alanine-amino transferase results.
65.54,17.3 ALT TEST COMMENT 17;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="X" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is a comment concerning the ALT test.
EXECUTABLE HELP:S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,18 HTLV-I ANTIBODY 18;1 SET
'1' FOR REACTIVE;
'0' FOR NEGATIVE;
'ND' FOR NOT DONE;
LAST EDITED: DEC 18, 1988
DESCRIPTION:
Results of HTLV-I antibody testing
CROSS-REFERENCE:65.5^AL^MUMPS
1)= S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"" ^LRE("AT",A,18,DA(1),DA)
2)= S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,18)):1,$P(^(18),U)="":1,1:0) S:A]""&(B)
^LRE("AT",A,18,DA(1),DA)=""
65.54,18.2 TECH-HTLV-I 18;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
65.54,18.3 HTLV-I TESTING COMMENT 18;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="X" D ^LRUB
LAST EDITED: DEC 18, 1988
HELP-PROMPT:ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
EXECUTABLE HELP:S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,19 HCV ANTIBODY 19;1 SET
'1' FOR REACTIVE;
'0' FOR NEGATIVE;
'ND' FOR NOT DONE;
LAST EDITED: MAR 10, 1990
DESCRIPTION:
Results of hepatitis C virus (HCV) antibody testing are
entered in this field.
CROSS-REFERENCE:65.5^AM^MUMPS
1)= S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"" ^LRE("AT",A,19,DA(1),DA)
2)= S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,19)):1,$P(^(19),U)="":1,1:0) S:A]""&(B)
^LRE("AT",A,19,DA(1),DA)=""
65.54,19.2 TECH-HCV ANTIBODY 19;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
65.54,19.3 HCV ANTIBODY TESTING COMMENT 19;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="X" D ^LRUB
LAST EDITED: MAR 10, 1990
HELP-PROMPT:Answer must be 1-80 characters in length.
EXECUTABLE HELP:S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,20 HIV ANTIGEN 20;1 SET
'1' FOR REACTIVE;
'0' FOR NEGATIVE;
'ND' FOR NOT DONE;
LAST EDITED: APR 09, 1996
DESCRIPTION:
HIV antigen testing for blood donors
CROSS-REFERENCE:65.5^AN^MUMPS
1)= S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"" ^LRE("AT",A,20,DA(1),DA)
2)= S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,20)):1,$P(^(20),U)="":1,1:0) S:A]""&(B)
^LRE("AT",A,20,DA(1),DA)=""
65.54,20.2 TECH-HIV ANTIGEN 20;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 09, 1995
DESCRIPTION:
Technologist performing HIV antigen testing
65.54,20.3 HIV ANTIGEN COMMENT 20;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="X" D ^LRUB
LAST EDITED: DEC 09, 1995
HELP-PROMPT:Answer must be 1-80 characters in length.
DESCRIPTION:
Comment related to HIV antigen testing
EXECUTABLE HELP:S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.54,66 BLOOD COMPONENT 66;0 POINTER Multiple #65.66 (Add New Entry without Asking)
DESCRIPTION:
These are blood components prepared from the collection.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""BB"""
EXPLANATION:SELECTS ONLY PRODUCTS PRODUCED DIRECTLY FROM DONOR COLLECTION
65.66,.01 BLOOD COMPONENT 0;1 POINTER TO BLOOD PRODUCT FILE (#66) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""BB"""_$S($D(LRB(8)):",$P(^(0),U,12)=LRB(8)",1:"") D ^DIC K D
IC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: DEC 26, 1986
HELP-PROMPT:The selection must be a blood component.
DESCRIPTION:
Blood component prepared from collection.
EXECUTABLE HELP:W !?6,"The anticoagulant in the collection bag",!?6,"must be appropriate to the component
selected.",!?6,"Number of components selected cannot exceed number",!?6,"allowed for the primary c
ollection bag."
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:65.66^B
1)= S ^LRE(DA(2),5,DA(1),66,"B",$E(X,1,30),DA)=""
2)= K ^LRE(DA(2),5,DA(1),66,"B",$E(X,1,30),DA)
65.66,.02 COMPONENT DISP DATE/TIME 0;2 DATE
DATE/TIME OF COMPONENT DISPOSITION
INPUT TRANSFORM:S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: JAN 05, 1989
DESCRIPTION:
Date/time at which the component was released to stock,
quarantined or discarded.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.66,.03 DATE/TIME STORED 0;3 DATE (Required)
INPUT TRANSFORM:S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) K:X'["." X I $D(X) S T=$S($D(^
LRE(DA(2),5,DA(1),2)):$P(^(2),U,4),1:"") K:X500)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 26, 1986
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 500
DESCRIPTION:
Volume in milliliters (ml) of component prepared.
65.66,.06 TECH LABELING 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
This is the person initially reviewing the donor results and if appropriate, placing the correct
labels on the component.
65.66,.07 DISPOSITION TECH 0;7 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Person verifying that the donor results and the
labelling are acceptable and that the component
can be released to inventory.
65.66,.08 COMPONENT DISPOSITION 0;8 SET
'0' FOR RELEASE COMPONENT;
'1' FOR QUARANTINE;
'2' FOR DISCARD;
LAST EDITED: JAN 13, 1986
DESCRIPTION:
This is the disposition of component.
65.66,1 COMPONENT DISPOSITION COMMENT 1;0 Multiple #65.67 (Add New Entry without Asking)
DESCRIPTION:
This is a comment concerning the component disposition.
65.67,.01 COMPONENT DISPOSITION COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X I $D(X) S L=80,L(1)="D" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT:ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
This is the reason component quarantined or discarded.
EXECUTABLE HELP:S L(1)="D" D Q^LRUB
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.66,2 SEDIMENTING AGENT 2;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
LAST EDITED: JAN 13, 1986
HELP-PROMPT:ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
This is the sedimenting agent used on this component.
65.66,3 DRUG 3;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
This drug is associated with this component.
65.54,70 GENERAL APPEARANCE 70;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X
LAST EDITED: APR 15, 1985
HELP-PROMPT:ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
65.54,71 VENIPUNCTURE SITE 71;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X
HELP-PROMPT:ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
65.54,72 ORAL TEMPERATURE 72;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>110)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: APR 15, 1985
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 110
65.54,73 BLOOD PRESSURE 73;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<5)!'(X?1N.N1"/"1N.N) X
LAST EDITED: APR 15, 1985
HELP-PROMPT:ANSWER MUST BE 5-7 CHARACTERS IN LENGTH
65.54,74 PULSE 74;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>299)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 15, 1985
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 0 AND 299
65.54,74.3 PULSE COMMENT 74;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X
LAST EDITED: APR 15, 1985
HELP-PROMPT:ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
65.54,75 WEIGHT (lb) 75;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>500)!(X<65)!(X?.E1"."1N.N) X
LAST EDITED: APR 15, 1985
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 65 AND 500
65.54,80 HEMOGLOBIN 80;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
LAST EDITED: APR 15, 1985
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
65.54,81 HEMATOCRIT 81;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
65.54,82 TOTAL SERUM PROTEIN 82;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
65.54,83 SERUM PROTEIN ELECTROPHORESIS 83;0 Multiple #65.6 (Add New Entry without Asking)
65.6,.01 SERUM PROTEIN ELECTROPHORESIS 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X
LAST EDITED: APR 15, 1985
HELP-PROMPT:ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
65.54,84 IgG 84;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
LAST EDITED: APR 15, 1985
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
65.54,85 IgM 85;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
65.54,86 WBC 86;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
65.54,87 POLYS 87;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
65.54,88 EOSINOPHILS 88;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
65.54,89 BASOPHILS 89;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
65.54,90 LYMPHOCYTES 90;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
65.54,91 MONOCYTES 91;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
65.54,92 PLATELET COUNT 92;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1) X
HELP-PROMPT:ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
65.54,500 WORKLOAD TEST/PROCEDURE 99;0 POINTER Multiple #65.599 (Add New Entry without Asking)
DESCRIPTION:
Tests or procedures containing WKLD codes for donor workload are
entered here.
65.599,.01 WORKLOAD TEST/PROCEDURE 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,4)=""BB""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINU
M=X
LAST EDITED: NOV 05, 1990
DESCRIPTION:
Tests or procedures containing WKLD codes for donor workload are
entered here.
SCREEN:S DIC("S")="I $P(^(0),U,4)=""BB"""
EXPLANATION:Selects only blood bank tests.
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.599,1 COMPLETE DATE/TIME 1;0 DATE Multiple #65.5991 (Add New Entry without Asking)
65.5991,.01 COMPLETE DATE/TIME 0;1 DATE (Multiply asked)
INPUT TRANSFORM:S %DT="ETXR" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X
LAST EDITED: MAR 03, 1993
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:65.5^AA^MUMPS
1)= S A=$P(^LRE(DA(3),5,DA(2),99,DA(1),1,DA,0),U,3) S:'A ^LRE("AA",DA(3),DA(2),DA(1),DA)=$P(^LRE(DA
(3),5,DA(2),0),U,4)
2)= K ^LRE("AA",DA(3),DA(2),DA(1),DA)
Used for workload recording. If x-ref exists workload needs to be counted.
65.5991,.02 TECH 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 28, 1991
65.5991,1 WKLD CODE 1;0 POINTER Multiple #65.59911 (Add New Entry without Asking)
65.59911,.01 WKLD CODE 0;1 POINTER TO WKLD CODE FILE (#64) (Multiply asked)
INPUT TRANSFORM:S DINUM=X
LAST EDITED: JAN 28, 1991
NOTES:XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.59911,.02 WKLD CODE COUNT 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 28, 1991
HELP-PROMPT:Type a Number between 0 and 999, 0 Decimal Digits
65.59911,.03 WKLD CODE COUNTED 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JAN 28, 1991
65.5,6.1 RBC ANTIGEN PRESENT 1.1;0 POINTER Multiple #65.56 (Add New Entry without Asking)
DESCRIPTION: Antigens identified as present on the red blood cells
of the donor. SNOMED codes can be entered as well as
the name of the antigen. Synonyms can also be used
if they are in the function field file (#61.3)
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION: Selects antigens
65.56,.01 RBC ANTIGEN PRESENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC("S")="I $P(^(0),U,5)=""AN""" D ^DIC K DI
C S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION: Antigens identified as present on the red blood cells
of the donor. SNOMED codes can be entered as well as
the name of the antigen. Synonyms can also be used if
they have been entered in the function field file (#61.3).
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION: Limits selection to only RBC Antigens
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.56,1 COMMENT 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 07, 1986
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
65.5,6.2 RBC ANTIGEN ABSENT 1.2;0 POINTER Multiple #65.57 (Add New Entry without Asking)
DESCRIPTION:
Multiple for RBC Antigen absent
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION: Selects only antigens
65.57,.01 RBC ANTIGEN ABSENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC("S")="I $P(^(0),U,5)=""AN""" D ^DIC K DI
C S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION: Antigens identified as being absent on the red blood cells
of the donor. SNOMED codes as well as the name of the
antigen can be entered. Synonyms can also be entered if
they have been entered in the function field file (#61.3).
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION: Limits selection to only RBC Antigens
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.57,1 COMMENT 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 07, 1986
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
65.5,6.3 HLA ANTIGEN PRESENT 1.3;0 POINTER Multiple #65.58 (Add New Entry without Asking)
DESCRIPTION:
Multiple for HLA antigen present
SCREEN: S DIC("S")="I $P(^(0),U,5)=""HL"""
EXPLANATION: Selects HLA antigens
65.58,.01 HLA ANTIGEN PRESENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC("S")="I $P(^(0),U,5)=""HL""" D ^DIC K DI
C S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION:
HLA antigens present on WBCs are entered here.
SCREEN: S DIC("S")="I $P(^(0),U,5)=""HL"""
EXPLANATION: Limits selection to only HLA Antigens
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.58,1 COMMENT 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 07, 1986
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
65.5,6.4 HLA ANTIGEN ABSENT 1.4;0 POINTER Multiple #65.59 (Add New Entry without Asking)
DESCRIPTION:
Multiple for HLA antigen absent
SCREEN: S DIC("S")="I $P(^(0),U,5)=""HL"""
EXPLANATION: Selects only HLA antigens
65.59,.01 HLA ANTIGEN ABSENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC("S")="I $P(^(0),U,5)=""HL""" D ^DIC K DI
C S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION:
HLA antigens absent on the WBCs are entered here
SCREEN: S DIC("S")="I $P(^(0),U,5)=""HL"""
EXPLANATION: Limits selection to only HLA Antigens
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.59,1 COMMENT 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 07, 1986
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
65.5,6.5 CMV ANTIBODY 0;15 SET
'0' FOR NEG;
'1' FOR POS;
LAST EDITED: MAR 19, 1988
DESCRIPTION:
A negative or positive result for the Cytomegalovirus antibody
65.5,9 BLOOD DONOR COMMENTS 9;0 WORD-PROCESSING #65.52
DESCRIPTION:
This field contains comments about the donor not found elsewhere.
Is this field necessary ? See Donor Scheduling/Recall
LAST EDITED: JAN 07, 1987
DESCRIPTION: Specialized instructions/information for the donor which
need to be brought to the attention of the person
performing the donor's medical history interview.
65.5,63 LABORATORY REFERENCE LR;1 POINTER TO LAB DATA FILE (#63)
INTERNAL FILE NUMBER IN FILE 63 (LAB RESULTS)
INPUT TRANSFORM: K X
LAST EDITED: APR 06, 1985
HELP-PROMPT: NOT EDITABLE
DESCRIPTION:
This field is a pointer to the lab data stored in the lab data file (#63)
DELETE TEST: 1,0)= I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.5,99 PERMANENT DEFERRAL REASON 99;0 WORD-PROCESSING #65.99
DESCRIPTION:
Reason(s) why donor is permanently deferred
LAST EDITED: APR 02, 1985
HELP-PROMPT: Describe the reasons why donor is permanently rejected from donating.
DESCRIPTION:
Reason(s) why donor is permanently deferred
FILES POINTED TO FIELDS
BLOOD BANK UTILITY (#65.4) GROUP AFFILIATION:GROUP AFFILIATION (#.01)
DONATION OR DEFERRAL DATE:COLLECTION SITE (#.02)
DONATION GROUP (#.03)
DONOR REACTION CODE (#3)
DEFERRAL REASON:DEFERRAL REASON (#.01)
BLOOD PRODUCT (#66) ANTISERUM:ANTISERUM (#.01)
BLOOD COMPONENT:BLOOD COMPONENT (#.01)
FUNCTION FIELD (#61.3) RBC ANTIGEN PRESENT:RBC ANTIGEN PRESENT (#.01)
RBC ANTIGEN ABSENT:RBC ANTIGEN ABSENT (#.01)
HLA ANTIGEN PRESENT:HLA ANTIGEN PRESENT (#.01)
HLA ANTIGEN ABSENT:HLA ANTIGEN ABSENT (#.01)
LAB DATA (#63) LABORATORY REFERENCE (#63)
LABORATORY TEST (#60) WORKLOAD TEST/PROCEDURE:WORKLOAD TEST/PROCEDURE (#.01)
NEW PERSON (#200) DEMOG ENT/EDIT BY (#.09)
DEFERRAL ENTER/EDIT BY (#.12)
DONATION OR DEFERRAL DATE:DONATION ENTERED/EDIT BY (#.011)
PROCESSING TECH (#4.8)
TECH ENTERING-ABO INTERP (#10.2)
TECH ENTERING-ABO RECHECK (#10.5)
TECH ENTERING-RH INTERP (#11.2)
TECH ENTERING-RH RECHECK (#11.5)
TECH-SYPHILIS SEROLOGY (#12.2)
TECH-HBsAg (#13.2)
TECH-HIV (#14.2)
TECH-ANTIBODY SCREEN (#15.2)
TECH-HBcAb (#16.2)
TECH-ALT (#17.2)
TECH-HTLV-I (#18.2)
TECH-HCV ANTIBODY (#19.2)
TECH-HIV ANTIGEN (#20.2)
COMPLETE DATE/TIME:TECH (#.02)
RBC TYPING METHOD:TECHNOLOGIST (#.03)
BLOOD COMPONENT:TECH LABELING (#.06)
DISPOSITION TECH (#.07)
STATE (#5) STATE (#1.5)
WKLD CODE (#64) WKLD CODE:WKLD CODE (#.01)
INPUT TEMPLATE(S):
LRBLDABRH FEB 03, 1991@15:56 USER #0
LRBLDAG FEB 05, 1991@12:32 USER #0
LRBLDC AUG 28, 1988 USER #0
LRBLDCP MAR 19, 1997@10:45 USER #0
LRBLDCPN AUG 22, 1990@10:47 USER #0
LRBLDEDIT MAY 04, 1987 USER #0
LRBLDEF OCT 17, 1988 USER #0
LRBLDEMO NOV 19, 1996@07:45 USER #0
LRBLDNEW APR 02, 1993@06:56 USER #0
LRBLDNEWM APR 02, 1993@06:57 USER #0
LRBLDOLD MAY 01, 1997@12:14 USER #0
LRBLDON SEP 10, 1990@06:52 USER #0
LRBLDT DEC 09, 1995@13:45 USER #0
LRBLDUC FEB 28, 1991@14:30 USER #0
PRINT TEMPLATE(S):
LRBL APHERESIS DONORS JUL 15, 1985 USER #0 APHERESIS DONORS
LRBL COLLECTION DISP RPT JAN 14, 1986 USER #0 COLLECTION DISPOSITION REPORT
LRBL DEFERRAL REPORT JAN 27, 1986 USER #0 DEFERRAL REPORT
LRBL DONOR TESTING REPORT DEC 18, 1988 USER #0 ^LRBLDPT BLOOD DONOR LIST
LRBL DONOR TESTING SUPPLEMENT MAR 22, 1996@14:29 USER #0 ^LRBLDPK BLOOD DONOR SUPPLEMENT
LRBL EMERGENCY DONORS JUL 12, 1985 USER #0 EMERGENCY DONOR LIST
LRBL EX-DONOR REPORT JUL 16, 1985 USER #0 EX-DONOR REPORT
LRBL FIRST TIME DONORS FEB 28, 1991@09:14 USER #0 FIRST TIME DONORS
LRBL GROUP AFFILIATION REPORT JAN 30, 1986 USER #0 GROUP AFFILIATION REPORT
LRBL GROUP DONATION REPORT JAN 30, 1986 USER #0 GROUP DONATION REPORT
LRBL MOBILE REPORT AUG 01, 1987 USER #0 MOBILE REPORT
LRBL MONTHLY RECALL LIST MAY 06, 1986 USER #0 MONTHLY RECALL LIST
LRBL PATIENT CREDIT AUG 25, 1985 USER #0 PATIENT CREDIT LIST
LRBL PRODUCT REJECTION REPORT JAN 14, 1986 USER #0 PRODUCT REJECTION REPORT
LRBL SHORT DRAW REPORT JUL 17, 1985 USER #0 SHORT DRAW REPORT
LRBLD GALLON JAN 22, 1987 USER #0 GALLON DONORS
LRBLD SCHEDULING JAN 17, 1987 USER #0 DONOR SCHEDULING REPORT
LRBLDPD NOV 20, 1986 USER #0 PERMANENT DONOR DEFERRAL LIST
SORT TEMPLATE(S):
LRBL APHERESIS DONORS DEC 13, 1989@10:04 USER #0
SORT BY: APHERESIS CODE// From '@' To '1'
WITHIN APHERESIS CODE, SORT BY: ABO GROUP// (User is asked range)
WITHIN ABO GROUP, SORT BY: RH TYPE;S2// (User is asked range)
WITHIN RH TYPE, SORT BY: 'DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION OR DEFERRAL DATE// (User is asked range)
WITHIN DONATION OR DEFERRAL DATE, SORT BY: NAME//
LRBL COLLECTION DISP RPT JAN 14, 1986 USER #0
SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION OR DEFERRAL DATE// (User is asked range)
WITHIN DONATION OR DEFERRAL DATE, SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: COLLECTION DISPOSITION// (COLLECTION DISPOSITION)
LRBL DEFERRAL REPORT JUL 15, 1985 USER #0
SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION/DEFERRAL CODE// From 'N' To 'N'
WITHIN DONATION/DEFERRAL CODE, SORT BY: DONATION OR DEFERRAL DATE;S2//
DONATION OR DEFERRAL DATE SUB-FIELD: COLLECTION SITE// (User is asked range)
WITHIN COLLECTION SITE, SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION OR DEFERRAL DATE// (User is asked range)
WITHIN DONATION OR DEFERRAL DATE, SORT BY: NAME//
LRBL DONOR TESTING REPORT MAR 12, 1990@07:19 USER #0
SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION OR DEFERRAL DATE// (User is asked range)
WITHIN DONATION OR DEFERRAL DATE, SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: UNIT ID// (UNIT ID not null)
LRBL EMERGENCY DONORS JUL 12, 1985 USER #0
SORT BY: DONOR SCHEDULING/RECALL//
DONOR SCHEDULING/RECALL SUB-FIELD: DONOR SCHEDULING/RECALL// From '16' To '16'
WITHIN DONOR SCHEDULING/RECALL, SORT BY: 'DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION OR DEFERRAL DATE// (User is asked range)
WITHIN DONATION OR DEFERRAL DATE, SORT BY: ABO GROUP// (User is asked range)
WITHIN ABO GROUP, SORT BY: RH TYPE// (User is asked range)
WITHIN RH TYPE, SORT BY: NAME//
LRBL FIRST TIME DONORS JAN 17, 1986 USER #0
SORT BY: DATE REGISTERED/EDITED// (User is asked range)
WITHIN DATE REGISTERED/EDITED, SORT BY: NAME// From 'A' To 'a'
LRBL GROUP AFFILIATION REPORT JAN 30, 1986 USER #0
SORT BY: GROUP AFFILIATION//
GROUP AFFILIATION SUB-FIELD: GROUP AFFILIATION// (User is asked range)
WITHIN GROUP AFFILIATION, SORT BY: NAME//
WITHIN NAME, SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION OR DEFERRAL DATE// (User is asked range)
LRBL GROUP DONATION REPORT JAN 30, 1986 USER #0
SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION GROUP// (User is asked range)
WITHIN DONATION GROUP, SORT BY: NAME//
WITHIN NAME, SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION OR DEFERRAL DATE// (User is asked range)
LRBL MOBILE REPORT AUG 01, 1987 USER #0
SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: COLLECTION SITE// (User is asked range)
WITHIN COLLECTION SITE, SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION GROUP//
WITHIN DONATION GROUP, SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION OR DEFERRAL DATE// (User is asked range)
LRBL MONTHLY RECALL LIST MAY 07, 1986 USER #0
SORT BY: DONOR SCHEDULING/RECALL//
DONOR SCHEDULING/RECALL SUB-FIELD: DONOR SCHEDULING/RECALL// (User is asked range)
WITHIN DONOR SCHEDULING/RECALL, SORT BY: NAME// (User is asked range)
WITHIN NAME, SORT BY: @@DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION OR DEFERRAL DATE// (User is asked range)
LRBL PATIENT CREDIT AUG 25, 1985 USER #0
SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: PATIENT CREDIT// (User is asked range)
WITHIN DONATION OR DEFERRAL DATE, SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION OR DEFERRAL DATE// (User is asked range)
LRBL PRODUCT REJECTION REPORT JAN 14, 1986 USER #0
SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION OR DEFERRAL DATE// (User is asked range)
WITHIN DONATION OR DEFERRAL DATE, SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: BLOOD COMPONENT//
BLOOD COMPONENT SUB-FIELD: COMPONENT DISPOSITION// From '1' To '2'
WITHIN COMPONENT DISPOSITION, SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: BLOOD COMPONENT//
BLOOD COMPONENT SUB-FIELD: BLOOD COMPONENT//
LRBL SHORT DRAW REPORT MAR 19, 1989 USER #0
SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: COLLECTION VOL (ml)// From '1' To '410'
WITHIN COLLECTION VOL (ml), SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION OR DEFERRAL DATE// (User is asked range)
LRBLD GALLON JAN 21, 1987 USER #0
SORT BY: ]TOTAL AWARDS//
WITHIN TOTAL AWARDS, SORT BY: NAME//
LRBLD SCHEDULING JAN 14, 1987 USER #0
SORT BY: ]DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION OR DEFERRAL DATE// (User is asked range)
WITHIN DONATION OR DEFERRAL DATE, SORT BY: DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: ARRIVAL/APPT TIME//
LRBLDPA JUN 19, 1992@16:33 USER #0
SORT BY: @NUMBER// (User is asked range)
WITHIN NUMBER, SORT BY: @DONATION OR DEFERRAL DATE//
DONATION OR DEFERRAL DATE SUB-FIELD: DONATION OR DEFERRAL DATE// (User is asked range)
LRBLDPD NOV 20, 1986 USER #0
SORT BY: PERMANENT DEFERRAL// From '1' To '1'
WITHIN PERMANENT DEFERRAL, SORT BY: NAME// (User is asked range)
FORM(S)/BLOCK(S):