Global: ^LRD(65

FileMan FileNo	FileMan Filename	Package
65	BLOOD INVENTORY	Lab Service

Package	Total	Routines
Lab Service	90	BLOOD SAMPLE DATE/TIME COMPLETE DATE/TIME DATE RE-ENTERED DATE/TIME UNIT RELOCATION LR7OSBR1 LRBL DISPOSITION TOTALS LRBL WASTAGE LRBL WASTAGE-2 LRBLA LRBLAA LRBLAB LRBLAUD LRBLAUD1 LRBLBU LRBLC LRBLCAP LRBLCMV LRBLDEL LRBLDELT LRBLDP LRBLDRR1 LRBLIABRH LRBLIAG LRBLID LRBLIDTM LRBLILG LRBLINV LRBLIXR LRBLJA LRBLJA1 LRBLJB LRBLJC LRBLJCK LRBLJD LRBLJD1 LRBLJDA LRBLJDM LRBLJDP LRBLJED LRBLJI LRBLJL LRBLJL1 LRBLJLG LRBLJLG1 LRBLJM LRBLJM1 LRBLJPA LRBLJPA1 LRBLJPA2 LRBLJPH LRBLJPP LRBLJR LRBLJRB LRBLJSH LRBLJT LRBLJTS1 LRBLJU LRBLJU1 LRBLJUT LRBLJX ^LRD(65 LRBLJW LRBLP LRBLPBR1 LRBLPCS LRBLPED LRBLPED1 LRBLPED2 LRBLPIT LRBLPT LRBLPT1 LRBLPTR LRBLPUS LRBLPUS1 LRBLPUS2 LRBLPX LRBLPX1 LRBLQPR LRBLQST LRBLRCT LRBLSET LRBLU LRBLUL LRBLW LRCAPBB LRSETUP LRUBL LRXREF1 PATIENT XMATCHED/ASSIGNED RELATED NAME
VBECS	4	VBECA4 VBECDC00 VBECDCR VBECDCX
DSS Extracts	1	ECXLBB
Surgery	1	SRBLOOD

Package	Total	Routines
Lab Service	19	LRBLJA LRBLJCK LRBLJD LRBLJD1 LRBLJED LRBLJL LRBLJLG LRBLJLG1 LRBLJM LRBLJM1 LRBLJP LRBLJPA1 LRBLJW LRBLPED LRBLPP LRBLPT1 LRBLPUS2 LRBLPX LRCAPBV
VBECS	1	VBECPOST

Package	Total	FileMan Files
Lab Service	2	LAB DATA(#63)[#63.0841(.01)] WKLD DATA(#64.1)[#64.1111(9)]

Package	Total	FileMan Files
Lab Service	6	LABORATORY TEST(#60)[#65.3(.01)] FUNCTION FIELD(#61.3)[#65.04(.01), #65.05(.01), #65.08(.01), #65.09(.01)] BLOOD BANK UTILITY(#65.4)[6.8] BLOOD PRODUCT(#66)[.04, #65.091(.01)] WKLD CODE(#64)[#65.311(.01)] ACCESSION(#68)[#65.31(.04), #65.31(.05)]
Kernel	2	INSTITUTION(#4)[.16, #65.31(.03)] NEW PERSON(#200)[.09, 4.3, 6.6, 10.2, 11.2, #65.02(.05), #65.02(.08), #65.03(.03), #65.15(.04), #65.15(.07), #65.31(.02)]
Registration	2	FACILITY TREATING SPECIALTY(#45.7)[6.7, #65.02(.07)] PATIENT(#2)[#65.03(.07)]

Fields, Total: 71

Field #	Name	Loc	Type	Details
.01	UNIT ID	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45)!(X[" ") X I $D(X) K:$L(X)>13!($L(X)<2)!'(X?.ANP) X` LAST EDITED: `OCT 15, 2000` HELP-PROMPT: `ANSWER MUST BE 2-13 CHARACTERS IN LENGTH, NO SPACES ALLOWED` DESCRIPTION: `The unit identification on the blood product label.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `65^B` `1)= S ^LRD(65,"B",$E(X,1,30),DA)=""` `2)= K ^LRD(65,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `65^AJ^MUMPS` `1)= S Y=^LRD(65,DA,0) I $P(Y,U,4),$P(Y,U,6),$P($G(^LRD(65,DA,4)),U)="" S ^LRD(65,"AI",$P(Y,U,4),X,$P(Y,U,6),DA)=""` `2)= S Y=^LRD(65,DA,0) I $P(Y,U,4),$P(Y,U,6) K ^LRD(65,"AI",$P(Y,U,4),X,$P(Y,U,6),DA)` CROSS-REFERENCE: `65^AT^MUMPS` `1)= S:'$D(^LRD(65,DA,10)) (^LRD(65,"AT",X,10,DA),^LRD(65,"AT",X,11,DA))="" I '$D(^LRD(65,DA,4)) F Z=0:0 S Z=$O(^LRD(65,DA,2,Z)) Q:Z<1 S:$P(^(Z,0),U,2) ^LRD(65,"AP",Z,DA)=""` `2)= K ^LRD(65,"AT",X) F Z=0:0 S Z=$O(^LRD(65,DA,2,Z)) Q:Z<1 K ^LRD(65,"AP",Z,DA)` CROSS-REFERENCE: `65^C^MUMPS` `1)= D S^LRBLU` `2)= D K^LRBLU`
.02	SOURCE	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) S C=$P(^LRD(65,DA,0),U,4) I C K:'$D(^LAB(66,C,"SU","B",X)) X` LAST EDITED: `AUG 14, 1990` HELP-PROMPT: `Entry must be one of the following:` DESCRIPTION: `Collecting facility` EXECUTABLE HELP: `W "Type exactly as shown:" S C=+$P(^LRD(65,DA,0),U,4),X=0 F A=0:0 S X=$O(^LAB(66,C,"SU","B",X)) Q:X="" W !?15,X` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `65^AO^MUMPS` `1)= D S^LRBLU` `2)= D K^LRBLU`
.03	INVOICE#	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` LAST EDITED: `MAY 02, 1985` HELP-PROMPT: `ANSWER MUST BE 2-10 CHARACTERS IN LENGTH` DESCRIPTION: `Number on invoice accompanying unit`
.04	COMPONENT	0;4	POINTER TO BLOOD PRODUCT FILE (#66)	**********************REQUIRED FIELD********************** BLOOD PRODUCT(#66) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,4)=""BB""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) C^LRBLUL` LAST EDITED: `APR 13, 1993` DESCRIPTION: `Name of blood product` SCREEN: `S DIC("S")="I $P(^(0),U,4)=""BB"""` EXPLANATION: `Selects only blood bank products` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `65^AK^MUMPS` `1)= S Y=^LRD(65,DA,0) I $P(Y,U,6),$P($G(^LRD(65,DA,4)),U)="" S ^LRD(65,"AI",X,$P(Y,U),$P(Y,U,6),DA)=""` `2)= S Y=^LRD(65,DA,0) K:$P(Y,U,6) ^LRD(65,"AI",X,$P(Y,U,1),$P(Y,U,6),DA)` CROSS-REFERENCE: `65^AH^MUMPS` `1)= S Y=$P(^LRD(65,DA,0),U,6) I Y,$P($G(^LRD(65,DA,4)),U)="" S ^LRD(65,"AE",X,Y,DA)=""` `2)= S Y=$P(^LRD(65,DA,0),U,6) K:Y ^LRD(65,"AE",X,Y,DA)` CROSS-REFERENCE: `65^AQ^MUMPS` `1)= D S^LRBLU` `2)= D K^LRBLU`
.05	DATE/TIME RECEIVED	0;5	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X` LAST EDITED: `MAY 02, 1985` DESCRIPTION: `Date/time component received. Allows current and past times but disallows future times.` EXECUTABLE HELP: `W !,"You cannot enter a date/time beyond:" S %DT="T",X="N" D ^%DT,D^LRU K %DT W " ",Y,!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `65^A^MUMPS` `1)= S ^LRD(65,"A",$E(X,1,30),DA)="" D:$D(DIU(0)) A65^LRXREF1` `2)= K ^LRD(65,"A",$E(X,1,30),DA)`
.06	EXPIRATION DATE/TIME	0;6	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXF" D ^%DT S X=Y K:Y<1 X I $D(X) S X(1)=X,%DT="T",X="N" D ^%DT S X=X(1) I $P(X,".")'>$P(Y,".") W $C(7),!,"Unit expired or expires today." S LRA="*"` LAST EDITED: `MAY 24, 1999` DESCRIPTION: `Expiration date/time of unit` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `65^AE^MUMPS` `1)= I $P(^LRD(65,DA,0),U,4),$P($G(^LRD(65,DA,4)),U)="" S ^LRD(65,"AE",$P(^LRD(65,DA,0),U,4),X,DA)=""` `2)= K:$P(^LRD(65,DA,0),U,4) ^LRD(65,"AE",$P(^LRD(65,DA,0),U,4),X,DA)` CROSS-REFERENCE: `65^AI^MUMPS` `1)= S Y=^LRD(65,DA,0) I $P(Y,U,4),$P($G(^LRD(65,DA,4)),U)="" S ^LRD(65,"AI",$P(Y,U,4),$P(Y,U),X,DA)=""` `2)= S Y=^LRD(65,DA,0) K:$P(Y,U,4) ^LRD(65,"AI",$P(Y,U,4),$P(Y,U),X,DA)`
.07	ABO GROUP	0;7	SET	**********************REQUIRED FIELD********************** 'A' FOR A; 'B' FOR B; 'O' FOR O; 'AB' FOR AB; 'NA' FOR N/A; LAST EDITED: `MAY 12, 1985` DESCRIPTION: `ABO blood group of unit. If ABO group is not applicable to the unit or component (ex. a mixed pool of compatible ABO types) enter NA for N/A (not applicable)`
.08	RH TYPE	0;8	SET	**********************REQUIRED FIELD********************** 'POS' FOR POSITIVE; 'NEG' FOR NEGATIVE; 'NA' FOR N/A; LAST EDITED: `MAY 12, 1985` DESCRIPTION: `Rh type of unit. If RH TYPE not applicable to the unit or component enter NA for N/A (not applicable or necessary).`
.09	LOG-IN PERSON	0;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 30, 1991` DESCRIPTION: `Person entering unit in file.`
.1	COST	0;10	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X` LAST EDITED: `MAY 02, 1985` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 99999` DESCRIPTION: `Cost of unit`
.11	VOLUME (ml)	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 11, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 9999` DESCRIPTION: `Volume of unit or component`
.12	TYPING CHARGE	0;12	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999)!(X<0) X` LAST EDITED: `MAY 02, 1985` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 999` DESCRIPTION: `Charge assigned by organization performing antigen typing`
.13	SHIPPING INVOICE#	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` LAST EDITED: `MAY 02, 1985` HELP-PROMPT: `Enter RETURN invoice # to SUPPLIER (2-10 characters)` DESCRIPTION: `Invoice (order) number identified with returned shipment to supplier.`
.14	RETURN CREDIT	0;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<2)!'(X?1"-".N) X` LAST EDITED: `FEB 12, 1996` HELP-PROMPT: `Entry must begin with a minus (-) then amount of credit (ex. -37.50)` DESCRIPTION: `Credit given for returning unit to supplier or sending unit elsewhere` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.16	DIVISION	0;16	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) INPUT TRANSFORM: `S DIC("S")="I +$G(^DIC(4,+Y,99))=+$P($$SITE^VASITE,U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 08, 1999` DESCRIPTION: `The division where the unit resides. If the unit is being transferred to another division, enter the New division.` SCREEN: `S DIC("S")="I +$G(^DIC(4,+Y,99))=+$P($$SITE^VASITE,U,3)"` EXPLANATION: `Allows only divisions for site` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `65^D` `1)= S ^LRD(65,"D",$E(X,1,30),DA)=""` `2)= K ^LRD(65,"D",$E(X,1,30),DA)` `Quick identification of units by division.`
1.1	BAG LOT #	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `DEC 27, 1992` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `You may enter the bag lot number if preparing a component from a unit in inventory.`
2	PATIENT XMATCHED/ASSIGNED	2;0	Multiple #65.01	65.01 LAST EDITED: `JUN 19, 1984` HELP-PROMPT: `ANSWER MUST BE 2-10 CHARACTERS IN LENGTH` DESCRIPTION: `On the left of NAME is the internal number in lab results file.` `On the right of NAME is the last characters of the patient's SSN.` IDENTIFIED BY: `PATIENT XMATCHED/ASSIGNED(#.01)`
3	DATE/TIME UNIT RELOCATION	3;0	DATE Multiple #65.03	65.03 DESCRIPTION: `These are dates/times the unit is relocated from one location to another. EXAMPLE: From blood bank to surgery or from surgery to blood bank.`
4.1	DISPOSITION	4;1	SET	'R' FOR RETURN TO SUPPLIER; 'T' FOR TRANSFUSE; 'D' FOR DISCARD; 'S' FOR SEND ELSEWHERE; 'M' FOR MICROBIOLOGY/RESEARCH; 'MO' FOR MODIFY; 'SA' FOR SALVAGED; LAST EDITED: `DEC 14, 1992` DESCRIPTION: `Final disposition of the unit` CROSS-REFERENCE: `65^AC^MUMPS` `1)= S A=^LRD(65,DA,0),B=$P(A,U,4),C=$P(A,U,6) K:B]""&(C]"") ^LRD(65,"AE",B,C,DA),^LRD(65,"AI",B,$P(A,U),C,DA)` `2)= S A=^LRD(65,DA,0),B=$P(A,U,4),C=$P(A,U,6) S:B]""&(C]"") ^LRD(65,"AE",B,C,DA)="",^LRD(65,"AI",B,$P(A,U),C,DA)=""` CROSS-REFERENCE: `65^APS^MUMPS` `1)= F X(1)=0:0 S X(1)=$O(^LRD(65,DA,2,X(1))) Q:'X(1) K ^LRD(65,"AP",X(1),DA)` `2)= F X(1)=0:0 S X(1)=$O(^LRD(65,DA,2,X(1))) Q:'X(1) S:$P(^(X(1),0),U,2) ^LRD(65,"AP",X(1),DA)=""` CROSS-REFERENCE: `65^AG^MUMPS` `1)= D S1^LRBLU` `2)= I '$D(DIU(0)),$D(^LRD(65,DA,6)) D K1^LRBLU`
4.2	DISPOSITION DATE	4;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X` LAST EDITED: `OCT 25, 1988` HELP-PROMPT: `Enter only past or present Date/time` DESCRIPTION: `Date of final disposition` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `65^AB` `1)= S ^LRD(65,"AB",$E(X,1,30),DA)=""` `2)= K ^LRD(65,"AB",$E(X,1,30),DA)`
4.3	DISPOSITION ENTERING PERSON	4;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 30, 1991` DESCRIPTION: `Person entering final disposition`
4.4	POOLED/DIVIDED UNITS	4;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<3)!'(X?1"("1N.N1")") X` LAST EDITED: `DEC 26, 1985` HELP-PROMPT: `Enter number of units in pool enclosed in parentheses; ex. (5)` DESCRIPTION: `Number of units in pool OR number of aliquots into which` `a unit of blood/blood component has been divided`
4.5	SHIP TO	4;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>68!($L(X)<2) X I $D(X) S L=68,L(1)="D" D ^LRUB` LAST EDITED: `APR 08, 1988` HELP-PROMPT: `MUST BE 2-68 CHARACTERS IN LENGTH, CAN USE LAB DESCRIPTION FILE ENTRIES WITH BB DISP SCREEN` DESCRIPTION: `If unit is returned to sender or shipped elsewhere enter` `name/location of facility where sent.` EXECUTABLE HELP: `S L(1)="D" D Q^LRUB` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
5	DISPOSITION COMMENT	5;0	Multiple #65.06	65.06 LAST EDITED: `OCT 28, 1984` DESCRIPTION: `These are final disposition comments.` EXECUTABLE HELP: `W *7,!!,"TO enter expired units answer Y to the prompt:",!?5,"Unit expired or expires TODAY. Want to enter unit ? NO//",!,"To delete unit enter ^ after EXPIRATION DATE:",!!`
6.1	PATIENT TRANSFUSED	6;1	FREE TEXT	INPUT TRANSFORM: `D ^LRUG` OUTPUT TRANSFORM: `I Y,$D(^LR(Y,0)) S 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)_" "_$P(Y,U,9)` LAST EDITED: `MAY 01, 1989` HELP-PROMPT: `Enter patient name` DESCRIPTION: `Name of patient transfused` EXECUTABLE HELP: `S X="?" D ^LRUG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6.12	PARENT FILE		COMPUTED	MUMPS CODE: `I $D(^LRD(65,D0,6)) S X=+^(6) I X S X=$P(^LR(X,0),U,2),X=$P(^DIC(X,0),U)` ALGORITHM: `I $D(^LRD(65,D0,6)) S X=+^(6) I X S X=$P(^LR(X,0),U,2),X=$P(^DIC(X,0),U)` LAST EDITED: `AUG 11, 1989` DESCRIPTION: `This is the file whose demographic data is stored for the patient transfused.`
6.15	TRANSFUSED PATIENT ABO		COMPUTED	MUMPS CODE: `I $D(^LRD(65,D0,6)) S X=+^(6) S:X X=$P(^LR(X,0),U,5)` ALGORITHM: `I $D(^LRD(65,D0,6)) S X=+^(6) S:X X=$P(^LR(X,0),U,5)` LAST EDITED: `AUG 11, 1989` DESCRIPTION: `This is the transfused patient's ABO.`
6.16	TRANSFUSED PATIENT RH		COMPUTED	MUMPS CODE: `I $D(^LRD(65,D0,6)) S X=+^(6) S:X X=$P(^LR(X,0),U,6)` ALGORITHM: `I $D(^LRD(65,D0,6)) S X=+^(6) S:X X=$P(^LR(X,0),U,6)` LAST EDITED: `AUG 11, 1989` DESCRIPTION: `This is the transfused patient's Rh type.`
6.2	PHYSICIAN	6;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `MAY 02, 1985` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: `Physician of patient transfused`
6.3	TREATING SPECIALTY	6;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `JUN 14, 1993` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: `Treating specialty to which the patient is assigned at the` `time the unit was transfused.` EXECUTABLE HELP: `W !,"NOT NUMERIC OR STARTING WITH PUNCTUATION"` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6.4	TRANSFUSION RECORD NUMBER	6;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."6N.N) X` LAST EDITED: `AUG 08, 1985` HELP-PROMPT: `TYPE A NUMBER BETWEEN 1 AND 9999999` DESCRIPTION: `Internal number in subfile 63.085 TRANSFUSION RECORD` `UNEDITABLE`
6.5	TRANSFUSION REACTION	6;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 04, 1986` DESCRIPTION: `Answer 'YES' if the patient experienced an adverse reaction` `as a result of transfusion of designated blood/blood component`
6.6	PROVIDER NUMBER	6;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) OUTPUT TRANSFORM: `W ""` LAST EDITED: `MAR 16, 1994` DESCRIPTION: `If the physician is an entry in the New Person file the pointer number` `is stored here.`
6.7	TREATING SPECIALTY NUMBER	6;7	POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)	FACILITY TREATING SPECIALTY(#45.7) OUTPUT TRANSFORM: `W ""` LAST EDITED: `JUN 14, 1993` DESCRIPTION: `If the treating specialty is an entry in the treating specialty file` `the pointer number is stored here.`
6.8	TRANSFUSION REACTION TYPE	6;8	POINTER TO BLOOD BANK UTILITY FILE (#65.4)	BLOOD BANK UTILITY(#65.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""T""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 11, 1992` DESCRIPTION: `Indicates the type of transfusion reaction` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""T"""` EXPLANATION: `Selects transfusion reaction type`
7	TRANSFUSION COMMENT	7;0	Multiple #65.07	65.07 LAST EDITED: `OCT 28, 1984` DESCRIPTION: `These are comments regarding the transfusion of the specific unit, including whether only a part of the unit was transfused and the reason(s).`
8	RESTRICTED FOR	8;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) D ^LRUG` 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: `OCT 19, 1988` DESCRIPTION: `The patient indicated here is the only one who may be` `transfused with this unit.` EXECUTABLE HELP: `S X="?" D ^LRUG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `65^AU` `1)= S ^LRD(65,"AU",$E(X,1,30),DA)=""` `2)= K ^LRD(65,"AU",$E(X,1,30),DA)`
8.1	POS/INCOMPLETE SCREENING TESTS	8;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `AUG 22, 1988` DESCRIPTION: `If autologous donor has a positive syphilis serology, HBsAg, or HIV` `antibody test YES is entered. This flag is intended to warn NOT to` `transfuse this unit to anyone other than the DONOR !`
8.3	DONATION TYPE	8;3	SET	'A' FOR AUTOLOGOUS; 'D' FOR DIRECTED; LAST EDITED: `MAR 17, 1988` DESCRIPTION: `This field indicates which type of donation will be used to log this unit.`
9	MODIFIED TO/FROM	9;0	POINTER Multiple #65.091	65.091 HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 99999` DESCRIPTION: `If unit is modified identifies what products are made and what are the new unit ID's. If unit is a pool identifies what product was pooled and what units are in the pool.` IDENTIFIED BY: `UNIT ID(#.02)[R]`
10	ABO INTERPRETATION	10;1	SET	'A' FOR A; 'B' FOR B; 'O' FOR O; 'AB' FOR AB; 'ND' FOR NOT DONE; LAST EDITED: `MAY 11, 1985` DESCRIPTION: `Interpretation of ABO testing` CROSS-REFERENCE: `65^AD^MUMPS` `1)= K ^LRD(65,"AT",$P(^LRD(65,DA,0),U,1),10,DA)` `2)= S ^LRD(65,"AT",$P(^LRD(65,DA,0),U,1),10,DA)=""`
10.2	TECH ENTERING-ABO INTERP	10;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 30, 1991` DESCRIPTION: `Person performing ABO testing`
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: `Comment related to ABO testing` EXECUTABLE HELP: `S L(1)="X" D Q^LRUB` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
10.4	ABO MOVED FROM DONOR FILE	10;4	SET	'1' FOR YES; LAST EDITED: `AUG 01, 1988`
11	RH INTERPRETATION	11;1	SET	'NEG' FOR NEGATIVE; 'POS' FOR POSITIVE; 'ND' FOR NOT DONE; LAST EDITED: `MAY 11, 1985` HELP-PROMPT: `Enter only past or present Date/time` DESCRIPTION: `Interpretation of Rh testing` CROSS-REFERENCE: `65^AF^MUMPS` `1)= K ^LRD(65,"AT",$P(^LRD(65,DA,0),U,1),11,DA)` `2)= S ^LRD(65,"AT",$P(^LRD(65,DA,0),U,1),11,DA)=""`
11.2	TECH ENTERING-RH INTERP	11;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 30, 1991` DESCRIPTION: `Person performing Rh testing`
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: `Comment related to Rh testing` EXECUTABLE HELP: `S L(1)="X" D Q^LRUB` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
11.4	RH MOVED FROM DONOR FILE	11;4	SET	'1' FOR YES; LAST EDITED: `MAR 27, 1993`
15	DATE RE-ENTERED	15;0	DATE Multiple #65.15	65.15 DESCRIPTION: `Re-entry date of the unit in the file`
16	PEDIATRIC ALIQUOT MADE	16;0	Multiple #65.16	65.16 DESCRIPTION: `If portions of unit taken for pediatric units enter the` `pediatric unit IDs here`
60	RBC ANTIGEN PRESENT	60;0	POINTER Multiple #65.04	65.04 SCREEN: `S DIC("S")="I $P(^(0),U,5)=""AN"""` EXPLANATION: `SELECTS ANTIGENS`
70	RBC ANTIGEN ABSENT	70;0	POINTER Multiple #65.05	65.05 DESCRIPTION: `Comment to RBC antigen` SCREEN: `S DIC("S")="I $P(^(0),U,5)=""AN"""` EXPLANATION: `SELECTS ANTIGENS`
80	HLA ANTIGEN PRESENT	80;0	POINTER Multiple #65.08	65.08 LAST EDITED: `MAR 29, 1993` SCREEN: `S DIC("S")="I $P(^(0),U,5)=""HL"""` EXPLANATION: `SELECTS HLA ANTIGENS`
90	HLA ANTIGEN ABSENT	90;0	POINTER Multiple #65.09	65.09 SCREEN: `S DIC("S")="I $P(^(0),U,5)=""HL"""` EXPLANATION: `SELECTS HLA ANTIGENS`
91	CMV ANTIBODY	0;15	SET	'0' FOR NEG; '1' FOR POS; LAST EDITED: `MAR 19, 1988`
121	DONOR CELLS+ANTI D(slide rgt)	12;1	SET	'P' FOR POSITIVE; 'N' FOR NEGATIVE;
122	DONOR CELLS+RH CTRL(slide rgt)	12;2	SET	'P' FOR POSITIVE; 'N' FOR NEGATIVE;
123	DONOR CELLS+ANTI D (37)	12;3	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 30, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
124	DONOR CELLS+RH CTRL (37)	12;4	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 30, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
125	DONOR CELLS+ANTI D (AHG)	12;5	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 30, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
126	DONOR CELLS+RH CTRL (AHG)	12;6	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 30, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
127	DONOR CELLS+ANTI D (AHG) CC	12;7	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 30, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
128	DONOR CELLS+RH CTRL CC	12;8	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 30, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
141	DONOR CELLS+ANTI A(slide)	14;1	SET	'P' FOR POSITIVE; 'N' FOR NEGATIVE;
142	DONOR CELLS+ANTI B(slide)	14;2	SET	'P' FOR POSITIVE; 'N' FOR NEGATIVE;
143	DONOR CELLS+ANTI A,B(slide)	14;3	SET	'P' FOR POSITIVE; 'N' FOR NEGATIVE;
144	DONOR PLASMA+A1 CELLS	14;4	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 30, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
145	DONOR PLASMA+B CELLS	14;5	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `OCT 30, 1984` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
200	DIRECT AHG(BS)	200;1	FREE TEXT	INPUT TRANSFORM: `D ^LRBLAGG` LAST EDITED: `MAY 08, 1985` EXECUTABLE HELP: `D LST^LRBLAGG` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
500	TEST/PROCEDURE	99;0	POINTER Multiple #65.3	65.3 DESCRIPTION: `This field contains the test performed on this unit.`
999	DATA CHANGE DATE	999;0	DATE Multiple #65.099	65.099 DESCRIPTION: `Date the report value was changed`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #527	Health Summary	UNIT ID (.01). Access: Direct Global Read & w/Fileman EXPIRATION DATE/TIME (.06). Access: Direct Global Read & w/Fileman ABO GROUP (.07). Access: Direct Global Read & w/Fileman RH TYPE (.08). Access: Direct Global Read & w/Fileman VOLUME (ml) (.11). Access: Direct Global Read & w/Fileman DIVISION (.16). Access: Direct Global Read & w/Fileman DISPOSITION (4.1). Access: Read w/Fileman DONATION TYPE (8.3). Access: Read w/Fileman DATE/TIME UNIT ASSIGNED (.02). Access: Direct Global Read & w/Fileman XMATCH RESULT (.04). Access: Read w/Fileman	PATIENT XMATCHED/ASSIGNED
ICR #685	Health Summary
ICR #2331	Surgery	UNIT ID (.01). Access: Direct Global Read & w/Fileman COMPONENT (.04). Access: Direct Global Read & w/Fileman EXPIRATION DATE/TIME (.06). Access: Direct Global Read & w/Fileman PATIENT XMATCHED/ASSIGNED (.01). Access: Direct Global Read & w/Fileman DATE/TIME UNIT ASSIGNED (.02). Access: Direct Global Read & w/Fileman

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	6.1OT+1, 6.12+1, 8OT+1
^LAB(66 - [#66]	ID.04+1, ID3+1, IDWRITE+1, .02+1, .02(HELP )
^LR - [#63]	6.1OT+1, 6.12+1, 6.15+1, 6.16+1, 8OT+1
^LRD(65 - [#65]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02+1, .02(HELP ), .04(XREF 1S), .04(XREF 1K) , .04(XREF 2S), .04(XREF 2K), .05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K), .06(XREF 2S), .06(XREF 2K), .16(XREF 1S), .16(XREF 1K) , 4.1(XREF 1S), 4.1(XREF 1K), 4.1(XREF 2S), 4.1(XREF 2K), 4.1(XREF 3K), 4.2(XREF 1S), 4.2(XREF 1K), 6.12+1, 6.15+1, 6.16+1 , 8(XREF 1S), 8(XREF 1K), 10(XREF 1S), 10(XREF 1K), 11(XREF 1S), 11(XREF 1K)

Name	Field # of Occurrence
^(	.01(XREF 3S), 4.1(XREF 2K)
^("0"	ID3+1, ID7+1
^(0	ID.01+1, ID.04+1, ID3+1, IDWRITE+1
^(6	6.12+1, 6.15+1, 6.16+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	.05+1!, .05(HELP ), .06+1, 4.2+1*!
%DT(0	.05+1, 4.2+1
>> A	.02(HELP ), 4.1(XREF 1S), 4.1(XREF 1K)
>> B	4.1(XREF 1S), 4.1(XREF 1K)
>> C	.02+1*, .02(HELP ), 4.1(XREF 1S), 4.1(XREF 1K)
>> D0	6.12+1, 6.15+1, 6.16+1
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02+1, .02(HELP ), .04(XREF 1S), .04(XREF 1K) , .04(XREF 2S), .04(XREF 2K), .05(XREF 1S), .05(XREF 1K), .06(XREF 1S), .06(XREF 1K), .06(XREF 2S), .06(XREF 2K), .16(XREF 1S), .16(XREF 1K) , 4.1(XREF 1S), 4.1(XREF 1K), 4.1(XREF 2S), 4.1(XREF 2K), 4.1(XREF 3K), 4.2(XREF 1S), 4.2(XREF 1K), 8(XREF 1S), 8(XREF 1K), 10(XREF 1S) , 10(XREF 1K), 11(XREF 1S), 11(XREF 1K)
DIC	ID.04+1, ID3+1, .04+1!, .16+1!, 6.8+1!*
DIC("S"	.04+1, .04SCR+1, .16+1, .16SCR+1, 6.8+1, 6.8SCR+1
>> DIE	.04+1, .16+1, 6.8+1
>> DIU(0	.05(XREF 1S), 4.1(XREF 3K)
>> L	4.5+1, 10.3+1, 11.3+1*
>> L(1	4.5+1, 4.5(HELP ), 10.3+1, 10.3(HELP ), 11.3+1*, 11.3(HELP )
>> LRA	.06+1*
U	ID.01+1, ID.04+1, ID3+1, ID7+1, IDWRITE+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .02+1, .02(HELP ) , .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .06(XREF 1S), .06(XREF 1K), .06(XREF 2S), .06(XREF 2K), 4.1(XREF 1S), 4.1(XREF 1K) , 4.1(XREF 2K), 6.1OT+1, 6.12+1, 6.15+1, 6.16+1, 8OT+1, 10(XREF 1S), 10(XREF 1K), 11(XREF 1S), 11(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .02+1!, .02(HELP ), .03+1! , .04+1!, .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05+1!, .05(HELP ), .05(XREF 1S), .05(XREF 1K), .06+1! , .06(XREF 1S), .06(XREF 1K), .06(XREF 2S), .06(XREF 2K), .1+1!, .11+1!, .12+1!, .13+1!, .14+1!, .16+1! , .16(XREF 1S), .16(XREF 1K), 1.1+1!, 4.2+1!, 4.2(XREF 1S), 4.2(XREF 1K), 4.4+1!, 4.5+1!, 6.1OT+1, 6.1(HELP ) , 6.12+1, 6.15+1, 6.16+1, 6.2+1!, 6.3+1!, 6.4+1!, 6.8+1!, 8+1!, 8OT+1*, 8(HELP ) , 8(XREF 1S), 8(XREF 1K), 10.3+1!, 11.3+1!
X(1	.06+1*, 4.1(XREF 2S), 4.1(XREF 2K)
>> Y	.01(XREF 2S), .01(XREF 2K), .04+1, .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K), .05+1, .05(HELP ), .06+1 , .06(XREF 2S), .06(XREF 2K), .16+1, 4.2+1, 6.1OT+1, 6.6OT+1, 6.7OT+1, 6.8+1, 8OT+1
>> Y(0	6.1OT+1, 6.6OT+1, 6.7OT+1, 8OT+1
>> Z	.01(XREF 3S), .01(XREF 3K)

Customize PDF page

Package: Lab Service

Global: ^LRD(65

Information

Description

Directly Accessed By Routines, Total: 112

Accessed By FileMan Db Calls, Total: 20

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 10

Fields, Total: 71

Found Entries, Total: 1

ICR, Total: 3

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.05+1, .05(HELP ), .06+1, 4.2+1
^DIC	.04+1, .16+1, 6.8+1
^LRBLAGG	123+1, 124+1, 125+1, 126+1, 127+1, 128+1, 144+1, 145+1, 200+1
LST^LRBLAGG	123(HELP ), 124(HELP ), 125(HELP ), 126(HELP ), 127(HELP ), 128(HELP ), 144(HELP ), 145(HELP ), 200(HELP )
K^LRBLU	.01(XREF 4K), .02(XREF 1K), .04(XREF 3K)
K1^LRBLU	4.1(XREF 3K)
S^LRBLU	.01(XREF 4S), .02(XREF 1S), .04(XREF 3S)
S1^LRBLU	4.1(XREF 3S)
C^LRBLUL	.04+1
D^LRU	.05(HELP )
^LRUB	4.5+1, 10.3+1, 11.3+1
Q^LRUB	4.5(HELP ), 10.3(HELP ), 11.3(HELP )
^LRUG	6.1+1, 6.1(HELP ), 8+1, 8(HELP )
A65^LRXREF1	.05(XREF 1S)