Routine: LEXINF2

Package	Total	Call Graph
Lexicon Utility	5	$$SRC^LEXINF (MD,VA)^LEXINF3 CODE^LEXINF5 $$STATCHK^LEXSRC2 $$MIX^LEXXM
Kernel	1	$$DT^XLFDT

Package	Total	Caller Graph
Lexicon Utility	2	LEXINF LEXINF3

Entry Points

Name	Comments	DBIA/ICR reference
CODE(CODE,SRC,CDT,ARY,OUT)	; Information about a code ; ; Input ; ; CODE Code (file 757.02) (Required) ; SRC Source Abbr. or pointer to file 757.03 (Required) ; CDT Date used to determine status, default TODAY ; .ARY Local Array, passed by reference ; OUT Output/Display ARY (Optional) ; 0 Do not Display (default) ; 1 Display ; Output ; ; ARY ; ; Code ; ; ARY("CO")="Code" ; ARY("CO",n)=<code> ; ARY("CO","B",<code>,n)="" ; ARY("CO",n,"I")= 6 piece "^" delimited string ; ; 1 Status ; 2 Effective Date ; 3 Initial Activation Date ; 4 Pointer to CODES file #757.02 ; 5 Coding System Nomenclature ; 6 Coding System ; ; ARY("CO",n,"MD")="Code Modifiers" ; ARY("CO",n,"MD",n)=<modifier> ; ARY("CO",n,"MD",n,"I")= 4 piece "^" delimited string ; ; 1 Status ; 2 Effective Date ; 3 Modifier Name ; 4 Pointer to CPT MODIFIER file #81.3 ; ; ARY("CO",n,"VA")= 4 piece "^" delimited string ; ; 1 Status ; 2 Effective Date ; 3 VA File Number ; 4 Variable Pointer to VA File ; ; Diagnostic Categories (ICD-10-CM only) ; ; ARY("DC")="Diagnostic Categories" ; ARY("DC",1)=<category> ; ARY("DC",1,"I")= 4 piece "^" delimited string ; ; 1 Status ; 2 Effective Date ; 3 Category Name ; 4 Pointer to CHARACTER POSITIONS file #757.033 ; ; Procedure Characters Positions (ICD-10-PCS only) ; ; Where n is a character position number 1-7 ; ; ARY("CP")="Procedure Characters" ; ARY("CP","I")=<code> ; ARY("CP",n)=<character position 1-n> ; ARY("CP",n,"I")= 4 piece "^" delimited string ; ; 1 Status ; 2 Effective Date ; 3 Name ; 4 Pointer to CHARACTER POSITIONS file #757.033 ; ; Terms ; ; Subscript SUB can be: ; ; PF Preferred Term ; FS Fully Specified Term ; MC Major Concept ; SY Synonyms ; LV Lexical Variants ; OR Orphan Text ; ; ARY(SUB)=type ; ARY(SUB,n)=<expression> ; ARY(SUB,n,"I")= 4 piece "^" delimited string ; ; 1 Status ; 2 Type ; 3 Current/Retired ; 4 Pointer to EXPRESSIONS file #757.01 ; ; ARY(SUB,n,"ID")="Designation ID" ; ARY(SUB,n,"ID",n)<designation ID> ; ARY(SUB,n,"ID",n,"I")= 4 piece "^" delimited string ; ; 1 Status ; 2 Coding System ; 3 Hierarchy ; 4 Pointer to DESIGNATION CODE subfile #757.118 ; ; ARY(SUB,n,"SK")="Supplemental Keywords" ; ARY(SUB,n,"SK",n)=<keyword> ; ARY(SUB,n,"SK",n,"I")= 4 piece "^" delimited string ; ; 1 Status ; 2 Not used ; 3 Not used ; 4 Pointer to SUPPLEMENTAL subfile #757.18 ; ; Mappings ; ; ARY("MP")="Mapping" ; ARY("MP",n)=<map to target code> ; ARY("MP",n,"I")= 6 piece "^" delimited string ; ; 1 Status ; 2 Effective ; 3 Coding System ; 4 Pointer to MAPPINGS file #757.33 ; 5 Match (full/partial) ; 6 Source Code ; 7 Source Coding System ; ; Subsets ; ; ARY("SB")="Subsets" ; ARY("SB",n)=<subset> ; ARY("SB",n,"I")= 5 piece "^" delimited string ; ; 1 Status ; 2 Pointer to SUBSET file #757.21 ; 3 Pointer to EXPRESSION file #757.01 ; 4 Pointer to SUBSET DEFINITION file #757.2 ; 5 Subset ID ; ; Source ; ; ARY("SR")="Source" ; ARY("SR",n)=<source abbreviation> ; ARY("SR",n,"I")= 4 piece "^" delimited string ; ARY("SR","B",<source>,n)="" ; ; 1 Source Abbreviation ; 2 Source Nomenclature ; 3 Source Title ; 4 Pointer to CODING SYSTEMS file #757.03 ;
CO(X,Y,CDT,ARY)	; Code CO
MD(X,Y,I,ARY)	; Modifiers CO/MD
VA(X,Y,D,I,ARY)	; VA File CO/VA
PF(CODE,ARY)	; Preferred Term PF
OT(X,LEX,ARY)	; Other Terms MC/FS/SY/LV
DS(X,Y,LEX,ARY)	; Designation ID ID
SK(X,Y,LEX,ARY)	; Supplemental Keywords SK
NG(X,Y,LEX,ARY)	; Negations NG
SR(SRC)	; Source SR
OR(X,Y,CDT,ARY)	; Orphan Text OR
SB(X,Y,ARY)	; Subsets SB
MP(X,Y,CDT,ARY)	; Mappings MP
DC(X,CDT,ARY)	; Diagnostic Categories DC
CP(X,CDT,ARY)	; Character Positions CP

