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 |