VPR LRAP REPORT (84)    ENTITY (1.5)

Name Value
NAME VPR LRAP REPORT
DEFAULT FILE NUMBER 63.08
DATA MODEL SDA
DISPLAY NAME Document
ITEM
  • FromTime
    SEQUENCE:   1
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   63.08
    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_";"_$G(LRSUB)
  • DocumentCompletionStatus
    SEQUENCE:   19
    ITEM TYPE:   ENTITY
    FILE NUMBER:   63.08
    FIELD NUMBER:   .11
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE=$S($P($G(LR0),U,11):"C^COMPLETED",$P($G(LR0),U,3):"R^RELEASED",1:"D^DRAFT") ;final, if date exists
  • EnteredBy
    SEQUENCE:   22
    ITEM TYPE:   ENTITY
    FILE NUMBER:   63.08
    FIELD NUMBER:   .02
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$P($G(LR0),U,2)
  • EnteredAt
    SEQUENCE:   23
    ITEM TYPE:   ENTITY
    FILE NUMBER:   63.08
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$G(VASITE)
  • EnteredOn
    SEQUENCE:   24
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   63.08
    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.08
    ENTITY:   VPR LRAP EXTENSION
    GET ACTION:   S VALUE=DIEN
  • ToTime
    SEQUENCE:   2
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   63.08
    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.08
    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.08
    GET ACTION:   D RPT^VPRSDAB(LRSUB,+DIEN)
  • DocumentType
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    FILE NUMBER:   63.08
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE="LR^LABORATORY REPORT"
  • Clinician
    SEQUENCE:   9
    ITEM TYPE:   ENTITY
    FILE NUMBER:   63.08
    FIELD NUMBER:   .02
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
    GET ACTION:   S VALUE=$P($G(LR0),U,2)
  • AuthorizationTime
    SEQUENCE:   11
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   63.08
    FIELD NUMBER:   .11
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P($G(LR0),U,11)
  • DocumentName
    SEQUENCE:   12
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE="LR "_$$NAME^VPRDLRA($G(LRSUB))_" REPORT"
  • FileType
    SEQUENCE:   13
    ITEM TYPE:   FIXED STRING
    FIXED RESPONSE:   TXT
DESCRIPTION
This entity populates the Document container in HealthShare with 
Pathology reports that are not stored in TIU. Because these can come from 
the Surgical Pathology, Cytopathology, or Electron Microscropy sub-files 
in the Lab Data file #63, the GET ID ACTION code will set the Default 
File# for the appropriate sub-file based on the value of ID; it also sets 
the LR0 local variable to the sub-file zero node.
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,LRSUB,VASITE
GET ID ACTION D AP1^VPRSDAB(.DIEN)
GET QUERY ROUTINE LRAP^VPRSDAQ