VPR REFERRAL (48) ENTITY (1.5)

Name	Value
NAME	VPR REFERRAL
DEFAULT FILE NUMBER	123
DATA MODEL	SDA
DISPLAY NAME	Referral
ITEM	EnteredBy SEQUENCE: 1 ITEM TYPE: ENTITY FILE NUMBER: 123 ENTITY: VPR USER GET ACTION: S VALUE=+$P($G(VPRCACT(1,0)),U,5) ReferringOrganization SEQUENCE: 11 ITEM TYPE: ENTITY FILE NUMBER: 123 FIELD NUMBER: 2 RETURN INTERNAL VALUE: YES ENTITY: VPR LOCATION GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,6) ReferredToProvider SEQUENCE: 12 ITEM TYPE: ENTITY FILE NUMBER: 123 FIELD NUMBER: 7 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,11) ReferredToOrganization SEQUENCE: 13 ITEM TYPE: ENTITY FILE NUMBER: 123 FIELD NUMBER: 1 RETURN INTERNAL VALUE: YES ENTITY: VPR CONSULT SERVICE EnteredOn SEQUENCE: 15 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: .01 OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(VPRCONS(0)),U) FromTime SEQUENCE: 16 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 3 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,7) ToTime SEQUENCE: 17 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: .03 EXTENDED POINTER LKUP: 22 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: N ORD S ORD=$P($G(VPRCONS(0)),U,3) S:ORD VALUE=$$GET1^DIQ(100,ORD,22,"I") ExternalId SEQUENCE: 4 ITEM TYPE: ID ReferringProvider SEQUENCE: 10.1 ITEM TYPE: ENTITY FILE NUMBER: 123 FIELD NUMBER: .126 ENTITY: VPR REFERRING PROVIDER GET ACTION: S VALUE=DIEN I $P($G(VPRCONS(0)),U,14)!($P($G(VPRIFC),U,6)="") S DDEOUT=1 ;Remote Requestor EnteredAt SEQUENCE: 2 ITEM TYPE: ENTITY FILE NUMBER: 123 FIELD NUMBER: .05 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,21) S:'VALUE VALUE=$G(VASITE) UpdatedOn SEQUENCE: 3 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: N I,X S I=0 F S I=$O(VPRCACT(I)) Q:I<1 S X=+$G(VPRCACT(I,0)) I X>+$G(VALUE) S VALUE=+X Extension SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 123 ENTITY: VPR REFERRAL EXTENSION GET ACTION: S VALUE=DIEN PlacerId SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: .03 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,3) FillerId SEQUENCE: 8 ITEM TYPE: ID ReferralReason SEQUENCE: 9 ITEM TYPE: WORD PROCESSING FILE NUMBER: 123 FIELD NUMBER: 20 WORD WRAP: 1 GET ACTION: M WP=VPRCONS(20) ReferringProvider SEQUENCE: 10 ITEM TYPE: ENTITY FILE NUMBER: 123 FIELD NUMBER: 10 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,14)
DESCRIPTION	This entity populates the Referral container in HealthShare from the REQUEST/CONSULTATION (#123) file; it expects the record IEN as the ID (DIEN). This entity is supported by code in routine VPRSDAC, which uses the GMRCAPI routine to extract consults. Data in SDA is maintained by monitoring the GMRC EVSEND OR and OR EVSEND GMRC protocol events.
GET ENTRY ACTION	S VASITE=$$SITE^VPRSDA
GET EXIT ACTION	K VPRCONS,VPRCACT,VPRIFC,VASITE
GET ID ACTION	D GMRC1^VPRSDAC(DIEN)
GET QUERY ROUTINE	QRY^VPRSDAC