Routine: PXRMLEX

Information

PXRMLEX ;SLC/PKR - Routines for working with Lexicon. ;05/07/2014

Source Information

Source file <PXRMLEX.m>

Call Graph

Call Graph Total: 9

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

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Clinical Reminders	5	PXRMLEX PXRMTAXD PXRMTXCS PXRMTXDL PXRMTXIM

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Could not open the host file." Line Location: LEXTEXT+24
Function Call: WRITE	Prompt: !,"Processing Lexicon text update file ",FILE,";" Line Location: LEXTEXT+32
Function Call: WRITE	Prompt: !,"update for ",CTYPE," codes." Line Location: LEXTEXT+33
Function Call: WRITE	Prompt: ! Line Location: LEXTEXT+43
Function Call: WRITE	Prompt: !,TEXTOUT(NL) Line Location: LEXTEXT+43
Function Call: WRITE	Prompt: !," Short description: ",SDES Line Location: LEXTEXT+45
Function Call: WRITE	Prompt: !,TEXTOUT(NL) Line Location: LEXTEXT+54
Function Call: WRITE	Prompt: ! Line Location: LEXTEXT+67
Function Call: WRITE	Prompt: !,TEXTOUT(NL) Line Location: LEXTEXT+67
Function Call: WRITE	Prompt: !,CODETYPE," ",CODE," is used in the following taxonomies:" Line Location: LEXTEXT+68
Function Call: WRITE	Prompt: !," ",TAX Line Location: LEXTEXT+70

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

Local Variables

Legend:

>>	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

Customize PDF page

Package: Clinical Reminders

Routine: PXRMLEX

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: