VPR VITAL TYPE (42)    ENTITY (1.5)

Name Value
NAME VPR VITAL TYPE
DEFAULT FILE NUMBER 120.51
DATA MODEL SDA
DISPLAY NAME ObservationCode
ITEM
  • SDACodingStandard
    SEQUENCE:   1
    ITEM TYPE:   FIXED STRING
    FIXED RESPONSE:   VA120.51
    GET ACTION:   S:$G(VPRVUID) VALUE="VHAT"
  • Code
    SEQUENCE:   6
    ITEM TYPE:   ID
    FILE NUMBER:   120.51
    GET ACTION:   S:$G(VPRVUID) VALUE=VPRVUID
  • Description
    SEQUENCE:   7
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   120.51
    FIELD NUMBER:   .01
    GET ACTION:   S VALUE=$$FIELD^GMVGETVT(IEN,1)
  • ObservationValueUnits
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    FILE NUMBER:   120.51
    ENTITY:   VPR CODE TABLE
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE="F":"[degF]",VALUE="in":"[in_us]",VALUE="lb":"[lb_av]",1:VALUE)_"^^UCUM"
    GET ACTION:   N TYPE S TYPE=$G(VPRTYPE),VALUE=$$UNIT^VPRDGMV(TYPE),DATA=VALUE S:VALUE="" DDEOUT=1
GET EXIT ACTION K VPRVUID
GET ID ACTION S VPRVUID=$$VUID^VPRD(+DIEN,120.51)