VPR SURGERY EXTENSION (119)    ENTITY (1.5)

• 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

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.