VPR EDP LOG (165)    ENTITY (1.5)

Name Value
NAME VPR EDP LOG
DEFAULT FILE NUMBER 230
DATA MODEL SDA
DISPLAY NAME Encounter
ITEM
  • Extension
    SEQUENCE:   2
    ITEM TYPE:   ENTITY
    FILE NUMBER:   230
    ENTITY:   VPR EDP EXTENSION
    GET ACTION:   S VALUE=DIEN
  • SeparationMode
    SEQUENCE:   29
    ITEM TYPE:   ENTITY
    FILE NUMBER:   230
    FIELD NUMBER:   1.2
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR EDP CODE
    GET ACTION:   S VALUE=$P($G(EDP1),U,2)
  • Priority
    SEQUENCE:   35
    ITEM TYPE:   ENTITY
    FILE NUMBER:   230
    FIELD NUMBER:   .12
    EXTENDED POINTER LKUP:   15003
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    OUTPUT TRANSFORM:   S VALUE=VALUE_U_$$EXTERNAL^DILFD(9000010,15003,,VALUE)
    GET ACTION:   S VALUE=$P($G(@VPRVST@(150)),U,3) S:VALUE="" VALUE="P"
  • EnteredBy
    SEQUENCE:   41
    ITEM TYPE:   ENTITY
    FILE NUMBER:   230
    FIELD NUMBER:   .12
    EXTENDED POINTER LKUP:   .23
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$P($G(@VPRVST@(0)),U,23)
  • EnteredOn
    SEQUENCE:   43
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   230
    FIELD NUMBER:   .01
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P($G(EDP0),U)
  • EnteredAt
    SEQUENCE:   42
    ITEM TYPE:   ENTITY
    FILE NUMBER:   230
    FIELD NUMBER:   .02
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$P($G(EDP0),U,2)
  • FromTime
    SEQUENCE:   44
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   230
    FIELD NUMBER:   .08
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P($G(EDP0),U,8)
  • ToTime
    SEQUENCE:   45
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   230
    FIELD NUMBER:   .09
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P($G(EDP0),U,9)
  • EncounterNumber
    SEQUENCE:   3
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   230
    FIELD NUMBER:   .12
    RETURN INTERNAL VALUE:   YES
    GET ACTION:   S VALUE=$P($G(EDP0),U,12)
  • EncounterType
    SEQUENCE:   5
    ITEM TYPE:   FIXED STRING
    FIXED RESPONSE:   E
  • EncounterCodedType
    SEQUENCE:   6
    ITEM TYPE:   ENTITY
    FILE NUMBER:   230
    FIELD NUMBER:   .12
    EXTENDED POINTER LKUP:   .07
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    GET ACTION:   N X S X=$P($G(@VPRVST@(0)),U,7) S:$L(X) VALUE=X_U_$$EXTERNAL^DILFD(9000010,.07,,X)
  • ConsultingClinicians
    SEQUENCE:   9
    ITEM TYPE:   LIST
    ENTITY:   VPR PROVIDER
    LIST TYPE:   ARRAY
    XML NAME:   CareProvider
    GET ACTION:   N I,P S I=0 F P=5,6,7 I $P($G(EDP3),U,P) S I=I+1,DLIST(I)=$P(EDP3,U,P)_U_$S(P=5:"PRIMARY",1:"SECONDARY")
  • AccountingNumber
    SEQUENCE:   11
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   230
    FIELD NUMBER:   .12
    EXTENDED POINTER LKUP:   .26
    GET ACTION:   S VALUE=$P($G(@VPRVST@(0)),U,26)
  • AdmissionSource
    SEQUENCE:   14
    ITEM TYPE:   ENTITY
    FILE NUMBER:   230
    FIELD NUMBER:   .1
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR EDP CODE
    GET ACTION:   S VALUE=$P($G(EDP0),U,10)
  • AdmitReason
    SEQUENCE:   21
    ITEM TYPE:   ENTITY
    FILE NUMBER:   230
    FIELD NUMBER:   1.1
    ENTITY:   VPR TEXT ONLY
    GET ACTION:   S VALUE=$P($G(EDP1),U)
  • HealthCareFacility
    SEQUENCE:   22
    ITEM TYPE:   ENTITY
    FILE NUMBER:   230
    FIELD NUMBER:   .14
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR LOCATION
    GET ACTION:   S VALUE=$P($G(EDP0),U,14)
DESCRIPTION
This entity populates the Encounter container from the EDP LOG (#230) file.
It is called from inside the GET ID ACTION of VPR VISIT, which sets the 
ID to the #230 ien given the Visit number. It is not intended to be 
called independently.
GET EXIT ACTION K:$D(VPRVST) @VPRVST K EDP0,EDP1,EDP3,VPRV,VPRVST
GET ID ACTION D EDP1^VPRSDAV
GET QUERY ROUTINE EDP^VPRSDAQ