LEXTRAN ;ISL/KER - Lexicon code and text wrapper API's ;04/21/2014
Source file <LEXTRAN.m>
| Package | Total | Caller Graph |
|---|---|---|
| Lab Service | 1 | LRSRVR6 |
| Lexicon Utility | 1 | LEXU3 |
| Problem List | 1 | GMPLUTL2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VERSION(SRC,CODE,VDT) | ; Get the Code Version Number
|
|
| TXT4CS(TEXT,SRC,LEXRAY,SUB) | ; Is text valid for an SCT code
|
|
| GETINFO | ; Get Information for a Code
|
|
| INTDAT(X) | ; Convert date from external format to VA internal format
|
|
| CSYSMNEM(SIEN) | ; Return code system mnemonic for IEN
|
|
| CSYSIEN(MNEM) | ; Return code system IEN for mnemonic
|
|
| CODE(CODE,SRC,CDT,LEXRAY) | ; Get the Concept for a Code and Source
|
|
| TEXT(TEXT,CDT,SUB,SRC,LEXRAY) | ; Get the Concept for a text and source
; ; Input ; ; TEXT The search string (required) ; CDT Effective date (optional, default is TODAY) ; SUB Subset or 'hierarchy' (optional) ; SRC Code System source abbreviation ; LEXRAY Output array (optional, defaults to 'LEX') ; ; Output ; ; LEX or passed array name - an array containing information ; about the code ; LEX(0) - a five piece string: ; 1. code ; 2. hierarchy ; 3. version ; 4. legacy code ; 5. code status ; ; LEX("F") fully specified name ^ internal entry number ; LEX("P") preferred term ^ internal entry number ; LEX("S",n) synonyms (n is the nth synonym) ^ internal entry number ; ; otherwise ; "-1^error text" ; ; example of LEX array: ; LEX(0)="67922002^Substance^20050701^T-C2500^1" ; LEX("F")="Serum (Substance)" ; LEX("P")="Serum" ; |
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | INTDAT+2 |
| $$GET1^DIQ | GETINFO+4 |
| INFO^LEXA | TEXT+50 |
| EN^LEXA1 | TEXT+47 |
| CONFIG^LEXSET | TEXT+46 |
| $$STATCHK^LEXSRC2 | CODE+69, TEXT+57, VERSION+23 |
| $$GETSYN^LEXTRAN1 | GETINFO+3 |
| $$CSYS^LEXU | CODE+50, CODE+58, VERSION+21, CSYSIEN+2, CSYSMNEM+1 |
| VDT^LEXU | CODE+52 |
| $$CSYS^LEXU3 | TEXT+36 |
| $$DT^XLFDT | CODE+55, TEXT+40, VERSION+18 |
| $$UP^XLFSTR | TXT4CS+35, TXT4CS+38, TXT4CS+39 |
| FileNo | Call Tags |
|---|---|
| ^LEX(757.02 - [#757.02] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LEX(757.01 - [#757.01] | TXT4CS+35, TXT4CS+38, TXT4CS+39, TXT4CS+45, TXT4CS+60 |
| ^LEX(757.011 - [#757.011] | TXT4CS+60 |
| ^LEX(757.02 - [#757.02] | CODE+64, CODE+65, TXT4CS+47, TXT4CS+48, TXT4CS+49, TXT4CS+60, TXT4CS+61 |
| ^LEX(757.03 - [#757.03] | CODE+59, TEXT+37, VERSION+22, VERSION+25, VERSION+26, VERSION+27, CSYSMNEM+2, CSYSMNEM+3 |
| ^LEXT(757.2 - [#757.2] | TXT4CS+32, TXT4CS+55 |
| ^TMP("LEXSCH" | CODE+51, CODE+68!, TEXT+44! |
| Name | Line Occurrences |
|---|---|
| $$CODE | TXT4CS+53 |
| $$CSYSIEN | TXT4CS+29 |
| $$CSYSMNEM | TXT4CS+29, TXT4CS+33, TXT4CS+48 |
| $$INTDAT | CODE+53, TEXT+38, VERSION+16 |
| $$VERSION | GETINFO+6 |
| GETINFO | CODE+72, CODE+75, TEXT+59 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | CODE+51 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | INTDAT+1~ |
| CDT | CODE~, CODE+47, TEXT~, TEXT+34 |
| CIEN | TXT4CS+26~, TXT4CS+47*, TXT4CS+48, TXT4CS+49, TXT4CS+60, TXT4CS+61 |
| CODE | CODE~, CODE+47, VERSION~, VERSION+15, TXT4CS+26~, TXT4CS+49*, TXT4CS+53, TXT4CS+59, TXT4CS+61 |
| CODEC | TXT4CS+26~, TXT4CS+59*, TXT4CS+61 |
| DIC | TEXT+33~ |
| EXIEN | TXT4CS+26~, TXT4CS+37*, TXT4CS+38*, TXT4CS+39, TXT4CS+41*, TXT4CS+44*, TXT4CS+45 |
| EXP | TXT4CS+26~ |
| EXP( | TXT4CS+39*, TXT4CS+44 |
| EXPTYP | TXT4CS+26~, TXT4CS+60*, TXT4CS+61 |
| FINDS | TXT4CS+26~, TXT4CS+43*, TXT4CS+58*, TXT4CS+64 |
| FOUND | TXT4CS+26~, TXT4CS+43*, TXT4CS+57*, TXT4CS+64 |
| HIER | TXT4CS+26~, TXT4CS+50*, TXT4CS+54*, TXT4CS+56 |
| HIERNAM | TXT4CS+26~, TXT4CS+50*, TXT4CS+55*, TXT4CS+56 |
| I | GETINFO+1~ |
| LAR | TXT4CS+26~, TXT4CS+52!, TXT4CS+53* |
| LAR(0 | TXT4CS+54 |
| LEX | CODE+67!, CODE+73!, CODE+76!, GETINFO+3*, TEXT+33!, TEXT+44!, TEXT+60!, TXT4CS+62*, TXT4CS+63! |
| LEX("F" | GETINFO+5, GETINFO+9 |
| LEX("SEL" | GETINFO+10!, TEXT+52, TEXT+53, TEXT+54, TEXT+55 |
| LEX(0 | GETINFO+7*, GETINFO+8* |
| LEXASAB | CODE+57~, CODE+61*, CODE+65 |
| LEXCIEN | CODE+57~, CODE+62*, CODE+63, CODE+64*, CODE+65, GETINFO+4, TEXT+43~, TEXT+56*, TEXT+58* |
| LEXCODE | CODE+47~*, CODE+48, CODE+64, CODE+66, CODE+69, CODE+70, CODE+77, GETINFO+3, GETINFO+6, GETINFO+7 , TEXT+43~, TEXT+51*, TEXT+53*, TEXT+54, TEXT+55*, TEXT+56, TEXT+57, VERSION+15~*, VERSION+23 |
| LEXFSN | GETINFO+1~ |
| LEXHIER | GETINFO+1~, GETINFO+5*, GETINFO+7, GETINFO+9* |
| LEXID | TEXT+33~, TEXT+52*, TEXT+53 |
| LEXIEN | CSYSIEN+1~, CSYSIEN+2* |
| LEXLGY | GETINFO+1~, GETINFO+4*, GETINFO+8 |
| LEXNOM | TEXT+33~, TEXT+36*, TEXT+37*, TEXT+51, TEXT+52 |
| LEXPIEN | CODE+57~, CODE+71*, CODE+74*, TEXT+43~, TEXT+49*, TEXT+50, TEXT+61 |
| LEXRAY | CODE~, CODE+56!, CODE+73, CODE+76, TEXT~, TEXT+42!, TEXT+60, TXT4CS~, TXT4CS+30!, TXT4CS+63 |
| LEXSCNM | CODE+57~, CODE+60*, CODE+66, CODE+70 |
| LEXSEP | GETINFO+1~ |
| LEXSIEN | CODE+57~, CODE+58*, CODE+59 |
| LEXSRC | CODE+47~*, CODE+49*, CODE+50, CODE+58, CODE+69, GETINFO+2*, GETINFO+3, GETINFO+6, TEXT+33~, TEXT+34* , TEXT+36*, TEXT+37, TEXT+41, TEXT+46, TEXT+57, TEXT+58*, VERSION+15~*, VERSION+19*, VERSION+21, VERSION+23 , TXT4CS+25~*, TXT4CS+28, TXT4CS+29, TXT4CS+33*, TXT4CS+48 |
| LEXST | CODE+57~, CODE+59*, CODE+60, CODE+61 |
| LEXSTAT | CODE+57~, CODE+67!, CODE+69*, CODE+70, GETINFO+8, TEXT+43~, TEXT+51*, TEXT+57*, TEXT+58, VERSION+20~ , VERSION+23*, VERSION+24 |
| LEXSTAT(1 | CODE+71, CODE+74 |
| LEXSTAT(2 | TEXT+58 |
| LEXSUB | TEXT+33~, TEXT+34*, TEXT+41*, TEXT+46, TXT4CS+25~*, TXT4CS+31*, TXT4CS+32, TXT4CS+51, TXT4CS+55, TXT4CS+56 |
| LEXTD | TEXT+33~ |
| LEXTEXT | TEXT+33~, TEXT+34*, TEXT+35, TEXT+45, TXT4CS+25~*, TXT4CS+27, TXT4CS+35, TXT4CS+38, TXT4CS+39 |
| LEXVDT | CODE+47~*, CODE+51*, CODE+52, CODE+53*, CODE+54, CODE+55*, CODE+69, CODE+70, GETINFO+3, GETINFO+6 , TEXT+33~, TEXT+34*, TEXT+38*, TEXT+39, TEXT+40*, TEXT+46, TEXT+57, VERSION+15~*, VERSION+16*, VERSION+17 , VERSION+18*, VERSION+23, VERSION+25 |
| LEXVER | GETINFO+1~, GETINFO+6*, GETINFO+7 |
| LEXW | TXT4CS+26~, TXT4CS+42!, TXT4CS+62 |
| LEXW( | TXT4CS+59, TXT4CS+61* |
| MCIEN | TXT4CS+26~, TXT4CS+45*, TXT4CS+47 |
| MNEM | CSYSIEN~, CSYSIEN+1, CSYSIEN+2 |
| N | GETINFO+1~ |
| SIEN | VERSION+20~, VERSION+21*, VERSION+22, VERSION+25, VERSION+26, VERSION+27, CSYSMNEM~, CSYSMNEM+1*, CSYSMNEM+2, CSYSMNEM+3 |
| SRC | CODE~, CODE+47, TEXT~, TEXT+34, VERSION~, VERSION+15, TXT4CS~, TXT4CS+25 |
| SUB | TEXT~, TEXT+34, TXT4CS~, TXT4CS+25 |
| TEXT | TEXT~, TEXT+34, TXT4CS~, TXT4CS+25 |
| U | CODE+60, CODE+61, CODE+71, CODE+74, GETINFO+7, GETINFO+8, TEXT+58, TXT4CS+45, TXT4CS+48, TXT4CS+49 , TXT4CS+54, TXT4CS+55, TXT4CS+60 |
| VALCODE | CODE+57~, CODE+62*, CODE+63, CODE+65*, CODE+66 |
| VDAT | VERSION+20~, VERSION+25*, VERSION+26 |
| VDT | VERSION~, VERSION+15 |
| VIEN | VERSION+20~, VERSION+26*, VERSION+27 |
| X | TEXT+43~, TEXT+45*, INTDAT~ |
| Y | TEXT+43~, TEXT+48, TEXT+49, INTDAT+1~, INTDAT+3 |