VPR PROCEDURE (51)    ENTITY (1.5)

• FromTime
  SEQUENCE:   2
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   702
  FIELD NUMBER:   .06
  EXTENDED POINTER LKUP:   70202
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P(VPRCP,U,6)
• EnteredOn
  SEQUENCE:   12
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   702
  FIELD NUMBER:   .02
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
• ExternalId
  SEQUENCE:   13
  ITEM TYPE:   ID
  OUTPUT TRANSFORM:   S VALUE=VALUE_";MD"
• EncounterNumber
  SEQUENCE:   4
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   702
  FIELD NUMBER:   .06
  EXTENDED POINTER LKUP:   .03
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
  GET ACTION:   S VALUE=$G(VPRTIU(.03,"I"))
• Extension
  SEQUENCE:   5
  ITEM TYPE:   ENTITY
  FILE NUMBER:   702
  ENTITY:   VPR PROCEDURE EXTENSION
  GET ACTION:   S VALUE=DIEN
• Procedure
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   702
  FIELD NUMBER:   .04
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CODE TABLE
  GET ACTION:   N X S X=$$FIND1^DIC(702.01,,"QX",$P(VPRCP,U)) S:X VALUE=X_U_$P(VPRCP,U)_"^VA702.01"
• Clinician
  SEQUENCE:   7
  ITEM TYPE:   ENTITY
  FILE NUMBER:   702
  FIELD NUMBER:   .06
  EXTENDED POINTER LKUP:   1202
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$G(VPRTIU(1202,"I"))
• ProcedureTime
  SEQUENCE:   9
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   702
  FIELD NUMBER:   .06
  EXTENDED POINTER LKUP:   70202
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P(VPRCP,U,6)
• EnteredBy
  SEQUENCE:   10
  ITEM TYPE:   ENTITY
  FILE NUMBER:   702
  FIELD NUMBER:   .03
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR USER
• EnteredAt
  SEQUENCE:   11
  ITEM TYPE:   ENTITY
  FILE NUMBER:   702
  FIELD NUMBER:   .06
  EXTENDED POINTER LKUP:   1212
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR FACILITY
  GET ACTION:   S VALUE=$G(VPRTIU(1212,"I")) S:'VALUE VALUE=$$SITE^VPRSDA

This entity populated the Procedure container in HealthShare from the CP 
TRANSACTION (#702) file but is no longer in use. Clinical Procedures are
handled via the Consult/Request package and as such are available in the 
Referral container; clients may filter referrals by extension properties 
Type and ClinicalProcedure to find them.