VPR RAD RESULT (37)    ENTITY (1.5)

Name Value
NAME VPR RAD RESULT
DEFAULT FILE NUMBER 70.03
DATA MODEL SDA
DISPLAY NAME Result
ITEM
  • 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
DESCRIPTION
This entity supports VPR RAD ORDER, supplying result information.
GET EXIT ACTION K VPRAE1,VPRAE2,RARPT,RAPROC
GET ID ACTION D ONE^VPRSDAR(.DIEN) ;RA order# -> case,exam,DFN IENS