VPR LRCH RESULT ITEM (18)    ENTITY (1.5)

• ObservationTime
  SEQUENCE:   18
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   63.04
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=9999999-$P(IEN,",",2)
• Extension
  SEQUENCE:   3
  ITEM TYPE:   ENTITY
  FILE NUMBER:   63.04
  ENTITY:   VPR LRCH RESULT ITEM EXTENSION
  GET ACTION:   S VALUE=$G(LRNODE)
• TestItemStatus
  SEQUENCE:   11
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S VALUE=$S($P(LRNODE,U)["pending":"P",1:"F")
• ResultValue
  SEQUENCE:   5
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S VALUE=$P(LRNODE,U)
• ResultValueUnits
  SEQUENCE:   7
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S VALUE=$P($P(LRNODE,U,5),"!",7)
• ResultInterpretation
  SEQUENCE:   9
  ITEM TYPE:   FIXED STRING
  GET ACTION:   N X S X=$P(LRNODE,U,2) S:$L(X) VALUE=$E(X)_$S($E(X,2)="*":$E(X),1:"")
• ResultNormalRange
  SEQUENCE:   8
  ITEM TYPE:   FIXED STRING
  GET ACTION:   N X,LOW,HI S X=$P(LRNODE,U,5),LOW=$P(X,"!",2),HI=$P(X,"!",3),VALUE="" I $$VALRNG^VPRSDAB(LOW,HI) S VALUE=$$REFRNG^VPRSDAB(LOW,HI)
• TestItemCode
  SEQUENCE:   4
  ITEM TYPE:   ENTITY
  FILE NUMBER:   63.04
  ENTITY:   VPR LAB TEST
  GET ACTION:   S VALUE=$P($P(LRNODE,U,3),"!",7) S:VALUE="" VALUE=$$TEST^LRPXAPIU(+IEN)
• PerformedAt
  SEQUENCE:   13
  ITEM TYPE:   ENTITY
  FILE NUMBER:   63.04
  ENTITY:   VPR LAB FACILITY
  GET ACTION:   S VALUE=$P(LRNODE,U,9),LRFAC=VALUE
• ResultCodedValue
  SEQUENCE:   17
  ITEM TYPE:   ENTITY
  FILE NUMBER:   63.04
  ENTITY:   VPR LOINC
  GET ACTION:   S VALUE=$P($P(LRNODE,U,3),"!",3)
• ExternalId
  SEQUENCE:   23
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S VALUE="CH;"_+$P(DIEN,",",2)_";"_+DIEN

This entity expects ID = IENS string of the desired test result in the 
Chem sub-file #63.04 ('DN,IDT,LRDFN'). It is intended to be used with VPR 
LRCH RESULT.