Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRVERA

Package: Lab Service

Routine: LRVERA


Information

LRVERA ;DALOI/JMC - READ ACCESSION/UID ;06/01/10 11:50

Source Information

Source file <LRVERA.m>

Entry Points

Name Comments DBIA/ICR reference
ACC ; Prompt for accession selection
UID ; Prompt for UID selection
SELPL(LR4,LRFLAG) ; Select the performing laboratory to store with test results.
; Call with LR4 = default institution, usually value of DUZ(2)
; LRFLAG = 0 (host lab only) / 1 (allow selection of collecting or host lab)
SCRNPL(LRFLAG) ; Screen performing laboratory
; Called by DIC("S") lookup above when selecting performing laboratory
; Call with LRFLAG = allow selection of collecting or host lab
PLOK(LRX,LRY,LRZ,LR60) ; Check if user is editing results that appear to have
; been performed by a lab different from the one they selected and.
; ask if changing performing lab is ok.
SETRL(LRDFN,LRSS,LRIDT,LR4) ; Set reporting laboratory for entry in file #63
; Call with LRDFN = File #63 IEN
; LRSS = file #63 subscript
; LRIDT = inverse date/time of specimen ("AU" should pass 0)
; LR4 = file #4 IEN to store as reporting laboratory
RFLAG(FLAG) ; Ask user for referral high/low/critical flag in case they
; don't have values to calculate.
; Call with FLAG = current abnormal flag if any
DCOM ; From above and LRVR4 - display comments
CMTDSP ; Determine if display of previous results should include associated comments.
  • ICR #5578
    • Status: Withdrawn
    • Usage: Private
    CHKCDSP() ; Check if previous comment should display when test on user's list
    ; is present on test profile selected for this accession.
    DSPCMT ; Display comments stored in file #63
    DSPHW(LRDFN,LRY) ; Display patient's height and weight
    ; Call with LRDFN = file #63 ien
    ; LRY = array to return values, pass by value
    XDELTACK ; Execute delta check in a controlled environment ("sand box")

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: UID+6
    Function Call: WRITE
    • Prompt: !,"No accession on file for this UID."
    • Line Location: UID+13
    Function Call: WRITE
    • Prompt: " (",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2)),"^"),")"
    • Line Location: UID+20
    Function Call: WRITE
    • Prompt: !
    • Line Location: PLOK+20
    Function Call: WRITE
    • Prompt: !,"*** Comments for Previous Accession "_$P($G(Z2),"^",6)_" ***"
    • Line Location: DCOM+11
    Function Call: WRITE
    • Prompt: !,"*** Comments for Current Accession "_$G(LRACC)_" ***"
    • Line Location: DCOM+17
    Function Call: WRITE
    • Prompt: !,"COMMENTS: ",$P(^LR(LRDFN,LRSS,DA,1,I,0),"^")
    • Line Location: DSPCMT+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: DSPCMT+12

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DIC(4 - [#4] Classic Fileman Calls,  GET1^DIQ
    ^LAB(60 - [#60] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call