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 ;DALOI/JMC - READ ACCESSION/UID ;06/01/10 11:50

Source Information

Source file <LRVERA.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^DIC  FILE^DIE  $$GET1^DIQ  ^DIR  
General Medical Record - Vitals 1 EN1^GMRVUT0  
Kernel 1 $$FMDIFF^XLFDT  
Lab Service 1 ($$CHECKUID,$$UID,EN)^LRWU4  
Toolkit 1 GETLST^XPAR  

Caller Graph

Caller Graph Total: 31

Package Total Caller Graph
Lab Service 30 LRAPDA  LRAPKOE  LRAPRES  LRAPUTL  LRCAPES  LRFAST  LRFASTS  LRGP1  
LRGV2  LRHYPH0  LRMINEW1  LRMISTF1  LRMIUT1  LRMIVER1  LROE  LRRPLU  
LRSTUF1  LRSTUF2  LRTSTOUT  LRVER  LRVER3  LRVER4  LRVER5  LRVR  
LRVR0  LRVR3  LRVR4  LRVR5  LRVRAP4  LRVRAR  
Toolkit 1 ^XTV(8989.51  

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")

    External References

    Name Field # of Occurrence
    ^DIC SELPL+11
    FILE^DIE SETRL+17
    $$GET1^DIQ SELPL+9, PLOK+16, PLOK+17
    ^DIR PLOK+20, RFLAG+14, DSPCMT+10
    EN1^GMRVUT0 DSPHW+10
    $$CHECKUID^LRWU4 UID+11
    $$UID^LRWU4 UID+9
    EN^LRWU4 ACC+1
    $$FMDIFF^XLFDT XDELTACK+16
    GETLST^XPAR CMTDSP+6

    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
    Routine Call
    • DIC
    • Line Location:
      • SELPL+11
    Routine Call
    • DIE
    • Line Location:
      • SETRL+17
    Routine Call
    • DIR
    • Line Location:
      • PLOK+20
      • RFLAG+14
      • DSPCMT+10

    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)
    ^LAB(60 - [#60] XDELTACK+11
    ^LAHM(62.9 - [#62.9] SCRNPL+10, SCRNPL+11
    ^LR - [#63] SETRL+9, SETRL+10, DCOM+5, DCOM+10, DCOM+15, DCOM+16, DSPCMT+6, DSPCMT+8, DSPHW+7, XDELTACK+15
    ^LRO(68 - [#68] UID+20
    ^TMP("LR" CMTDSP+5!, CMTDSP+10*, CHKCDSP+7, CHKCDSP+10, CHKCDSP+11, XDELTACK+10
    ^TMP("LRXPAR" CMTDSP+5!, CMTDSP+7, CMTDSP+10, CMTDSP+11!
    ^UTILITY($J DSPHW+9!, DSPHW+22!

    Label References

    Name Line Occurrences
    DSPCMT DCOM+12, DCOM+19

    Naked Globals

    Name Field # of Occurrence
    ^( CMTDSP+10

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    DA DCOM+7~, DCOM+12*, DCOM+19*, DSPCMT+6, DSPCMT+8
    DFN DSPHW+6~, DSPHW+7*
    DIC SELPL+6~, SELPL+7*
    DIC("A" SELPL+8*
    DIC("B" SELPL+9*
    DIC("S" SELPL+10*
    DIC(0 SELPL+7*
    DIR PLOK+11~, RFLAG+8~, DSPCMT+4~
    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+10*
    DIROUT RFLAG+8~
    DIRUT PLOK+11~, RFLAG+8~, RFLAG+15, DSPCMT+4~, DSPCMT+6, DSPCMT+9
    DTOUT SELPL+6~, PLOK+11~, RFLAG+8~, DSPCMT+4~
    DUOUT SELPL+6~, PLOK+11~, DSPCMT+4~
    DUZ(2 SCRNPL+8, SCRNPL+10, SCRNPL+11
    ERR CMTDSP+2~, CMTDSP+6
    FDA SETRL+6~
    FDA(1 SETRL+15*, SETRL+16*
    FLAG RFLAG~, RFLAG+12
    GMRVSTR DSPHW+6~, DSPHW+10*
    GMRVSTR(0 DSPHW+10*
    I CMTDSP+2~, CMTDSP+9*, CMTDSP+10*, CHKCDSP+5~, CHKCDSP+8*, CHKCDSP+9*, CHKCDSP+10, CHKCDSP+11, DSPCMT+4~, DSPCMT+5*
    , DSPCMT+6*, DSPCMT+8
    IOST DSPCMT+9
    LR4 SELPL~, SELPL+9, SELPL+12*, SELPL+13*, SELPL+15, SETRL~, SETRL+8, SETRL+9, SETRL+10, SETRL+15
    , SETRL+16
    LR60 PLOK~, PLOK+16, XDELTACK+4~, XDELTACK+10*, XDELTACK+11
    >> LRAA UID+10*, UID+19*, UID+20
    >> LRACC DCOM+17
    >> LRAD UID+10*, UID+19*, UID+20
    >> LRAN UID+10*, UID+19*, UID+20
    >> LRCMTDSP DCOM+10, DCOM+16
    LRDATE XDELTACK+14~
    LRDATE(1 XDELTACK+15*, XDELTACK+16
    LRDATE(2 XDELTACK+15*, XDELTACK+16
    LRDB XDELTACK+4~, XDELTACK+10*, XDELTACK+11*, XDELTACK+12, XDELTACK+16
    >> LRDEL XDELTACK+24
    LRDFN SETRL~, SETRL+8, SETRL+9, SETRL+10, SETRL+15, SETRL+16, DCOM+5, DCOM+10, DCOM+15, DCOM+16
    , DSPCMT+6, DSPCMT+8, DSPHW~, DSPHW+7, XDELTACK+15
    LRDIE SETRL+6~
    LRDPF DSPHW+6~, DSPHW+7*, DSPHW+8
    LREND DSPHW+6~, DSPHW+7*, DSPHW+16, DSPHW+17*
    LRFILE SETRL+6~, SETRL+12*, SETRL+13, SETRL+15, SETRL+16
    LRFLAG SELPL~, SELPL+7*, SCRNPL~, SCRNPL+11
    LRI XDELTACK+4~, XDELTACK+28*, XDELTACK+29*, XDELTACK+30
    LRIDT SETRL~, SETRL+8, SETRL+9, SETRL+15, DCOM+5, DCOM+15, DCOM+19, XDELTACK+15
    >> LRLCT DCOM+18*, DSPCMT+7*, DSPCMT+9, DSPCMT+11*, DSPCMT+12*
    >> LRLDT DCOM+5, DCOM+10, DCOM+12, DCOM+16, CHKCDSP+7, XDELTACK+13, XDELTACK+15
    >> LRM( CHKCDSP+9, CHKCDSP+10, CHKCDSP+11
    LROK XDELTACK+4~, XDELTACK+12, XDELTACK+13*, XDELTACK+15*, XDELTACK+16*
    LRQUIT UID+4~, UID+7*, UID+8, UID+10*, UID+12*
    LRROOT DSPHW+6~, DSPHW+15*, DSPHW+16*, DSPHW+17, DSPHW+18, DSPHW+19, DSPHW+20
    >> LRSB XDELTACK+10, XDELTACK+19, XDELTACK+34*
    >> LRSB( XDELTACK+30
    LRSBSAV XDELTACK+4~, XDELTACK+19*, XDELTACK+23~, XDELTACK+34
    LRSBSAV( XDELTACK+29, XDELTACK+30*
    >> LRSPEC XDELTACK+11
    LRSS SETRL~, SETRL+8, SETRL+9, SETRL+10, SETRL+12, SETRL+15, DCOM+5, DCOM+10, DCOM+15, DCOM+16
    , DSPCMT+6, DSPCMT+8, XDELTACK+15
    >> LRUID UID+9, UID+10*, UID+14*, UID+19*
    LRX UID+4~, UID+9*, UID+10, UID+11, UID+19, PLOK~, PLOK+13, PLOK+14, PLOK+15, PLOK+16
    LRY UID+4~, UID+7*, UID+11*, UID+12, UID+18, UID+19, PLOK~, PLOK+14, PLOK+17, DSPHW~
    LRY("HT" DSPHW+19*
    LRY("WT" DSPHW+20*
    LRZ PLOK~, PLOK+15, PLOK+17
    OK SCRNPL+6~, SCRNPL+7*, SCRNPL+8*, SCRNPL+9, SCRNPL+10*, SCRNPL+11*, SCRNPL+13, PLOK+11~, PLOK+12*, PLOK+19*
    , PLOK+21*, PLOK+22, CHKCDSP+5~, CHKCDSP+6*, CHKCDSP+9, CHKCDSP+10*, CHKCDSP+11*, CHKCDSP+12
    U DSPHW+20
    X SELPL+6~, PLOK+11~, RFLAG+8~, DSPCMT+4~, DSPHW+6~, DSPHW+7*, DSPHW+18*, DSPHW+19, DSPHW+20
    Y SELPL+6~, SELPL+12, SELPL+13, SCRNPL+8, SCRNPL+10, SCRNPL+11, PLOK+11~, PLOK+21, RFLAG+8~, RFLAG+15*
    , RFLAG+16, DSPCMT+4~
    >> Z2 DCOM+11
    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