VPR REFERRAL (48)    ENTITY (1.5)

• EnteredBy
  SEQUENCE:   1
  ITEM TYPE:   ENTITY
  FILE NUMBER:   123
  ENTITY:   VPR USER
  GET ACTION:   S VALUE=+$P($G(VPRCACT(1,0)),U,5)
• ReferringOrganization
  SEQUENCE:   11
  ITEM TYPE:   ENTITY
  FILE NUMBER:   123
  FIELD NUMBER:   2
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR LOCATION
  GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,6)
• ReferredToProvider
  SEQUENCE:   12
  ITEM TYPE:   ENTITY
  FILE NUMBER:   123
  FIELD NUMBER:   7
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,11)
• ReferredToOrganization
  SEQUENCE:   13
  ITEM TYPE:   ENTITY
  FILE NUMBER:   123
  FIELD NUMBER:   1
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR CONSULT SERVICE
• EnteredOn
  SEQUENCE:   15
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   123
  FIELD NUMBER:   .01
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U)
• FromTime
  SEQUENCE:   16
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   123
  FIELD NUMBER:   3
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,7)
• ToTime
  SEQUENCE:   17
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   123
  FIELD NUMBER:   .03
  EXTENDED POINTER LKUP:   22
  RETURN INTERNAL VALUE:   YES
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   N ORD S ORD=$P($G(VPRCONS(0)),U,3) S:ORD VALUE=$$GET1^DIQ(100,ORD,22,"I")
• ExternalId
  SEQUENCE:   4
  ITEM TYPE:   ID
• ReferringProvider
  SEQUENCE:   10.1
  ITEM TYPE:   ENTITY
  FILE NUMBER:   123
  FIELD NUMBER:   .126
  ENTITY:   VPR REFERRING PROVIDER
  GET ACTION:   S VALUE=DIEN I $P($G(VPRCONS(0)),U,14)!($P($G(VPRIFC),U,6)="") S DDEOUT=1 ;Remote Requestor
• EnteredAt
  SEQUENCE:   2
  ITEM TYPE:   ENTITY
  FILE NUMBER:   123
  FIELD NUMBER:   .05
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR FACILITY
  GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,21) S:'VALUE VALUE=$G(VASITE)
• UpdatedOn
  SEQUENCE:   3
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   123
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   N I,X S I=0 F S I=$O(VPRCACT(I)) Q:I<1 S X=+$G(VPRCACT(I,0)) I X>+$G(VALUE) S VALUE=+X
• Extension
  SEQUENCE:   6
  ITEM TYPE:   ENTITY
  FILE NUMBER:   123
  ENTITY:   VPR REFERRAL EXTENSION
  GET ACTION:   S VALUE=DIEN
• PlacerId
  SEQUENCE:   7
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   123
  FIELD NUMBER:   .03
  RETURN INTERNAL VALUE:   YES
  GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,3)
• FillerId
  SEQUENCE:   8
  ITEM TYPE:   ID
• ReferralReason
  SEQUENCE:   9
  ITEM TYPE:   WORD PROCESSING
  FILE NUMBER:   123
  FIELD NUMBER:   20
  WORD WRAP:   1
  GET ACTION:   M WP=VPRCONS(20)
• ReferringProvider
  SEQUENCE:   10
  ITEM TYPE:   ENTITY
  FILE NUMBER:   123
  FIELD NUMBER:   10
  RETURN INTERNAL VALUE:   YES
  ENTITY:   VPR PROVIDER
  GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,14)

This entity populates the Referral container in HealthShare from the
REQUEST/CONSULTATION (#123) file; it expects the record IEN as the
ID (DIEN).
 
This entity is supported by code in routine VPRSDAC, which uses the
GMRCAPI routine to extract consults. Data in SDA is maintained by
monitoring the GMRC EVSEND OR and OR EVSEND GMRC protocol events.