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 |