VPR VISIT (29)    ENTITY (1.5)

Name Value
NAME VPR VISIT
DEFAULT FILE NUMBER 9000010
DATA MODEL SDA
DISPLAY NAME Encounter
ITEM
  • EncounterNumber
    SEQUENCE:   3
    ITEM TYPE:   ID
  • EnteredOn
    SEQUENCE:   43
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   .02
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P($G(@VPRVST@(0)),U,2)
  • FromTime
    SEQUENCE:   44
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   .01
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P($G(@VPRVST@(0)),U)
  • ToTime
    SEQUENCE:   45
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   .18
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P($G(@VPRVST@(0)),U,18) S:'VALUE VALUE=$$VTO^VPRSDAV(DIEN)
  • Extension
    SEQUENCE:   2
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010
    ENTITY:   VPR VISIT EXTENSION
    GET ACTION:   S VALUE=DIEN
  • Priority
    SEQUENCE:   35
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010
    FIELD NUMBER:   15003
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE=$P($G(@VPRVST@(150)),U,3)
  • HealthCareFacility
    SEQUENCE:   22.1
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010
    FIELD NUMBER:   2101
    ENTITY:   VPR TEXT ONLY
    GET ACTION:   S VALUE=$P($G(@VPRVST@(21)),U) I $P($G(@VPRVST@(0)),U,22) S DDEOUT=1 ;only return if no Hosp Location
  • EncounterType
    SEQUENCE:   5
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   15002
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"I",VALUE=0:"O",1:VALUE)
    GET ACTION:   S VALUE=$P($G(@VPRVST@(150)),U,2) S:$O(^EDP(230,"V",DIEN,0)) VALUE="E" ;Emergency
  • EncounterCodedType
    SEQUENCE:   6
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010
    FIELD NUMBER:   .07
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE=$P($G(@VPRVST@(0)),U,7)
  • ConsultingClinicians
    SEQUENCE:   9
    ITEM TYPE:   LIST
    FILE NUMBER:   9000010.06
    ENTITY:   VPR PROVIDER
    LIST TYPE:   ARRAY
    XML NAME:   CareProvider
    XREF:   AD
    FILTER BY:   DIEN
    GET ACTION:   D VPRV^VPRSDAV(DIEN)
  • AccountNumber
    SEQUENCE:   11
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   .26
    GET ACTION:   S VALUE=$P($G(@VPRVST@(0)),U,26)
  • HealthCareFacility
    SEQUENCE:   22
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010
    FIELD NUMBER:   .22
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR LOCATION
    GET ACTION:   S VALUE=$P($G(@VPRVST@(0)),U,22)
  • EnteredBy
    SEQUENCE:   41
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010
    FIELD NUMBER:   .23
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$P($G(@VPRVST@(0)),U,23)
  • EnteredAt
    SEQUENCE:   42
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010
    FIELD NUMBER:   .06
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$P($G(@VPRVST@(0)),U,6) S:'VALUE VALUE=$$SITE^VPRSDA
DESCRIPTION
This entity populates the Encounter container in HealthShare from the 
VISIT (#9000010) file; it expects the record IEN as the ID.
 
If the requested visit does not exist, control will pass to the VPR VISIT 
STUB entity to return a stub to HealthShare containing only the Encounter 
Number, so the HS matching logic and find and remove the record there.
GET EXIT ACTION K ^TMP("PXKENC",$J),VPRVST,VADMVT,VAIP
GET ID ACTION D VST^VPRSDAV
GET QUERY ROUTINE QRY^VPRSDAV