VPR V CPT (87) ENTITY (1.5)

Name	Value
NAME	VPR V CPT
DEFAULT FILE NUMBER	9000010.18
DATA MODEL	SDA
DISPLAY NAME	Procedure
ITEM	EnteredOn SEQUENCE: 12 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.18 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) ExternalId SEQUENCE: 13 ITEM TYPE: ID OUTPUT TRANSFORM: S VALUE=VALUE_";PX" FromTime SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.18 FIELD NUMBER: .03 EXTENDED POINTER LKUP: .01 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(VPRVST0),U) EncounterNumber SEQUENCE: 4 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.18 FIELD NUMBER: .03 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE="" GET ACTION: S VALUE=$G(VPRVST) Extension SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 9000010.18 ENTITY: VPR VCPT EXTENSION GET ACTION: S VALUE=DIEN Procedure SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 9000010.18 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES ENTITY: VPR CPT GET ACTION: N PN S VPRDT=+$G(VPRVST0),PN=+$G(VPRCPT("PROVIDER NARRATIVE")) S:PN DATA=$P($G(^AUTNPOV(PN,0)),U) ;CPT date versioning, OrigText Clinician SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 9000010.18 FIELD NUMBER: 1204 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$G(VPRCPT("ENCOUNTER PROVIDER")) ProcedureTime SEQUENCE: 9 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 9000010.18 FIELD NUMBER: 1201 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$G(VPRCPT("EVENT DATE AND TIME")) S:VALUE<1 VALUE=$P($G(VPRVST0),U) EnteredBy SEQUENCE: 10 ITEM TYPE: ENTITY FILE NUMBER: 9000010.18 FIELD NUMBER: .03 EXTENDED POINTER LKUP: .23 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P(VPRVST0,U,23) EnteredAt SEQUENCE: 11 ITEM TYPE: ENTITY FILE NUMBER: 9000010.18 FIELD NUMBER: .03 EXTENDED POINTER LKUP: .06 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=$P(VPRVST0,U,6) S:VALUE<1 VALUE=$$SITE^VPRSDA
DESCRIPTION	This entity populates the Procedure container in HealthShare from the This entity is supported by code in routine VPRSDAVF, which uses the ^PXRMINDX reminder index and VCPT^PXPXRM call to extract V CPT data. Data in SDA is maintained by monitoring the PXK VISIT DATA EVENT protocol event. V CPT (#9000010.18) file; it expects the record IEN as the ID (DIEN). Duplicate entries are screened out: * Surgeries from the SURGERY (#130) file * Immunizations from V IMMUNIZATION (#9000010.11) file, also stored in the Vaccination container * Evaluation & Management codes (99200 - 99399) are returned as the type of visit in the Encounter container
GET EXIT ACTION	K VPRCPT,VPRVST,VPRVST0,VPRDT
GET ID ACTION	D CPT1^VPRSDAVF
GET QUERY ROUTINE	CPT^VPRSDAVF