VPR V EXAM (43)    ENTITY (1.5)

• EncounterNumber
  SEQUENCE:   5
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.13
  FIELD NUMBER:   .03
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
  GET ACTION:   S VALUE=$G(VPRVST)
• Extension
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.13
  ENTITY:   VPR VXAM EXTENSION
  GET ACTION:   S VALUE=DIEN
• ExternalId
  SEQUENCE:   4
  ITEM TYPE:   ID
• PhysExamTime
  SEQUENCE:   7
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.13
  FIELD NUMBER:   1201
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$G(VPRXM("EVENT DATE AND TIME"))
• PhysExamCode
  SEQUENCE:   8
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.13
  FIELD NUMBER:   .01
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR EXAM
• PhysExamObsValue
  SEQUENCE:   11
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.13
  FIELD NUMBER:   .04
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  GET ACTION:   S VALUE=$G(VPRXM("VALUE"))
• NoteText
  SEQUENCE:   12
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.13
  FIELD NUMBER:   81101
  GET ACTION:   S VALUE=$G(VPRXM("COMMENTS"))
• EnteredBy
  SEQUENCE:   14
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.13
  FIELD NUMBER:   .03
  EXTENDED POINTER LKUP:   .23
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR USER
  GET ACTION:   S VALUE=$P(VPRVST0,U,23)
• EnteredAt
  SEQUENCE:   15
  ITEM TYPE:   ENTITY
  FILE NUMBER:   9000010.13
  FIELD NUMBER:   .03
  EXTENDED POINTER LKUP:   .06
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR FACILITY
  GET ACTION:   S VALUE=$P(VPRVST0,U,6) S:'VALUE VALUE=$G(VASITE)
• EnteredOn
  SEQUENCE:   16
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   9000010.13
  FIELD NUMBER:   .03
  EXTENDED POINTER LKUP:   .01
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P(VPRVST0,U)

This entity populates the Physical Exam container in HealthShare from 
the V EXAM (#9000010.13) file; it expects the record IEN as the ID (DIEN).
 
This entity is supported by code in routine VPRSDAVF, which uses the
^PXRMINDX reminder index and VXAM^PXPXRM call to extract V POV data. 
Data in SDA is maintained by monitoring the PXK VISIT DATA EVENT
protocol event.