VPR LRMI REPORT (90)    ENTITY (1.5)

• 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)
• DocumentNumber
  SEQUENCE:   16
  ITEM TYPE:   ID
  OUTPUT TRANSFORM:   S VALUE=+DIEN_";MI"
• DocumentCompletionStatus
  SEQUENCE:   19
  ITEM TYPE:   ENTITY
  FILE NUMBER:   63.05
  ENTITY:   VPR CODE TABLE
  GET ACTION:   S VALUE=$S($P($G(LR1),U,2)="F":"C^COMPLETED",1:"D^DRAFT") ;final or preliminary
• EnteredAt
  SEQUENCE:   23
  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=$G(VASITE)
• EnteredOn
  SEQUENCE:   24
  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)
• Extension
  SEQUENCE:   5
  ITEM TYPE:   ENTITY
  FILE NUMBER:   63.05
  ENTITY:   VPR LRMI EXTENSION
  GET ACTION:   S VALUE=DIEN
• EnteredBy
  SEQUENCE:   22
  ITEM TYPE:   ENTITY
  FILE NUMBER:   63.05
  ENTITY:   VPR USER
  GET ACTION:   S VALUE=$P($G(LR1),U,3)
• ToTime
  SEQUENCE:   2
  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)
• DocumentTime
  SEQUENCE:   6
  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=$P($G(LR0),U)
• NoteText
  SEQUENCE:   7
  ITEM TYPE:   WORD PROCESSING
  FILE NUMBER:   63.05
  GET ACTION:   D RPT^VPRSDAB("MI",+DIEN)
• DocumentType
  SEQUENCE:   8
  ITEM TYPE:   ENTITY
  FILE NUMBER:   63.05
  ENTITY:   VPR CODE TABLE
  GET ACTION:   S VALUE="LR^LABORATORY REPORT"
• Clinician
  SEQUENCE:   9
  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)
• AuthorizationTime
  SEQUENCE:   11
  ITEM TYPE:   SIMPLE FIELD
  FILE NUMBER:   63.05
  OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  GET ACTION:   S VALUE=$P($G(LR1),U)
• DocumentName
  SEQUENCE:   12
  ITEM TYPE:   FIXED STRING
  GET ACTION:   S VALUE="LR MICROBIOLOGY REPORT"
• FileType
  SEQUENCE:   13
  ITEM TYPE:   FIXED STRING
  FIXED RESPONSE:   TXT

This entity populates the Document container in HealthShare with 
Microbiology reports built from the MI subscript nodes in the LAB DATA 
(#63) file. It expects the MI sub-file IENS string and the subscript as 
ID = IDT,LRDFN~SUB.