VPR LRMI RESULT (148)    ENTITY (1.5)

Name Value
NAME VPR LRMI RESULT
DEFAULT FILE NUMBER 63.05
DATA MODEL SDA
DISPLAY NAME Result
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(0)),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"
DESCRIPTION
This entity supports VPR LAB ORDER, providing Microbiology results.
GET EXIT ACTION K LR0,LR1
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