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 |