PXRMLEX ;SLC/PKR - Routines for working with Lexicon. ;05/07/2014
Source file <PXRMLEX.m>
| Package | Total | Call Graph | 
|---|---|---|
| Clinical Reminders | 5 | $$GETEHF^PXRMEXHF ($$GETCSYS,CODESYSL)^PXRMLEX CSEARCH^PXRMTAXS (FORMAT,FORMATS)^PXRMTEXT $$CODE^PXRMVAL | 
| DRG Grouper | 2 | ($$ICDDX,$$ICDOP)^ICDCODE $$CPT^ICPTCOD | 
| Kernel | 1 | $$FTG^%ZISH | 
| Lexicon Utility | 1 | $$HIST^LEXU | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| LEXTEXT | ;Get the codes from the Lexicon update text file. | |
| CHK10D | ;ICD-10 CM diagnosis patterns. | |
| CHKCPC | ;HCPS Procedure patterns. | |
| CHKICP | ;ICD-9 Procedure patterns. | |
| VCODESYS(CODESYS) | ;Make sure the coding system is one taxonomies support. | |
| CHKCPT | ;CPT-4 Procedure pattterns. | |
| GETCSYS(CODE) | ;Given a code return the coding system. | |
| CHKSCT | ;SNOMED CT patterns. | |
| VCODE(CODE) | ;Check that a code is valid. | |
| CHK10P | ;ICD-10 Procedure patterns. | |
| CODESYSL(CODESYSL) | ;Return the list of Lexicon coding systems supported | 
| Name | Field # of Occurrence | 
|---|---|
| $$FTG^%ZISH | LEXTEXT+23 | 
| $$ICDDX^ICDCODE | VCODE+18 | 
| $$ICDOP^ICDCODE | VCODE+19 | 
| $$CPT^ICPTCOD | VCODE+12 | 
| $$HIST^LEXU | CHKSCT+6, VCODE+8 | 
| $$GETEHF^PXRMEXHF | LEXTEXT+5 | 
| $$GETCSYS^PXRMLEX | VCODE+2 | 
| CODESYSL^PXRMLEX | VCODESYS+2 | 
| CSEARCH^PXRMTAXS | LEXTEXT+63 | 
| FORMAT^PXRMTEXT | LEXTEXT+53 | 
| FORMATS^PXRMTEXT | LEXTEXT+42, LEXTEXT+66 | 
| $$CODE^PXRMVAL | LEXTEXT+59 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^TMP($J | LEXTEXT+20!, LEXTEXT+26, LEXTEXT+29, LEXTEXT+35, LEXTEXT+36, LEXTEXT+49, LEXTEXT+50, LEXTEXT+71! | 
| Name | Line Occurrences | 
|---|---|
| CHK10P | CHKSCT+2 | 
| CHKCPT | CHK10D+3, CHK10D+4, CHK10D+5, CHK10D+6, CHK10D+7 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ACTION | LEXTEXT+1~, LEXTEXT+38*, LEXTEXT+39, LEXTEXT+41, LEXTEXT+58, LEXTEXT+65 | 
| ACTIONS | LEXTEXT+1~ | 
| ACTIONS( | LEXTEXT+41, LEXTEXT+65 | 
| ACTIONS("AD" | LEXTEXT+7* | 
| ACTIONS("AG" | LEXTEXT+8* | 
| ACTIONS("BR" | LEXTEXT+9* | 
| ACTIONS("FR" | LEXTEXT+11* | 
| ACTIONS("IA" | LEXTEXT+10* | 
| ACTIONS("NA" | LEXTEXT+12* | 
| ACTIONS("RA" | LEXTEXT+13* | 
| ACTIONS("RU" | LEXTEXT+14* | 
| ACTIONS("SR" | LEXTEXT+15* | 
| ACTIONS("UN" | LEXTEXT+16* | 
| CN | CHK10D+1~, CHK10D+4*, CHK10D+5*, CHK10D+6*, CHK10D+7*, CHK10P+1*, CHK10P+2*, CHK10P+3*, CHK10P+4*, CHK10P+5* , CHK10P+6*, CHK10P+7* | 
| CODE | GETCSYS~, GETCSYS+5, GETCSYS+6, GETCSYS+7, CHK10D+2, CHK10D+4, CHK10D+5, CHK10D+6, CHK10D+7, CHKCPT+1 , CHKCPC+1, CHKICP+1, CHKSCT+2, CHKSCT+6, CHKSCT+7, CHK10P+1, CHK10P+2, CHK10P+3, CHK10P+4, CHK10P+5 , CHK10P+6, CHK10P+7, LEXTEXT+1~, LEXTEXT+37*, LEXTEXT+41, LEXTEXT+51, LEXTEXT+59, LEXTEXT+63, LEXTEXT+65, LEXTEXT+68 , VCODE~, VCODE+2, VCODE+8, VCODE+12, VCODE+18, VCODE+19 | 
| CODEIEN | LEXTEXT+1~, LEXTEXT+61*, LEXTEXT+63 | 
| CODESYS | VCODE+1~, VCODE+2*, VCODE+3, VCODE+8, VCODE+10, VCODE+14, VCODE+15, VCODE+18, VCODE+19, VCODESYS~ , VCODESYS+3 | 
| CODESYSL | CODESYSL~, VCODESYS+1~, VCODESYS+2 | 
| CODESYSL( | VCODESYS+3 | 
| CODESYSL("10D" | CODESYSL+2* | 
| CODESYSL("10P" | CODESYSL+2* | 
| CODESYSL("CPC" | CODESYSL+3* | 
| CODESYSL("CPT" | CODESYSL+3* | 
| CODESYSL("ICD" | CODESYSL+4* | 
| CODESYSL("ICP" | CODESYSL+4* | 
| CODESYSL("SCT" | CODESYSL+5* | 
| CODETYPE | LEXTEXT+1~, LEXTEXT+62*, LEXTEXT+63, LEXTEXT+68 | 
| CTYPE | LEXTEXT+1~, LEXTEXT+29*, LEXTEXT+30, LEXTEXT+33, LEXTEXT+41, LEXTEXT+65 | 
| DATA | CHKSCT+4~, CHKSCT+6, VCODE+1~, VCODE+8 | 
| DES | LEXTEXT+1~, LEXTEXT+53 | 
| DES( | LEXTEXT+52* | 
| DES(1 | LEXTEXT+46* | 
| DONE | LEXTEXT+1~, LEXTEXT+48*, LEXTEXT+49, LEXTEXT+51* | 
| DT | VCODE+18, VCODE+19 | 
| F4C | CHK10D+1~, CHK10D+2*, CHK10D+3 | 
| FIELD | LEXTEXT+2~ | 
| FIELD( | LEXTEXT+28* | 
| FIELD("ACTION" | LEXTEXT+38 | 
| FIELD("CODE" | LEXTEXT+37, LEXTEXT+51 | 
| FIELD("CODE_SYSTEM" | LEXTEXT+29 | 
| FIELD("LONG_DESCRIPTION" | LEXTEXT+46, LEXTEXT+52 | 
| FIELD("SHORT_DESCRIPTION" | LEXTEXT+44 | 
| FILE | LEXTEXT+2~, LEXTEXT+19*, LEXTEXT+23, LEXTEXT+32 | 
| FILENUM | LEXTEXT+2~, LEXTEXT+30*, LEXTEXT+31, LEXTEXT+59, LEXTEXT+63 | 
| GBL | LEXTEXT+2~, LEXTEXT+21*, LEXTEXT+22*, LEXTEXT+23 | 
| HFILE | LEXTEXT+2~, LEXTEXT+5*, LEXTEXT+6, LEXTEXT+18, LEXTEXT+19 | 
| HT | LEXTEXT+2~, LEXTEXT+17*, LEXTEXT+27, LEXTEXT+28, LEXTEXT+29, LEXTEXT+37, LEXTEXT+38, LEXTEXT+44, LEXTEXT+46, LEXTEXT+51 , LEXTEXT+52 | 
| IND | LEXTEXT+2~, LEXTEXT+28*, LEXTEXT+34*, LEXTEXT+35*, LEXTEXT+36, LEXTEXT+48, LEXTEXT+57* | 
| JND | LEXTEXT+2~, LEXTEXT+48*, LEXTEXT+49*, LEXTEXT+50, LEXTEXT+57 | 
| NDES | LEXTEXT+3~, LEXTEXT+46*, LEXTEXT+52*, LEXTEXT+53 | 
| NEW | LEXTEXT+3~, LEXTEXT+39*, LEXTEXT+40 | 
| NFIELDS | LEXTEXT+3~, LEXTEXT+27*, LEXTEXT+28 | 
| NFOUND | LEXTEXT+3~, LEXTEXT+63, LEXTEXT+64 | 
| NL | LEXTEXT+3~, LEXTEXT+43*, LEXTEXT+54*, LEXTEXT+67* | 
| NOUT | LEXTEXT+3~, LEXTEXT+42, LEXTEXT+43, LEXTEXT+53, LEXTEXT+54, LEXTEXT+66, LEXTEXT+67 | 
| OK | CHK10D+1~, CHK10D+3*, CHK10D+4*, CHK10D+5*, CHK10D+6*, CHK10D+7*, CHK10P+1*, CHK10P+2*, CHK10P+3*, CHK10P+4* , CHK10P+5*, CHK10P+6*, CHK10P+7* | 
| PATH | LEXTEXT+3~, LEXTEXT+18*, LEXTEXT+23 | 
| RESULT | VCODE+1~, VCODE+8*, VCODE+9, VCODE+12*, VCODE+13, VCODE+14, VCODE+15, VCODE+18*, VCODE+19*, VCODE+20 | 
| RETVAL | LEXTEXT+3~, LEXTEXT+59*, LEXTEXT+60, LEXTEXT+61, LEXTEXT+62 | 
| SDES | LEXTEXT+4~, LEXTEXT+44*, LEXTEXT+45 | 
| SUCCESS | LEXTEXT+4~, LEXTEXT+23*, LEXTEXT+24 | 
| TAX | LEXTEXT+4~, LEXTEXT+69*, LEXTEXT+70* | 
| TAXLIST | LEXTEXT+4~, LEXTEXT+63 | 
| TAXLIST( | LEXTEXT+70 | 
| TEMP | LEXTEXT+4~, LEXTEXT+26*, LEXTEXT+27, LEXTEXT+28, LEXTEXT+36*, LEXTEXT+37, LEXTEXT+38, LEXTEXT+44, LEXTEXT+46, LEXTEXT+50* , LEXTEXT+51, LEXTEXT+52 | 
| TEXTIN | LEXTEXT+4~, LEXTEXT+41*, LEXTEXT+42, LEXTEXT+65*, LEXTEXT+66 | 
| TEXTOUT | LEXTEXT+4~, LEXTEXT+42, LEXTEXT+53, LEXTEXT+66 | 
| TEXTOUT( | LEXTEXT+43, LEXTEXT+54, LEXTEXT+67 | 
| U | LEXTEXT+18, LEXTEXT+19, LEXTEXT+61, LEXTEXT+62, VCODE+14, VCODE+15 | 
| VALID | VCODE+1~, VCODE+6*, VCODE+13*, VCODE+14*, VCODE+15*, VCODE+16, VCODE+20*, VCODE+21 |