VPR REFERRAL (48)    ENTITY (1.5)

Name Value
NAME VPR REFERRAL
DEFAULT FILE NUMBER 123
DATA MODEL SDA
DISPLAY NAME Referral
ITEM
  • 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)
DESCRIPTION
This entity populates the Referral container in HealthShare.
GET ENTRY ACTION S VASITE=$$SITE^VPRSDA
GET EXIT ACTION K VPRCONS,VPRCACT,VPRIFC,VASITE
GET ID ACTION D GMRC1^VPRSDAC(DIEN)
GET QUERY ROUTINE CONSULTS^VPRSDAQ