VPR PROCEDURE EXTENSION (118) ENTITY (1.5)

Name	Value
NAME	VPR PROCEDURE EXTENSION
DEFAULT FILE NUMBER	702
DATA MODEL	SDA
DISPLAY NAME	ProcedureExtension
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
DESCRIPTION	This entity supports VPR PROCEDURE. It expects ^TMP("MDHSP",$J) to be defined, from the main entity query.