| ITEM |
-
- Category
- SEQUENCE: 1
- ITEM TYPE: FIXED STRING
- FIXED RESPONSE: PX
-
- Comments
- SEQUENCE: 12
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.18
- FIELD NUMBER: 81101
- GET ACTION: S VALUE=$G(VPRCPT("COMMENTS")) I VALUE="",$G(VPRSK) S FILE=9000010.12 ;skin test
-
- CptModifiers
- SEQUENCE: 10
- ITEM TYPE: LIST
- FILE NUMBER: 9000010.18
- FIELD NUMBER: .01
- ENTITY: VPR CPT MODIFIER
- LIST TYPE: ARRAY
- XML NAME: CptModifier
- GET ACTION: N I S I=0 F S I=$O(^AUPNVCPT(DIEN,1,I)) Q:I<1 S DLIST(I)=+$G(^(I,0))
-
- IsPrimary
- SEQUENCE: 2
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.18
- FIELD NUMBER: .07
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S(VALUE="Y":"true",VALUE="N":"false",1:"")
- GET ACTION: S VALUE=$G(VPRCPT("PRINCIPAL PROCEDURE"))
-
- Location
- SEQUENCE: 5
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010.18
- FIELD NUMBER: .03
- EXTENDED POINTER LKUP: .22
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR LOCATION
- GET ACTION: S VALUE=$P(VPRVST0,U,22)
-
- OrderNumber
- SEQUENCE: 6
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.18
- FIELD NUMBER: .17
- RETURN INTERNAL VALUE: YES
-
- Quantity
- SEQUENCE: 3
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.18
- FIELD NUMBER: .16
- GET ACTION: S VALUE=$G(VPRCPT("QUANTITY"))
-
- Interpretation
- SEQUENCE: 4
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.12
- FIELD NUMBER: .04
- GET ACTION: N ITM S ITM=+$G(^AUPNVCPT(DIEN,0)) I ITM?5N S VPRSK=$$DUP^VPRSDAVF(+$G(VPRVST),ITM,"SK") S:VPRSK IEN=VPRSK I 'VPRSK S DDEOUT=1
-
- DataSource
- SEQUENCE: 8
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.18
- FIELD NUMBER: 81203
- GET ACTION: S VALUE=$P($G(VPRCPT("DATA SOURCE")),U,2)
-
- Package
- SEQUENCE: 9
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010.18
- FIELD NUMBER: 81202
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR PACKAGE
- GET ACTION: S VALUE=$P($G(VPRCPT("PACKAGE")),U)
|
