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

Package: Lab Service

BLOOD DONOR(#65.5)-->65.51

Sub-Field: 65.51


Information

Parent File Name Number Package
BLOOD DONOR(#65.5) GROUP AFFILIATION 65.51 Lab Service

Details

Field # Name Loc Type Details
.01 GROUP AFFILIATION 0;1 POINTER TO BLOOD BANK UTILITY FILE (#65.4) BLOOD BANK UTILITY(#65.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)[""G""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  JAN 23, 1986
  • DESCRIPTION:  
    Any group with which a donor might wish to be affiliated
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)[""G"""
  • EXPLANATION:  SELECTS GROUPS DONOR IS AFFILIATED WITH
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.02 FULL NAME COMPUTED

  • MUMPS CODE:  X ^DD(65.51,.02,9.2) S D0=$P(Y(65.51,.02,1),U,1) S:'$D(^LAB(65.4,+D0,0)) D0=-1 S Y(65.51,.02,101)=$S($D(^LAB(65.4,D0,0)):^(0),1:"") S X=$P(Y(65.51,.02,101),U,3) S D0=Y(65.51,.02,80) S D1=Y(65.51,.02,81)
    9.2 = S Y(65.51,.02,81)=$S($D(D1):D1,1:""),Y(65.51,.02,80)=$S($D(D0):D0,1:""),Y(65.51,.02,1)=$S($D(^LRE(D0,2,D1,0)):^(0),1:"")
  • ALGORITHM:  .01:FULL NAME
  • DESCRIPTION:  
    This is the full name of the donor.
Info |  Details |  All