| ITEM |
-
- Location
- SEQUENCE: 1
- ITEM TYPE: ENTITY
- FILE NUMBER: 120.5
- FIELD NUMBER: .05
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR LOCATION
- GET ACTION: S VALUE=$P($G(VPRGMV),U,5) S:VALUE="" DDEOUT=1
-
- High
- SEQUENCE: 2
- ITEM TYPE: FIXED STRING
- GET ACTION: S VALUE=$P($G(VPRANGE),U)
-
- Low
- SEQUENCE: 3
- ITEM TYPE: FIXED STRING
- GET ACTION: S VALUE=$P($G(VPRANGE),U,2)
-
- BMI
- SEQUENCE: 4
- ITEM TYPE: FIXED STRING
- GET ACTION: N X S X=$P($G(VPRGMV),U,14) S:X VALUE=+X
-
- Removed
- SEQUENCE: 5
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 120.5
- FIELD NUMBER: 2
- RETURN INTERNAL VALUE: YES
- GET ACTION: S:'$G(VPRV(2)) DDEOUT=1 I $G(VPRV(2)) S VALUE=$$EXTERNAL^DILFD(120.506,.01,,+$P(VPRV(2),U,3))
-
- SupplementalO2
- SEQUENCE: 6
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 120.5
- FIELD NUMBER: 1.4
- GET ACTION: S VALUE=$P($G(VPRGMV),U,10) S:VALUE="" DDEOUT=1
|
