VPR REFERRAL EXTENSION (120)    ENTITY (1.5)

Name Value
NAME VPR REFERRAL EXTENSION
DEFAULT FILE NUMBER 123
DATA MODEL SDA
DISPLAY NAME ReferralExtension
ITEM
  • Name
    SEQUENCE:   1
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$$CONSNAME^VPRSDAC(DIEN) ;CPRS display text
  • PlaceOfConsultation
    SEQUENCE:   12
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   6
    GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,10)
  • LastActionTaken
    SEQUENCE:   13
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   9
    GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,13)
  • ServiceType
    SEQUENCE:   14
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   14
    RETURN INTERNAL VALUE:   YES
    GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,18)
  • DesiredDate
    SEQUENCE:   15
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   17
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,24)
  • ProvisionalDxDate
    SEQUENCE:   5
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   30.2
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P($G(VPRCONS(30.1)),U,2)
  • RequestActions
    SEQUENCE:   22
    ITEM TYPE:   LIST
    ENTITY:   VPR REFERRAL ACTIVITY
    LIST TYPE:   ARRAY
    XML NAME:   RequestAction
    GET ACTION:   D GETACT^VPRSDAC(DIEN)
  • ClinicalProcedure
    SEQUENCE:   3
    ITEM TYPE:   ENTITY
    FILE NUMBER:   123
    FIELD NUMBER:   1.01
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR MDD PROCEDURE
  • Interpretation
    SEQUENCE:   7
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   16
    EXTENDED POINTER LKUP:   70201
  • ProcedureTime
    SEQUENCE:   16
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   16
    EXTENDED POINTER LKUP:   70202
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  • AssociatedEncounterNumber
    SEQUENCE:   17
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   16
    EXTENDED POINTER LKUP:   .03
    RETURN INTERNAL VALUE:   YES
  • Procedure
    SEQUENCE:   2
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   4
    GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,8)
  • UCID
    SEQUENCE:   18
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   80
  • IFCRole
    SEQUENCE:   19
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   .125
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE="P":"PLACER",VALUE="F":"FILLER",1:"")
    GET ACTION:   S VALUE=$P($G(VPRIFC),U,5)
  • RemoteConsultId
    SEQUENCE:   20
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   .06
    GET ACTION:   S VALUE=$P($G(VPRIFC),U,7)
  • DSTId
    SEQUENCE:   23
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   85
    GET ACTION:   S VALUE=$P($G(VPRCONS(75)),U)
  • ProvisionalDx
    SEQUENCE:   4
    ITEM TYPE:   ENTITY
    FILE NUMBER:   123
    FIELD NUMBER:   30.1
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE=$$PROVDX^VPRSDAC(DIEN)
  • Result
    SEQUENCE:   6
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   15
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE="Y":"SIGNIFICANT FINDINGS",VALUE="N":"NO SIGNIFICANT FINDINGS",1:"UNKNOWN")
    GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,19)
  • Status
    SEQUENCE:   8
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   8
    GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,12)
  • Type
    SEQUENCE:   9
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   13
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE="C":"Consult",1:"Procedure")
    GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,17)
  • Urgency
    SEQUENCE:   10
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   123
    FIELD NUMBER:   5
    GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,9)
  • DocumentNumbers
    SEQUENCE:   21
    ITEM TYPE:   LIST
    LIST TYPE:   ARRAY
    XML NAME:   DocumentNumbersItem
    GET ACTION:   N VPRI,VPRX S VPRI=0 F S VPRI=$O(VPRCONS(50,VPRI)) Q:VPRI<1 S VPRX=+$G(VPRCONS(50,VPRI)) S:$$COMP^VPRSDAT(VPRX) DLIST(VPRI)=VPRX_";TIU"
  • PatientLocation
    SEQUENCE:   11
    ITEM TYPE:   ENTITY
    FILE NUMBER:   123
    FIELD NUMBER:   .04
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR LOCATION
    GET ACTION:   S VALUE=$P($G(VPRCONS(0)),U,4)
DESCRIPTION
This entity extends VPR REFERRAL; it expects the VPRCONS and VPRCACT
arrays as defined by GMRCAPI in the main entity GET ID ACTION.