VPR LRMI RESULT (148) ENTITY (1.5)

Name	Value
NAME	VPR LRMI RESULT
DEFAULT FILE NUMBER	63.05
DATA MODEL	SDA
DISPLAY NAME	Result
ITEM	Extension SEQUENCE: 3 ITEM TYPE: ENTITY FILE NUMBER: 63.05 ENTITY: VPR LR RESULT EXTENSION GET ACTION: S VALUE=DIEN PerformedAt SEQUENCE: 17 ITEM TYPE: ENTITY FILE NUMBER: 63.05 FIELD NUMBER: .345 ENTITY: VPR LAB FACILITY GET ACTION: S VALUE=+$G(^LR(+$G(LRDFN),"MI",+IEN,"RF")) S:VALUE<1 DDEOUT=1 EnteredAt SEQUENCE: 22 ITEM TYPE: ENTITY FILE NUMBER: 63.05 FIELD NUMBER: .112 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$P($G(LR0),U,14) S:'VALUE VALUE=$$SITE^VPRSDA EnteredOn SEQUENCE: 23 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.05 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.05 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=9999999-(+DIEN) EnteredBy SEQUENCE: 21 ITEM TYPE: ENTITY FILE NUMBER: 63.05 FIELD NUMBER: 11.55 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P($G(LR1),U,3) AuthorizationTime SEQUENCE: 16 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.05 FIELD NUMBER: 11 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(LR1),U) ResultType SEQUENCE: 4 ITEM TYPE: FIXED STRING FIXED RESPONSE: IM VerifiedBy SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 63.05 FIELD NUMBER: .04 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(LR0),U,4) ResultTime SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.05 FIELD NUMBER: .03 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(LR0),U,3) S:'VALUE VALUE=$P($G(LR1),U) ResultStatus SEQUENCE: 8 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.05 FIELD NUMBER: 11.5 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$P($G(LR1),U,2) ResultText SEQUENCE: 9 ITEM TYPE: WORD PROCESSING FILE NUMBER: 63.05 GET ACTION: Q D LRPT^VPRSDA("MI",+DIEN) FileType SEQUENCE: 10 ITEM TYPE: FIXED STRING FIXED RESPONSE: TXT DocumentName SEQUENCE: 11 ITEM TYPE: FIXED STRING GET ACTION: S:$G(LR1) VALUE="LR MICROBIOLOGY REPORT" DocumentNumber SEQUENCE: 14 ITEM TYPE: FIXED STRING GET ACTION: S:$G(LR1) VALUE=+DIEN_";MI"
DESCRIPTION	This entity supports VPR LAB ORDER, providing Microbiology results.
GET EXIT ACTION	K LR0,LR1
GET ID ACTION	S:'$G(LRDFN) LRDFN=+$P(DIEN,",",2) S LR0=$G(^LR(LRDFN,"MI",+DIEN,0)),LR1=$$MI1^VPRSDAB(LRDFN,+DIEN) I '$L(LR0) S DDEOUT=1