©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
LRBEBA ;DALOI/JAH/FHS - SCI, EI, AND LRBEDGX QUESTIONS ; 17-Oct-2014 09:22 ; MKK
Source file <LRBEBA.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 6 | EN^DDIOL (,$$FIND1)^DIC UPDATE^DIE ^DIK $$GET1^DIQ ^DIR |
| Lab Service | 3 | ($$GMOD,SOP,STDN)^LRBEBA2 BLDAR^LRBEBA3 (OPORD,OPRES)^LRBEBAO |
| DRG Grouper | 2 | $$ICDDX^ICDEX $$CPT^ICPTCOD |
| IHS Changes To Lab | 2 | SETDICSD^BLRICDU0 $$MODEXIST^BLRUTIL4 |
| Scheduling | 1 | CL^SDCO21 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GCDT(LRODT,LRSN) | ; Get the collection date/time
|
|
| BAWRK(LRODT,LRSN,LRI,LRBEY,LRTEST,LRBEDEL,LRBEVST,LRBEROLL,ORIEN) | ; Send the Billing Information to PCE
|
|
| QUES(LRBEDFN,LRBESMP,LRBESPC,TST,DT,LRBEAR,LRBEDP) | ; Start asking questions
|
|
| KILL | ;
|
|
| SDG1(LRODT,LRSN,LRTN,LRSAMP,LRSPEC,LRTSTS,LRBEAR) | ; Set the diagnois
; and indicators file #69 |
|
| GETI(LRBEA) | ; Get type of Indicator
|
|
| CCPT(LRBECPT,LRBECDT,LRBEAR) | ; Check the status of the CPT (CSV)
|
|
| SCI(LRBEDFN,LRBECDT,LRBEQT) | ; Ask the Indicator Questions
|
|
| EMSGCPT(LRBEAR) | ; Print out Inactive CPTs
|
|
| ERRMSG(MT) | ; Display Error Message
|
|
| GEDT(LRODT,LRSN,LRBETST) | ; Get the Date of Service
|
|
| SDOS(LRODT,LRSN,LRTN,LRBECDT) | ; Set DOS for CIDC
|
| Name | Field # of Occurrence |
|---|---|
| SETDICSD^BLRICDU0 | QUES+7 |
| $$MODEXIST^BLRUTIL4 | BAWRK+1 |
| EN^DDIOL | ERRMSG+6, EMSGCPT+6, EMSGCPT+12, EMSGCPT+13, BAWRK+13 |
| ^DIC | QUES+12, GEDT+5 |
| $$FIND1^DIC | BAWRK+11 |
| UPDATE^DIE | SDG1+31, SDOS+3 |
| ^DIK | SDG1+6 |
| $$GET1^DIQ | SDG1+10, BAWRK+18, BAWRK+21, BAWRK+24, GEDT+3, GEDT+7, GCDT+4 |
| ^DIR | SCI+11 |
| $$ICDDX^ICDEX | QUES+17 |
| $$CPT^ICPTCOD | CCPT+14 |
| $$GMOD^LRBEBA2 | BAWRK+19 |
| SOP^LRBEBA2 | BAWRK+32 |
| STDN^LRBEBA2 | BAWRK+31 |
| BLDAR^LRBEBA3 | BAWRK+30 |
| OPORD^LRBEBAO | BAWRK+34 |
| OPRES^LRBEBAO | BAWRK+35 |
| CL^SDCO21 | SCI+6 |
| FileNo | Call Tags |
|---|---|
| ^LAB(60 - [#60] | GET1^DIQ |
| ^LR - [#63] | GET1^DIQ |
| ^LRO(68 - [#68] | GET1^DIQ |
| 69.01 | GET1^DIQ |
| 69.03 | GET1^DIQ |
| ^LAB(69.9 - [#69.9] | GET1^DIQ |
| ^ICD9 - [#80] | Classic Fileman Calls |
| ^DIC(9.4 - [#9.4] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LRO(69 - [#69] | SDG1+5, SDG1+12, BAWRK+23, BAWRK+27 |
| ^TMP("LRPXAPI" | BAWRK+6!, KILL+1! |
| Name | Line Occurrences |
|---|---|
| $$GETI | SCI+10 |
| KILL | BAWRK+29, BAWRK+30, BAWRK+31, BAWRK+32 |
| SCI | QUES+20 |
| SDOS | BAWRK+28 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNAM | EMSGCPT+1~, EMSGCPT+9*, EMSGCPT+10 |
| CNT | BAWRK+7~ |
| D0 | BAWRK+7~ |
| DA | SDG1+3~, SDG1+6*, SDG1+7!, BAWRK+7~ |
| >> DFN | SDG1+10, SDG1+11, BAWRK+21*, BAWRK+22 |
| DIC | QUES+1~, QUES+12*, QUES+13!, QUES+14!, SCI+12!, BAWRK+7~, GEDT+1~, GEDT+4*, GEDT+5! |
| DIC("A" | QUES+11* |
| DIC(0 | QUES+12*, GEDT+5* |
| DIE | BAWRK+7~ |
| DIK | SDG1+3~, SDG1+4*, SDG1+7! |
| DIR | QUES+1~, SCI+1~, BAWRK+7~ |
| DIR("A" | SCI+10* |
| DIR(0 | SCI+11* |
| DIRUT | QUES+1~, SCI+1~ |
| DT | QUES~, QUES+7, QUES+20 |
| DTOUT | QUES+1~, QUES+13, SCI+1~, SCI+12 |
| DUOUT | QUES+1~, QUES+13, SCI+1~, SCI+12 |
| ERRDIS | KILL+4! |
| I | SCI+1~, SCI+8*, BAWRK+7~, BAWRK+25*, BAWRK+26 |
| INROOT | KILL+4! |
| >> LRAA | BAWRK+18, BAWRK+19 |
| LRBEA | SCI+1~, SCI+8*, SCI+9, SCI+10, SCI+14, SCI+15, GETI~, GETI+3, GETI+4, GETI+5 , GETI+6, GETI+7, GETI+8, GETI+9, GETI+10 |
| LRBEALO | QUES+2*, QUES+11, QUES+19, QUES+20*, QUES+21! |
| LRBEAR | QUES~, QUES+13!, SCI+12!, SDG1~, CCPT~, EMSGCPT~, BAWRK+6!, BAWRK+14~, BAWRK+30, BAWRK+35 , KILL+2! |
| LRBEAR( | QUES+18*, QUES+19*, SCI+5*, SCI+14*, SDG1+13, SDG1+14, SDG1+30!, CCPT+16*, EMSGCPT+7, EMSGCPT+8 , EMSGCPT+9 |
| LRBEAR1 | BAWRK+6!, BAWRK+35, KILL+2! |
| LRBEASK | EMSGCPT+1~ |
| LRBEAST | ERRMSG+1~, ERRMSG+4*, ERRMSG+5, EMSGCPT+3*, EMSGCPT+4 |
| LRBEB | SCI+1~, SCI+4*, SCI+5 |
| LRBEBL | SCI+1~, SCI+3*, SCI+4, SCI+5 |
| LRBECDT | SCI~, SCI+6, SDOS~, SDOS+2, CCPT~, CCPT+14, BAWRK+14~, BAWRK+24*, BAWRK+28, GCDT+1~ , GCDT+2*, GCDT+4*, GCDT+5 |
| LRBECLY | SCI+1~, SCI+6 |
| LRBECLY( | SCI+9 |
| LRBECPT | CCPT~, CCPT+14, CCPT+16, EMSGCPT+1~, EMSGCPT+7*, EMSGCPT+8, EMSGCPT+9, EMSGCPT+10, BAWRK+6!, BAWRK+33 , KILL+5! |
| LRBEDEL | BAWRK~, BAWRK+20*, BAWRK+30, KILL+2! |
| LRBEDFN | QUES~, QUES+18, QUES+19, QUES+20, SCI~, SCI+5, SCI+6, SCI+14, SDG1+2~, SDG1+10* , SDG1+11*, SDG1+13, SDG1+14, SDG1+30, BAWRK+14~, BAWRK+22*, BAWRK+30, BAWRK+32 |
| LRBEDGX | QUES+15*, QUES+18, QUES+19, SCI+2, SCI+3, SCI+4, SCI+5, SCI+14, SCI+15, KILL+3! |
| LRBEDIA | KILL+2! |
| LRBEDN | KILL+3! |
| LRBEDP | QUES~ |
| LRBEDP( | SCI+2, SCI+3, SCI+4, SCI+15* |
| LRBEDT | BAWRK+24*, KILL+2! |
| LRBEEDT | GEDT+1~, GEDT+2*, GEDT+7*, GEDT+8 |
| LRBEFIL | SDG1+2~, SDG1+12*, SDG1+19, SDG1+20, SDG1+21, SDG1+22, SDG1+23, SDG1+24, SDG1+25, SDG1+26 , SDG1+27, SDG1+28 |
| LRBEFMSG | QUES+1~, QUES+10*, QUES+11 |
| LRBEFMT | ERRMSG+1~, ERRMSG+4*, ERRMSG+6, EMSGCPT+1~, EMSGCPT+3*, EMSGCPT+6, EMSGCPT+12, EMSGCPT+13 |
| LRBEIEN | SDG1+2~, SDG1+17*, SDG1+19, SDG1+20, SDG1+21, SDG1+22, SDG1+23, SDG1+24, SDG1+25, SDG1+26 , SDG1+27, SDG1+28, SDOS+1~, SDOS+2*, KILL+3!, GEDT+1~, GEDT+6*, GEDT+7, GCDT+1~, GCDT+3* , GCDT+4 |
| LRBELIN | ERRMSG+1~, ERRMSG+5*, ERRMSG+6, EMSGCPT+1~, EMSGCPT+4*, EMSGCPT+6, EMSGCPT+13 |
| LRBEMOD | BAWRK+15~, BAWRK+19*, KILL+3! |
| LRBEMS | ERRMSG+1~, ERRMSG+2*, ERRMSG+3*, ERRMSG+4*, ERRMSG+5, ERRMSG+6, EMSGCPT+1~, EMSGCPT+3*, EMSGCPT+4, EMSGCPT+6 , EMSGCPT+11 |
| LRBEMS2 | EMSGCPT+1~, EMSGCPT+5*, EMSGCPT+6, EMSGCPT+13 |
| LRBEMS3 | EMSGCPT+1~, EMSGCPT+10*, EMSGCPT+11*, EMSGCPT+12 |
| LRBEMSG | EMSGCPT+1~, EMSGCPT+2*, EMSGCPT+3, EMSGCPT+5, BAWRK+8~ |
| LRBENO | BAWRK+15~, BAWRK+29, BAWRK+30, BAWRK+31, BAWRK+32, BAWRK+34 |
| LRBEP | SDG1+3~, SDG1+9*, SDG1+15, SDG1+16* |
| LRBEPAN | BAWRK+8~, BAWRK+30, BAWRK+32 |
| LRBEPDGX | SDG1+2~, SDG1+12*, SDG1+13*, SDG1+14, SDG1+19, SDG1+30* |
| LRBEPOS | KILL+2! |
| LRBEPTDT | SDG1+14*, SDG1+15, SDG1+20, SDG1+21, SDG1+22, SDG1+23, SDG1+24, SDG1+25, SDG1+26, SDG1+27 , SDG1+28, SDG1+30, CCPT+12~, CCPT+14*, CCPT+15, CCPT+16, KILL+3! |
| LRBEQT | QUES+1~, QUES+2*, QUES+3, QUES+13*, QUES+14*, QUES+20, SCI~, SCI+8, SCI+9, SCI+12* , SCI+13* |
| LRBEQUES | GETI+1~, GETI+2*, GETI+3, GETI+4, GETI+6, GETI+7, GETI+8, GETI+9, GETI+10 |
| LRBEQUS1 | GETI+1~, GETI+2*, GETI+5 |
| LRBERES | KILL+3! |
| LRBEROLL | BAWRK~, BAWRK+32, KILL+5 |
| LRBESB | BAWRK+8~, BAWRK+17*, BAWRK+32 |
| LRBESEG | SCI+1~, SCI+7*, SCI+8 |
| LRBESEQ | BAWRK+8~ |
| LRBESMP | QUES~, QUES+18, QUES+19, SCI+5, SCI+14, KILL+3! |
| LRBESP | EMSGCPT+1~, EMSGCPT+4*, EMSGCPT+5, EMSGCPT+10, EMSGCPT+11 |
| LRBESPC | QUES~, QUES+18, QUES+19, SCI+5, SCI+14, KILL+3! |
| LRBEST | QUES+1~, QUES+2*, QUES+13*, QUES+22, SCI+12*, CCPT+12~, CCPT+13*, CCPT+15*, CCPT+16, CCPT+17 |
| LRBETEST | BAWRK+8~, BAWRK+16*, BAWRK+30, BAWRK+31 |
| LRBETEST( | BAWRK+25, BAWRK+26 |
| LRBETM | KILL+3! |
| LRBETNUM | SDG1+2~, SDG1+12*, SDG1+17, SDG1+18, SDG1+29* |
| LRBETST | BAWRK+8~, BAWRK+26*, BAWRK+27, GEDT~, GEDT+3 |
| LRBETYP | BAWRK+14~ |
| LRBEU | BAWRK+14~ |
| LRBEVSIT | KILL+2! |
| LRBEVST | BAWRK~, BAWRK+23*, BAWRK+35, KILL+3! |
| LRBEX | GETI+1~, GETI+3*, GETI+4*, GETI+5*, GETI+6*, GETI+7*, GETI+8*, GETI+9*, GETI+10*, GETI+11 , BAWRK+14~ |
| LRBEY | BAWRK~, BAWRK+30, BAWRK+31, BAWRK+32, KILL+5! |
| LRBEZ | BAWRK+14~ |
| >> LRCHG | BAWRK+5 |
| LRDA | SDG1+3~, SDG1+5*, SDG1+6 |
| LRDBEDGX | BAWRK+8~ |
| >> LRDFN | SDG1+10, BAWRK+21 |
| LRERR | SDG1+2~, SDOS+1~ |
| LRFDA | SDG1+2~, SDOS+1~ |
| LRFDA(99 | SDG1+19*, SDG1+20*, SDG1+21*, SDG1+22*, SDG1+23*, SDG1+24*, SDG1+25*, SDG1+26*, SDG1+27*, SDG1+28* , SDOS+2* |
| LRFDAIEN | SDG1+2~ |
| LRFDAIEN( | SDG1+18* |
| LRI | BAWRK~, BAWRK+15~ |
| LRNOP | BAWRK+8~ |
| LRODT | SDG1~, SDG1+4, SDG1+5, SDG1+12, SDG1+17, SDOS~, SDOS+2, BAWRK~, BAWRK+23, BAWRK+24 , BAWRK+27, BAWRK+28, BAWRK+30, BAWRK+31, BAWRK+35, GEDT~, GEDT+4, GEDT+6, GCDT~, GCDT+3 |
| LROOS | BAWRK+15~, BAWRK+18*, KILL+3! |
| LRPCECNT | BAWRK+15~ |
| LRPKG | BAWRK+10, BAWRK+11*, BAWRK+12, KILL+2! |
| LRSAMP | SDG1~, SDG1+13, SDG1+14, SDG1+30 |
| >> LRSB | BAWRK+17 |
| LRSN | SDG1~, SDG1+4, SDG1+5, SDG1+12, SDG1+17, SDOS~, SDOS+2, BAWRK~, BAWRK+23, BAWRK+24 , BAWRK+27, BAWRK+28, BAWRK+30, BAWRK+31, BAWRK+35, GEDT~, GEDT+4, GEDT+6, GCDT~, GCDT+3 |
| LRSPEC | SDG1~, SDG1+13, SDG1+14, SDG1+30 |
| LRTEST | BAWRK~, BAWRK+16 |
| LRTMP | QUES+1~, QUES+15*, QUES+17*, QUES+18 |
| LRTN | SDG1~, SDG1+4, SDG1+5, SDG1+12, SDG1+17, SDOS~, SDOS+2, BAWRK+8~, BAWRK+27*, BAWRK+28 |
| LRTSTS | SDG1~, SDG1+13, SDG1+14, SDG1+30 |
| LRVN | BAWRK+9~ |
| LRX | BAWRK+8~ |
| MT | ERRMSG~, ERRMSG+2, ERRMSG+3 |
| ORIEN | BAWRK~ |
| PXBREQ | BAWRK+9~ |
| PXKDONE | BAWRK+9~ |
| SRC | KILL+4! |
| SUB1 | KILL+4! |
| SUB2 | KILL+4! |
| SUB3 | KILL+4! |
| T | BAWRK+7~ |
| TST | QUES~, QUES+18, QUES+19, SCI+5, SCI+14 |
| U | QUES+15, QUES+17, QUES+19, SCI+3, SCI+4, SCI+5, SCI+14, SCI+15, SDG1+15, SDG1+20 , SDG1+21, SDG1+22, SDG1+23, SDG1+24, SDG1+25, SDG1+26, SDG1+27, SDG1+28, SDG1+30, CCPT+15 , CCPT+16, EMSGCPT+8, EMSGCPT+9, BAWRK+26 |
| USR | BAWRK+15~, KILL+4! |
| VADM | BAWRK+7~ |
| VAIN | BAWRK+7~ |
| X | QUES+1~, BAWRK+15~, GEDT+1~, GEDT+3* |
| X1 | BAWRK+7~ |
| X2 | BAWRK+7~ |
| X3 | BAWRK+7~ |
| X9 | BAWRK+7~ |
| Y | QUES+1~, QUES+14, QUES+15, SCI+1~, SCI+13, SCI+14, SCI+15, BAWRK+15~, GEDT+1~, GEDT+5 , GEDT+6 |
| Y(0 | QUES+15 |
| Z | BAWRK+7~ |
| Z1 | BAWRK+7~ |
| Z2 | BAWRK+7~ |