VPR RAD RESULT (37)    ENTITY (1.5)

• Extension
  SEQUENCE:   3
  ITEM TYPE:   ENTITY
  FILE NUMBER:   70.03
  FIELD NUMBER:   17
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR RAD RESULT EXTENSION
  GET ACTION:   S VALUE=$G(RARPT) S:'VALUE DDEOUT=1
• AuthorizationTime
  SEQUENCE:   16
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   70.03
  FIELD NUMBER:   17
  EXTENDED POINTER LKUP:   7
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
• PerformedAt
  SEQUENCE:   17
  ITEM TYPE:   ENTITY
  FILE NUMBER:   70.03
  ENTITY:   VPR FACILITY
  GET ACTION:   N IMG,HLOC S IMG=$P(VPRAE1,U,7) S:$L(IMG) HLOC=+$O(^SC("B",IMG,0)),VALUE=$$GET1^DIQ(44,HLOC_",",3,"I")
• ResultInterpretation
  SEQUENCE:   18
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   70.03
  GET ACTION:   S VALUE=$$ABN^VPRSDAR ;Abnormal?
• EnteredBy
  SEQUENCE:   21
  ITEM TYPE:   ENTITY
  FILE NUMBER:   70.03
  FIELD NUMBER:   17
  EXTENDED POINTER LKUP:   11
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR USER
• EnteredAt
  SEQUENCE:   22
  ITEM TYPE:   ENTITY
  FILE NUMBER:   70.03
  ENTITY:   VPR FACILITY
  GET ACTION:   N IMG,HLOC S IMG=$P(VPRAE1,U,7) S:$L(IMG) HLOC=+$O(^SC("B",IMG,0)),VALUE=$$GET1^DIQ(44,HLOC_",",3,"I")
• EnteredOn
  SEQUENCE:   23
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   70.03
  FIELD NUMBER:   17
  EXTENDED POINTER LKUP:   6
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
• FromTime
  SEQUENCE:   1
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   70.03
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=9999999.9999-$P(DIEN,",",2)
• ResultType
  SEQUENCE:   4
  ITEM TYPE:   FIXED STRING
  FIXED RESPONSE:   IM
• VerifiedBy
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   70.03
  FIELD NUMBER:   15
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=+$G(@VPRAE2@("V")) S:VALUE<1 DDEOUT=1
• ResultTime
  SEQUENCE:   7
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   70.03
  FIELD NUMBER:   17
  EXTENDED POINTER LKUP:   8
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
• ResultStatus
  SEQUENCE:   8
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   70.03
  FIELD NUMBER:   17
  EXTENDED POINTER LKUP:   5
  OUTPUT TRANSFORM:   S VALUE=$S(VALUE["Draft":"P",VALUE="Deleted":"X",VALUE["Released/Not":"P",VALUE="No Report":"S",1:"F")
  GET ACTION:   S VALUE=$P(@VPRAE2,U)
• ResultText
  SEQUENCE:   9
  ITEM TYPE:   WORD PROCESSING
  FILE NUMBER:   70.03
  FIELD NUMBER:   17
  EXTENDED POINTER LKUP:   200
  WORD WRAP:   1
  GET ACTION:   S DDEOUT=1 ;M WP=@VPRAE2@("R")
• FileType
  SEQUENCE:   10
  ITEM TYPE:   FIXED STRING
  FIXED RESPONSE:   TXT
• DocumentName
  SEQUENCE:   11
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   70.03
  GET ACTION:   S VALUE=$G(RAPROC) S:VALUE="" VALUE="RADIOLOGY REPORT"
• DocumentNumber
  SEQUENCE:   14
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   70.03
  FIELD NUMBER:   17
  RETURN INTERNAL VALUE:   YES
  GET ACTION:   S:$D(RARPT)=1 VALUE=RARPT_";RA" I $D(RARPT)>9 S DDEOUT=1 ;list, returned in Extension instead

This entity supports VPR RAD ORDER, supplying result information.