| 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=$$SITE^VPRSDA
-
- 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 record
ID (DIEN).
This entity is supported by code in routine VPRSDAVF, which uses the
^PXRMINDX reminder index and VICR^PXPXRM call to extract V IMM refusal
data. Data in SDA is maintained by monitoring the PXK VISIT DATA EVENT
protocol event.
|
| GET EXIT ACTION |
K VPRM,VPRDT,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^VPRSDAVF |
