VPR VISIT (29) ENTITY (1.5)

Name	Value
NAME	VPR VISIT
DEFAULT FILE NUMBER	9000010
DATA MODEL	SDA
DISPLAY NAME	Encounter
ITEM	EncounterNumber SEQUENCE: 3 ITEM TYPE: ID EnteredOn SEQUENCE: 43 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010 FIELD NUMBER: .02 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,2) FromTime SEQUENCE: 44 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U) ToTime SEQUENCE: 45 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010 FIELD NUMBER: .18 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,18) S:'VALUE VALUE=$$VTO^VPRSDAV(DIEN) Extension SEQUENCE: 2 ITEM TYPE: ENTITY FILE NUMBER: 9000010 ENTITY: VPR VISIT EXTENSION GET ACTION: S VALUE=DIEN Priority SEQUENCE: 35 ITEM TYPE: ENTITY FILE NUMBER: 9000010 FIELD NUMBER: 15003 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE GET ACTION: S VALUE=$P($G(@VPRVST@(150)),U,3) HealthCareFacility SEQUENCE: 22.1 ITEM TYPE: ENTITY FILE NUMBER: 9000010 FIELD NUMBER: 2101 ENTITY: VPR TEXT ONLY GET ACTION: S VALUE=$P($G(@VPRVST@(21)),U) I $P($G(@VPRVST@(0)),U,22) S DDEOUT=1 ;only return if no Hosp Location EncounterType SEQUENCE: 5 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010 FIELD NUMBER: 15002 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"I",VALUE=0:"O",1:VALUE) GET ACTION: S VALUE=$P($G(@VPRVST@(150)),U,2) S:$O(^EDP(230,"V",DIEN,0)) VALUE="E" ;Emergency EncounterCodedType SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 9000010 FIELD NUMBER: .07 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,7) ConsultingClinicians SEQUENCE: 9 ITEM TYPE: LIST FILE NUMBER: 9000010.06 ENTITY: VPR PROVIDER LIST TYPE: ARRAY XML NAME: CareProvider XREF: AD FILTER BY: DIEN GET ACTION: D VPRV^VPRSDAV(DIEN) AccountNumber SEQUENCE: 11 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010 FIELD NUMBER: .26 GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,26) HealthCareFacility SEQUENCE: 22 ITEM TYPE: ENTITY FILE NUMBER: 9000010 FIELD NUMBER: .22 RETURN INTERNAL VALUE: YES ENTITY: VPR LOCATION GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,22) EnteredBy SEQUENCE: 41 ITEM TYPE: ENTITY FILE NUMBER: 9000010 FIELD NUMBER: .23 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,23) EnteredAt SEQUENCE: 42 ITEM TYPE: ENTITY FILE NUMBER: 9000010 FIELD NUMBER: .06 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,6) S:'VALUE VALUE=$$SITE^VPRSDA
DESCRIPTION	This entity populates the Encounter container in HealthShare from the VISIT (#9000010) file; it expects the record IEN as the ID. If the requested visit does not exist, control will pass to the VPR VISIT STUB entity to return a stub to HealthShare containing only the Encounter Number, so the HS matching logic and find and remove the record there.
GET EXIT ACTION	K ^TMP("PXKENC",$J),VPRVST,VADMVT,VAIP
GET ID ACTION	D VST^VPRSDAV
GET QUERY ROUTINE	QRY^VPRSDAV