Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRVERA

Package: Lab Service

Routine: LRVERA


Information

LRVERA ;VA/DALOI/JMC - READ ACCESSION/UID ;JUL 06, 2010 3:14 PM

Source Information

Source file <LRVERA.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^DIC  $$GET1^DIQ  ^DIR  
Lab Service 1 ($$CHECKUID,$$UID,EN)^LRWU4  
Toolkit 1 GETLST^XPAR  

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Lab Service 14 LRCAPES  LRFAST  LRFASTS  LRGP1  LRHYPH0  LROE  LRSTUF1  LRVER  
LRVER3  LRVER4  LRVER5  LRVR  LRVR3  LRVR4  

Entry Points

Name Comments DBIA/ICR reference
ACC ; Prompt for accession selection
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
UID ; Prompt for UID selection
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.
SELPL(LR4) ; Select the performing laboratory to store with test results.
; Call with LR4 = default institution, usually value of DUZ(2)
DSPCMT ; Display comments stored in file #63
CMTDSP ; Determine if display of previous results should include associated comments.
  • ICR #5578
    • Status: Withdrawn
    • Usage: Private
    DCOM ; From above and LRVR4 - display comments
    CHKCDSP() ; Check if previous comment should display when test on user's list
    ; is present on test profile selected for this accession.
    SCRNPL() ; Screen performing laboratory
    ; Called by DIC("S") lookup above when selecting performing laboratory

    External References

    Name Field # of Occurrence
    ^DIC SELPL+11
    $$GET1^DIQ SELPL+9, PLOK+16, PLOK+17
    ^DIR PLOK+20, RFLAG+14, DSPCMT+7
    $$CHECKUID^LRWU4 UID+9
    $$UID^LRWU4 UID+7
    EN^LRWU4 ACC+1
    GETLST^XPAR CMTDSP+6

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: UID+4
    Function Call: WRITE
    • Prompt: !,"No accession on file for this UID."
    • Line Location: UID+11
    Function Call: WRITE
    • Prompt: " (",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2)),"^"),")"
    • Line Location: UID+18
    Function Call: WRITE
    • Prompt: !
    • Line Location: PLOK+20
    Function Call: WRITE
    • Prompt: !,"*** Comments for Previous Accession "_$P($G(Z2),"^",6)_" ***"
    • Line Location: DCOM+9
    Function Call: WRITE
    • Prompt: !,"*** Comments for Current Accession "_$G(LRACC)_" ***"
    • Line Location: DCOM+15
    Function Call: WRITE
    • Prompt: !,"COMMENTS: ",$P(^LR(LRDFN,LRSS,DA,1,I,0),"^")
    • Line Location: DSPCMT+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: DSPCMT+9
    Routine Call
    • DIC
    • Line Location:
      • SELPL+11
    Routine Call
    • DIR
    • Line Location:
      • PLOK+20
      • RFLAG+14
      • DSPCMT+7

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DIC(4 - [#4] Classic Fileman Calls,  GET1^DIQ
    ^LAB(60 - [#60] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^LAHM(62.9 - [#62.9] SCRNPL+5
    ^LR - [#63] DCOM+3, DCOM+8, DCOM+13, DCOM+14, DSPCMT+3, DSPCMT+5
    ^LRO(68 - [#68] UID+18
    ^TMP("LR" CMTDSP+5!, CMTDSP+10*, CHKCDSP+5, CHKCDSP+8, CHKCDSP+9
    ^TMP("LRXPAR" CMTDSP+5!, CMTDSP+7, CMTDSP+10, CMTDSP+11!

    Label References

    Name Line Occurrences
    DSPCMT DCOM+10, DCOM+17

    Naked Globals

    Name Field # of Occurrence
    ^( CMTDSP+10

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA DCOM+5~, DCOM+10*, DCOM+17*, DSPCMT+3, DSPCMT+5
    DIC SELPL+5~, SELPL+6*
    DIC("A" SELPL+8*
    DIC("B" SELPL+9*
    DIC("S" SELPL+10*
    DIC(0 SELPL+6*
    DIR PLOK+11~, RFLAG+8~, DSPCMT+1~
    DIR("?" RFLAG+13*
    DIR("A" PLOK+16*, PLOK+17*, PLOK+18*, RFLAG+10*
    DIR("B" PLOK+18*, RFLAG+11*, RFLAG+12*
    DIR(0 PLOK+19*, RFLAG+9*, DSPCMT+7*
    DIROUT RFLAG+8~
    DIRUT PLOK+11~, RFLAG+8~, RFLAG+15, DSPCMT+1~, DSPCMT+3, DSPCMT+6
    DTOUT SELPL+5~, PLOK+11~, RFLAG+8~, DSPCMT+1~
    DUOUT SELPL+5~, PLOK+11~, DSPCMT+1~
    DUZ(2 SCRNPL+4, SCRNPL+5
    ERR CMTDSP+2~, CMTDSP+6
    FLAG RFLAG~, RFLAG+12
    I CMTDSP+2~, CMTDSP+9*, CMTDSP+10*, CHKCDSP+3~, CHKCDSP+6*, CHKCDSP+7*, CHKCDSP+8, CHKCDSP+9, DSPCMT+1~, DSPCMT+2*
    , DSPCMT+3*, DSPCMT+5
    IOST DSPCMT+6
    LR4 SELPL~, SELPL+9, SELPL+12*, SELPL+13*, SELPL+15
    LR60 PLOK~, PLOK+16
    >> LRAA UID+8*, UID+17*, UID+18
    >> LRACC DCOM+15
    >> LRAD UID+8*, UID+17*, UID+18
    >> LRAN UID+8*, UID+17*, UID+18
    >> LRCMTDSP DCOM+8, DCOM+14
    >> LRDFN DCOM+3, DCOM+8, DCOM+13, DCOM+14, DSPCMT+3, DSPCMT+5
    >> LRIDT DCOM+3, DCOM+13, DCOM+17
    >> LRLCT DCOM+16*, DSPCMT+4*, DSPCMT+6, DSPCMT+8*, DSPCMT+9*
    >> LRLDT DCOM+3, DCOM+8, DCOM+10, DCOM+14, CHKCDSP+5
    >> LRM( CHKCDSP+7, CHKCDSP+8, CHKCDSP+9
    LRQUIT UID+2~, UID+5*, UID+6, UID+8*, UID+10*
    >> LRSS DCOM+3, DCOM+8, DCOM+13, DCOM+14, DSPCMT+3, DSPCMT+5
    >> LRUID UID+7, UID+8*, UID+12*, UID+17*
    LRX UID+2~, UID+7*, UID+8, UID+9, UID+17, SCRNPL+2~, PLOK~, PLOK+13, PLOK+14, PLOK+15
    , PLOK+16
    LRY UID+2~, UID+5*, UID+9*, UID+10, UID+16, UID+17, PLOK~, PLOK+14, PLOK+17
    LRZ PLOK~, PLOK+15, PLOK+17
    OK SCRNPL+2~, SCRNPL+3*, SCRNPL+4*, SCRNPL+5*, SCRNPL+6, PLOK+11~, PLOK+12*, PLOK+19*, PLOK+21*, PLOK+22
    , CHKCDSP+3~, CHKCDSP+4*, CHKCDSP+7, CHKCDSP+8*, CHKCDSP+9*, CHKCDSP+10
    X SELPL+5~, PLOK+11~, RFLAG+8~, DSPCMT+1~
    Y SELPL+5~, SELPL+12, SELPL+13, SCRNPL+4, SCRNPL+5, PLOK+11~, PLOK+21, RFLAG+8~, RFLAG+15*, RFLAG+16
    , DSPCMT+1~
    >> Z2 DCOM+9
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All