Name	Value
NAME	VPR IMM ADMINISTRATION
DEFAULT FILE NUMBER	9000010.11
DATA MODEL	SDA
DISPLAY NAME	Administration
ITEM	AdministrationSite SEQUENCE: 14 ITEM TYPE: ENTITY FILE NUMBER: 9000010.11 FIELD NUMBER: 1303 RETURN INTERNAL VALUE: YES ENTITY: VPR IMM SITE GET ACTION: S DATA=$G(VPRM("ADMIN SITE")),VALUE=$P(DATA,U) EnteredBy SEQUENCE: 1 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) AdministeredAtLocation SEQUENCE: 6.1 ITEM TYPE: ENTITY FILE NUMBER: 9000010.11 FIELD NUMBER: .03 EXTENDED POINTER LKUP: 2101 ENTITY: VPR TEXT ONLY GET ACTION: S:$G(VPRM("LOCATION")) DDEOUT=1 I '$G(VPRM("LOCATION")),$G(VPRVST) S VALUE=$P($G(^AUPNVSIT(VPRVST,21)),U) AdministrationNotes SEQUENCE: 4 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.11 FIELD NUMBER: 1101 GET ACTION: N VPRMKS M VPRMKS=VPRM("REMARKS") S VALUE=$$STRING^VPRD(.VPRMKS) S:VALUE="" DDEOUT=1 FromTime SEQUENCE: 15 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) ToTime SEQUENCE: 16 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 EnteredOn SEQUENCE: 17 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")) AdministeringProvider SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 9000010.11 FIELD NUMBER: 1204 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(VPRM("ENCOUNTER PROVIDER")),U) AdministeredAtLocation SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 9000010.11 FIELD NUMBER: .03 EXTENDED POINTER LKUP: .22 RETURN INTERNAL VALUE: YES ENTITY: VPR LOCATION GET ACTION: S VALUE=$P($G(VPRM("LOCATION")),U) S:VALUE<1 DDEOUT=1 AdministrationStatus SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 9000010.11 FIELD NUMBER: .04 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE GET ACTION: S VALUE=$G(VPRM("SERIES")) AdministeredAmount SEQUENCE: 8 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.11 FIELD NUMBER: 1312 GET ACTION: S VALUE=$G(VPRM("DOSE")) AdministeredUnits SEQUENCE: 9 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.11 FIELD NUMBER: 1313 GET ACTION: S VALUE=$G(VPRM("DOSE UNITS")) LotNumber SEQUENCE: 10 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.11 FIELD NUMBER: 1207 EXTENDED POINTER LKUP: .01 GET ACTION: S VALUE=$P($G(VPRM("LOT NUMBER")),U,2) ManufacturerName SEQUENCE: 12 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.11 FIELD NUMBER: 1207 EXTENDED POINTER LKUP: .02 GET ACTION: S VALUE=$P($G(VPRM("MANUFACTURER")),U,2) ExpiryDate SEQUENCE: 11 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.11 FIELD NUMBER: 1207 EXTENDED POINTER LKUP: .09 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRM("EXPIRATION DATE"))
DESCRIPTION	This entity supports VPR VACCINATION, populating the Administrations property. VPRM array VPRDT will be defined by VPR VACCINATION.
GET ENTRY ACTION	S VPRVST=+$G(VPRM("VISIT"))
GET EXIT ACTION	K VPRVST

VPR IMM ADMINISTRATION (63) ENTITY (1.5)