VPR PTF 601 (228) ENTITY (1.5)

Name	Value
NAME	VPR PTF 601
DEFAULT FILE NUMBER	45.05
DATA MODEL	SDA
DISPLAY NAME	Procedure
ITEM	FromTime SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 45.05 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) EncounterNumber SEQUENCE: 4 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$G(VPRVST) Procedure SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 45.05 FIELD NUMBER: 4 ENTITY: VPR ICD OP GET ACTION: N I S I=$P(VPRPTF,"-",2) S:I VALUE=$$GET1^DIQ(45.05,DIEN,I+3,"I") S:VALUE<1 DDEOUT=1 ProcedureTime SEQUENCE: 10 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 45.05 FIELD NUMBER: .01 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) EnteredAt SEQUENCE: 12 ITEM TYPE: ENTITY FILE NUMBER: 45 FIELD NUMBER: 3 ENTITY: VPR FACILITY OUTPUT TRANSFORM: S VALUE=$$IEN^XUAF4(VALUE) GET ACTION: S IEN=+$P(VPRPTF,",",2) ExternalId SEQUENCE: 14 ITEM TYPE: ID GET ACTION: S VALUE=$G(VPRPTF)_";PTF" ProcedurePriority SEQUENCE: 7 ITEM TYPE: FIXED STRING GET ACTION: S:$G(VPRPTF)["-" VALUE=+$P(VPRPTF,"-",2) Extension SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 45.05 ENTITY: VPR PTF 601 EXTENSION GET ACTION: S VALUE=DIEN
DESCRIPTION	This entity populates the Procedure container in HealthShare with ICD OP event. codes from the 601 sub-file of the PTF (#45) file; it expects an ID in the form IENS-nn where: IENS = ien string for the sub-file record nn = the number from the code's field name, i.e. PROCEDURE CODE nn This entity is supported by code in routine VPRSDADG, which uses the PTFIEN^DGPTFUT call to extract PTF procedure data. Data in SDA is maintained by monitoring the DG PTF ICD PROCEDURE NOTIFIER protocol
GET EXIT ACTION	K VPRPTF,VPRVST
GET ID ACTION	D OP1^VPRSDADG
GET QUERY ROUTINE	OPQ^VPRSDADG