Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 65.54

Package: Lab Service

BLOOD DONOR(#65.5)-->65.54

Sub-Field: 65.54


Information

Parent File Name Number Package
BLOOD DONOR(#65.5) DONATION OR DEFERRAL DATE 65.54 Lab Service

Details

Field # Name Loc Type Details
.01 DONATION OR DEFERRAL DATE 0;1 DATE
************************REQUIRED FIELD************************

  • 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))
.011 DONATION ENTERED/EDIT BY 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Person entering or editing donation information
.02 COLLECTION SITE 0;6 POINTER TO BLOOD BANK UTILITY FILE (#65.4)
************************REQUIRED FIELD************************
BLOOD BANK UTILITY(#65.4)

  • 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
.03 DONATION GROUP 0;7 POINTER TO BLOOD BANK UTILITY FILE (#65.4) BLOOD BANK UTILITY(#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
.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
.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.
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
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 allowed." K X
  • LAST EDITED:  MAY 05, 1989
  • DESCRIPTION:  
    This is the donation type.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
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
2 DEFERRAL REASON 1;0 POINTER Multiple #65.55 65.55

  • 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
3 DONOR REACTION CODE 0;3 POINTER TO BLOOD BANK UTILITY FILE (#65.4) BLOOD BANK UTILITY(#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"
4 UNIT ID 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • 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)
4.1 PRIMARY BAG 2;1 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  AUG 09, 1989
  • DESCRIPTION:  
    This is the type of bag used for the collection of the donor blood.
4.11 ANTICOAGULANT/ADDITIVE 2;9 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  MAY 20, 1996
  • DESCRIPTION:  
    This is the type of anticoagulant in the collection bag.
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.
4.2 DATE/TIME COLLECTION STARTED 2;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 23, 1987
  • HELP-PROMPT:  Date AND time must be entered !!
  • DESCRIPTION:  
    This is the date and time the donation was started.
  • EXECUTABLE HELP:  K DZ W ?5,"Enter date then ""@"" then time"
4.3 DATE/TIME COLLECTION COMPLETED 2;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X S:$D(X) LR(65.54)=X
  • LAST EDITED:  MAY 07, 1990
  • 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 must be entered as well as DATE !",!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4.4 DATE/TIME PROCESSED 2;4 DATE
************************REQUIRED FIELD************************

  • 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)),X
  • LAST EDITED:  JUL 02, 1996
  • DESCRIPTION:  
    Date/time at which the component preparation started.
  • EXECUTABLE HELP:  K DZ W !,"DATE and TIME must be entered.",!,"Time processed must be later than time collection completed",!,"Future date/time not allowed."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4.5 COLLECTED PRIMARY UNIT WT (gm) 2;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(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
4.6 EMPTY PRIMARY UNIT WT (gm) 2;6 NUMBER

  • 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).
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
4.8 PROCESSING TECH 2;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Person performing the component preparation.
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.
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.
6.1 COLLECTION DISPOSITION 0;10 SET

  • LAST EDITED:  DEC 29, 1985
  • DESCRIPTION:  
    Records what happened to the collection.
6.2 COLLECTION DISPOSITION COMMENT 3;0 Multiple #65.546 65.546

  • DESCRIPTION:  
    These are comments regarding the collection disposition.
7 RBC TYPING METHOD 7;0 SET Multiple #65.61 65.61

  • DESCRIPTION:  
    These are the RBC typing methods.
8.1 DONOR CELLS+ANTI A 8;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^LRBLAGG
  • LAST EDITED:  APR 02, 1985
  • EXECUTABLE HELP:  D LST^LRBLAGG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8.2 DONOR CELLS+ANTI B 8;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^LRBLAGG
  • LAST EDITED:  APR 02, 1985
  • EXECUTABLE HELP:  D LST^LRBLAGG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8.3 DONOR CELLS+ANTI A,B 8;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^LRBLAGG
  • LAST EDITED:  APR 02, 1985
  • EXECUTABLE HELP:  D LST^LRBLAGG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8.4 DONOR PLASMA/SERUM+A1 CELLS 8;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^LRBLAGG
  • LAST EDITED:  APR 02, 1985
  • EXECUTABLE HELP:  D LST^LRBLAGG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8.5 DONOR PLASMA/SERUM+B CELLS 8;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^LRBLAGG
  • LAST EDITED:  APR 02, 1985
  • EXECUTABLE HELP:  D LST^LRBLAGG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.1 DONOR CELLS+ANTI D 9;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^LRBLAGG
  • LAST EDITED:  APR 03, 1985
  • EXECUTABLE HELP:  D LST^LRBLAGG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.2 DONOR CELLS+RH CONTROL 9;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^LRBLAGG
  • LAST EDITED:  APR 03, 1985
  • EXECUTABLE HELP:  D LST^LRBLAGG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.3 DONOR CELLS+ANTI D (37 C) 9;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^LRBLAGG
  • LAST EDITED:  APR 03, 1985
  • EXECUTABLE HELP:  D LST^LRBLAGG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.4 DONOR CELLS+RH CTRL (37 C) 9;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^LRBLAGG
  • LAST EDITED:  APR 03, 1985
  • EXECUTABLE HELP:  D LST^LRBLAGG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.5 DONOR CELLS+ANTI D (AHG) 9;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^LRBLAGG
  • LAST EDITED:  APR 04, 1985
  • EXECUTABLE HELP:  D LST^LRBLAGG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
9.6 DONOR CELLS+RH CTRL (AHG) 9;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^LRBLAGG
  • LAST EDITED:  APR 04, 1985
  • EXECUTABLE HELP:  D LST^LRBLAGG
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
10 ABO INTERPRETATION 10;1 SET

  • 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)=""
