VPR VCPT EXTENSION (170) ENTITY (1.5)

Name	Value
NAME	VPR VCPT EXTENSION
DEFAULT FILE NUMBER	9000010.18
DATA MODEL	SDA
DISPLAY NAME	ProcedureExtension
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)
DESCRIPTION	This entity extends VPR V CPT; it expects VPRVST, VPRVST0, and the VPRCPT array to be defined.
GET EXIT ACTION	K VPRSK