VPR LRCH RESULT ITEM (18) ENTITY (1.5)

Name	Value
NAME	VPR LRCH RESULT ITEM
DEFAULT FILE NUMBER	63.04
DATA MODEL	SDA
DISPLAY NAME	ResultItem
ITEM	ObservationTime SEQUENCE: 18 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 63.04 OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=9999999-$P(IEN,",",2) Extension SEQUENCE: 3 ITEM TYPE: ENTITY FILE NUMBER: 63.04 ENTITY: VPR LRCH RESULT ITEM EXTENSION GET ACTION: S VALUE=$G(LRNODE) TestItemStatus SEQUENCE: 11 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$S($P(LRNODE,U)["pending":"P",1:"F") ResultValue SEQUENCE: 5 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$P(LRNODE,U) ResultValueUnits SEQUENCE: 7 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$P($P(LRNODE,U,5),"!",7) ResultInterpretation SEQUENCE: 9 ITEM TYPE: FIXED STRING GET ACTION: N X S X=$P(LRNODE,U,2) S:$L(X) VALUE=$E(X)_$S($E(X,2)="*":$E(X),1:"") ResultNormalRange SEQUENCE: 8 ITEM TYPE: FIXED STRING GET ACTION: N X,LOW,HI S X=$P(LRNODE,U,5),LOW=$P(X,"!",2),HI=$P(X,"!",3),VALUE="" I $$VALRNG^VPRSDAB(LOW,HI) S VALUE=$$REFRNG^VPRSDAB(LOW,HI) TestItemCode SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 63.04 ENTITY: VPR LAB TEST GET ACTION: S VALUE=$P($P(LRNODE,U,3),"!",7) S:VALUE="" VALUE=$$TEST^LRPXAPIU(+IEN) PerformedAt SEQUENCE: 13 ITEM TYPE: ENTITY FILE NUMBER: 63.04 ENTITY: VPR LAB FACILITY GET ACTION: S VALUE=$P(LRNODE,U,9),LRFAC=VALUE ResultCodedValue SEQUENCE: 17 ITEM TYPE: ENTITY FILE NUMBER: 63.04 ENTITY: VPR LOINC GET ACTION: S VALUE=$P($P(LRNODE,U,3),"!",3) ExternalId SEQUENCE: 23 ITEM TYPE: FIXED STRING GET ACTION: S VALUE="CH;"_+$P(DIEN,",",2)_";"_+DIEN
DESCRIPTION	This entity expects ID = IENS string of the desired test result in the Chem sub-file #63.04 ('DN,IDT,LRDFN'). It is intended to be used with VPR LRCH RESULT.
GET EXIT ACTION	K LRNODE
GET ID ACTION	D LRVALUE^LRPXAPI(.LRNODE,+$P(DIEN,",",3),+$P(DIEN,",",2),+DIEN) S LRVER=$P(LRNODE,"\|",4) S:LRNODE="" DDEOUT=1