VPR APPOINTMENT (40)    ENTITY (1.5)

• EnteredAt
  SEQUENCE:   16
  ITEM TYPE:   ENTITY
  FILE NUMBER:   2.98
  FIELD NUMBER:   .01
  EXTENDED POINTER LKUP:   3
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR FACILITY
  GET ACTION:   S VALUE=$$GET1^DIQ(44,+$P(VPRAPPT,U,2)_",",3,"I") S:'VALUE VALUE=$$SITE^VPRSDA
• EnteredOn
  SEQUENCE:   17
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2.98
  FIELD NUMBER:   20
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(VPRAPPT),U,16)
• FromTime
  SEQUENCE:   18
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2.98
  FIELD NUMBER:   .001
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=+$G(VPRAPPT)
• ToTime
  SEQUENCE:   19
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2.98
  FIELD NUMBER:   15
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(VPRAPPT),U,11) I VALUE="",$P(VPRAPPT,U,3)["NS" S VALUE=$$GET1^DIQ(2.98,DIEN_",",15,"I")
• PlacerApptId
  SEQUENCE:   7
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S VALUE="A;"_+$G(VPRAPPT)_";"_+$P($G(VPRAPPT),U,2)
• CareProvider
  SEQUENCE:   12
  ITEM TYPE:   ENTITY
  FILE NUMBER:   2.98
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$$APPTPRV^VPRSDAM ;expects VPRAPPT
• Notes
  SEQUENCE:   14
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   44.003
  FIELD NUMBER:   3
  GET ACTION:   S VALUE=$G(VPRAPPT("C")) S:VALUE="" DDEOUT=1
• Extension
  SEQUENCE:   3
  ITEM TYPE:   ENTITY
  FILE NUMBER:   2.98
  ENTITY:   VPR APPOINTMENT EXTENSION
  GET ACTION:   S VALUE=DIEN
• Status
  SEQUENCE:   4
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2.98
  FIELD NUMBER:   100
  GET ACTION:   S VALUE=$P($P($G(VPRAPPT),U,22),";",3)
• NoShow
  SEQUENCE:   5
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   2.98
  FIELD NUMBER:   3
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
  GET ACTION:   S VALUE=($P($G(VPRAPPT),U,3)?1"NS".E)
• Type
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   2.98
  FIELD NUMBER:   9.5
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  OUTPUT TRANSFORM:   S $P(VALUE,U,3)="VA409.1"
  GET ACTION:   S VALUE=$TR($P($G(VPRAPPT),U,10),";","^")
• FillerApptId
  SEQUENCE:   8
  ITEM TYPE:   ID
• Location
  SEQUENCE:   13
  ITEM TYPE:   ENTITY
  FILE NUMBER:   2.98
  FIELD NUMBER:   .01
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR LOCATION
  GET ACTION:   S VALUE=+$P($G(VPRAPPT),U,2)
• EnteredBy
  SEQUENCE:   15
  ITEM TYPE:   ENTITY
  FILE NUMBER:   2.98
  FIELD NUMBER:   19
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR USER

This entity populates the Appointment container in HealthShare from the
APPOINTMENT (#2.98) sub-file of the PATIENT (#2) file; it expects the
record IENS string as the ID (DIEN). Data is also pulled from the related
APPOINTMENT (#44.001) sub-file of the HOSPITAL LOCATION (#44) file.
 
This entity is supported by code in routine VPRSDAM, which uses the
$$SDAPI^SDAMA301 and GETPRV^SDOE calls to extract appointment data. 
Data in SDA is maintained by monitoring the SDAM APPOINTMENT EVENTS
protocol event.