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
  • 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,SK S ITM=+$G(^AUPNVCPT(DIEN,0)) I ITM?5N S SK=$$DUP^VPRSDAV(+$G(VPRVST),ITM,"SK") S:SK IEN=SK I 'SK S DDEOUT=1
  • DataSource
    SEQUENCE:   8
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.18
    FIELD NUMBER:   81203
  • Package
    SEQUENCE:   9
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.18
    FIELD NUMBER:   81202
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PACKAGE
    GET ACTION:   S VALUE=$G(VPRCPT("PACKAGE"))
DESCRIPTION
Extension of VPR V CPT.  Expects VPRCPT array to be defined. Expects 
VPRVST and VPRVST0 to be defined.