VPR FIM (133) ENTITY (1.5)

Name	Value
NAME	VPR FIM
DEFAULT FILE NUMBER	783
DATA MODEL	SDA
DISPLAY NAME	Problem
ITEM	UpdatedOn SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 783 FIELD NUMBER: .12 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) FromTime SEQUENCE: 17 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 783 FIELD NUMBER: .1 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: N X S X=$P($G(VPRM(1)),U,10) S:$L(X) VALUE=$$INTDATE^VPRSDA(X) ToTime SEQUENCE: 18 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 783 FIELD NUMBER: .11 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: N X S X=$P($G(VPRM(1)),U,11) S:$L(X) VALUE=$$INTDATE^VPRSDA(X) ExternalId SEQUENCE: 19 ITEM TYPE: ID OUTPUT TRANSFORM: S VALUE=VALUE_";FIM" Extension SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 783 ENTITY: VPR FIM EXTENSION GET ACTION: S VALUE=DIEN Status SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 783 ENTITY: VPR CODE TABLE GET ACTION: S VALUE="55561003^Active^SNOMED CT" CustomPairs SEQUENCE: 3 ITEM TYPE: LIST ENTITY: VPR CUSTOM PAIR GET ACTION: D FIMS^VPRSDAG ;sets VPRFIMS, DLIST array ProblemDetails SEQUENCE: 5 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$G(VPRFIMS) Problem SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 783 ENTITY: VPR CODE TABLE GET ACTION: S VALUE="408907016^Functional independence measure^SNOMED CT" Clinician SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 783 FIELD NUMBER: .16 EXTENDED POINTER LKUP: 1202 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$G(VPRM("TIU",1202,"I")) Category SEQUENCE: 10 ITEM TYPE: ENTITY FILE NUMBER: 783 ENTITY: VPR CODE TABLE GET ACTION: S VALUE="248536006^Finding of functional performance and activity^SNOMED CT" EnteredBy SEQUENCE: 14 ITEM TYPE: ENTITY FILE NUMBER: 783 FIELD NUMBER: .16 EXTENDED POINTER LKUP: 1302 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$G(VPRM("TIU",1302,"I")) EnteredAt SEQUENCE: 15 ITEM TYPE: ENTITY FILE NUMBER: 783 ENTITY: VPR FACILITY GET ACTION: S VALUE=$$IEN^XUAF4($P(VPRSITE(1),U,2)) S:'VALUE VALUE=$$SITE^VPRSDA EnteredOn SEQUENCE: 16 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 783 FIELD NUMBER: .16 EXTENDED POINTER LKUP: 1201 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRM("TIU",1201,"I"))
DESCRIPTION	This entity populates the Problem container in HealthShare from the FUNCTIONAL INDEPENDENCE MEASUREMENT RECORD (#783) file; it expects the Site Case Number (#.02) field value as the ID (DIEN). This entity is supported by code in routine VPRSDAG, which uses the RMIMRP routine to extract measurements. Data in SDA is maintained by monitoring the RMIM DRIVER protocol event.
GET EXIT ACTION	K VPRM,VPRSITE,VPRFIMS
GET ID ACTION	D FIM1^VPRSDAG(DIEN)
GET QUERY ROUTINE	FIMQ^VPRSDAG