VPR SURGERY (50) ENTITY (1.5)

Name	Value
NAME	VPR SURGERY
DEFAULT FILE NUMBER	130
DATA MODEL	SDA
DISPLAY NAME	Procedure
ITEM	FromTime SEQUENCE: 2 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 130 FIELD NUMBER: .205 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S:$G(VPRNONOR) DDEOUT=1 EnteredOn SEQUENCE: 12 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 130 FIELD NUMBER: 1.098 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) Procedure SEQUENCE: 6 ITEM TYPE: ENTITY FILE NUMBER: 130 FIELD NUMBER: 26 ENTITY: VPR CODE TABLE GET ACTION: D PROC^VPRSDASR(DIEN) ExternalId SEQUENCE: 13 ITEM TYPE: ID OUTPUT TRANSFORM: S VALUE=VALUE_";SR" ToTime SEQUENCE: 3 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 130 FIELD NUMBER: .232 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S:$G(VPRNONOR) DDEOUT=1 FromTime SEQUENCE: 2.1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 130 FIELD NUMBER: 121 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S:'$G(VPRNONOR) DDEOUT=1 ToTime SEQUENCE: 3.1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 130 FIELD NUMBER: 122 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S:'$G(VPRNONOR) DDEOUT=1 EncounterNumber SEQUENCE: 4 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 8925 FIELD NUMBER: .03 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S:'$D(^AUPNVSIT(VALUE,0)) VALUE="" GET ACTION: N I S I=+$O(VPRSR(DIEN,0)),IEN=+$G(VPRSR(DIEN,I)) S:IEN<1 DDEOUT=1 ;TIU ien Extension SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 130 ENTITY: VPR SURGERY EXTENSION GET ACTION: S VALUE=DIEN Clinician SEQUENCE: 7 ITEM TYPE: ENTITY FILE NUMBER: 130 FIELD NUMBER: .14 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: N X S X=+$P(VPRSR(DIEN),U,4) S:X VALUE=X ProcedureTime SEQUENCE: 9 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 130 FIELD NUMBER: .09 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P(VPRSR(DIEN),U,3) EnteredBy SEQUENCE: 10 ITEM TYPE: ENTITY FILE NUMBER: 130 FIELD NUMBER: 1.099 RETURN INTERNAL VALUE: YES ENTITY: VPR USER EnteredAt SEQUENCE: 11 ITEM TYPE: ENTITY FILE NUMBER: 130 FIELD NUMBER: 50 RETURN INTERNAL VALUE: YES ENTITY: VPR FACILITY GET ACTION: S VALUE=+$G(^SRF(DIEN,8)) S:VALUE<1 VALUE=$$SITE^VPRSDA
DESCRIPTION	This entity populates the Procedure container in HealthShare from the SURGERY (#130) file; it expects the record IEN as the ID (DIEN). This entity is supported by code in routine VPRSDASR, which uses the SROESTV calls to extract surgery data. Data in SDA is populated when the related Operative Summary report is completed in TIU; only completed procedures are saved in SDA.
GET EXIT ACTION	K VPRSR,VPRNONOR,SREXT,SRPROV,SRSDATE
GET ID ACTION	D ONE^SROESTV("VPRSR",DIEN) S:$G(VPRSR(DIEN))="" DDEOUT=1 S:'$G(DDEOUT) VPRNONOR=$$NON^SROESTV(DIEN)
GET QUERY ROUTINE	QRY^VPRSDASR