VPR ICR EVENT (217)    ENTITY (1.5)

Name Value
NAME VPR ICR EVENT
DEFAULT FILE NUMBER 9000010.707
DATA MODEL SDA
DISPLAY NAME Vaccination
ITEM
  • FillerId
    SEQUENCE:   3
    ITEM TYPE:   ID
  • Administrations
    SEQUENCE:   53
    ITEM TYPE:   LIST
    ENTITY:   VPR ICR ADMINISTRATION
    LIST TYPE:   ARRAY
    XML NAME:   Administration
    GET ACTION:   S DLIST(1)=DIEN
  • EncounterNumber
    SEQUENCE:   61
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.707
    FIELD NUMBER:   .03
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
    GET ACTION:   S VALUE=$G(VPRVST)
  • ToTime
    SEQUENCE:   34
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.707
    FIELD NUMBER:   .05
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRM("WARN UNTIL DATE"))
  • Extension
    SEQUENCE:   62
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.707
    ENTITY:   VPR ICR EXTENSION
    GET ACTION:   S VALUE=DIEN
  • ExternalId
    SEQUENCE:   60
    ITEM TYPE:   ID
    OUTPUT TRANSFORM:   S VALUE=VALUE_";ICR"
  • VXUObservations
    SEQUENCE:   63
    ITEM TYPE:   LIST
    ENTITY:   VPR ICR OBSERVATION
    LIST TYPE:   ARRAY
    XML NAME:   Observation
    GET ACTION:   S DLIST(1)=DIEN
  • Comments
    SEQUENCE:   21
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.707
    FIELD NUMBER:   81101
    GET ACTION:   S VALUE=$G(VPRM("COMMENTS"))
  • EnteredBy
    SEQUENCE:   30
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.707
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .23
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$P($G(VPRVST0),U,23)
  • EnteredAt
    SEQUENCE:   31
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.707
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .06
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$P($G(VPRVST0),U,6) S:VALUE<1 VALUE=$G(VASITE)
  • EnteredOn
    SEQUENCE:   32
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.707
    FIELD NUMBER:   .06
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRM("D/T RECORDED"))
  • FromTime
    SEQUENCE:   33
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.707
    FIELD NUMBER:   1201
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRM("EVENT D/T")) S:VALUE<1 VALUE=$P($G(VPRVST0),U) S VPRDT=$G(VALUE)
  • OrderItem
    SEQUENCE:   35
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.707
    FIELD NUMBER:   .04
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR IMMUNIZATION
    GET ACTION:   S DATA=$P($G(VPRM("IMMUN")),U),VALUE=$P(DATA,U)
DESCRIPTION
This entity populates the Vaccination container in HealthShare. it 
expects the V IMM CONTRA/REFUSAL EVENT (#9000010.707) ien as the ID.
GET ENTRY ACTION S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
GET EXIT ACTION K VPRM,VPRDT,VASITE,VPRVST,VPRVST0
GET ID ACTION K VPRM D:$D(^AUPNVICR(+DIEN)) VICR^PXPXRM(+DIEN,.VPRM) S VPRVST=$G(VPRM("VISIT")),VPRVST0=$G(^AUPNVSIT(+VPRVST,0))
GET QUERY ROUTINE ICR^VPRSDAQ