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:   S VALUE=$TR($P($P(LRNODE,U,5),"!",2,3),"!","-") I VALUE="-" S DDEOUT=1
  • 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