Name	Value
NAME	VPR REFERRAL EXTENSION
DEFAULT FILE NUMBER	123
DATA MODEL	SDA
DISPLAY NAME	ReferralExtension
ITEM	Name SEQUENCE: 1 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$$CONSNAME^VPRSDAC(DIEN) ;CPRS display text PlaceOfConsultation SEQUENCE: 12 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 6 GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,10) LastActionTaken SEQUENCE: 13 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 9 GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,13) ServiceType SEQUENCE: 14 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 14 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,18) DesiredDate SEQUENCE: 15 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 17 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,24) ProvisionalDxDate SEQUENCE: 5 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 30.2 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(VPRCONS(30.1)),U,2) RequestActions SEQUENCE: 22 ITEM TYPE: LIST ENTITY: VPR REFERRAL ACTIVITY LIST TYPE: ARRAY XML NAME: RequestAction GET ACTION: D GETACT^VPRSDAC(DIEN) ClinicalProcedure SEQUENCE: 3 ITEM TYPE: ENTITY FILE NUMBER: 123 FIELD NUMBER: 1.01 RETURN INTERNAL VALUE: YES ENTITY: VPR MDD PROCEDURE Interpretation SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 16 EXTENDED POINTER LKUP: 70201 ProcedureTime SEQUENCE: 16 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 16 EXTENDED POINTER LKUP: 70202 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) AssociatedEncounterNumber SEQUENCE: 17 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 16 EXTENDED POINTER LKUP: .03 RETURN INTERNAL VALUE: YES Procedure SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 4 GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,8) UCID SEQUENCE: 18 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 80 IFCRole SEQUENCE: 19 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: .125 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE="P":"PLACER",VALUE="F":"FILLER",1:"") GET ACTION: S VALUE=$P($G(VPRIFC),U,5) RemoteConsultId SEQUENCE: 20 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: .06 GET ACTION: S VALUE=$P($G(VPRIFC),U,7) DSTId SEQUENCE: 23 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 85 GET ACTION: S VALUE=$P($G(VPRCONS(75)),U) ProvisionalDx SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 123 FIELD NUMBER: 30.1 ENTITY: VPR CODE TABLE GET ACTION: S VALUE=$$PROVDX^VPRSDAC(DIEN) Result SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 15 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE="Y":"SIGNIFICANT FINDINGS",VALUE="N":"NO SIGNIFICANT FINDINGS",1:"UNKNOWN") GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,19) Status SEQUENCE: 8 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 8 GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,12) Type SEQUENCE: 9 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 13 OUTPUT TRANSFORM: S VALUE=$S(VALUE="C":"Consult",1:"Procedure") GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,17) Urgency SEQUENCE: 10 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 123 FIELD NUMBER: 5 GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,9) DocumentNumbers SEQUENCE: 21 ITEM TYPE: LIST LIST TYPE: ARRAY XML NAME: DocumentNumbersItem GET ACTION: N VPRI,VPRX S VPRI=0 F S VPRI=$O(VPRCONS(50,VPRI)) Q:VPRI<1 S VPRX=+$G(VPRCONS(50,VPRI)) S:$$COMP^VPRSDAT(VPRX) DLIST(VPRI)=VPRX_";TIU" PatientLocation SEQUENCE: 11 ITEM TYPE: ENTITY FILE NUMBER: 123 FIELD NUMBER: .04 RETURN INTERNAL VALUE: YES ENTITY: VPR LOCATION GET ACTION: S VALUE=$P($G(VPRCONS(0)),U,4)
DESCRIPTION	This entity extends VPR REFERRAL; it expects the VPRCONS and VPRCACT arrays as defined by GMRCAPI in the main entity GET ID ACTION.

VPR REFERRAL EXTENSION (120) ENTITY (1.5)