| ITEM |
-
- Extension
- SEQUENCE: 3
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.04
- ENTITY: VPR LRCH RESULT EXTENSION
- GET ACTION: S VALUE=DIEN
-
- PerformedAt
- SEQUENCE: 17
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.04
- FIELD NUMBER: .345
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR LAB FACILITY
- GET ACTION: S VALUE=+$G(^LR(+$G(LRDFN),"CH",+IEN,"RF")) S:VALUE<1 DDEOUT=1
-
- EnteredAt
- SEQUENCE: 22
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.04
- FIELD NUMBER: .112
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR FACILITY
- GET ACTION: S VALUE=$P($G(LR0),U,14) S:'VALUE VALUE=$G(LRFAC)
-
- ResultTime
- SEQUENCE: 7
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 63.04
- 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.04
- FIELD NUMBER: .03
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S(VALUE:"F",1:"P") ;Date Rpt Comp = Final
- INPUT TRANSFORM: S VALUE=""
- GET ACTION: S VALUE=$P($G(LR0),U,3)
-
- ResultType
- SEQUENCE: 4
- ITEM TYPE: FIXED STRING
- FIXED RESPONSE: AT
-
- VerifiedBy
- SEQUENCE: 6
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.04
- FIELD NUMBER: .04
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR USER
- GET ACTION: S VALUE=$G(LRVER) S:'VALUE VALUE=$P($G(LR0),U,4)
-
- Comments
- SEQUENCE: 15
- ITEM TYPE: WORD PROCESSING
- FILE NUMBER: 63.04
- FIELD NUMBER: .99
- WORD WRAP: 1
- GET ACTION: N I S I=0 F S I=$O(^LR(+$G(LRDFN),"CH",+IEN,1,I)) S:(I="")&'$D(WP) DDEOUT=1 Q:I<1 S WP(I)=$P($G(^(I,0)),U)
-
- ResultItems
- SEQUENCE: 5
- ITEM TYPE: LIST
- ENTITY: VPR LRCH RESULT ITEM
- LIST TYPE: ARRAY
- XML NAME: LabResultItem
- GET ACTION: D CH^VPRSDAB(+DATA) ;build DLIST(60 ien) = CH data node#,LRIDT,LRDFN
-
- ExternalId
- SEQUENCE: 24
- ITEM TYPE: FIXED STRING
- GET ACTION: S VALUE="CH;"_+DIEN
|
