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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: LRBEBA4

Package: Lab Service

Routine: LRBEBA4


Information

LRBEBA4 ;DALOI/JAH/FHS - ORDERING AND RESULTING OUTPATIENT ; 17-Oct-2014 09:22 ; MKK

Source Information

Source file <LRBEBA4.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 4 UPDATE^DIE  ^DIK  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 2 $$NOW^XLFDT  $$GET^XUA4A72  
DRG Grouper 1 $$CPT^ICPTCOD  
Lab Service 1 BAWRK^LRBEBA  
Registration 1 INP^VADPT  

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Lab Service 13 LRBEBA2  LRBEBA21  LRBEBA3  LRBEPEND  LRBEPRPT  LRFAST  LRORD1  LRORDST  
LROW  LROW2A  LRTSTJAM  LRVER3  LRVR3  
Order Entry Results Reporting 1 ORWDBA7  

Entry Points

Name Comments DBIA/ICR reference
GEPRO(LRBEAA) ; Provider - Responsible Official
UPDOR(DFN,ORITEM,ORIEN,ORDX,ORSCEI) ; Update CIDC information from OERR
  • ICR #4775
    • Status: Active
    • Usage: Private
    RFLX() ; Ask the Reflex Question
    BLRSB(LRSB,LRBEIENT,LRBETST,LRBEY) ; Build the LRSB global
    NLT
    KILL(LRBEODT,LRBESN,LRBETN) ; Kill the existing DGX and SC/EI
    DEFAULT ;Set Default diagnosis
    EMSG(LRBETYP) ; Return Error Message
    CHKINP(LRDFN,LRBEDAT) ; Check for Inpatient Status)
    WORK ; Enter the updated information into file
    GOPRO(LRODT,LRSN) ; Get the Ordering Provider
    SCPT(CPT,TDAT) ; Get the CPT/HCPCS Code
    SP60
    HCPCS
    SET(DFN,ORDX,ORSCEI) ; Set #69 with new DGX and SC/EI
    SPCPT
    SDG1(LRODT,LRSN,LRBETN,DFN,LRBEAR) ; Set the diagnois
    ; and indicators file #69
    GPRO(LRBEDN,LRBECDT,LRBESPC,LRBETST) ; Get the Procedure (CPT)
    ; A qualified coder will setup the CPTs in #60. The routine look for
    ; CPTs by specimen, then HCPCS, and lasty, by a default.
    GCPT(LRBETST,LRBECDT,LRSPEC) ; Get the CPT
    PANEL ;Entry point for panel cpt

    External References

    Name Field # of Occurrence
    UPDATE^DIE SDG1+20
    ^DIK KILL+5
    $$GET1^DIQ HCPCS+1, NLT+2, SPCPT+1, UPDOR+12, UPDOR+13, UPDOR+14, UPDOR+15, UPDOR+16, UPDOR+18, WORK+4
    , WORK+6, WORK+7, BLRSB+2, BLRSB+3, BLRSB+4, BLRSB+6, BLRSB+7, CHKINP+3, CHKINP+4, GEPRO+2
    , GEPRO+3, GOPRO+2, GOPRO+4
    GETS^DIQ GCPT+3
    ^DIR RFLX+5
    $$CPT^ICPTCOD HCPCS+3, NLT+15, SPCPT+3, SCPT+1, GCPT+10
    BAWRK^LRBEBA WORK+13
    INP^VADPT CHKINP+6
    $$NOW^XLFDT UPDOR+3
    $$GET^XUA4A72 GEPRO+3, GOPRO+3, GOPRO+5

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^LAB(60 - [#60] GET1^DIQ
    60.01 GETS^DIQ
    ^LR - [#63] GET1^DIQ
    ^LRO(68 - [#68] GET1^DIQ
    68.02 GET1^DIQ
    69.01 GET1^DIQ
    69.02 GET1^DIQ
    69.03 GET1^DIQ
    ^LAB(69.9 - [#69.9] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^LAB(60 - [#60] GPRO+4, BLRSB+8, BLRSB+13, BLRSB+14, BLRSB+15
    ^LAM - [#64] NLT+4, NLT+11, NLT+12
    ^LAM("C" NLT+10
    ^LR - [#63] BLRSB+9, BLRSB+16
    ^LRO(69 - [#69] UPDOR+20, WORK+3, KILL+3, SDG1+3, DEFAULT+3, DEFAULT+4
    ^XTMP("LRPCELOG" UPDOR+1, UPDOR+3, UPDOR+4*, UPDOR+6*

    Label References

    Name Line Occurrences
    $$EMSG UPDOR+17, UPDOR+19, WORK+12
    BLRSB WORK+9
    GCPT SP60
    KILL WORK+10
    SDG1 WORK+11
    SET WORK+10
    WORK UPDOR+20

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    A GCPT+1~, GCPT+4*, GCPT+5, GCPT+6
    ARR GCPT+1~
    ARR( GCPT+6*, GCPT+8, GCPT+9
    CPT SCPT~, SCPT+1
    DA KILL+1~, KILL+3*
    DA(1 KILL+2*, KILL+3, KILL+4
    DA(2 KILL+2*, KILL+3, KILL+4
    DA(3 KILL+2*, KILL+3, KILL+4
    DFN UPDOR~, UPDOR+4, UPDOR+18, WORK+10, WORK+11, SET~, SET+3, SET+4, SDG1~, SDG1+4
    , SDG1+6, SDG1+7, CHKINP+2, CHKINP+3*
    DIC PANEL+1~, GOPRO+1~
    DIK KILL+1~, KILL+4*
    DIR RFLX+3~
    DIR("A" RFLX+4*
    DIR(0 RFLX+5*
    DIRUT RFLX+3~, RFLX+6
    DT GEPRO+3, GOPRO+3, GOPRO+5
    DTOUT RFLX+3~, RFLX+6
    DUOUT RFLX+3~, RFLX+6
    I NLT+1~, NLT+9*, NLT+10, NLT+16
    LRAA UPDOR+9~, WORK+5*, WORK+13, BLRSB+3*
    >> LRAD BLRSB+2*
    >> LRAN BLRSB+4*
    LRBEA SET+1~, SET+2*, SET+3, SET+4, SDG1+2~, SDG1+4*, SDG1+6, SDG1+7
    LRBEAA BLRSB+1~, BLRSB+3*, BLRSB+5, BLRSB+6, GEPRO~, GEPRO+2
    LRBEAD BLRSB+1~, BLRSB+2*, BLRSB+5
    LRBEAN BLRSB+1~, BLRSB+4*, BLRSB+5
    LRBEAR UPDOR+8~, WORK+8!, WORK+11, SDG1~
    LRBEAR( SET+3*, SET+4*, SDG1+4, SDG1+6, SDG1+7
    LRBEAR60 GCPT+1~
    LRBEAR60( GCPT+4, GCPT+5, GCPT+6
    LRBEAX GCPT+1~, GCPT+9*, GCPT+10*, GCPT+11, GCPT+12
    LRBECDT GPRO~, SP60, HCPCS+3, NLT+13, NLT+15, SPCPT+3, GCPT~, GCPT+7, GCPT+10
    >> LRBECPT PANEL+3*, HCPCS+1*, HCPCS+2, HCPCS+3*, HCPCS+4*, HCPCS+5, NLT+14*, NLT+15, NLT+16, NLT+17
    , NLT+18, NLT+19, SPCPT+1*, SPCPT+2, SPCPT+3*, SPCPT+4, GCPT+2*
    >> LRBECPT( SP60, HCPCS+5*, NLT, NLT+9, NLT+16*, NLT+17, NLT+18*, NLT+19!, SPCPT, SPCPT+4*
    , GCPT+12*
    LRBEDAT CHKINP~, CHKINP+6
    LRBEDFN UPDOR+8~, UPDOR+12*, UPDOR+18
    >> LRBEDMSG DEFAULT+2*, DEFAULT+7*, DEFAULT+8*, DEFAULT+9*, DEFAULT+10
    LRBEDN GPRO~, GPRO+4
    LRBEEMS EMSG+1~, EMSG+4*, EMSG+5
    LRBEFIL SDG1+2~, SDG1+3*, SDG1+9, SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14, SDG1+15, SDG1+16
    , SDG1+17, SDG1+18
    LRBEFND WORK+1~, WORK+2*, WORK+5*, WORK+12
    LRBEIDT BLRSB+1~, BLRSB+7*
    LRBEIEN PANEL+1~, GCPT+1~, GCPT+2*, GCPT+3, UPDOR+8~, UPDOR+11*, UPDOR+12, UPDOR+13, UPDOR+14, UPDOR+15
    , UPDOR+16, WORK+4, WORK+6, WORK+9, SDG1+2~, SDG1+8*, SDG1+9, SDG1+10, SDG1+11, SDG1+12
    , SDG1+13, SDG1+14, SDG1+15, SDG1+16, SDG1+17, SDG1+18
    LRBEIEN2 BLRSB+1~, BLRSB+5*, BLRSB+7
    LRBEIENT BLRSB~, BLRSB+2, BLRSB+3, BLRSB+4
    LRBENLT PANEL+1~, NLT+1~, NLT+2*, NLT+3, NLT+4, NLT+10*, NLT+11, NLT+12
    LRBEODT KILL~
    LRBEPDGX SDG1+2~, SDG1+5*, SDG1+6*, SDG1+7, SDG1+9
    LRBEPRO GEPRO+1~, GEPRO+2*, GEPRO+3*, GEPRO+4, GOPRO+1~, GOPRO+2*, GOPRO+3*, GOPRO+5*, GOPRO+6
    >> LRBEPTDT SDG1+7*, SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14, SDG1+15, SDG1+16, SDG1+17, SDG1+18
    LRBERES WORK+1~, WORK+13*
    LRBERMS UPDOR+8~, UPDOR+10*, UPDOR+16, UPDOR+17*, UPDOR+18, UPDOR+19*, UPDOR+21, WORK+12*
    LRBESB BLRSB+1~
    LRBESN KILL~
    LRBESPC GPRO~, PANEL+2
    LRBESS BLRSB+1~, BLRSB+6*
    LRBET BLRSB+1~, BLRSB+14*, BLRSB+15
    LRBETN UPDOR+8~, WORK+2*, WORK+3*, WORK+4, WORK+6, WORK+8, WORK+9, WORK+10, WORK+11, KILL~
    , KILL+2, SDG1~, SDG1+3, SDG1+8
    LRBETNM WORK+1~, WORK+7*, WORK+8
    LRBETNUM SDG1+2~, SDG1+3*, SDG1+8, SDG1+9, SDG1+19*
    LRBETST GPRO~, GPRO+6*, SP60, HCPCS+1, HCPCS+5, NLT, NLT+2, NLT+9, NLT+16, NLT+17
    , NLT+18, NLT+19, SPCPT, SPCPT+1, SPCPT+4, GCPT~, GCPT+2, GCPT+12, WORK+1~, WORK+6*
    , WORK+7, WORK+8, WORK+9, BLRSB~, BLRSB+8, BLRSB+12, BLRSB+13, BLRSB+14, BLRSB+19
    LRBETYP UPDOR+8~, EMSG~, EMSG+2, EMSG+3
    LRBETYPN EMSG+1~, EMSG+2*, EMSG+3*, EMSG+4
    LRBEVST UPDOR+9~, UPDOR+20*, WORK+13
    LRBEY UPDOR+9~, WORK+9, WORK+13, BLRSB~
    LRBEY( BLRSB+12*, BLRSB+19*
    LRBEZ WORK+1~, WORK+13
    LRBEZ( WORK+8*
    >> LRCDEF NLT+7
    LRD DEFAULT+1~, DEFAULT+4*, DEFAULT+5, DEFAULT+6, DEFAULT+7, DEFAULT+8, DEFAULT+9
    >> LRDBEDGX DEFAULT+2*, DEFAULT+6*
    >> LRDBUG DEFAULT+10
    LRDFN UPDOR+8~, UPDOR+12*, BLRSB+9, BLRSB+16, CHKINP~, CHKINP+3, CHKINP+4
    >> LRDPF CHKINP+4*, CHKINP+5
    LRERR SDG1+2~
    LRFDA SDG1+2~
    LRFDA(99 SDG1+9*, SDG1+10*, SDG1+11*, SDG1+12*, SDG1+13*, SDG1+14*, SDG1+15*, SDG1+16*, SDG1+17*, SDG1+18*
    LRFDAIEN SDG1+2~
    LRFDAIEN( SDG1+9*
    LRI PANEL+3*, HCPCS+5*, NLT+16*, NLT+17, NLT+18, NLT+19*, SPCPT+4*, GCPT+2*, GCPT+12*, UPDOR+2~
    , UPDOR+5*, UPDOR+6, DEFAULT+1~, DEFAULT+3*, DEFAULT+4
    >> LRIDT BLRSB+7*, BLRSB+9, BLRSB+16
    LRLLOC UPDOR+9~, UPDOR+14*
    LRLNOW UPDOR+2~, UPDOR+3*, UPDOR+4, UPDOR+6
    LRN PANEL+1~, NLT+1~, NLT+11*, NLT+12
    LRNM NLT+1~, NLT+4*, NLT+5, NLT+6, NLT+7, NLT+8
    LRNM( NLT+9, NLT+10, NLT+16
    LRNM(1 NLT+5*
    LRNM(2 NLT+7*
    LRNM(3 NLT+8*
    LRODT UPDOR+8~, UPDOR+10*, UPDOR+11, UPDOR+20, WORK+3, WORK+10, WORK+11, WORK+13, KILL+2, SDG1~
    , SDG1+3, SDG1+8, DEFAULT+3, DEFAULT+4, GOPRO~, GOPRO+2
    LRORD UPDOR+8~, UPDOR+10*, UPDOR+16
    LRSAMP UPDOR+9~, UPDOR+13*
    LRSB UPDOR+9~, WORK+9, BLRSB~
    LRSB( BLRSB+9*, BLRSB+10!, BLRSB+11!, BLRSB+16*, BLRSB+17!, BLRSB+18!
    LRSN UPDOR+8~, UPDOR+11*, UPDOR+20, WORK+3, WORK+10, WORK+11, WORK+13, KILL+2, SDG1~, SDG1+3
    , SDG1+8, DEFAULT+3, DEFAULT+4, GOPRO~, GOPRO+2
    LRSPEC PANEL+2*, SP60, GCPT~, GCPT+2, UPDOR+9~, UPDOR+15*
    >> LRSS BLRSB+6*, BLRSB+9, BLRSB+16
    LRX NLT+1~, NLT+12*, NLT+13, NLT+14, DEFAULT+1~
    LRY DEFAULT+1~
    NX BLRSB+1~, BLRSB+13*, BLRSB+14
    ORDX UPDOR~, WORK+10, SET~
    ORDX( UPDOR+5, UPDOR+6, SET+2, SET+3, SET+4
    ORDX(0 UPDOR+7
    ORIEN UPDOR~, UPDOR+4, WORK+4, WORK+13
    ORITEM UPDOR~, UPDOR+4, UPDOR+10, UPDOR+11
    ORSCEI UPDOR~, UPDOR+4, UPDOR+7, WORK+10, SET~, SET+3
    SUFX NLT+1~, NLT+6*, NLT+7, NLT+8
    TDAT SCPT~, SCPT+1
    U HCPCS+4, HCPCS+5, NLT+4, NLT+13, NLT+15, SPCPT+3, GCPT+11, GCPT+12, UPDOR+4, SET+4
    , SDG1+10, SDG1+11, SDG1+12, SDG1+13, SDG1+14, SDG1+15, SDG1+16, SDG1+17, SDG1+18, BLRSB+8
    , BLRSB+11, BLRSB+15, BLRSB+18, DEFAULT+7, DEFAULT+8, DEFAULT+9
    VAIN CHKINP+1~
    VAIN(1 CHKINP+7
    VAINDT CHKINP+1~, CHKINP+6*
    X GPRO+4*, PANEL+1~, GCPT+1~, GCPT+8*, GCPT+9, GEPRO+1~, GOPRO+1~, GOPRO+4*, GOPRO+5
    XX GCPT+1~, GCPT+7*, GCPT+8, BLRSB+1~, BLRSB+8*, BLRSB+9, BLRSB+10, BLRSB+11, BLRSB+12, BLRSB+15*
    , BLRSB+16, BLRSB+17, BLRSB+18, BLRSB+19
    Y GPRO+4*, GPRO+5, GPRO+6, PANEL+1~, RFLX+3~, RFLX+7, GOPRO+1~
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All