VPR APPOINTMENT EXTENSION (105) ENTITY (1.5)

Name	Value
NAME	VPR APPOINTMENT EXTENSION
DEFAULT FILE NUMBER	2.98
DATA MODEL	SDA
DISPLAY NAME	AppointmentExtension
ITEM	PatientStatus SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.98 FIELD NUMBER: 3 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S($E(VALUE)="I":"INPATIENT",1:"AMBULATORY") GET ACTION: S VALUE=$P($G(VPRAPPT),U,3) CancelReason SEQUENCE: 10 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.98 FIELD NUMBER: 16 GET ACTION: S VALUE=$P($P(VPRAPPT(0),U,5),";",2) ServiceStatus SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.98 FIELD NUMBER: 3 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S($E(VALUE)="I":"INPATIENT VISIT",1:"AMBULATORY") GET ACTION: S VALUE=$P($G(VPRAPPT),U,3) AssociatedEncounterNumber SEQUENCE: 3 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.98 FIELD NUMBER: 21 EXTENDED POINTER LKUP: .05 RETURN INTERNAL VALUE: YES GET ACTION: N SDOE S SDOE=$P($G(VPRAPPT),U,12) I SDOE S VALUE=$P($$GETOE^SDOE(SDOE),U,5) Purpose SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 2.98 FIELD NUMBER: 9 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE GET ACTION: S VALUE=$P($P($G(VPRAPPT),U,18),";") Eligibility SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 44.003 FIELD NUMBER: 30 RETURN INTERNAL VALUE: YES ENTITY: VPR ELIGIBILITY GET ACTION: S VALUE=$P($P($G(VPRAPPT),U,8),";") S:VALUE="" DDEOUT=1 Length SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 44.003 FIELD NUMBER: 1 GET ACTION: S VALUE=$P($G(VPRAPPT),U,5) S:VALUE="" DDEOUT=1 CheckedIn SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 44.003 FIELD NUMBER: 309 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(VPRAPPT),U,9) S:VALUE="" DDEOUT=1 CancelledOn SEQUENCE: 8 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,25) CancelledBy SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 2.98 FIELD NUMBER: 14 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P($G(VPRAPPT),U,29)
DESCRIPTION	This entity extends VPR APPOINTMENT; it expects the local variable VPRAPPT to be defined, as the ^TMP($J,"SDAMA301") node for this appointment.