Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^LRD(65

Package: Lab Service

Global: ^LRD(65


Information

FileMan FileNo FileMan Filename Package
65 BLOOD INVENTORY Lab Service

Description

Directly Accessed By Routines, Total: 113

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    LRBLJW    LRBLJX    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    ^LRD(65    
VBECS 4 VBECA4    VBECDC00    VBECDCR    VBECDCX    
DSS Extracts 1 ECXLBB    
Health Summary 1 GMTSLRBE    
Surgery 1 SRBLOOD    

Accessed By FileMan Db Calls, Total: 20

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    

Pointed To By FileMan Files, Total: 2

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

Pointer To FileMan Files, Total: 10

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)[.094.36.610.211.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

Found Entries, Total: 1

UNIT ID: VBECS1    

ICR, Total: 3

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

    External References

    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)

    Global Variables Directly Accessed

    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)

    Naked Globals

    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

    Local Variables

    Legend:

    >> 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)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All