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