VPR V POV (88)    ENTITY (1.5)

Name Value
NAME VPR V POV
DEFAULT FILE NUMBER 9000010.07
DATA MODEL SDA
DISPLAY NAME Diagnosis
ITEM
  • FromTime
    SEQUENCE:   2
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.07
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .01
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P(VPRVST0,U)
  • EnteredOn
    SEQUENCE:   18
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.07
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .01
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P(VPRVST0,U) S:$G(VPREDP) VALUE=$$GET1^DIQ(230,VPREDP,1.4,"I") ;ED visit
  • ExternalId
    SEQUENCE:   19
    ITEM TYPE:   ID
    OUTPUT TRANSFORM:   S VALUE=VALUE_";POV"
  • ToTime
    SEQUENCE:   3
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.07
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .18
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P(VPRVST0,U,18) S:'VALUE VALUE=$$CKOUT^VPRSDAV(+VPRVST)
  • EncounterNumber
    SEQUENCE:   4
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.07
    FIELD NUMBER:   .03
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
    GET ACTION:   S VALUE=$G(VPRVST)
  • DiagnosingClinician
    SEQUENCE:   6
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.07
    FIELD NUMBER:   1204
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
    GET ACTION:   S VALUE=$G(VPRPOV("ENCOUNTER PROVIDER")) I VALUE="",$G(VPREDP) S VALUE=$$GET1^DIQ(230,VPREDP,3.5,"I")
  • Diagnosis
    SEQUENCE:   7
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.07
    FIELD NUMBER:   .01
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR ICD
    GET ACTION:   S DATA("DATE")=+$G(VPRVST0),DATA("TEXT")=$$POVNARR^VPRSDAV
  • DiagnosisType
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.07
    FIELD NUMBER:   .12
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE=$G(VPRPOV("PRIMARY/SECONDARY"))
  • OnsetTime
    SEQUENCE:   13
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.07
    FIELD NUMBER:   .13
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRPOV("DATE OF INJURY"))
  • EnteredBy
    SEQUENCE:   16
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.07
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .23
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$P(VPRVST0,U,23)
  • EnteredAt
    SEQUENCE:   17
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.07
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .06
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$P(VPRVST0,U,6) I VALUE<1 S:$G(VPREDP) VALUE=$$GET1^DIQ(230,VPREDP,.02,"I") S:'VALUE VALUE=$G(VASITE)
DESCRIPTION
This entity populates the Diagnosis container in HealthShare from the V 
not saved in V POV may be retrieved from the EDP Log entry.
POV (#9000010.07) file; it expects the record IEN as the ID.
 
The VPR PCE EVENTS listener will pass in 'ien~visit' for the record ID if
it detects that the record is being deleted; control will pass to the VPR
VFILE DELETE entity to return a stub to HealthShare containing only these
two values, so the HS matching logic can find and remove the record there.
 
If the record was created from an EDP Log (#230) file entry, some values 
GET ENTRY ACTION S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST") I $G(ID)["~" D VDEL^VPRSDAV
GET EXIT ACTION K VPRPOV,VPRVST,VPRVST0,VASITE,VPREDP
GET ID ACTION D POV1^VPRSDAV
GET QUERY ROUTINE POV^VPRSDAQ