VPR FIM (133)    ENTITY (1.5)

Name Value
NAME VPR FIM
DEFAULT FILE NUMBER 783
DATA MODEL SDA
DISPLAY NAME Problem
ITEM
  • UpdatedOn
    SEQUENCE:   1
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   783
    FIELD NUMBER:   .12
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  • FromTime
    SEQUENCE:   17
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   783
    FIELD NUMBER:   .1
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   N X S X=$P($G(VPRM(1)),U,10) S:$L(X) VALUE=$$INTDATE^VPRSDA(X)
  • ToTime
    SEQUENCE:   18
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   783
    FIELD NUMBER:   .11
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   N X S X=$P($G(VPRM(1)),U,11) S:$L(X) VALUE=$$INTDATE^VPRSDA(X)
  • ExternalId
    SEQUENCE:   19
    ITEM TYPE:   ID
    OUTPUT TRANSFORM:   S VALUE=VALUE_";FIM"
  • Extension
    SEQUENCE:   4
    ITEM TYPE:   ENTITY
    FILE NUMBER:   783
    ENTITY:   VPR FIM EXTENSION
    GET ACTION:   S VALUE=DIEN
  • Status
    SEQUENCE:   9
    ITEM TYPE:   ENTITY
    FILE NUMBER:   783
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE="55561003^Active^SNOMED CT"
  • CustomPairs
    SEQUENCE:   3
    ITEM TYPE:   LIST
    ENTITY:   VPR CUSTOM PAIR
    GET ACTION:   D FIMS^VPRSDA ;sets VPRFIMS, DLIST array
  • ProblemDetails
    SEQUENCE:   5
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$G(VPRFIMS)
  • Problem
    SEQUENCE:   6
    ITEM TYPE:   ENTITY
    FILE NUMBER:   783
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE="408907016^Functional independence measure^SNOMED CT"
  • Clinician
    SEQUENCE:   7
    ITEM TYPE:   ENTITY
    FILE NUMBER:   783
    FIELD NUMBER:   .16
    EXTENDED POINTER LKUP:   1202
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
    GET ACTION:   S VALUE=$G(VPRM("TIU",1202,"I"))
  • Category
    SEQUENCE:   10
    ITEM TYPE:   ENTITY
    FILE NUMBER:   783
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE="248536006^Finding of functional performance and activity^SNOMED CT"
  • EnteredBy
    SEQUENCE:   14
    ITEM TYPE:   ENTITY
    FILE NUMBER:   783
    FIELD NUMBER:   .16
    EXTENDED POINTER LKUP:   1302
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$G(VPRM("TIU",1302,"I"))
  • EnteredAt
    SEQUENCE:   15
    ITEM TYPE:   ENTITY
    FILE NUMBER:   783
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$$IEN^XUAF4($P(VPRSITE(1),U,2)) S:'VALUE VALUE=$G(VASITE)
  • EnteredOn
    SEQUENCE:   16
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   783
    FIELD NUMBER:   .16
    EXTENDED POINTER LKUP:   1201
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRM("TIU",1201,"I"))
DESCRIPTION
This entity populates the Problem container with Functional Independence
Measurement data.
GET ENTRY ACTION S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
GET EXIT ACTION K VPRM,VPRSITE,VPRFIMS,VASITE
GET ID ACTION D FIM1^VPRSDA(DIEN)
GET QUERY ROUTINE FIM^VPRSDAQ