| ITEM |
-
- OwnSite
- SEQUENCE: 1
- ITEM TYPE: ENTITY
- FILE NUMBER: 26.13
- FIELD NUMBER: .04
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR FACILITY
- GET ACTION: S VALUE=$P($G(VPRF("OWNER")),U)
-
- Category
- SEQUENCE: 2
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 26.15
- FIELD NUMBER: .03
- GET ACTION: S IEN=+$G(VPRF("FLAG"))
-
- DocumentNumber
- SEQUENCE: 3
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 26.14
- FIELD NUMBER: .06
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=VALUE_";TIU"
- GET ACTION: S VALUE=$P($G(VPRFLH("TIULINK")),U),IEN=+$G(VPRFLH)
-
- DBRSNumbers
- SEQUENCE: 4
- ITEM TYPE: LIST
- ENTITY: VPR PRF DBRS RECORD
- LIST TYPE: ARRAY
- XML NAME: DBRS
- GET ACTION: N I S I=0 F S I=$O(VPRF("DBRS#",I)) Q:I<1 S DLIST(I)=$P($G(VPRF("DBRS#",I)),U)_U_$P($G(VPRF("DBRS OTHER",I)),U)
-
- ApprovedBy
- SEQUENCE: 5
- ITEM TYPE: ENTITY
- FILE NUMBER: 26.14
- FIELD NUMBER: .05
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR PROVIDER
- GET ACTION: S VALUE=$P($G(VPRFLH("APPRVBY")),U),IEN=+$G(VPRFLH)
-
- Action
- SEQUENCE: 6
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 26.14
- FIELD NUMBER: .03
- GET ACTION: S VALUE=$P($G(VPRFLH("ACTION")),U,2),IEN=+$G(VPRFLH)
-
- Assignments
- SEQUENCE: 7
- ITEM TYPE: LIST
- ENTITY: VPR PRF HISTORY
- LIST TYPE: ARRAY
- XML NAME: Assignment
- GET ACTION: N VPRAH,IEN,N S N=$$GETALL^DGPFAAH(DIEN,.VPRAH),IEN=0 F N=1:1 S IEN=$O(VPRAH(IEN)) Q:IEN<1 S DLIST(N)=IEN
|
