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

Package: Lab Service

LABORATORY SITE(#69.9)-->69.981

Sub-Field: 69.981


Information

Parent File Name Number Package
LABORATORY SITE(#69.9) BLOOD BANK DIVISION 69.981 Lab Service

Details

Field # Name Loc Type Details
.01 BLOOD BANK DIVISION 0;1 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • INPUT TRANSFORM:  S DIC("S")="I +$G(^DIC(4,+Y,99))=+$$SITE^VASITE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  JUL 25, 1996
  • SCREEN:  S DIC("S")="I +$G(^DIC(4,+Y,99))=+$$SITE^VASITE"
  • EXPLANATION:  Allows only divisions for site.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  69.981^B
    1)= S ^LAB(69.9,DA(1),8.1,"B",$E(X,1,30),DA)=""
    2)= K ^LAB(69.9,DA(1),8.1,"B",$E(X,1,30),DA)
.02 INVENTORY MAJOR SECTION 0;2 POINTER TO ACCESSION FILE (#68) ACCESSION(#68)

  • LAST EDITED:  NOV 01, 1992
.03 INVENTORY SUBSECTION 0;3 POINTER TO ACCESSION FILE (#68) ACCESSION(#68)

  • LAST EDITED:  NOV 01, 1992
.04 DONOR MAJOR SECTION 0;4 POINTER TO ACCESSION FILE (#68) ACCESSION(#68)

  • LAST EDITED:  NOV 01, 1992
.05 DONOR SUBSECTION 0;5 POINTER TO ACCESSION FILE (#68) ACCESSION(#68)

  • LAST EDITED:  NOV 01, 1992
.06 MULTIPLE ACCESSION AREA 0;6 SET
  • '1' FOR YES;
  • '1' FOR yes;
  • '0' FOR NO;
  • '0' FOR no;

  • LAST EDITED:  JUL 05, 1995
Info |  Details |  All