VPR FACILITY ADDRESS (140) ENTITY (1.5)

Name	Value
NAME	VPR FACILITY ADDRESS
DEFAULT FILE NUMBER	4
DATA MODEL	SDA
DISPLAY NAME	Address
ITEM	Street SEQUENCE: 4 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 4 FIELD NUMBER: 1.01 GET ACTION: S VALUE=$P($G(VAPA),U) City SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 4 FIELD NUMBER: 1.03 ENTITY: VPR CODE ONLY OUTPUT TRANSFORM: S VALUE=$E(VALUE,1,50) GET ACTION: S VALUE=$P($G(VAPA),U,2) State SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 4 FIELD NUMBER: .02 RETURN INTERNAL VALUE: YES ENTITY: VPR STATE GET ACTION: Q ;S VALUE=$P($G(VAPA),U,3) Zip SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 4 FIELD NUMBER: 1.04 ENTITY: VPR CODE ONLY GET ACTION: S VALUE=$P($G(VAPA),U,4)
DESCRIPTION	This entity supports VPR FAMILY DOCTOR, and expects the Institution file #4 ien as the ID.
GET EXIT ACTION	K VAPA
GET ID ACTION	S VAPA=$$PADD^XUAF4(DIEN)