VPR SURGERY EXTENSION (119)    ENTITY (1.5)

Name Value
NAME VPR SURGERY EXTENSION
DEFAULT FILE NUMBER 130
DATA MODEL SDA
DISPLAY NAME ProcedureExtension
ITEM
  • Category
    SEQUENCE:   1
    ITEM TYPE:   FIXED STRING
    FIXED RESPONSE:   SR
  • Status
    SEQUENCE:   7
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$S($P(VPRSR(DIEN),U,2)["Aborted":"ABORTED",$P(VPRSR(DIEN),U,2)="":"",1:"COMPLETED")
  • DocumentNumbers
    SEQUENCE:   12
    ITEM TYPE:   LIST
    LIST TYPE:   ARRAY
    XML NAME:   DocumentNumbersItem
    GET ACTION:   D RPTS^VPRSR(DIEN)
  • CptModifiers
    SEQUENCE:   10
    ITEM TYPE:   LIST
    FILE NUMBER:   136
    FIELD NUMBER:   1
    ENTITY:   VPR CPT MODIFIER
    LIST TYPE:   ARRAY
    XML NAME:   CptModifier
    GET ACTION:   N I S I=0 F S I=$O(^SRO(136,DIEN,1,I)) Q:I<1 S DLIST(I)=+$G(^(I,0))
  • CPTs
    SEQUENCE:   11
    ITEM TYPE:   LIST
    FILE NUMBER:   136
    FIELD NUMBER:   3
    ENTITY:   VPR CPT
    LIST TYPE:   ARRAY
    XML NAME:   CPT
    GET ACTION:   N I S I=0 F S I=$O(^SRO(136,DIEN,3,I)) Q:I<1 S DLIST(I)=+$G(^(I,0))
  • Location
    SEQUENCE:   5
    ITEM TYPE:   ENTITY
    FILE NUMBER:   8925
    FIELD NUMBER:   1211
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR LOCATION
    GET ACTION:   N I S I=+$O(VPRSR(DIEN,0)),IEN=+$G(VPRSR(DIEN,I)) S:IEN<1 DDEOUT=1 ;use 1st report
  • OrderNumber
    SEQUENCE:   6
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   130
    FIELD NUMBER:   100
    RETURN INTERNAL VALUE:   YES
  • DataSource
    SEQUENCE:   8
    ITEM TYPE:   FIXED STRING
    FIXED RESPONSE:   SURGERY DATA
  • Package
    SEQUENCE:   9
    ITEM TYPE:   ENTITY
    FILE NUMBER:   130
    ENTITY:   VPR PACKAGE
    GET ACTION:   S VALUE=+$O(^DIC(9.4,"C","SR",0)) S:VALUE<1 DDEOUT=1
DESCRIPTION
This entity extends VPR SURGERY; it expects the VPRSR array. CPT codes 
are extracted from the SURGERY PROCEDURE/DIAGNOSIS CODES (#136) file, 
which is DINUM'd to the SURGERY (#130) file.