VPR TEAM MEMBER (139) ENTITY (1.5)

Name	Value
NAME	VPR TEAM MEMBER
DEFAULT FILE NUMBER	200
DATA MODEL	SDA
DISPLAY NAME	CareProvider
ITEM	Code SEQUENCE: 4 ITEM TYPE: ID AtOrganization SEQUENCE: 12 ITEM TYPE: ENTITY FILE NUMBER: 200 ENTITY: VPR FACILITY GET ACTION: S VALUE=$G(VASITE) Extension SEQUENCE: 3 ITEM TYPE: ENTITY FILE NUMBER: 200 ENTITY: VPR PROVIDER EXTENSION GET ACTION: S VALUE=DIEN Description SEQUENCE: 5 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$G(VPROLE) SDACodingStandard SEQUENCE: 1 ITEM TYPE: FIXED STRING FIXED RESPONSE: VA200 Name SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 200 FIELD NUMBER: .01 ENTITY: VPR NAME ContactInfo SEQUENCE: 8 ITEM TYPE: COMPLEX GROUP COMPLEX TYPE: COMPLEX ITEM SEQUENCE: 3 COMPLEX ITEM NAME: WorkPhoneNumber COMPLEX ITEM SEQUENCE: 4 COMPLEX ITEM NAME: MobilePhoneNumber COMPLEX ITEM SEQUENCE: 5 COMPLEX ITEM NAME: EmailAddress WorkPhoneNumber ITEM TYPE: SIMPLE FIELD FILE NUMBER: 200 FIELD NUMBER: .132 MobilePhoneNumber ITEM TYPE: SIMPLE FIELD FILE NUMBER: 200 FIELD NUMBER: .137 EmailAddress ITEM TYPE: SIMPLE FIELD FILE NUMBER: 200 FIELD NUMBER: .151 CareProviderType SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 200 ENTITY: VPR PERSON CLASS GET ACTION: S DATA=$$TAXIND^XUSTAX(DIEN) I DATA'="^",$P(DATA,U)'=-1 S VALUE=$P(DATA,U,2)
GET EXIT ACTION	K VPROLE
GET ID ACTION	S VPROLE=$P(DIEN,U,2),DIEN=+DIEN S:'DIEN DDEOUT=1