VPR LREM RESULT (147)    ENTITY (1.5)

• Extension
  SEQUENCE:   3
  ITEM TYPE:   ENTITY
  FILE NUMBER:   63.02
  ENTITY:   VPR LR RESULT EXTENSION
  GET ACTION:   S VALUE=DIEN
• AuthorizationTime
  SEQUENCE:   16
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   63.02
  FIELD NUMBER:   .11
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(LR0),U,11)
• PerformedAt
  SEQUENCE:   17
  ITEM TYPE:   ENTITY
  FILE NUMBER:   63.02
  FIELD NUMBER:   .345
  ENTITY:   VPR LAB FACILITY
  GET ACTION:   S VALUE=+$G(^LR(+$G(LRDFN),"EM",+IEN,"RF")) S:VALUE<1 DDEOUT=1
• EnteredBy
  SEQUENCE:   21
  ITEM TYPE:   ENTITY
  FILE NUMBER:   63.02
  FIELD NUMBER:   .02
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR USER
  GET ACTION:   S VALUE=$P($G(LR0),U,2)
• EnteredAt
  SEQUENCE:   22
  ITEM TYPE:   ENTITY
  FILE NUMBER:   63.02
  ENTITY:   VPR FACILITY
  GET ACTION:   S VALUE=$$SITE^VPRSDA
• EnteredOn
  SEQUENCE:   23
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   63.02
  FIELD NUMBER:   .1
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(LR0),U,10)
• FromTime
  SEQUENCE:   1
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   63.02
  FIELD NUMBER:   .01
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=9999999-(+DIEN)
• ResultType
  SEQUENCE:   4
  ITEM TYPE:   FIXED STRING
  FIXED RESPONSE:   IM
• VerifiedBy
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   63.02
  FIELD NUMBER:   .13
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P($G(LR0),U,13)
• ResultTime
  SEQUENCE:   7
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   63.02
  FIELD NUMBER:   .03
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(LR0),U,3)
• ResultStatus
  SEQUENCE:   8
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   63.02
  FIELD NUMBER:   .11
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"F",1:"P")
  GET ACTION:   S VALUE=$P($G(LR0),U,11)
• ResultText
  SEQUENCE:   9
  ITEM TYPE:   WORD PROCESSING
  FILE NUMBER:   63.02
  GET ACTION:   Q D RPT^VPRSDAB("EM",+DIEN)
• FileType
  SEQUENCE:   10
  ITEM TYPE:   FIXED STRING
  FIXED RESPONSE:   TXT
• DocumentName
  SEQUENCE:   11
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S:$P($G(LR0),U,11) VALUE="LR ELECTRON MICROSCOPY REPORT" ;return if final
• DocumentNumber
  SEQUENCE:   14
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S:$P($G(LR0),U,11) VALUE=$$LRTIU^VPRSDAB(+DIEN,"EM") ;EM or TIU, return if final

This entity supports VPR LAB ORDER, providing Electron Microscopy results.