VPR PROBLEM (11) ENTITY (1.5)

Name	Value
NAME	VPR PROBLEM
DEFAULT FILE NUMBER	9000011
DATA MODEL	SDA
DISPLAY NAME	Problem
ITEM	Extension SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 9000011 ENTITY: VPR PROBLEM EXTENSION GET ACTION: S VALUE=DIEN FromTime SEQUENCE: 17 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000011 FIELD NUMBER: .13 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(GMPFLD(.13)),U) ToTime SEQUENCE: 18 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000011 FIELD NUMBER: 1.07 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S:VALUE VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(GMPFLD(1.07)),U) I 'VALUE,$$DELETED^VPRSDAG(DIEN,1.07) S VALUE=$$NULL^VPRSDA Problem SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 9000011 FIELD NUMBER: 80001 ENTITY: VPR CODE TABLE OUTPUT TRANSFORM: S VALUE=VALUE_U_$$SCTTEXT^VPRSDAG(VALUE,DIEN)_"^SNOMED CT" GET ACTION: S VALUE=$P($G(GMPFLD(80001)),U) ExternalId SEQUENCE: 19 ITEM TYPE: ID OUTPUT TRANSFORM: S VALUE=VALUE_";PL" UpdatedOn SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000011 FIELD NUMBER: .03 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(GMPFLD(.03)),U) EnteredOn SEQUENCE: 16 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000011 FIELD NUMBER: .08 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(GMPFLD(.08)),U) EnteredBy SEQUENCE: 14 ITEM TYPE: ENTITY FILE NUMBER: 9000011 FIELD NUMBER: 1.03 RETURN INTERNAL VALUE: YES ENTITY: VPR USER EnteredAt SEQUENCE: 15 ITEM TYPE: ENTITY FILE NUMBER: 9000011 FIELD NUMBER: .06 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY Problem SEQUENCE: 6.1 ITEM TYPE: ENTITY FILE NUMBER: 9000011 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES ENTITY: VPR ICD GET ACTION: S:$L($G(GMPFLD(80001))) DDEOUT=1 I $G(GMPFLD(80001))="" S VALUE=$P($G(GMPFLD(.01)),U),DATA("DATE")=$P($G(GMPFLD(80201)),U),DATA("SYS")=$P($G(GMPFLD(80202)),U) ProblemDetails SEQUENCE: 5 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000011 FIELD NUMBER: .05 GET ACTION: S VALUE=$P($G(GMPFLD(.05)),U,2) Clinician SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 9000011 FIELD NUMBER: 1.05 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(GMPFLD(1.05)),U) Status SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 9000011 FIELD NUMBER: .12 RETURN INTERNAL VALUE: YES ENTITY: VPR CODE TABLE OUTPUT TRANSFORM: S VALUE=$S(VALUE="A":"55561003^Active^SNOMED CT",VALUE="I":"73425007^Inactive^SNOMED CT",1:"") GET ACTION: S VALUE=$P($G(GMPFLD(.12)),U)
DESCRIPTION	This entity populates the Problem container in HealthShare from the PROBLEM (#9000011) file; it expects the record IEN as the ID (DIEN). A problem will be removed from SDA if it is removed or hidden in VistA. This entity is supported by code in routine VPRSDAG, which uses the GMPLUTL2 and GMPLEDT3 routines to extract problems. Data in SDA is maintained by monitoring the GMPL EVENT protocol event.
GET EXIT ACTION	K GMPFLD,GMPORIG
GET ID ACTION	D PROB1^VPRSDAG(DIEN)
GET QUERY ROUTINE	PROBLEMS^VPRSDAG