VPR LREM RESULT (147)    ENTITY (1.5)

Name Value
NAME VPR LREM RESULT
DEFAULT FILE NUMBER 63.02
DATA MODEL SDA
DISPLAY NAME Result
ITEM
  • 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
DESCRIPTION
This entity supports VPR LAB ORDER, providing Electron Microscopy results.
GET EXIT ACTION K LR0
GET ID ACTION S:'$G(LRDFN) LRDFN=+$P(DIEN,",",2) S LR0=$G(^LR(LRDFN,"EM",+DIEN,0)) I '$L(LR0) S DDEOUT=1