VPR V EXAM (43)    ENTITY (1.5)

Name Value
NAME VPR V EXAM
DEFAULT FILE NUMBER 9000010.13
DATA MODEL SDA
DISPLAY NAME PhysicalExam
ITEM
  • EncounterNumber
    SEQUENCE:   5
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.13
    FIELD NUMBER:   .03
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
    GET ACTION:   S VALUE=$G(VPRVST)
  • ExternalId
    SEQUENCE:   4
    ITEM TYPE:   ID
  • PhysExamTime
    SEQUENCE:   7
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.13
    FIELD NUMBER:   1201
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRXM("EVENT DATE AND TIME"))
  • PhysExamCode
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.13
    FIELD NUMBER:   .01
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR EXAM
  • PhysExamObsValue
    SEQUENCE:   11
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.13
    FIELD NUMBER:   .04
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE=$G(VPRXM("VALUE"))
  • NoteText
    SEQUENCE:   12
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.13
    FIELD NUMBER:   81101
    GET ACTION:   S VALUE=$G(VPRXM("COMMENTS"))
  • EnteredBy
    SEQUENCE:   14
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.13
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .23
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$P(VPRVST0,U,23)
  • EnteredAt
    SEQUENCE:   15
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.13
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .06
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$P(VPRVST0,U,6) S:'VALUE VALUE=$G(VASITE)
  • EnteredOn
    SEQUENCE:   16
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.13
    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)
DESCRIPTION
This entity populates the Physical Exam container in HealthShare from 
the V EXAM (#9000010.13) 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.
GET ENTRY ACTION S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST") I $G(ID)["~" D VDEL^VPRSDAV
GET EXIT ACTION K VPRXM,VPRVST,VPRVST0,VASITE
GET ID ACTION K VPRXM D:$D(^AUPNVXAM(+DIEN)) VXAM^PXPXRM(+DIEN,.VPRXM) S VPRVST=$G(VPRXM("VISIT")),VPRXM=DIEN,DIEN=+DIEN,VPRVST0=$G(^AUPNVSIT(+VPRVST,0))
GET QUERY ROUTINE EXAMS^VPRSDAQ