| 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 |
