VPR ICR EVENT (217) ENTITY (1.5)

Name	Value
NAME	VPR ICR EVENT
DEFAULT FILE NUMBER	9000010.707
DATA MODEL	SDA
DISPLAY NAME	Vaccination
ITEM	FillerId SEQUENCE: 3 ITEM TYPE: ID Administrations SEQUENCE: 53 ITEM TYPE: LIST ENTITY: VPR ICR ADMINISTRATION LIST TYPE: ARRAY XML NAME: Administration GET ACTION: S DLIST(1)=DIEN EncounterNumber SEQUENCE: 61 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.707 FIELD NUMBER: .03 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE="" GET ACTION: S VALUE=$G(VPRVST) ToTime SEQUENCE: 34 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.707 FIELD NUMBER: .05 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRM("WARN UNTIL DATE")) Extension SEQUENCE: 62 ITEM TYPE: ENTITY FILE NUMBER: 9000010.707 ENTITY: VPR ICR EXTENSION GET ACTION: S VALUE=DIEN ExternalId SEQUENCE: 60 ITEM TYPE: ID OUTPUT TRANSFORM: S VALUE=VALUE_";ICR" VXUObservations SEQUENCE: 63 ITEM TYPE: LIST ENTITY: VPR ICR OBSERVATION LIST TYPE: ARRAY XML NAME: Observation GET ACTION: S DLIST(1)=DIEN Comments SEQUENCE: 21 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.707 FIELD NUMBER: 81101 GET ACTION: S VALUE=$G(VPRM("COMMENTS")) EnteredBy SEQUENCE: 30 ITEM TYPE: ENTITY FILE NUMBER: 9000010.707 FIELD NUMBER: .03 EXTENDED POINTER LKUP: .23 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P($G(VPRVST0),U,23) EnteredAt SEQUENCE: 31 ITEM TYPE: ENTITY FILE NUMBER: 9000010.707 FIELD NUMBER: .03 EXTENDED POINTER LKUP: .06 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$P($G(VPRVST0),U,6) S:VALUE<1 VALUE=$$SITE^VPRSDA EnteredOn SEQUENCE: 32 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.707 FIELD NUMBER: .06 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRM("D/T RECORDED")) FromTime SEQUENCE: 33 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(VPRM("EVENT D/T")) S:VALUE<1 VALUE=$P($G(VPRVST0),U) S VPRDT=$G(VALUE) OrderItem SEQUENCE: 35 ITEM TYPE: ENTITY FILE NUMBER: 9000010.707 FIELD NUMBER: .04 RETURN INTERNAL VALUE: YES ENTITY: VPR IMMUNIZATION GET ACTION: S DATA=$P($G(VPRM("IMMUN")),U),VALUE=$P(DATA,U)
DESCRIPTION	This entity populates the Vaccination container in HealthShare. it expects the V IMM CONTRA/REFUSAL EVENT (#9000010.707) ien as the record ID (DIEN). This entity is supported by code in routine VPRSDAVF, which uses the ^PXRMINDX reminder index and VICR^PXPXRM call to extract V IMM refusal data. Data in SDA is maintained by monitoring the PXK VISIT DATA EVENT protocol event.
GET EXIT ACTION	K VPRM,VPRDT,VPRVST,VPRVST0
GET ID ACTION	K VPRM D:$D(^AUPNVICR(+DIEN)) VICR^PXPXRM(+DIEN,.VPRM) S VPRVST=$G(VPRM("VISIT")),VPRVST0=$G(^AUPNVSIT(+VPRVST,0))
GET QUERY ROUTINE	ICR^VPRSDAVF