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="" GET ACTION: S VALUE=$G(VPRM("VISIT")) 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=$$SITE^VPRSDA 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 from the V IMMUNIZATION (#9000010.11) file; it expects the record IEN as the ID (DIEN). This entity is supported by code in routine VPRSDAVF, which uses the ^PXRMINDX reminder index and VIMM^PXPXRM call to extract V IMMUNIZATION data. Data in SDA is maintained by monitoring the PXK VISIT DATA EVENT protocol event.
GET EXIT ACTION	K VPRM,VPRDT
GET ID ACTION	K VPRM D:$D(^AUPNVIMM(+DIEN)) VIMM^PXPXRM(+DIEN,.VPRM)
GET QUERY ROUTINE	IMMS^VPRSDAVF