VPR SCHEDULED ADMISSION (91)    ENTITY (1.5)

• Status
  SEQUENCE:   4
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S VALUE=$S($P(VPRADM,U,13):"CANCELLED",$P(VPRADM,U,17):"ADMITTED",$P(VPRADM,U,2)>DT:"FUTURE",1:"NO ACTION TAKEN")
• CareProvider
  SEQUENCE:   12
  ITEM TYPE:   ENTITY
  FILE NUMBER:   41.1
  FIELD NUMBER:   5
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P(VPRADM,U,5)
• PlacerApptId
  SEQUENCE:   7
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S VALUE="H;"_DIEN
• FillerApptId
  SEQUENCE:   8
  ITEM TYPE:   ID
• Location
  SEQUENCE:   13
  ITEM TYPE:   ENTITY
  FILE NUMBER:   41.1
  FIELD NUMBER:   8
  EXTENDED POINTER LKUP:   44
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR LOCATION
• EnteredBy
  SEQUENCE:   15
  ITEM TYPE:   ENTITY
  FILE NUMBER:   41.1
  FIELD NUMBER:   11
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR USER
  GET ACTION:   S VALUE=$P(VPRADM,U,11)
• EnteredAt
  SEQUENCE:   16
  ITEM TYPE:   ENTITY
  FILE NUMBER:   41.1
  FIELD NUMBER:   12
  EXTENDED POINTER LKUP:   .07
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR FACILITY
• FromTime
  SEQUENCE:   18
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   41.1
  FIELD NUMBER:   2
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
• ToTime
  SEQUENCE:   19
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   41.1
  FIELD NUMBER:   17
  EXTENDED POINTER LKUP:   .01
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S:$P(VPRADM,U,13) VALUE=$P(VPRADM,U,13) ;cancelled instead
• Extension
  SEQUENCE:   3
  ITEM TYPE:   ENTITY
  FILE NUMBER:   41.1
  ENTITY:   VPR SCH ADM EXTENSION
  GET ACTION:   S VALUE=DIEN

This entity populates the Appointment container in HealthShare from the
SCHEDULED ADMISSION (#41.1) file; it expects the record IEN as the
ID (DIEN).
 
This entity is supported by code in routine VPRSDAM, which uses VA
FileMan calls to extract appointment data. Data in SDA is maintained by
monitoring the DG SA FILE ENTRY NOTIFIER protocol event.