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

Package: Lab Service

BLOOD INVENTORY(#65)-->65.01

Sub-Field: 65.01


Information

Parent File Name Number Package
BLOOD INVENTORY(#65) PATIENT XMATCHED/ASSIGNED 65.01 Lab Service

Details

Field # Name Loc Type Details
.01 PATIENT XMATCHED/ASSIGNED 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) D ^LRUG I $D(X) S DINUM=X,DIC(0)="M"
  • OUTPUT TRANSFORM:  I Y,$D(^LR(Y,0)) S X=^(0),Y=$P(X,U,3),X=$P(X,U,2),X=^DIC(X,0,"GL"),Y=@(X_Y_",0)"),Y=$E($P(Y,",",1),1,13)_" "_$E($P(Y,U,9),6,10)
  • LAST EDITED:  JUN 14, 1996
  • HELP-PROMPT:  Enter patient name, SSN, or first letter of last name and last 4 digits of SSN
  • DESCRIPTION:  Number to left of NAME is the internal number in the lab results file.
    Number to right of NAME is last characters of patient's SSN.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  65^AM^MUMPS
    1)= S Y=$S('$D(^LRD(65,DA(1),4)):1,'$L($P(^(4),U)):1,1:0) I Y S Y=$S('$D(^(2,DA,0)):1,$P(^(0),U,2):1,1:0) S:Y ^LRD(65,"AP",DA,DA(1))=""
    2)= K ^LRD(65,"AP",DA,DA(1))
  • CROSS-REFERENCE:  65.01^B
    1)= S ^LRD(65,DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^LRD(65,DA(1),2,"B",$E(X,1,30),DA)
.012 PARENT FILE COMPUTED

  • MUMPS CODE:  S Y=+^LRD(65,D0,2,D1,0),Y=$P(^LR(Y,0),U,2),X=$P(^DIC(Y,0),U)
  • ALGORITHM:  S Y=+^LRD(65,D0,2,D1,0),Y=$P(^LR(Y,0),U,2),X=$P(^DIC(Y,0),U)
  • LAST EDITED:  AUG 11, 1989
  • DESCRIPTION:  
    File where demographic data is stored for patient crossmatched
.02 DATE/TIME UNIT ASSIGNED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 03, 1986
  • DESCRIPTION:  
    Date/time unit is crossmatched for each patient. If unit is released from crossmatch for a specific patient the date/time is deleted.
  • EXECUTABLE HELP:  K DZ W $C(7),!!?5,"Time required. Future times not allowed.",!!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  65^AP^MUMPS
    1)= S Y=$S('$D(^LRD(65,DA(1),4)):1,'$L($P(^(4),U,1)):1,1:"") S:Y ^LRD(65,"AP",DA,DA(1))=""
    2)= K ^LRD(65,"AP",DA,DA(1))
.03 LAST SPECIMEN DATE XMATCHED 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 15, 1988
  • DESCRIPTION:  
    Date/time of specimen unit was last xmatched with.
  • NOTES:  TRIGGERED by the DATE/TIME CROSSMATCHED field of the BLOOD SAMPLE DATE/TIME sub-field of the PATIENT XMATCHED/ASSIGNED sub-field of the BLOOD INVENTORY File
1 BLOOD SAMPLE DATE/TIME 1;0 DATE Multiple #65.02 65.02

  • DESCRIPTION:  
    These are date/times of blood samples used for pretransfusion testing.
Info |  Details