Name	Value
NAME	VPR ADMISSION
DEFAULT FILE NUMBER	405
DATA MODEL	SDA
DISPLAY NAME	Encounter
ITEM	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)
DESCRIPTION	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
GET EXIT ACTION	K VAIP,VPRVST,VPRCA
GET ID ACTION	D VAIP^VPRSDAV
GET QUERY ROUTINE	ADMQ^VPRSDAV

VPR ADMISSION (79) ENTITY (1.5)