Global: ^LRE

FileMan FileNo	FileMan Filename	Package
65.5	BLOOD DONOR	Lab Service

Accessed By FileMan Db Calls, Total: 16

Package	Total	Routines
Lab Service	16	LRBLD LRBLDA LRBLDC LRBLDCU LRBLDED LRBLDLG LRBLDMV LRBLDP LRBLDPA LRBLDPH LRBLDR LRBLDRR LRBLDRR2 LRBLDT LRBLDUC LRBLDX

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
Lab Service	1	WKLD DATA(#64.1)[#64.1111(9)]

Pointer To FileMan Files, Total: 8

Package	Total	FileMan Files
Lab Service	6	LABORATORY TEST(#60)[#65.599(.01)] FUNCTION FIELD(#61.3)[#65.56(.01), #65.57(.01), #65.58(.01), #65.59(.01)] BLOOD BANK UTILITY(#65.4)[#65.51(.01), #65.54(.02), #65.54(.03), #65.54(3), #65.55(.01)] BLOOD PRODUCT(#66)[#65.62(.01), #65.66(.01)] WKLD CODE(#64)[#65.59911(.01)] LAB DATA(#63)[63]
Kernel	2	STATE(#5)[1.5] NEW PERSON(#200)[.09, .12, #65.54(.011), #65.54(4.8), #65.54(10.2), #65.54(10.5), #65.54(11.2), #65.54(11.5), #65.54(12.2), #65.54(13.2), #65.54(14.2), #65.54(15.2), #65.54(16.2), #65.54(17.2), #65.54(18.2), #65.54(19.2), #65.54(20.2), #65.5991(.02), #65.61(.03), #65.66(.06), #65.66(.07)]

Fields, Total: 37

Field #	Name	Loc	Type	Details
.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.`
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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.`
.02	SEX	0;2	SET	'M' FOR MALE; 'F' FOR FEMALE; DESCRIPTION: `This is the sex of the blood donor.`
.03	DOB	0;3	DATE	**********************REQUIRED FIELD********************** 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)`
.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.`
.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'`
.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`
.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`
.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.`
.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`
.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 ^DICR:$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 ^DICR:$O(^DD(DIH,DIG,1,0))>` `0` `CREATE VALUE)= NO EFFECT` `DELETE VALUE)= TOTAL AWARDS+1` `FIELD)= TOTAL AWARDS`
.09	DEMOG ENT/EDIT BY	0;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 30, 1991` DESCRIPTION: `Person entering or editing donor demographic data`
.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.`
.11	DATE REGISTERED/EDITED	0;11	DATE	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`
.12	DEFERRAL ENTER/EDIT BY	0;12	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 30, 1991` DESCRIPTION: `Person entering or editing permanent deferral of donor.`
.13	SSN	0;13	FREE TEXT	**********************REQUIRED FIELD********************** 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)`
.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.`
.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.`
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`
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)`
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)`
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`
1.5	STATE	1;5	POINTER TO STATE FILE (#5)	STATE(#5) DESCRIPTION: `State of donor residence..`
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`
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`
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`
2	GROUP AFFILIATION	2;0	POINTER Multiple #65.51	65.51 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`
4	DONOR SCHEDULING/RECALL	4;0	SET Multiple #65.53	65.53 DESCRIPTION: `These are donors placed on a specific recall list for recruitment purposes.`
5	DONATION OR DEFERRAL DATE	5;0	DATE Multiple #65.54	65.54 DESCRIPTION: `These are the dates of donation or referral.`
6.1	RBC ANTIGEN PRESENT	1.1;0	POINTER Multiple #65.56	65.56 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`
6.2	RBC ANTIGEN ABSENT	1.2;0	POINTER Multiple #65.57	65.57 DESCRIPTION: `Multiple for RBC Antigen absent` SCREEN: `S DIC("S")="I $P(^(0),U,5)=""AN"""` EXPLANATION: `Selects only antigens`
6.3	HLA ANTIGEN PRESENT	1.3;0	POINTER Multiple #65.58	65.58 DESCRIPTION: `Multiple for HLA antigen present` SCREEN: `S DIC("S")="I $P(^(0),U,5)=""HL"""` EXPLANATION: `Selects HLA antigens`
6.4	HLA ANTIGEN ABSENT	1.4;0	POINTER Multiple #65.59	65.59 DESCRIPTION: `Multiple for HLA antigen absent` SCREEN: `S DIC("S")="I $P(^(0),U,5)=""HL"""` EXPLANATION: `Selects only HLA antigens`
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`
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.`
63	LABORATORY REFERENCE	LR;1	POINTER TO LAB DATA FILE (#63)	LAB DATA(#63) 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`
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`

Customize PDF page

Package: Lab Service

Global: ^LRE

Information

Description

Accessed By FileMan Db Calls, Total: 16

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 8

Fields, Total: 37