| ITEM |
-
- Extension
- SEQUENCE: 3
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.05
- ENTITY: VPR LR RESULT EXTENSION
- GET ACTION: S VALUE=DIEN
-
- PerformedAt
- SEQUENCE: 17
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.05
- FIELD NUMBER: .345
- ENTITY: VPR LAB FACILITY
- GET ACTION: S VALUE=+$G(^LR(+$G(LRDFN),"MI",+IEN,"RF")) S:VALUE<1 DDEOUT=1
-
- EnteredAt
- SEQUENCE: 22
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.05
- FIELD NUMBER: .112
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR FACILITY
- GET ACTION: S VALUE=$P($G(LR0),U,14) S:'VALUE VALUE=$$SITE^VPRSDA
-
- EnteredOn
- SEQUENCE: 23
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 63.05
- 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.05
- FIELD NUMBER: .01
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=9999999-(+DIEN)
-
- EnteredBy
- SEQUENCE: 21
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.05
- FIELD NUMBER: 11.55
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR USER
- GET ACTION: S VALUE=$P($G(LR1),U,3)
-
- AuthorizationTime
- SEQUENCE: 16
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 63.05
- FIELD NUMBER: 11
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P($G(LR1),U)
-
- ResultType
- SEQUENCE: 4
- ITEM TYPE: FIXED STRING
- FIXED RESPONSE: IM
-
- VerifiedBy
- SEQUENCE: 6
- ITEM TYPE: ENTITY
- FILE NUMBER: 63.05
- FIELD NUMBER: .04
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR PROVIDER
- GET ACTION: S VALUE=$P($G(LR0),U,4)
-
- ResultTime
- SEQUENCE: 7
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 63.05
- FIELD NUMBER: .03
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P($G(LR0),U,3) S:'VALUE VALUE=$P($G(LR1),U)
-
- ResultStatus
- SEQUENCE: 8
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 63.05
- FIELD NUMBER: 11.5
- RETURN INTERNAL VALUE: YES
- GET ACTION: S VALUE=$P($G(LR1),U,2)
-
- ResultText
- SEQUENCE: 9
- ITEM TYPE: WORD PROCESSING
- FILE NUMBER: 63.05
- GET ACTION: Q D LRPT^VPRSDA("MI",+DIEN)
-
- FileType
- SEQUENCE: 10
- ITEM TYPE: FIXED STRING
- FIXED RESPONSE: TXT
-
- DocumentName
- SEQUENCE: 11
- ITEM TYPE: FIXED STRING
- GET ACTION: S:$G(LR1) VALUE="LR MICROBIOLOGY REPORT"
-
- DocumentNumber
- SEQUENCE: 14
- ITEM TYPE: FIXED STRING
- GET ACTION: S:$G(LR1) VALUE=+DIEN_";MI"
|
| GET ID ACTION |
S:'$G(LRDFN) LRDFN=+$P(DIEN,",",2) S LR0=$G(^LR(LRDFN,"MI",+DIEN,0)),LR1=$$MI1^VPRSDAB(LRDFN,+DIEN) I '$L(LR0) S DDEOUT=1 |
