VPR LRCH RESULT (17) ENTITY (1.5)

Name	Value
NAME	VPR LRCH RESULT
DEFAULT FILE NUMBER	63.04
DATA MODEL	SDA
DISPLAY NAME	Result
ITEM	Extension SEQUENCE: 3 ITEM TYPE: ENTITY FILE NUMBER: 63.04 ENTITY: VPR LRCH RESULT EXTENSION GET ACTION: S VALUE=DIEN PerformedAt SEQUENCE: 17 ITEM TYPE: ENTITY FILE NUMBER: 63.04 FIELD NUMBER: .345 RETURN INTERNAL VALUE: YES ENTITY: VPR LAB FACILITY GET ACTION: S VALUE=+$G(^LR(+$G(LRDFN),"CH",+IEN,"RF")) S:VALUE<1 DDEOUT=1 EnteredAt SEQUENCE: 22 ITEM TYPE: ENTITY FILE NUMBER: 63.04 FIELD NUMBER: .112 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$P($G(LR0),U,14) S:'VALUE VALUE=$G(LRFAC) ResultTime SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.04 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.04 FIELD NUMBER: .03 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"F",1:"P") ;Date Rpt Comp = Final INPUT TRANSFORM: S VALUE="" GET ACTION: S VALUE=$P($G(LR0),U,3) ResultType SEQUENCE: 4 ITEM TYPE: FIXED STRING FIXED RESPONSE: AT VerifiedBy SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 63.04 FIELD NUMBER: .04 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$G(LRVER) S:'VALUE VALUE=$P($G(LR0),U,4) Comments SEQUENCE: 15 ITEM TYPE: WORD PROCESSING FILE NUMBER: 63.04 FIELD NUMBER: .99 WORD WRAP: 1 GET ACTION: N I S I=0 F S I=$O(^LR(+$G(LRDFN),"CH",+IEN,1,I)) S:(I="")&'$D(WP) DDEOUT=1 Q:I<1 S WP(I)=$P($G(^(I,0)),U) ResultItems SEQUENCE: 5 ITEM TYPE: LIST ENTITY: VPR LRCH RESULT ITEM LIST TYPE: ARRAY XML NAME: LabResultItem GET ACTION: D CH^VPRSDAB(+DATA) ;build DLIST(60 ien) = CH data node#,LRIDT,LRDFN ExternalId SEQUENCE: 24 ITEM TYPE: FIXED STRING GET ACTION: S VALUE="CH;"_+DIEN
DESCRIPTION	This entity expects ID = IENS string of the desired accession in the Chem sub-file #63.04 ('IDT,LRDFN'), and DATA = #60 ien of the ordered test or panel. It is intended to be used with VPR LAB ORDER.
GET EXIT ACTION	K LR0,LRVER,LRFAC
GET ID ACTION	S LR0=$G(^LR(LRDFN,"CH",+DIEN,0)) I '$L(LR0) S DDEOUT=1