VPR ADMISSION (79)    ENTITY (1.5)

• EncounterNumber
  SEQUENCE:   3
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   405
  FIELD NUMBER:   .27
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
  GET ACTION:   S VALUE=$G(VPRVST)
• EnteredOn
  SEQUENCE:   43
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   405
  FIELD NUMBER:   101
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
• FromTime
  SEQUENCE:   44
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   405
  FIELD NUMBER:   .01
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(VAIP(13,1)),U)
• ToTime
  SEQUENCE:   45
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   405
  FIELD NUMBER:   .17
  EXTENDED POINTER LKUP:   .01
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S:VALUE VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(VAIP(17,1)),U) I 'VALUE,+$G(VAIP(14,2))=2,$G(VAIP(14,3))["FROM ASIH" S VALUE=$$NULL^VPRSDA ;delete auto-gen date on return from ASIH
• AdmittingClinician
  SEQUENCE:   7
  ITEM TYPE:   ENTITY
  FILE NUMBER:   405
  FIELD NUMBER:   .08
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P($G(VAIP(13,5)),U)
• AttendingClinicians
  SEQUENCE:   8
  ITEM TYPE:   LIST
  FILE NUMBER:   405
  ENTITY:   VPR PROVIDER
  LIST TYPE:   ARRAY
  XML NAME:   CareProvider
  GET ACTION:   S:$G(VAIP(18)) DLIST(1)=+VAIP(18)
• AdmissionSource
  SEQUENCE:   14
  ITEM TYPE:   ENTITY
  FILE NUMBER:   405
  FIELD NUMBER:   .18
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  GET ACTION:   S IEN=+$G(VAIP(13)),VALUE=$G(VAIP(13,3)) S:$L(VALUE) VALUE=VALUE_"^VA405.2"
• AssignedWard
  SEQUENCE:   15
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   405
  FIELD NUMBER:   .06
  GET ACTION:   S IEN=+$G(VAIP(1)),VALUE=$P($G(VAIP(5)),U,2)
• AssignedRoom
  SEQUENCE:   16
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   405
  FIELD NUMBER:   .07
  OUTPUT TRANSFORM:   S VALUE=$P(VALUE,"-")
  GET ACTION:   S IEN=+$G(VAIP(1)),VALUE=$P($G(VAIP(6)),U,2)
• AssignedBed
  SEQUENCE:   17
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   405
  FIELD NUMBER:   .07
  OUTPUT TRANSFORM:   S VALUE=$P(VALUE,"-",2)
  GET ACTION:   S IEN=+$G(VAIP(1)),VALUE=$P($G(VAIP(6)),U,2)
• AdmitReason
  SEQUENCE:   21
  ITEM TYPE:   ENTITY
  FILE NUMBER:   405
  FIELD NUMBER:   .1
  ENTITY:   VPR TEXT ONLY
  GET ACTION:   S VALUE=$G(VAIP(13,7))
• EncounterType
  SEQUENCE:   5
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S VALUE="I"
• Specialties
  SEQUENCE:   30
  ITEM TYPE:   LIST
  ENTITY:   VPR SPECIALTY
  LIST TYPE:   ARRAY
  XML NAME:   CareProviderType
  GET ACTION:   S:$G(VAIP(8)) DLIST(1)=+VAIP(8) ;D SPEC^VPRSDAV
• Extension
  SEQUENCE:   2
  ITEM TYPE:   ENTITY
  FILE NUMBER:   405
  ENTITY:   VPR ADMISSION EXTENSION
  GET ACTION:   S VALUE=DIEN
• Priority
  SEQUENCE:   35
  ITEM TYPE:   ENTITY
  FILE NUMBER:   405
  ENTITY:   VPR CODE TABLE
  GET ACTION:   S VALUE="P^PRIMARY"
• SeparationMode
  SEQUENCE:   29
  ITEM TYPE:   ENTITY
  FILE NUMBER:   405
  FIELD NUMBER:   .18
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  GET ACTION:   S IEN=+$G(VAIP(17)),VALUE=$G(VAIP(17,3)) S:$L(VALUE) VALUE=VALUE_"^VA405.2"
• EncounterCodedType
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   405
  ENTITY:   VPR CODE TABLE
  GET ACTION:   S VALUE="H^HOSPITALIZATION"
• ConsultingClinicians
  SEQUENCE:   9
  ITEM TYPE:   LIST
  ENTITY:   VPR PROVIDER
  LIST TYPE:   ARRAY
  XML NAME:   CareProvider
  GET ACTION:   N X S X=$P($G(VAIP(13,5)),U) S:X DLIST(1)=X_"^PRIMARY"
• HealthCareFacility
  SEQUENCE:   22
  ITEM TYPE:   ENTITY
  FILE NUMBER:   405
  FIELD NUMBER:   .06
  EXTENDED POINTER LKUP:   44
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR LOCATION
  GET ACTION:   N X S X=$P($G(VAIP(5)),U) S:X VALUE=+$G(^DIC(42,+X,44))
• EnteredBy
  SEQUENCE:   41
  ITEM TYPE:   ENTITY
  FILE NUMBER:   405
  FIELD NUMBER:   100
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR USER
• EnteredAt
  SEQUENCE:   42
  ITEM TYPE:   ENTITY
  FILE NUMBER:   405
  FIELD NUMBER:   .06
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR FACILITY
  OUTPUT TRANSFORM:   S VALUE=$$WARDFAC^VPRSDAV(VALUE) S:'VALUE VALUE=$$SITE^VPRSDA
  GET ACTION:   S VALUE=$P($G(VAIP(13,4)),U)

This entity populates the Encounter container in HealthShare with
IN5^VADPT call to extract movement data. Data in SDA is maintained by
monitoring the DGPM MOVEMENT EVENTS protocol event.
inpatient admissions from the PATIENT MOVEMENT (#405) file; it expects
the record IEN as the ID (DIEN).
 
An admission must have a corresponding entry in the VISIT (#9000010)
file to be included in SDA. The ID may optionally include the visit
number, in the form: #405 ien ~ #9000010 ien.
 
This entity is supported by code in routine VPRSDAV, which uses the