LEXTRAN ;ISL/KER - Lexicon code and text wrapper API's ;12/19/2014
Source file <LEXTRAN.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Lab Instruments | 3 | LA7VHLU6 LA7VIN4 LA7VOBX4 |
| Lab Service | 3 | LRSCT LRSRVR6 LRXREF |
| Virtual Patient Record | 2 | VPRSDA VPRSDAG |
| Lexicon Utility | 1 | LEXU5 |
| Problem List | 1 | GMPLUTL2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CODE(CODE,SRC,CDT,LEXRAY,IENS,ID,INC) | ; Get the Concept for a Code and Source
|
|
| GETINFO | ; Get Information for a Code
|
|
| 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" ; |
|
| VERSION(SRC,CODE,VDT) | ; Get the Code Version Number
|
|
| TXT4CS(TEXT,SRC,LEXRAY,SUB) | ; Is text valid for an SCT code
|
|
| CSYSIEN(MNEM) | ; Return code system IEN for mnemonic
|
|
| CSYSMNEM(SIEN) | ; Return code system mnemonic for IEN
|
|
| INTDAT(X) | ; Convert date from external format to VA internal format
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | INTDAT+2 |
| $$GET1^DIQ | GETINFO+4 |
| INFO^LEXA | TEXT+47 |
| EN^LEXA1 | TEXT+46 |
| CONFIG^LEXSET | TEXT+45 |
| $$STATCHK^LEXSRC2 | CODE+87, TEXT+53, VERSION+23 |
| $$GETSYN^LEXTRAN1 | GETINFO+3 |
| $$CSYS^LEXU | CODE+68, CODE+76, TEXT+36, VERSION+21, CSYSIEN+2, CSYSMNEM+1 |
| VDT^LEXU | CODE+70 |
| $$DT^XLFDT | CODE+73, 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+82, CODE+83, TXT4CS+47, TXT4CS+48, TXT4CS+49, TXT4CS+60, TXT4CS+61 |
| ^LEX(757.03 - [#757.03] | CODE+77, 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+69, CODE+86!, TEXT+44! |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | CODE+69 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | INTDAT+1~ |
| CDT | CODE~, CODE+64, TEXT~, TEXT+34 |
| CIEN | TXT4CS+26~, TXT4CS+47*, TXT4CS+48, TXT4CS+49, TXT4CS+60, TXT4CS+61 |
| CODE | CODE~, CODE+64, 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~ |
| ID | CODE~, CODE+66 |
| IENS | CODE~, CODE+66 |
| INC | CODE~, CODE+66 |
| LAR | TXT4CS+26~, TXT4CS+52!, TXT4CS+53* |
| LAR(0 | TXT4CS+54 |
| LEX | CODE+85!, CODE+91!, CODE+94!, GETINFO+3*, TEXT+33!, TEXT+44!, TEXT+56!, TXT4CS+62*, TXT4CS+63! |
| LEX("F" | GETINFO+5, GETINFO+9 |
| LEX("SEL" | GETINFO+10!, TEXT+48, TEXT+49, TEXT+50, TEXT+51 |
| LEX(0 | GETINFO+7*, GETINFO+8* |
| LEXASAB | CODE+75~, CODE+79*, CODE+83 |
| LEXCIEN | CODE+75~, CODE+80*, CODE+81, CODE+82*, CODE+83, GETINFO+4, TEXT+43~, TEXT+52*, TEXT+54* |
| LEXCODE | CODE+63~, CODE+64*, CODE+65, CODE+82, CODE+84, CODE+87, CODE+88, CODE+95, GETINFO+3, GETINFO+6 , GETINFO+7, TEXT+43~, TEXT+47*, TEXT+49*, TEXT+50, TEXT+51*, TEXT+52, TEXT+53, VERSION+15~*, VERSION+23 |
| LEXDID | CODE+63~, CODE+66*, GETINFO+3 |
| LEXDT | TEXT+33~, TEXT+41*, TEXT+46 |
| LEXFSN | GETINFO+1~ |
| LEXHIER | GETINFO+1~, GETINFO+5*, GETINFO+7, GETINFO+9* |
| LEXID | TEXT+33~, TEXT+48*, TEXT+49 |
| LEXIEN | CSYSIEN+1~, CSYSIEN+2* |
| LEXIENS | CODE+63~, CODE+66*, GETINFO+3 |
| LEXINC | CODE+63~, CODE+66*, GETINFO+3 |
| LEXLGY | GETINFO+1~, GETINFO+4*, GETINFO+8 |
| LEXNOM | TEXT+33~, TEXT+36*, TEXT+37*, TEXT+47, TEXT+48 |
| LEXPIEN | CODE+75~, CODE+89*, CODE+92*, TEXT+43~, TEXT+47*, TEXT+57 |
| LEXRAY | CODE~, CODE+74!, CODE+91, CODE+94, TEXT~, TEXT+42!, TEXT+56, TXT4CS~, TXT4CS+30!, TXT4CS+63 |
| LEXSCNM | CODE+75~, CODE+78*, CODE+84, CODE+88 |
| LEXSEP | GETINFO+1~ |
| LEXSIEN | CODE+75~, CODE+76*, CODE+77 |
| LEXSRC | CODE+63~, CODE+64*, CODE+67*, CODE+68, CODE+76, CODE+87, GETINFO+2*, GETINFO+3, GETINFO+6, TEXT+33~ , TEXT+34*, TEXT+36*, TEXT+37, TEXT+41, TEXT+45, TEXT+53, TEXT+54*, VERSION+15~*, VERSION+19*, VERSION+21 , VERSION+23, TXT4CS+25~*, TXT4CS+28, TXT4CS+29, TXT4CS+33*, TXT4CS+48 |
| LEXST | CODE+75~, CODE+77*, CODE+78, CODE+79 |
| LEXSTAT | CODE+75~, CODE+85!, CODE+87*, CODE+88, GETINFO+8, TEXT+43~, TEXT+47*, TEXT+53*, TEXT+54, VERSION+20~ , VERSION+23*, VERSION+24 |
| LEXSTAT(1 | CODE+89, CODE+92 |
| LEXSTAT(2 | TEXT+54 |
| LEXSUB | TEXT+33~, TEXT+34*, TEXT+41*, TEXT+45, TXT4CS+25~*, TXT4CS+31*, TXT4CS+32, TXT4CS+51, TXT4CS+55, TXT4CS+56 |
| LEXTD | TEXT+33~ |
| LEXTEXT | TEXT+33~, TEXT+34*, TEXT+35, TEXT+44, TXT4CS+25~*, TXT4CS+27, TXT4CS+35, TXT4CS+38, TXT4CS+39 |
| LEXVDT | CODE+63~, CODE+64*, CODE+69*, CODE+70, CODE+71*, CODE+72, CODE+73*, CODE+87, CODE+88, GETINFO+3 , GETINFO+6, TEXT+33~, TEXT+34*, TEXT+38*, TEXT+39, TEXT+40*, TEXT+41, TEXT+45, TEXT+46*, TEXT+53 , 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+64, 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+78, CODE+79, CODE+89, CODE+92, GETINFO+7, GETINFO+8, TEXT+54, TXT4CS+45, TXT4CS+48, TXT4CS+49 , TXT4CS+54, TXT4CS+55, TXT4CS+60 |
| VALCODE | CODE+75~, CODE+80*, CODE+81, CODE+83*, CODE+84 |
| VDAT | VERSION+20~, VERSION+25*, VERSION+26 |
| VDT | VERSION~, VERSION+15 |
| VIEN | VERSION+20~, VERSION+26*, VERSION+27 |
| X | TEXT+43~, TEXT+44*, INTDAT~ |
| Y | TEXT+43~, TEXT+46, TEXT+47, INTDAT+1~, INTDAT+3 |