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: 66.03

Package: Lab Service

BLOOD PRODUCT(#66)-->66.03

Sub-Field: 66.03


Information

Parent File Name Number Package
BLOOD PRODUCT(#66) MODIFY TO 66.03 Lab Service

Details

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 06, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999
  • DESCRIPTION:  The internal file number in the blood product file that the current
    blood product is modified to.
.01 MODIFY TO 0;1 POINTER TO BLOOD PRODUCT FILE (#66) BLOOD PRODUCT(#66)

  • INPUT TRANSFORM:  S:'$D(DIC(0)) DIC(0)="" S DIC("S")="I $P(^(0),U,4)=""BB"",$P(^(0),U,29)=$P(^LAB(66,DA,0),U,29)" D ^DIC K DIC S (DIC,DIE)="^LAB(66,",X=+Y K:Y<0 X I $D(X) S DINUM=X
  • LAST EDITED:  OCT 15, 2000
  • HELP-PROMPT:  ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
  • DESCRIPTION:  If this product, IN INVENTORY, can be made into other components, list the components here. Only components from the same symbology can be selected. For example, only Codabar units can be modified to other Codabar
    units, and only ISBT 128 units can be modified to other ISBT 128 units.
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)=""BB"",$P(^(0),U,29)=$P(^LAB(66,DA,0),U,29)"
  • EXPLANATION:  Selects only blood components
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  66.03^B
    1)= S ^LAB(66,DA(1),3,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(66,DA(1),3,"B",$E(X,1,30),DA)
.02 NOT ONLY ONE ALLOWED 0;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JAN 10, 1986
  • DESCRIPTION:  
    If yes other products can be made from the same unit. (ex. packed RBC and plasma can be made from a unit of whole blood.)
Info |  Details