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
  • SecondaryVisit
    SEQUENCE:   13
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   130
    FIELD NUMBER:   .015
    RETURN INTERNAL VALUE:   YES
  • IsNonOR
    SEQUENCE:   14
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   130
    FIELD NUMBER:   118
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",VALUE="Y":"true",1:"false")
    GET ACTION:   S VALUE=$G(VPRNONOR)
  • Specialty
    SEQUENCE:   15
    ITEM TYPE:   ENTITY
    FILE NUMBER:   130
    FIELD NUMBER:   .04
    EXTENDED POINTER LKUP:   1
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR SURG SPECIALTY
    GET ACTION:   S:$G(VPRNONOR) DDEOUT=1 I '$G(DDEOUT) S DATA=$$GET1^DIQ(130,DIEN,.04)
  • AttendingClinician
    SEQUENCE:   16
    ITEM TYPE:   ENTITY
    FILE NUMBER:   130
    FIELD NUMBER:   .164
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
    GET ACTION:   S:$G(VPRNONOR) DDEOUT=1
  • Specialty
    SEQUENCE:   15.1
    ITEM TYPE:   ENTITY
    FILE NUMBER:   130
    FIELD NUMBER:   125
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR MED SPECIALTY
    GET ACTION:   S:'$G(VPRNONOR) DDEOUT=1
  • AttendingClinician
    SEQUENCE:   16.1
    ITEM TYPE:   ENTITY
    FILE NUMBER:   130
    FIELD NUMBER:   124
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
    GET ACTION:   S:'$G(VPRNONOR) DDEOUT=1
  • DictatedOn
    SEQUENCE:   17
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   130
    FIELD NUMBER:   15
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  • TranscribedOn
    SEQUENCE:   18
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   130
    FIELD NUMBER:   39
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  • 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^VPRSDASR(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.
GET ENTRY ACTION S VPRDT=$P(VPRSR(DIEN),U,3)
GET EXIT ACTION K VPRDT