Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: LEXINF2

Package: Lexicon Utility

Routine: LEXINF2


Information

LEXINF2 ;ISL/KER - Information - Code ;05/23/2017

Source Information

Source file <LEXINF2.m>

Call Graph

Call Graph

Call Graph Total: 6

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

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

External References

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

Global Variables Directly Accessed

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

Label References

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All