VPR VACC HF REFUSAL (171) ENTITY (1.5)

Name	Value
NAME	VPR VACC HF REFUSAL
DEFAULT FILE NUMBER	9000010.23
DATA MODEL	SDA
DISPLAY NAME	Vaccination
ITEM	FillerId SEQUENCE: 3 ITEM TYPE: ID EncounterNumber SEQUENCE: 61 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.23 FIELD NUMBER: .03 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE="" GET ACTION: S VALUE=$G(VPRVST) OrderedBy SEQUENCE: 8 ITEM TYPE: ENTITY FILE NUMBER: 9000010.23 FIELD NUMBER: 1202 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(VPRHF("ORDERING PROVIDER")),U) ExternalId SEQUENCE: 60 ITEM TYPE: ID OUTPUT TRANSFORM: S VALUE=VALUE_";HF" Extension SEQUENCE: 62 ITEM TYPE: ENTITY FILE NUMBER: 9000010.23 ENTITY: VPR VACC HF EXT GET ACTION: S VALUE=DIEN EnteredBy SEQUENCE: 30 ITEM TYPE: ENTITY FILE NUMBER: 9000010.23 FIELD NUMBER: .03 EXTENDED POINTER LKUP: .23 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P(VPRVST0,U,23) EnteredAt SEQUENCE: 31 ITEM TYPE: ENTITY FILE NUMBER: 9000010.23 FIELD NUMBER: .03 EXTENDED POINTER LKUP: .06 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$P(VPRVST0,U,6) S:'VALUE VALUE=$$SITE^VPRSDA EnteredOn SEQUENCE: 32 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.23 FIELD NUMBER: .03 EXTENDED POINTER LKUP: .01 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P(VPRVST0,U) FromTime SEQUENCE: 33 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.23 FIELD NUMBER: 1201 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRHF("EVENT DATE AND TIME")) S:VALUE<1 VALUE=$P(VPRVST0,U) S VPRDT=$G(VALUE) ToTime SEQUENCE: 34 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.23 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 OrderItem SEQUENCE: 35 ITEM TYPE: ENTITY FILE NUMBER: 9000010.23 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE GET ACTION: N HF,NM,CVX S HF=+$G(^AUPNVHF(DIEN,0)),NM=$$GET1^DIQ(9000010.23,DIEN,.01),CVX=$P(NM," CVX ",2),VALUE=$S(CVX:CVX_U_NM_"^CVX",1:HF_U_NM_"^VA9999999.64") Administrations SEQUENCE: 53 ITEM TYPE: LIST ENTITY: VPR VACC HF ADMIN LIST TYPE: ARRAY XML NAME: Administration GET ACTION: S DLIST(1)=DIEN
DESCRIPTION	This entity supports the temporary placement of vaccination refusals in the V HEALTH FACTOR (#9000010.23) file, with the record IEN as the ID. This entity is supported by code in routine VPRSDAVF, which uses the ^PXRMINDX reminder index and VHF^PXPXRM call to extract V HEALTH FACTOR data. Data in SDA is maintained by monitoring the PXK VISIT DATA EVENT protocol event.
GET EXIT ACTION	K VPRHF,VPRVST,VPRVST0
GET ID ACTION	D HF1^VPRSDAVF
GET QUERY ROUTINE	HFCVR^VPRSDAVF