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 |