10.2 TECH ENTERING-ABO INTERP 10;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    This is the technologist entering ABO interpretation.
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
10.4 ABO INTERPRETATION RECHECK 10;4 SET

  • LAST EDITED:  JUN 08, 1988
  • DESCRIPTION:  
    Recheck of ABO group interpretation
10.5 TECH ENTERING-ABO RECHECK 10;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Technologist entering ABO grouping recheck
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
11 RH INTERPRETATION 11;1 SET

  • 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)=""
11.2 TECH ENTERING-RH INTERP 11;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    This is the technologist entering Rh interpretation.
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
11.4 RH INTERPRETATION RECHECK 11;4 SET

  • LAST EDITED:  JUN 08, 1988
  • DESCRIPTION:  
    Rh interpretation recheck
11.5 TECH ENTERING-RH RECHECK 11;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Technologist entering Rh type recheck
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
12 SYPHILIS SEROLOGY 12;1 SET

  • 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)=""
12.2 TECH-SYPHILIS SEROLOGY 12;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Technologist entering syphilis serology results.
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
13 HBsAg 13;1 SET

  • 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)=""
13.2 TECH-HBsAg 13;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Technologist entering Hepatitis B surface antigen test results.
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
14 HIV ANTIBODY 14;1 SET

  • 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)=""
14.2 TECH-HIV 14;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Technologist entering HTLV-III test results.
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
15 ANTIBODY SCREEN RESULT 15;1 SET

  • 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)=""
15.2 TECH-ANTIBODY SCREEN 15;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Technologist entering antibody screening test results.
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
16 HBcAb 16;1 SET

  • 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)=""
16.2 TECH-HBcAb 16;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    This is the technologist entering Hepatitis Core Antibody results.
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
17 ALT 17;1 SET

  • 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)=""
17.2 TECH-ALT 17;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    This is the technologist entering alanine-amino transferase results.
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
18 HTLV-I ANTIBODY 18;1 SET

  • 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)=""
18.2 TECH-HTLV-I 18;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
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
19 HCV ANTIBODY 19;1 SET

  • 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)=""
19.2 TECH-HCV ANTIBODY 19;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
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
20 HIV ANTIGEN 20;1 SET

  • 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)=""
20.2 TECH-HIV ANTIGEN 20;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 09, 1995
  • DESCRIPTION:  
    Technologist performing HIV antigen testing
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
66 BLOOD COMPONENT 66;0 POINTER Multiple #65.66 65.66

  • 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
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
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
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
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
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
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
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
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
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
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
83 SERUM PROTEIN ELECTROPHORESIS 83;0 Multiple #65.6 65.6
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
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
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
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
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
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
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
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
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
500 WORKLOAD TEST/PROCEDURE 99;0 POINTER Multiple #65.599 65.599

  • DESCRIPTION:  Tests or procedures containing WKLD codes for donor workload are
    entered here.
Info |  Details |  All