| ITEM |
-
- Category
- SEQUENCE: 1
- ITEM TYPE: FIXED STRING
- FIXED RESPONSE: CP
-
- Package
- SEQUENCE: 9
- ITEM TYPE: ENTITY
- FILE NUMBER: 702
- ENTITY: VPR PACKAGE
- GET ACTION: S VALUE=+$O(^DIC(9.4,"C","MD",0)) S:VALUE<1 DDEOUT=1
-
- Consult
- SEQUENCE: 2
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 702
- FIELD NUMBER: .05
- GET ACTION: S VALUE=$P($G(VPRCP),U,13)
-
- IsImagePresent
- SEQUENCE: 3
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 702
- FIELD NUMBER: .1
- GET ACTION: N I S VALUE="false",I=0 F S I=$O(^MDD(702,DIEN,.1,I)) Q:I<1 I +$P($G(^(I,0)),U,9)=3 S VALUE="true" Q
-
- Interpretation
- SEQUENCE: 4
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 702
- FIELD NUMBER: .06
- EXTENDED POINTER LKUP: 70201
- GET ACTION: S VALUE=$P($G(VPRCP),U,7)
-
- Location
- SEQUENCE: 5
- ITEM TYPE: ENTITY
- FILE NUMBER: 702
- FIELD NUMBER: .06
- EXTENDED POINTER LKUP: 1211
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR LOCATION
- GET ACTION: S VALUE=$G(VPRTIU(1211,"I"))
-
- OrderNumber
- SEQUENCE: 6
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 123
- FIELD NUMBER: .03
- RETURN INTERNAL VALUE: YES
- GET ACTION: S VALUE=$P($G(VPRCN),U,3),IEN=+$P($G(VPRCP),U,13)
-
- Status
- SEQUENCE: 7
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 123
- FIELD NUMBER: 8
- OUTPUT TRANSFORM: S VALUE=$$EXTERNAL^DILFD(123,8,,VALUE)
- GET ACTION: S VALUE=$P($G(VPRCN),U,12),IEN=+$P($G(VPRCP),U,13)
-
- DocumentNumbers
- SEQUENCE: 12
- ITEM TYPE: LIST
- LIST TYPE: ARRAY
- XML NAME: DocumentNumbersItem
- GET ACTION: N I,X S I=0 F S I=$O(VPRCN(I)) Q:I<1 S X=+$G(VPRCN(I)) S:(X'=81) DLIST(I)=X_";TIU" ;filter out addenda
-
- DataSource
- SEQUENCE: 8
- ITEM TYPE: FIXED STRING
- FIXED RESPONSE: CLINICAL PROCEDURES
|
