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.05

Package: Lab Service

BLOOD INVENTORY(#65)-->65.05

Sub-Field: 65.05


Information

Parent File Name Number Package
BLOOD INVENTORY(#65) RBC ANTIGEN ABSENT 65.05 Lab Service

Details

Field # Name Loc Type Details
.01 RBC ANTIGEN ABSENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) FUNCTION FIELD(#61.3)

  • INPUT TRANSFORM:  S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC("S")="I $P(^(0),U,5)=""AN""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
  • LAST EDITED:  MAY 21, 1999
  • DESCRIPTION:  Antigen(s) absent on red blood cells of unit
    (If applicable)
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=""AN"""
  • EXPLANATION:  Selects only ANTIGENS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.02 RBC ANTIGEN ABSENT COMMENT 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<2) X
  • LAST EDITED:  JUN 02, 1986
  • HELP-PROMPT:  ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Comment to RBC antigen absence
Info |  Details