VPR ICR ADMINISTRATION (219) ENTITY (1.5)

Name	Value
NAME	VPR ICR ADMINISTRATION
DEFAULT FILE NUMBER	9000010.707
DATA MODEL	SDA
DISPLAY NAME	Administration
ITEM	AdministeringProvider SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 9000010.707 FIELD NUMBER: 1204 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(VPRM("ENC PROVIDER")),U) AdministeredAtLocation SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 9000010.707 FIELD NUMBER: .03 EXTENDED POINTER LKUP: .22 RETURN INTERNAL VALUE: YES ENTITY: VPR LOCATION GET ACTION: S VALUE=$P($G(VPRVST0),U,22) AdministrationStatus SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 9000010.707 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE OUTPUT TRANSFORM: S VALUE=$S(VALUE["920.4":"N^NOT ADMINISTERED",VALUE["920.5":"R^REFUSED",1:"") GET ACTION: S VALUE=$P($G(VPRM("CONTRA/REFUSAL")),U) RefusalReason SEQUENCE: 13 ITEM TYPE: ENTITY FILE NUMBER: 9000010.707 FIELD NUMBER: .01 ENTITY: VPR TEXT ONLY GET ACTION: N X S X=$G(VPRM("CONTRA/REFUSAL")) S:X["920.5" VALUE=$P(X,U,2) I X["920.4" S DDEOUT=1
DESCRIPTION	This entity supports VPR ICR EVENT, populating the Administrations property. It expects the VPRM array defined by VICR^PXPXRM, called by the GET ID ACTION for each immunization event.