VPR IMM EXTENSION (124) ENTITY (1.5)

Name	Value
NAME	VPR IMM EXTENSION
DEFAULT FILE NUMBER	9000010.11
DATA MODEL	SDA
DISPLAY NAME	VaccinationExtension
ITEM	IsContraindicated SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.11 FIELD NUMBER: .07 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false") GET ACTION: S VALUE=$G(VPRM("CONTRAINDICATED")) IsWarningAcknowledged SEQUENCE: 11 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.11 FIELD NUMBER: 1220 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false") GET ACTION: S VALUE=$G(VPRM("WARNING ACK")) WarningOverride SEQUENCE: 12 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.11 FIELD NUMBER: 1601 GET ACTION: S VALUE=$G(VPRM("OVERRIDE REASON")) Manufacturer SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 9000010.11 FIELD NUMBER: 1207 EXTENDED POINTER LKUP: .02 RETURN INTERNAL VALUE: YES ENTITY: VPR IMM MANUFACTURER GET ACTION: S VALUE=$P($G(VPRM("MANUFACTURER")),U) Reaction SEQUENCE: 2 ITEM TYPE: ENTITY FILE NUMBER: 9000010.11 FIELD NUMBER: .06 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE OUTPUT TRANSFORM: S VALUE=VALUE_U_$$EXTERNAL^DILFD(9000010.11,.06,,VALUE) GET ACTION: S VALUE=$G(VPRM("REACTION")) Source SEQUENCE: 3 ITEM TYPE: ENTITY FILE NUMBER: 9000010.11 FIELD NUMBER: 1301 ENTITY: VPR CODE TABLE GET ACTION: N X S X=$G(VPRM("INFO SOURCE")) S:X VALUE=$P(X,U,2,3)_"^HL7" S:X<1 DDEOUT=1 ;HL7 code ^ name VISOffers SEQUENCE: 5 ITEM TYPE: LIST ENTITY: VPR IMM VIS LIST TYPE: ARRAY XML NAME: VISOffer GET ACTION: N I S I=0 F S I=$O(VPRM("VIS OFFERED",I)) Q:I<1 S DLIST(I)=$G(VPRM("VIS OFFERED",I,0)) CPT SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 9000010.11 ENTITY: VPR CPT GET ACTION: S VALUE=$P($G(VPRM("CODES","CPT")),U) NDCCode SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.11 FIELD NUMBER: 1207 EXTENDED POINTER LKUP: .18 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$G(VPRM("NDC CODE (VA)")) CDCName SEQUENCE: 7 ITEM TYPE: WORD PROCESSING FILE NUMBER: 9999999.14 FIELD NUMBER: 2 WORD WRAP: 1 GET ACTION: S IEN=+$G(VPRM("IMMUNIZATION")),WP(1)=$G(VPRM("CDC FULL VACCINE NAME")) I WP(1)="" K WP DataSource SEQUENCE: 9 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.11 FIELD NUMBER: 81203 GET ACTION: S VALUE=$P($G(VPRM("DATA SOURCE")),U,2) Package SEQUENCE: 10 ITEM TYPE: ENTITY FILE NUMBER: 9000010.11 FIELD NUMBER: 81202 RETURN INTERNAL VALUE: YES ENTITY: VPR PACKAGE GET ACTION: S VALUE=$P($G(VPRM("PACKAGE")),U)
DESCRIPTION	This entity extends VPR VACCINATION; it expects the VPRM array defined by VIMM^PXPXRM, called by the GET ID ACTION for each immunization.