| ITEM |
-
- Street
- SEQUENCE: 4
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 2
- FIELD NUMBER: .111
- GET ACTION: S VALUE=$G(VAPA(1)) I $L(VALUE) N I F I=2,3 S:$L($G(VAPA(I))) VALUE=VALUE_";"_VAPA(I)
-
- City
- SEQUENCE: 5
- ITEM TYPE: ENTITY
- FILE NUMBER: 2
- FIELD NUMBER: .114
- ENTITY: VPR CODE ONLY
- OUTPUT TRANSFORM: S VALUE=$E(VALUE,1,50)
- GET ACTION: S VALUE=$G(VAPA(4))
-
- State
- SEQUENCE: 6
- ITEM TYPE: ENTITY
- FILE NUMBER: 2
- FIELD NUMBER: .115
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR STATE
- GET ACTION: S VALUE=$S($G(VAPA("HasCountry"))=1:$G(VAPA(23)),1:$P($G(VAPA(5)),U))
-
- Zip
- SEQUENCE: 7
- ITEM TYPE: ENTITY
- FILE NUMBER: 2
- FIELD NUMBER: .116
- ENTITY: VPR CODE ONLY
- GET ACTION: S VALUE=$S($G(VAPA("HasCountry"))=1:$G(VAPA(24)),$P($G(VAPA(11)),U,2)'="":$P(VAPA(11),U,2),1:$G(VAPA(6)))
-
- Country
- SEQUENCE: 8
- ITEM TYPE: ENTITY
- FILE NUMBER: 2
- FIELD NUMBER: .1173
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR COUNTRY
-
- Extension
- SEQUENCE: 1
- ITEM TYPE: ENTITY
- FILE NUMBER: 2
- ENTITY: VPR PATIENT ADDRESS EXTENSION
- GET ACTION: S VALUE=DIEN N X S X=$G(^DPT(DIEN,.11)) I $L($P(X,U,1,6))<6,'$P(X,U,10) S DDEOUT=1
-
- FromTime
- SEQUENCE: 2
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 2
- FIELD NUMBER: .118
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
-
- County
- SEQUENCE: 9
- ITEM TYPE: ENTITY
- FILE NUMBER: 2
- FIELD NUMBER: .117
- ENTITY: VPR CODE TABLE
- GET ACTION: N X S X=$G(VAPA(7)) S:X VALUE=X_"^VA5.01" I X<1 S DDEOUT=1
|
