VPR HEALTH CONCERN (135)    ENTITY (1.5)

Name Value
NAME VPR HEALTH CONCERN
DEFAULT FILE NUMBER 9000010.23
DATA MODEL SDA
DISPLAY NAME HealthConcern
ITEM
  • EnteredBy
    SEQUENCE:   1
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .23
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$P(VPRVST0,U,23)
  • EnteredAt
    SEQUENCE:   2
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .06
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$P(VPRVST0,U,6)
  • EnteredOn
    SEQUENCE:   3
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .02
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P(VPRVST0,U,2)
  • EncounterNumber
    SEQUENCE:   8
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   .03
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
    GET ACTION:   S VALUE=$G(VPRVST)
  • Description
    SEQUENCE:   10
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   .01
    GET ACTION:   S:$P(VPRHF,U,2) VALUE=$P($G(^AUTTHF(+$P(VPRHF,U,2),0)),U)
  • Status
    SEQUENCE:   11
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   .04
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    OUTPUT TRANSFORM:   S:$L(VALUE) VALUE=VALUE_U_$$EXTERNAL^DILFD(9000010.23,.04,,VALUE)
    GET ACTION:   S VALUE=$G(VPRHF("LEVEL/SEVERITY"))
  • FromTime
    SEQUENCE:   5
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .02
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P(VPRVST0,U,2)
GET EXIT ACTION K VPRHF,VPRVST,VPRVST0
GET ID ACTION K VPRHF D:$D(^AUPNVHF(+DIEN)) VHF^PXPXRM(+DIEN,.VPRHF) S VPRVST=$G(VPRHF("VISIT")),VPRHF=DIEN,DIEN=+DIEN,VPRVST0=$G(^AUPNVSIT(+VPRVST,0))
GET QUERY ROUTINE HFACTORS^VPRSDAQ