VPR ADMISSION MOVEMENT (162) ENTITY (1.5)

Name	Value
NAME	VPR ADMISSION MOVEMENT
DEFAULT FILE NUMBER	405
DATA MODEL	SDA
DISPLAY NAME	Movement
ITEM	MovementNumber SEQUENCE: 1 ITEM TYPE: ID EnteredBy SEQUENCE: 12 ITEM TYPE: ENTITY FILE NUMBER: 405 FIELD NUMBER: 100 RETURN INTERNAL VALUE: YES ENTITY: VPR USER EnteredOn SEQUENCE: 13 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 405 FIELD NUMBER: 101 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) SpecialtyMovement SEQUENCE: 5 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$G(VPRDGTS) PrimaryClinician SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 405 FIELD NUMBER: .08 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S IEN=+$G(VPRDGTS) S:IEN<1 DDEOUT=1 ;VALUE=$P(VPRDGPM,U,8) SpecMovementType SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 405 FIELD NUMBER: .04 RETURN INTERNAL VALUE: YES ENTITY: VPR MAS MOVEMENT TYPE GET ACTION: S IEN=+$G(VPRDGTS) S:IEN<1 DDEOUT=1 MovementTime SEQUENCE: 2 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(VPRDGPM,U) TransactionType SEQUENCE: 3 ITEM TYPE: ENTITY FILE NUMBER: 405 FIELD NUMBER: .02 RETURN INTERNAL VALUE: YES ENTITY: VPR MAS TRANSACTION TYPE GET ACTION: S VALUE=$P(VPRDGPM,U,2) MovementType SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 405 FIELD NUMBER: .04 RETURN INTERNAL VALUE: YES ENTITY: VPR MAS MOVEMENT TYPE GET ACTION: S VALUE=$P(VPRDGPM,U,4) AssignedWard SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 405 FIELD NUMBER: .06 RETURN INTERNAL VALUE: YES ENTITY: VPR WARD LOCATION GET ACTION: S VALUE=$P(VPRDGPM,U,6) AssignedRoomBed SEQUENCE: 8 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 405 FIELD NUMBER: .07 AttendingClinician SEQUENCE: 10 ITEM TYPE: ENTITY FILE NUMBER: 405 FIELD NUMBER: .19 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S IEN=+$G(VPRDGTS) S:IEN<1 DDEOUT=1 ;VALUE=$P(VPRDGPM,U,19) Specialty SEQUENCE: 11 ITEM TYPE: ENTITY FILE NUMBER: 405 FIELD NUMBER: .09 RETURN INTERNAL VALUE: YES ENTITY: VPR SPECIALTY GET ACTION: S IEN=+$G(VPRDGTS) S:IEN<1 DDEOUT=1 ;VALUE=$P(VPRDGPM,U,9)
DESCRIPTION	This entity supports VPR ADMISSION EXTENSION, providing a single patient movement.
GET EXIT ACTION	K VPRDGPM,VPRDGTS
GET ID ACTION	S VPRDGTS=$P($G(DIEN),";",2),DIEN=+$G(DIEN),VPRDGPM=$G(^DGPM(DIEN,0))