LRBEBA21 ;DALOI/JAH/FHS - PROCESS PANEL CPT CODE ;8/10/04
Source file <LRBEBA21.m>
| Package | Total | Call Graph |
|---|---|---|
| Lab Service | 3 | $$GMOD^LRBEBA2 GDGX^LRBEBA21 PANEL^LRBEBA4 |
| VA Fileman | 3 | ^DIC FILE^DIE $$GET1^DIQ |
| DRG Grouper | 1 | $$MODP^ICPTMOD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GDGX(LRBETST,LRBEDN,LRBEAR,LRBEAR1,LRBEDGX) | ; Set diagnosis LRBEDGX
|
|
| GOREF(LRODT,LRSN,LRBEDN,LRBEAR1,LRORREFN) | ;
|
|
| EN(LRBE21) | ;LRBEAR1(LRBETST,
|
|
| LRSB | ;Set LRBESB(TEST) 13th piece to 1, counted as part of panel.
|
|
| GMOD(LRBEAA,LRBECPT) | ; Get external service modifier
|
| FileNo | Call Tags |
|---|---|
| ^LRO(68 - [#68] | GET1^DIQ |
| 69.03 | GET1^DIQ |
| ^DIC(81.3 - [#81.3] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LR - [#63] | EN+28, LRSB+5 |
| ^LRO(68 - [#68] | EN+30, EN+46 |
| ^LRO(69 - [#69] | EN+10, GOREF+6 |
| Name | Line Occurrences |
|---|---|
| LRSB | EN+78, EN+105 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LRSB+5* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DGX | GDGX+6~*, GDGX+7*, GDGX+8 |
| DIC | GMOD+2~, GMOD+5*, GMOD+6! |
| DIC(0 | GMOD+5* |
| DT | GMOD+10 |
| DUZ | EN+55 |
| ERR | EN+4~ |
| >> LRAA | EN+30, EN+46, EN+54 |
| >> LRAD | EN+30, EN+46 |
| >> LRAN | EN+30, EN+46 |
| LRBE21 | EN~, EN+6*, EN+77*, EN+90*, EN+104*, EN+114*, EN+123* |
| LRBEAA | GMOD~, GMOD+3 |
| LRBEAR | EN+56, GDGX~ |
| LRBEAR( | EN+62*, EN+124!, GDGX+7 |
| LRBEAR1 | EN+56, GDGX~, GOREF~ |
| LRBEAR1( | EN+7, EN+23, EN+25, EN+26, EN+42, EN+55, LRSB+3, GDGX+2, GDGX+3, GOREF+4 , GOREF+5 |
| LRBECDT | EN+5~, EN+15*, EN+16, EN+58 |
| LRBECPT | EN+53*, EN+54, EN+57, EN+61, GMOD~, GMOD+9, GMOD+10 |
| LRBECPT( | EN+51, EN+52, EN+53, EN+61, EN+68!, EN+76, EN+86, EN+90, EN+95!, EN+103 , EN+113, EN+122, EN+124, EN+125! |
| >> LRBEDFN | EN+62, EN+124, GDGX+7 |
| LRBEDGX | EN+56, GDGX~ |
| LRBEDGX( | EN+57, EN+58, EN+59, EN+60, GDGX+4*, GDGX+5, GDGX+8* |
| LRBEDN | EN+55*, EN+56, GDGX~, GDGX+2, GDGX+3, GOREF~, GOREF+5 |
| LRBEEDT | EN+5~ |
| >> LRBEEPRO | EN+58 |
| LRBEESA | GMOD+2~, GMOD+3*, GMOD+4 |
| LRBEIEN1 | GOREF+2~, GOREF+8*, GOREF+9 |
| LRBEMOD | EN+54*, EN+57, GMOD+2~, GMOD+3*, GMOD+7*, GMOD+11*, GMOD+12 |
| >> LRBEOPRO | EN+58 |
| >> LRBEPAN( | EN+9 |
| >> LRBEPOS | EN+55*, EN+58 |
| LRBEPOV | GDGX+1~, GDGX+2*, GDGX+3 |
| LRBEPTDT | GDGX+1~, GDGX+3*, GDGX+4 |
| LRBEQTY | EN+5~, EN+55*, EN+58 |
| >> LRBERES | EN+17, EN+90 |
| >> LRBEROLL | EN+51, EN+67 |
| >> LRBESB( | EN+27, EN+28*, EN+43, LRSB+4* |
| LRBESTG | EN+5~, EN+57*, EN+58*, EN+59*, EN+60*, EN+61*, EN+62 |
| LRBETNUM | GDGX+1~, GDGX+2*, GDGX+4*, GDGX+8* |
| LRBETST | EN+7, EN+9, EN+10, EN+23, EN+25, EN+26, EN+42, EN+51, EN+52, EN+53 , EN+55, EN+56, EN+57, EN+58, EN+59, EN+60, EN+61, EN+62, EN+68, EN+76 , EN+86, EN+90, EN+95, EN+103, EN+113, EN+122, EN+124, EN+125, LRSB+3, GDGX~ , GDGX+2, GDGX+3, GDGX+4, GDGX+5, GDGX+7, GDGX+8, GOREF+2~, GOREF+3*, GOREF+4*, GOREF+5 , GOREF+6 |
| LRBSB | EN+4~, EN+23*, EN+25, EN+26, EN+27, EN+28, EN+42*, EN+43 |
| LRCANC | EN+4~, EN+6*, EN+34*, EN+39, EN+94 |
| >> LRDFN | EN+28, LRSB+5 |
| LRFDA | EN+4~ |
| LRFDA(1 | EN+70*, EN+79*, EN+81*, EN+97*, EN+106*, EN+108*, EN+116*, EN+127* |
| LRI | EN+4~, EN+52*, EN+53, EN+61, EN+62, EN+124* |
| >> LRIDT | EN+23, EN+28, LRSB+5 |
| LRNOP | EN+4~, EN+6*, EN+32*, EN+90, EN+94 |
| LRNOREQ | EN+5~, EN+22*, EN+37*, EN+39, EN+42, EN+48, EN+76, EN+86 |
| LRNP | EN+4~, EN+6*, EN+30*, EN+39, EN+42, EN+46*, EN+94 |
| LRODT | EN+10, EN+12, GOREF~, GOREF+6, GOREF+8 |
| LRORREFN | EN+5~, EN+19*, EN+20, EN+60, GOREF~, GOREF+9*, GOREF+10* |
| LRPCECNT | EN+5~, EN+6*, EN+17*, EN+18 |
| LRPEND | EN+4~, EN+6*, EN+36*, EN+90, EN+103, EN+113, EN+122 |
| >> LRSAMP | GDGX+7 |
| LRSBX | LRSB+2~, LRSB+3*, LRSB+4, LRSB+5 |
| LRSN | EN+10, EN+12, GOREF~, GOREF+6, GOREF+8 |
| >> LRSPEC | GDGX+7 |
| >> LRSS | EN+28, LRSB+5 |
| LRTST | EN+4~, EN+26*, EN+27*, EN+30, EN+43*, EN+46 |
| LRX1 | GOREF+2~, GOREF+6*, GOREF+7, GOREF+8 |
| LRY | EN+4~, EN+10*, EN+11, EN+12*, EN+14!, EN+15, EN+16!, EN+17, EN+18!, EN+19 , EN+20!, EN+64, EN+70, EN+79, EN+81, EN+97, EN+106, EN+108, EN+116, EN+127 |
| MOD | GMOD+2~, GMOD+7*, GMOD+10 |
| OK | EN+4~, EN+41*, EN+44*, EN+48 |
| >> ORIEN | EN+20 |
| STAT | GMOD+2~, GMOD+10*, GMOD+11 |
| U | EN+30, EN+32, EN+34, EN+36, EN+44, EN+46, EN+57, EN+58, EN+59, EN+60 , EN+61, LRSB+4, LRSB+5, GDGX+4, GMOD+7 |
| X | EN+27*, EN+28*, EN+32, EN+34, EN+36, EN+43*, EN+44, GMOD+2~, GMOD+5* |
| Y | GMOD+2~, GMOD+6, GMOD+7 |