| ITEM |
-
- FromTime
- SEQUENCE: 1
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 63.08
- FIELD NUMBER: .01
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=9999999-(+DIEN)
-
- DocumentNumber
- SEQUENCE: 16
- ITEM TYPE: ID
- OUTPUT TRANSFORM: S VALUE=+DIEN_";"_$G(LRSUB)
-
- DocumentCompletionStatus
- SEQUENCE: 19
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.08
- FIELD NUMBER: .11
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR CODE TABLE
- GET ACTION: S VALUE=$S($P($G(LR0),U,11):"C^COMPLETED",$P($G(LR0),U,3):"R^RELEASED",1:"D^DRAFT") ;final, if date exists
-
- EnteredBy
- SEQUENCE: 22
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.08
- FIELD NUMBER: .02
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR USER
- GET ACTION: S VALUE=$P($G(LR0),U,2)
-
- EnteredAt
- SEQUENCE: 23
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.08
- ENTITY: VPR FACILITY
- GET ACTION: S VALUE=$G(VASITE)
-
- EnteredOn
- SEQUENCE: 24
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 63.08
- FIELD NUMBER: .1
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P($G(LR0),U,10)
-
- Extension
- SEQUENCE: 5
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.08
- ENTITY: VPR LRAP EXTENSION
- GET ACTION: S VALUE=DIEN
-
- ToTime
- SEQUENCE: 2
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 63.08
- FIELD NUMBER: .03
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P($G(LR0),U,3)
-
- DocumentTime
- SEQUENCE: 6
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 63.08
- FIELD NUMBER: .01
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P($G(LR0),U)
-
- NoteText
- SEQUENCE: 7
- ITEM TYPE: WORD PROCESSING
- FILE NUMBER: 63.08
- GET ACTION: D RPT^VPRSDAB(LRSUB,+DIEN)
-
- DocumentType
- SEQUENCE: 8
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.08
- ENTITY: VPR CODE TABLE
- GET ACTION: S VALUE="LR^LABORATORY REPORT"
-
- Clinician
- SEQUENCE: 9
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.08
- FIELD NUMBER: .02
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR PROVIDER
- GET ACTION: S VALUE=$P($G(LR0),U,2)
-
- AuthorizationTime
- SEQUENCE: 11
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 63.08
- FIELD NUMBER: .11
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P($G(LR0),U,11)
-
- DocumentName
- SEQUENCE: 12
- ITEM TYPE: FIXED STRING
- GET ACTION: S VALUE="LR "_$$NAME^VPRDLRA($G(LRSUB))_" REPORT"
-
- FileType
- SEQUENCE: 13
- ITEM TYPE: FIXED STRING
- FIXED RESPONSE: TXT
|
| DESCRIPTION |
This entity populates the Document container in HealthShare with
Pathology reports that are not stored in TIU. Because these can come from
the Surgical Pathology, Cytopathology, or Electron Microscropy sub-files
in the Lab Data file #63, the GET ID ACTION code will set the Default
File# for the appropriate sub-file based on the value of the IENS string
in ID = IDT,LRDFN~SUB.
ID = IDT,LRDFN~SUB
|
