VPR VACCINATION (59)    ENTITY (1.5)

Name Value
NAME VPR VACCINATION
DEFAULT FILE NUMBER 9000010.11
DATA MODEL SDA
DISPLAY NAME Vaccination
ITEM
  • FillerId
    SEQUENCE:   3
    ITEM TYPE:   ID
    FILE NUMBER:   9000010.11
  • Administrations
    SEQUENCE:   53
    ITEM TYPE:   LIST
    ENTITY:   VPR IMM ADMINISTRATION
    LIST TYPE:   ARRAY
    XML NAME:   Administration
    GET ACTION:   S DLIST(1)=DIEN
  • EncounterNumber
    SEQUENCE:   61
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.11
    FIELD NUMBER:   .03
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
  • ToTime
    SEQUENCE:   34
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.11
    FIELD NUMBER:   1201
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRDT) S:VALUE<1 DDEOUT=1
  • Extension
    SEQUENCE:   62
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.11
    ENTITY:   VPR IMM EXTENSION
    GET ACTION:   S VALUE=DIEN
  • ExternalId
    SEQUENCE:   60
    ITEM TYPE:   ID
  • MaxDoseQuantity
    SEQUENCE:   43
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.11
    FIELD NUMBER:   .01
    EXTENDED POINTER LKUP:   .05
    RETURN INTERNAL VALUE:   YES
    GET ACTION:   S VALUE=$P($G(VPRM("MAX # IN SERIES")),U)
  • OrderedBy
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.11
    FIELD NUMBER:   1202
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
    GET ACTION:   S VALUE=$P($G(VPRM("ORDERING PROVIDER")),U)
  • Comments
    SEQUENCE:   21
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.11
    FIELD NUMBER:   81101
    GET ACTION:   S VALUE=$G(VPRM("COMMENTS"))
  • EnteredBy
    SEQUENCE:   30
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.11
    FIELD NUMBER:   1206
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$P($G(VPRM("DOCUMENTER")),U)
  • EnteredAt
    SEQUENCE:   31
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.11
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .06
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$P($G(VPRM("FACILITY")),U) S:VALUE<1 VALUE=$G(VASITE)
  • EnteredOn
    SEQUENCE:   32
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.11
    FIELD NUMBER:   1205
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRM("DATE RECORDED"))
  • FromTime
    SEQUENCE:   33
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.11
    FIELD NUMBER:   1201
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRM("EVENT DATE AND TIME")) S:VALUE<1 VALUE=$G(VPRM("VISIT DATE TIME")) S VPRDT=$G(VALUE)
  • OrderItem
    SEQUENCE:   35
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.11
    FIELD NUMBER:   .01
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR IMMUNIZATION
    GET ACTION:   S DATA=$G(VPRM("IMMUNIZATION")),VALUE=$P(DATA,U)
  • Route
    SEQUENCE:   46
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.11
    FIELD NUMBER:   1302
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR IMM ROUTE
    GET ACTION:   S DATA=$G(VPRM("ADMIN ROUTE")),VALUE=$P(DATA,U)
DESCRIPTION
This entity populates the Vaccination container in HealthShare. it 
expects the V IMMUNIZATION (#9000010.11) 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 VPRM,VPRDT,VASITE
GET ID ACTION K VPRM D:$D(^AUPNVIMM(+DIEN)) VIMM^PXPXRM(+DIEN,.VPRM)
GET QUERY ROUTINE IMMS^VPRSDAQ