VPR APPOINTMENT (40) ENTITY (1.5)

Name	Value
NAME	VPR APPOINTMENT
DEFAULT FILE NUMBER	2.98
DATA MODEL	SDA
DISPLAY NAME	Appointment
ITEM	EnteredAt SEQUENCE: 16 ITEM TYPE: ENTITY FILE NUMBER: 2.98 FIELD NUMBER: .01 EXTENDED POINTER LKUP: 3 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$$GET1^DIQ(44,+$P(VPRAPPT,U,2)_",",3,"I") S:'VALUE VALUE=$$SITE^VPRSDA EnteredOn SEQUENCE: 17 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.98 FIELD NUMBER: 20 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(VPRAPPT),U,16) FromTime SEQUENCE: 18 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.98 FIELD NUMBER: .001 OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=+$G(VPRAPPT) ToTime SEQUENCE: 19 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,11) I VALUE="",$P(VPRAPPT,U,3)["NS" S VALUE=$$GET1^DIQ(2.98,DIEN_",",15,"I") PlacerApptId SEQUENCE: 7 ITEM TYPE: FIXED STRING GET ACTION: S VALUE="A;"_+$G(VPRAPPT)_";"_+$P($G(VPRAPPT),U,2) CareProvider SEQUENCE: 12 ITEM TYPE: ENTITY FILE NUMBER: 2.98 ENTITY: VPR PROVIDER GET ACTION: S VALUE=$$APPTPRV^VPRSDAM ;expects VPRAPPT Notes SEQUENCE: 14 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 44.003 FIELD NUMBER: 3 GET ACTION: S VALUE=$G(VPRAPPT("C")) S:VALUE="" DDEOUT=1 Extension SEQUENCE: 3 ITEM TYPE: ENTITY FILE NUMBER: 2.98 ENTITY: VPR APPOINTMENT EXTENSION GET ACTION: S VALUE=DIEN Status SEQUENCE: 4 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.98 FIELD NUMBER: 100 GET ACTION: S VALUE=$P($P($G(VPRAPPT),U,22),";",3) NoShow SEQUENCE: 5 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.98 FIELD NUMBER: 3 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false") GET ACTION: S VALUE=($P($G(VPRAPPT),U,3)?1"NS".E) Type SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 2.98 FIELD NUMBER: 9.5 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE OUTPUT TRANSFORM: S $P(VALUE,U,3)="VA409.1" GET ACTION: S VALUE=$TR($P($G(VPRAPPT),U,10),";","^") FillerApptId SEQUENCE: 8 ITEM TYPE: ID Location SEQUENCE: 13 ITEM TYPE: ENTITY FILE NUMBER: 2.98 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES ENTITY: VPR LOCATION GET ACTION: S VALUE=+$P($G(VPRAPPT),U,2) EnteredBy SEQUENCE: 15 ITEM TYPE: ENTITY FILE NUMBER: 2.98 FIELD NUMBER: 19 RETURN INTERNAL VALUE: YES ENTITY: VPR USER
DESCRIPTION	This entity populates the Appointment container in HealthShare from the APPOINTMENT (#2.98) sub-file of the PATIENT (#2) file; it expects the record IENS string as the ID (DIEN). Data is also pulled from the related APPOINTMENT (#44.001) sub-file of the HOSPITAL LOCATION (#44) file. This entity is supported by code in routine VPRSDAM, which uses the $$SDAPI^SDAMA301 and GETPRV^SDOE calls to extract appointment data. Data in SDA is maintained by monitoring the SDAM APPOINTMENT EVENTS protocol event.
GET EXIT ACTION	K ^TMP($J,"SDAMA301"),VPRAPPT
GET ID ACTION	D APPT1^VPRSDAM(DIEN)
GET QUERY ROUTINE	APPTS^VPRSDAM