Name	Field # of Occurrence
$$SRC^LEXINF	CODE+148
MD^LEXINF3	CO+13, MD+1
VA^LEXINF3	CO+10, VA+1
CODE^LEXINF5	CODE+155
$$STATCHK^LEXSRC2	CO+6
$$MIX^LEXXM	SB+16, SB+26
$$DT^XLFDT	CODE+147, CO+6, OR+4, MP+4, DC+1, CP+1

Name	Line Occurrences (* Changed, ! Killed)
^LEX(757 - [#757]	OT+2, SB+12
^LEX(757.01 - [#757.01]	PF+5, OT+2, OT+3, OT+4, OT+5, OT+6, DS+3, DS+4, SK+3, SK+4 , NG+3, NG+4, OR+11, SB+20, SB+21
^LEX(757.018 - [#757.018]	DS+7
^LEX(757.02 - [#757.02]	CODE+151, CODE+152, PF+2, PF+3, PF+4, OR+5, OR+7, OR+8, OR+9, OR+10 , SB+5, SB+6, SB+7, SB+8, SB+9, SB+10
^LEX(757.03 - [#757.03]	CODE+149, CO+3, CO+4, DS+6, SR+1, SR+2, SR+3, OR+2, OR+3, SB+2 , SB+3, SB+4, MP+2, MP+3, MP+4, MP+13
^LEX(757.033 - [#757.033]	DC+4, DC+5, DC+6, DC+7, CP+4, CP+5, CP+6, CP+7
^LEX(757.21 - [#757.21]	SB+12, SB+13, SB+15, SB+23, SB+25
^LEX(757.32 - [#757.32]	MP+12, MP+13
^LEX(757.33 - [#757.33]	MP+5, MP+7, MP+8, MP+9, MP+10
^LEXT(757.2 - [#757.2]	SB+15, SB+25

Name	Line Occurrences
CO	CODE+151
CP	CO+14
DC	CO+14
DS	PF+9, OT+12
MP	CODE+154
NG	PF+9, OT+12
OT	CODE+154
PF	CODE+153
SB	CODE+154
SK	PF+9, OT+12
SR	CO+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARY	CODE~, CODE+146!, CODE+150!, CODE+151, CODE+152!, CODE+153!, CODE+154, CODE+155, CO~, CO+10 , CO+13, CO+14, MD~, MD+1, VA~, VA+1, PF~, PF+9, OT~, OT+12 , DS~, SK~, NG~, OR~, SB~, MP~, DC~, CP~
ARY(	OT+10, OT+11, DS+3, DS+7, DS+8, DS+9, DS+10, SK+3, SK+5, SK+6 , SK+7, SK+8, NG+3, NG+5, NG+6, NG+7, NG+8*
ARY("CO"	CODE+151, CO+2!, CO+8, CO+9, CO+10*
ARY("CP"	CP+1!, CP+9, CP+10
ARY("DC"	DC+1!, DC+9, DC+10
ARY("FS"	OT+1!
ARY("MP"	MP+1!, MP+16, MP+17
ARY("OR"	OR+1!, OR+15, OR+16
ARY("PF"	CODE+153, PF+1!, PF+8*
ARY("SB"	SB+18, SB+19, SB+28, SB+29
ARY("SR"	CO+2!, CO+11, CO+12
CDT	CODE~, CODE+147, CO~, CO+6, OR~, OR+4, MP~, MP+4, DC~, DC+1 , CP~, CP+1
CODE	CODE~, CODE+147, PF~, PF+1
D	VA~, VA+1
I	MD~, MD+1, VA~, VA+1
LEX	OT~, OT+3, DS~, DS+2, SK~, SK+2, NG~, NG+2, SB+1!
LEXC	DS+1~, DS+4~, DS+5*, DS+9, SK+1~, NG+1~
LEXCAT	DC+3~, DC+4, DC+9, CP+3~, CP+4, CP+9
LEXCDT	CODE+146~, CODE+147, CODE+151, CODE+154, CO+1~, CO+6, CO+10, CO+13, CO+14, OR+1~ , OR+4, OR+7, SB+8, MP+1~, MP+4, MP+7, DC+1~, DC+5, DC+6, CP+1~ , CP+5, CP+6
LEXCID	DC+1~, DC+2, DC+3, DC+4, CP+1~, CP+2, CP+3, CP+4
LEXCIEN	DC+3~, DC+4, DC+5, DC+6, DC+7, DC+8, CP+3~, CP+4, CP+5, CP+6 , CP+7, CP+8
LEXCODE	CODE+146~, CODE+147, CODE+148, CODE+150, CODE+151, CODE+153, CODE+154, CO+1~, CO+2, CO+6 , CO+8, CO+10, CO+13, CO+14, PF+1~, PF+2, PF+3, OR+1~, OR+2, OR+5 , MP+1~, MP+4, MP+5, MP+7, MP+8, MP+9, MP+16, DC+1~, DC+2, DC+3 , DC+10, CP+1~, CP+2*, CP+3, CP+10
LEXDISP	CODE+146~*, CODE+155
LEXDSI	DS+1~, DS+3*, DS+4, DS+10
LEXEF	OR+6~, OR+7, OR+8, SB+7~, SB+8, SB+9, MP+6~, MP+7, MP+8, MP+9 , MP+14, DC+3~, DC+5, DC+8, CP+3~, CP+5*, CP+8
LEXEFF	CODE+146~, CO+1~, CO+7, CO+8, CO+9, PF+1~, PF+2, PF+3, SB+5*, SB+6
LEXEIEN	CODE+146~, CODE+152, CODE+154, PF+1~, PF+4, PF+5, PF+8, PF+9, OT+1~, OT+2 , OR+1~, OR+6~, OR+11, OR+16
LEXEX	OT+1~, OT+4, OT+5, OT+6, OT+11, OT+12, SB+1~, SB+12, SB+13, SB+17
LEXEXP	PF+1~, PF+5, PF+8, OT+1~, OT+5~, OT+6, OT+10, OR+1~, OR+6~, OR+11* , OR+15
LEXH	DS+1~, DS+4~, DS+6*, DS+7, SK+1~, SK+4~, NG+1~, NG+4~
LEXHN	DS+1~, DS+4~, DS+7*, DS+10, SK+1~, SK+4~, NG+1~, NG+4~
LEXHS	OR+6~, OR+8, OR+9, SB+7~, SB+9, SB+10, DC+3~, DC+5, DC+6, CP+3~ , CP+5, CP+6
LEXI	DC+1~, DC+2, DC+3, CP+1~, CP+2, CP+3
LEXIEN	CO+1~, CO+7, CO+9, DS+1~, DS+2, DS+3, DS+4, SK+1~, SK+2, SK+3 , SK+4, NG+1~, NG+2, NG+3, NG+4, SB+1~, SB+13, SB+20, SB+21, SB+22* , SB+23, SB+27
LEXIENS	SB+1~
LEXIENS(	SB+21*, SB+22
LEXIENS(0	SB+22
LEXIN	DS+1~, DS+2, DS+3, DS+7, DS+8, DS+9, DS+10, SK+1~, SK+2, SK+3 , SK+5, SK+6, SK+7, SK+8, NG+1~, NG+2*, NG+3, NG+5, NG+6, NG+7 , NG+8
LEXINIT	CO+1~, CO+7, CO+8, CO+9
LEXK	SK+4~, SK+5, SK+7, NG+4~, NG+5, NG+7
LEXMC	OT+1~, OT+2, OT+3, OT+4, SB+1~, SB+4, SB+5, SB+6, SB+11*, SB+12 , SB+20
LEXMCODE	MP+6~, MP+10*, MP+17
LEXMDEF	MP+6~, MP+11*, MP+12, MP+13
LEXMIEN	CODE+146~, CODE+151, CODE+152, MP+6~, MP+9, MP+10, MP+15
LEXMMAT	MP+6~, MP+10, MP+11, MP+15
LEXMNOM	MP+6~, MP+13*, MP+14
LEXMSSY	MP+6~, MP+12*, MP+16
LEXMTSY	MP+6~, MP+13*
LEXND	PF+1~, PF+4, PF+5, PF+6, PF+7, OT+1~, OT+5~, OT+6, OT+7, DS+1~ , DS+4~, DS+5, DS+6, SK+1~, SK+4~, SK+5, NG+1~, NG+4~, NG+5, OR+1~ , OR+6~, OR+10, OR+11, OR+12, SB+7~, SB+11, SB+14~, SB+15, SB+16, SB+24~ , SB+25, SB+26, MP+6~, MP+10, MP+11
LEXNGI	NG+1~, NG+3*, NG+4, NG+8
LEXNOM	CO+1~, CO+5, CO+9, CO+11, SR+2*
LEXPF	CODE+146~, CODE+153, CODE+154, OT+1~, OT+3
LEXS	DS+1~, DS+4~, DS+5*, DS+6, SK+1~, SK+4~, NG+1~, NG+4~
LEXSA	SB+14~, SB+16, SB+18, SB+24~, SB+26, SB+28
LEXSAB	CO+1~, CO+5, CO+6, CO+11, SR+1*
LEXSB	DS+1~, DS+2, DS+3, DS+7, DS+8, DS+9, DS+10, SK+1~, SK+2, SK+3 , SK+5, SK+6, SK+7, SK+8, NG+1~, NG+2*, NG+3, NG+5, NG+6, NG+7 , NG+8
LEXSEQ	OT+1~, OT+5~, OT+10, OT+11, OT+12, DS+1~, DS+4~, DS+7, DS+9, DS+10 , SK+1~, SK+4~, SK+5, SK+7, SK+8, NG+1~, NG+4~, NG+5, NG+7, NG+8 , OR+1~, OR+6~, OR+15, OR+16, SB+14~, SB+19, SB+24~, SB+29, MP+6~, MP+17 , DC+3~, DC+9, CP+3~, CP+9
LEXSF	SB+14~, SB+16, SB+19, SB+24~, SB+26, SB+29
LEXSI	SB+14~, SB+15, SB+18, SB+24~, SB+25, SB+28
LEXSIEN	CODE+146~, CODE+151, CODE+152, PF+1~, PF+3, PF+4, OR+1~, OR+5, OR+7, OR+8 , OR+9, OR+10, SB+1~, SB+4, SB+6~, SB+7, SB+8, SB+9, SB+10, SB+13 , SB+15, SB+17, SB+23*, SB+25, SB+27
LEXSKI	SK+1~, SK+3*, SK+4, SK+8
LEXSO	SB+1~*, SB+5, SB+6
LEXSRC	CODE+146~, CODE+147, CODE+148, CODE+149, CODE+150, CODE+151, CODE+154, CO+1~, CO+2, CO+3* , CO+4, CO+5, CO+9, CO+10, CO+11, CO+12, CO+13, CO+14, OR+1~, OR+2 , OR+3, OR+4, OR+10, SB+1~, SB+2, SB+3, SB+4, SB+7, MP+1~, MP+2 , MP+3*, MP+4, MP+12
LEXST	CODE+146~, CO+1~, CO+7, OR+6~, OR+9, OR+13, OR+14, SB+4, SB+10, SB+12 , SB+17, SB+27, MP+6~, MP+8, MP+9, MP+14, DC+3~, DC+6, DC+8, CP+3~ , CP+6*, CP+8
LEXSTA	PF+1~, PF+6, PF+8, OT+1~, OT+5~, OT+6, OT+7, OT+11, DS+1~, DS+3 , DS+10, SK+1~, SK+3, SK+8, NG+1~, NG+3, NG+8, OR+1~, OR+6~, OR+12* , OR+14*, OR+16
LEXSTAT	CO+1~, CO+6, CO+7, CO+9, PF+1~, PF+6, PF+8, OT+5~, OT+7, OR+1~ , OR+6~, OR+12, OR+13*, OR+16
LEXSTR	SB+14~, SB+17, SB+18, SB+19, SB+24~, SB+27, SB+28, SB+29, MP+6~, MP+14* , MP+15, MP+16, MP+17, DC+3~, DC+8, DC+9, CP+3~, CP+8, CP+9
LEXSYS	CODE+146~, CO+1~, CO+2, CO+3, CO+4, DS+1~, DS+4~, DS+6, DS+10, SK+1~ , SK+4~, NG+1~, NG+4~, OR+2, OR+3, SB+1~, SB+2, SB+3, MP+1*, MP+2 , MP+3
LEXTD	DC+3~, DC+6, DC+7, CP+3~, CP+6, CP+7
LEXTH	DC+3~, DC+7, CP+3~, CP+7
LEXTN	OT+1~, OT+5~, OT+8*, OT+10, OT+11
LEXTO	MP+1~, MP+5*, MP+7, MP+8, MP+9
LEXTS	OT+1~, OT+5~, OT+9*, OT+10, OT+11, OT+12
LEXTTL	CO+1~, CO+5, CO+11, SR+3*
LEXTX	DC+3~, DC+7, DC+8, CP+3~, CP+7, CP+8
LEXTY	PF+1~, PF+7, PF+8, OT+1~, OT+5~, OT+7, OT+8, OT+9, OR+1~, OR+6~ , OR+12*, OR+16
LEXTYPE	CODE+146~
OUT	CODE~, CODE+146
SRC	CODE~, CODE+147, CODE+149, SR~, SR+1, SR+2, SR+3
X	CO~, CO+1, CO+2, MD~, MD+1, VA~, VA+1, OT~, OT+1, DS~ , DS+2, SK~, SK+2, NG~, NG+2, OR~, OR+2, SB~, SB+1, MP~ , MP+1, DC~, DC+2, CP~, CP+2
Y	CO~, CO+1, CO+2, MD~, MD+1, VA~, VA+1, DS~, DS+2, SK~ , SK+2, NG~, NG+2, OR~, OR+2, SB~, SB+1, MP~, MP+1

Customize PDF page

Package: Lexicon Utility

Routine: LEXINF2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: