VPR FIM (133)    ENTITY (1.5)

• 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^VPRSDAG ;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=$$SITE^VPRSDA
• 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"))

This entity populates the Problem container in HealthShare from the
FUNCTIONAL INDEPENDENCE MEASUREMENT RECORD (#783) file; it expects the
Site Case Number (#.02) field value as the ID (DIEN).
 
This entity is supported by code in routine VPRSDAG, which uses the
RMIMRP routine to extract measurements. Data in SDA is maintained by
monitoring the RMIM DRIVER protocol event.