VPR LRMI REPORT (90)    ENTITY (1.5)

Name Value
NAME VPR LRMI REPORT
DEFAULT FILE NUMBER 63.05
DATA MODEL SDA
DISPLAY NAME Document
ITEM
  • 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
DESCRIPTION
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 
its ID, i.e., "6959674,344~MI".
GET ENTRY ACTION S:DFN LRDFN=+$$LRDFN^LRPXAPIU(DFN) S:'DFN&ID LRDFN=+$P(ID,",",2),DFN=$$DFN^LRPXAPIU(LRDFN) S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
GET EXIT ACTION K LRDFN,LR0,LR1,LRSUB,VASITE
GET ID ACTION D AP1^VPRSDAB(.DIEN)
GET QUERY ROUTINE LRMI^VPRSDAQ