Name	Value
NAME	VPR INSURANCE
DEFAULT FILE NUMBER	2.312
DATA MODEL	SDA
DISPLAY NAME	MemberEnrollment
ITEM	EnteredBy SEQUENCE: 1 ITEM TYPE: ENTITY FILE NUMBER: 2.312 FIELD NUMBER: 1.02 RETURN INTERNAL VALUE: YES ENTITY: VPR USER PrescriptionCoverage SEQUENCE: 21 ITEM TYPE: FIXED STRING GET ACTION: N X S X=$G(VPRINS(VPRP,15)),VALUE=$S(X="":3,+X:1,1:2) ;1=YES, 2=NO, 3=UNK PrimaryInsuranceIndicator SEQUENCE: 22 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.312 FIELD NUMBER: .2 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(+VALUE=1:1,VALUE:4,1:3) ;1=YES,3=UNK,4=OTHER GET ACTION: S VALUE=$G(VPRINS(VPRP,7)) PlanSpecificSubscriberID SEQUENCE: 26 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.312 FIELD NUMBER: 7.02 GET ACTION: S VALUE=$G(VPRINS(VPRP,14)) HealthFund SEQUENCE: 30 ITEM TYPE: ENTITY FILE NUMBER: 2.312 ENTITY: VPR INSURANCE PLAN GET ACTION: S VALUE=+$G(VPRINS(VPRP,8)),VPRPIEN=DIEN MemberEnrollmentNumber SEQUENCE: 10 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=+$G(VPRINS(VPRP,1))_";"_+$G(VPRINS(VPRP,8))_";"_$G(VPRINS(VPRP,14)) ; = Company#;Policy#;SubscriberID Extension SEQUENCE: 31 ITEM TYPE: ENTITY FILE NUMBER: 2.312 ENTITY: VPR INSURANCE EXTENSION GET ACTION: S VALUE=DIEN UpdatedOn SEQUENCE: 4 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.312 FIELD NUMBER: 1.03 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRINS(VPRP,25)) EnteredAt SEQUENCE: 2 ITEM TYPE: ENTITY FILE NUMBER: 2.312 ENTITY: VPR FACILITY GET ACTION: S VALUE=$G(VASITE) ; default #4 ien EnteredOn SEQUENCE: 3 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.312 FIELD NUMBER: 1.01 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) FromTime SEQUENCE: 5 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.312 FIELD NUMBER: 8 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRINS(VPRP,10)) ToTime SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.312 FIELD NUMBER: 3 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRINS(VPRP,11)) CarrierSpecificMemberID SEQUENCE: 12 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.312 FIELD NUMBER: 5.01 InsuranceTypeOrProductCode SEQUENCE: 15 ITEM TYPE: ENTITY FILE NUMBER: 2.312 FIELD NUMBER: .18 EXTENDED POINTER LKUP: .09 ENTITY: VPR CODE TABLE OUTPUT TRANSFORM: S VALUE=VALUE_"^^VHAT" GET ACTION: S VALUE=$P($G(VPRINS(VPRP,21)),U,2) IndividualRelationshipCode SEQUENCE: 17 ITEM TYPE: ENTITY FILE NUMBER: 2.312 FIELD NUMBER: 16 ENTITY: VPR CODE TABLE OUTPUT TRANSFORM: S VALUE=VALUE_"^^VHAT" GET ACTION: S VALUE=$P($G(VPRINS(VPRP,19)),U,2) InsuredGroupOrPolicyNumber SEQUENCE: 18 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 2.312 FIELD NUMBER: .18 EXTENDED POINTER LKUP: .04 GET ACTION: S VALUE=$G(VPRINS(VPRP,18))
DESCRIPTION	This entity populates the Member Enrollment container in HealthShare from the PATIENT INSURANCE TYPE (#2.312) sub-file. It expects the record IENS string as the ID (DIEN). This entity is supported by code in routine VPRSDAIB, which uses the supported IBBAPI call to extract insurance information. Data is maintained by monitoring the IBCN NEW INSURANCE EVENTS protocol event.
GET ENTRY ACTION	S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
GET EXIT ACTION	K VPRINS,VPRP,VASITE,VPRPIEN
GET ID ACTION	D INS1^VPRSDAIB(DIEN)
GET QUERY ROUTINE	INQ^VPRSDAIB

VPR INSURANCE (2) ENTITY (1.5)