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