©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
LEXQL4 ;ISL/KER - Query - Lookup Code (CPT/MOD) ;04/21/2014
Source file <LEXQL4.m>
| Package | Total | Call Graph |
|---|---|---|
| DRG Grouper | 2 | ($$CPT,$$CPTD)^ICPTCOD $$MOD^ICPTMOD |
| Kernel | 1 | $$UP^XLFSTR |
| Lexicon Utility | 1 | ($$FC,$$FT,$$STY)^LEXQL2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CP | ; $$CPT^ICPTCOD(CODE,DATE)
; ; 1 IEN of code in ^ICPT 1-6 ; 2 CPT Code (.01) 5 ; 3 Versioned Short Name (#61) 1-28 ; 6 Effective Date (#60) 10 (external) ; 7 Status (#60) 6-8 (external) ; 8 Inactivation Date (#60) 10 (external) ; 9 Activation Date (#60) 10 (external) |
|
| PUR | ; Purge for CPT
|
|
| VI(X) | ; Verify Input
|
|
| CM | ; $$MOD(CODE,FORMAT,DATE)
|
|
| NOT(X) | ; Word not to use
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(81.3 - [#81.3] | CM+15, CM+16, CM+19, VI+8, VI+9 |
| ^ICPT - [#81] | CP+17, CP+18, CP+24, CP+25, CP+36 |
| ^ICPT("BA" | VI+5, VI+6 |
| ^TMP("LEXQL" | CP+44*, CP+45*, CM+24*, CM+25* |
| Name | Line Occurrences |
|---|---|
| $$NOT | PUR+3 |
| $$VI | CP+11 |
| PUR | CP+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| LEX | VI+1~*, VI+2, VI+10 |
| LEXC | CP+21~*, CP+26*, CP+27, CP+29~*, CP+31*, CP+34, CP+35~, CP+36*, CP+37*, CP+38 , CP+40, CP+43, CP+44, CP+45, CM+18~, CM+19*, CM+20*, CM+22, CM+23, CM+24 , CM+25, PUR+1~*, PUR+3*, PUR+5 |
| >> LEXCO | CP+10, CP+12*, CP+15, CM+10, CM+13 |
| >> LEXCT | CP+10, CP+11*, CP+12, CP+16, CM+10, CM+14, CM+24*, CM+25 |
| LEXD | CP+29~, CP+35~, CP+36*, CM+18~, CM+19* |
| LEXD( | CP+32, CP+33 |
| LEXDS | CP+35~, CP+42*, CP+43, CM+18~, CM+23* |
| LEXDT | CP+35~, CP+43*, CM+18~, CM+23* |
| LEXE | CP+35~, CP+39*, CP+42, CM+18~, CM+21*, CM+22 |
| LEXF | CP+23~*, CP+25*, CP+26, CP+29~*, CP+33*, CP+34, NOT+1~*, NOT+2*, NOT+3*, NOT+4* , NOT+5*, NOT+6*, NOT+7*, NOT+8*, NOT+9 |
| LEXI | CP+32~*, CP+33 |
| LEXIC | VI+1~, VI+2*, VI+3, VI+5, VI+8 |
| LEXIEN | CP+18~*, CP+25, CP+29, CP+36, CP+44, CP+45, CM+16~*, CM+19, CM+24, CM+25 |
| LEXIO | VI+1~, VI+2*, VI+3, VI+5, VI+8 |
| LEXIX | CP+13~*, CP+14, CP+15, CP+16, CP+17, CP+18, CP+19, CP+20, CP+24, CP+25 , CP+28, CM+11~*, CM+12, CM+13, CM+14, CM+15, CM+16, CM+17 |
| LEXKT | CP+23~ |
| LEXL | PUR+1~*, PUR+2, PUR+4 |
| LEXN | CP+21~*, CP+22, CP+29~*, CP+30*, CP+33, CP+35~, CP+37*, CP+38, CP+42, CP+44 , CP+45, CM+18~, CM+20*, CM+23, CM+24, CM+25, PUR+1~, PUR+2*, PUR+3, PUR+4 , NOT+1~, NOT+2*, NOT+3*, NOT+4*, NOT+5*, NOT+6*, NOT+7* |
| LEXNUM | CP+13~ |
| LEXNUM( | CP+30, PUR+3* |
| LEXNUM(0 | CP+28 |
| LEXO | CP+14~, CP+15*, CP+17*, CP+18, CP+29~*, CM+12~, CM+13*, CM+15*, CM+16 |
| LEXOC | CP+14~, CP+16*, CP+17, CM+12~, CM+14*, CM+15 |
| LEXOK | CP+19~*, CP+27*, CP+34*, CP+35, CM+17~*, CM+18, PUR+3*, PUR+4 |
| LEXOT | CP+23~*, CP+24*, CP+25 |
| LEXS | CP+35~, CP+37*, CP+38, CP+39, CP+42, CM+18~, CM+20*, CM+21, CM+22 |
| LEXSS | CP+35~, CP+42*, CP+44, CP+45, CM+18~, CM+22*, CM+23, CM+24, CM+25 |
| LEXT | CP+21~, CP+22*, CP+23, CP+24, CP+33~*, CP+35~, CP+36*, CP+37, CP+39, CM+18~ , CM+19*, CM+20, CM+21 |
| >> LEXTD | CP+36, CM+19 |
| >> LEXTKNS( | CP+21, CP+22, PUR+1, PUR+2, PUR+4! |
| >> LEXTKNS(0 | CP+19, CP+20, CM+17 |
| LEXTN | CP+35~, CP+41*, CP+44, CP+45, CM+18~, CM+22*, CM+24, CM+25 |
| >> LEXTO | CP+10, CP+15, CM+10, CM+13 |
| LEXTS | CP+35~, CP+40*, CP+41*, CP+43, CM+18~, CM+22*, CM+23 |
| >> LEXTT | CP+10, CP+14, CP+16, CM+10, CM+12, CM+14 |
| >> LEXTTK | CP+27, PUR+5* |
| LEXUC | VI+1~, VI+3*, VI+6, VI+9 |
| LEXUO | VI+1~, VI+3*, VI+6, VI+9 |
| >> LEXVDT | CP+36, CM+19 |
| U | CP+36, CP+37, CP+39, CP+41, CP+44, CP+45, CM+19, CM+20, CM+21, CM+22 , CM+24, CM+25 |
| X | VI~, VI+1, NOT~, NOT+1, NOT+2, NOT+3, NOT+4, NOT+5, NOT+6, NOT+7 , NOT+8 |