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