| ITEM |
-
- Extension
- SEQUENCE: 3
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.08
- ENTITY: VPR LR RESULT EXTENSION
- GET ACTION: S VALUE=DIEN
-
- AuthorizationTime
- SEQUENCE: 16
- 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)
-
- PerformedAt
- SEQUENCE: 17
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.08
- FIELD NUMBER: .345
- ENTITY: VPR LAB FACILITY
- GET ACTION: S VALUE=+$G(^LR(+$G(LRDFN),"SP",+IEN,"RF")) S:VALUE<1 DDEOUT=1
-
- EnteredBy
- SEQUENCE: 21
- 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: 22
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.08
- ENTITY: VPR FACILITY
- GET ACTION: S VALUE=$$SITE^VPRSDA
-
- EnteredOn
- SEQUENCE: 23
- 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)
-
- 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)
-
- ResultType
- SEQUENCE: 4
- ITEM TYPE: FIXED STRING
- FIXED RESPONSE: IM
-
- VerifiedBy
- SEQUENCE: 6
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.08
- FIELD NUMBER: .13
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR PROVIDER
- GET ACTION: S VALUE=$P($G(LR0),U,13)
-
- ResultTime
- SEQUENCE: 7
- 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)
-
- ResultStatus
- SEQUENCE: 8
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 63.08
- FIELD NUMBER: .11
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S(VALUE:"F",1:"P")
- GET ACTION: S VALUE=$P($G(LR0),U,11)
-
- ResultText
- SEQUENCE: 9
- ITEM TYPE: WORD PROCESSING
- FILE NUMBER: 63.08
- GET ACTION: Q D RPT^VPRSDAB("SP",+DIEN)
-
- FileType
- SEQUENCE: 10
- ITEM TYPE: FIXED STRING
- FIXED RESPONSE: TXT
-
- DocumentName
- SEQUENCE: 11
- ITEM TYPE: FIXED STRING
- GET ACTION: S:$P($G(LR0),U,11) VALUE="LR SURGICAL PATHOLOGY REPORT" ;return if final
-
- DocumentNumber
- SEQUENCE: 14
- ITEM TYPE: FIXED STRING
- FILE NUMBER: 63.08
- GET ACTION: S:$P($G(LR0),U,11) VALUE=$$LRTIU^VPRSDAB(+DIEN,"SP") ;SP or TIU, return if final
|
