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

Package: CPT Files

CPT(#81)-->81.066

Sub-Field: 81.066


Information

Parent File Name Number Package
CPT(#81) *BLOOD COMPONENT REQUEST 81.066 CPT Files

Details

Field # Name Loc Type Details
.01 *BLOOD COMPONENT REQUEST 0;1 POINTER TO BLOOD PRODUCT FILE (#66) 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 S:$D(X) DINUM=X
  • LAST EDITED:  OCT 04, 1988
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)=""BB"""
  • EXPLANATION:  Select only blood products
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  81.066^B
    1)= S ^ICPT(DA(1),"LR","B",$E(X,1,30),DA)=""
    2)= K ^ICPT(DA(1),"LR","B",$E(X,1,30),DA)
.02 *NUMBER OF UNITS 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>50)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 11, 1991
  • HELP-PROMPT:  Type a Number between 0 and 50, 0 Decimal Digits
Info |  Details |  All