VPR ICR OBSERVATION (220) ENTITY (1.5)

Name	Value
NAME	VPR ICR OBSERVATION
DEFAULT FILE NUMBER	9000010.707
DATA MODEL	SDA
DISPLAY NAME	Observation
ITEM	ExternalId SEQUENCE: 4 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.707 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$G(VPRICR) ObservationTime SEQUENCE: 8 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(VPRDT) ObservationCode SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 920.4 FIELD NUMBER: .06 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE OUTPUT TRANSFORM: S VALUE=VALUE_U_$S(VALUE="C":"CONTRAINDICATION",VALUE="P":"PRECAUTION",VALUE="R":"REFUSAL",1:"UNKNOWN") GET ACTION: S:$G(VPRICR)["920.4" IEN=+$G(VPRICR) I $G(VPRICR)'["920.4" S VALUE="R" ObservationValue SEQUENCE: 10 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.707 FIELD NUMBER: .01 GET ACTION: S VALUE=$P($G(VPRM("CONTRA/REFUSAL")),U,2) ObservationCodedValue SEQUENCE: 13 ITEM TYPE: ENTITY FILE NUMBER: 9000010.707 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES ENTITY: VPR ICR CONTRAINDICATION OUTPUT TRANSFORM: S:VALUE["920.5" ENTITY=+$O(^DDE("B","VPR ICR REFUSAL",0)) S VALUE=+VALUE GET ACTION: S VALUE=$G(VPRICR)
DESCRIPTION	This entity supports VPR ICR EVENT, populating the VXUObservations property. It expects VPRICR and the VPRM array defined by VICR^PXPXRM, called by the GET ID ACTION for each immunization event.
GET EXIT ACTION	K VPRICR
GET ID ACTION	S VPRICR=$P($G(VPRM("CONTRA/REFUSAL")),U)