Routine: LEXU4

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

LEXU4 ;ISL/KER - Miscellaneous Lexicon Utilities ;04/21/2014

Source Information

Source file <LEXU4.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
DRG Grouper	2	($$CODEABA,$$ICDDX,$$ICDOP,$$ROOT)^ICDEX $$CPT^ICPTCOD
Lexicon Utility	2	$$FIN^LEX10PR ($$CSYS,$$IMPDATE)^LEXU
Kernel	1	$$DT^XLFDT

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Lexicon Utility	2	LEXU LEXU2

Entry Points

Name	Comments	DBIA/ICR reference
HIST(CODE,SYS,ARY)	; Get Activation History for a Code ; ; Input: ; ; CODE ICD Code (required) ; SYS Coding System ; .ARY Array, passed by Reference (required) ; ; Output: ; ; $$HIST Number of Histories Found ; or ; -1 ^ error message ; ; ARY(0) = Number of Activation History ; ARY(0,0) = Code ^ Source Abbreviation ^ Source Nomenclature ; ARY(<date>,<status>) = Comment
PERIOD(CODE,SYS,ARY)	; Get Activation/Inactivation Periods for a Code
SYSC(X)	; System from Code (must be unique)
PFI(FRAG,CDT,ARY)	; Get Procedure Fragment Info
VP(CODE,SYS,EFF)	; Variable Pointer ^ Description
TM(X,Y)	; Trim Character Y - Default " "

Name	Field # of Occurrence
$$CODEABA^ICDEX	VP+6, VP+11
$$ICDDX^ICDEX	VP+9
$$ICDOP^ICDEX	VP+13
$$ROOT^ICDEX	VP+7, VP+12
$$CPT^ICPTCOD	VP+17
$$FIN^LEX10PR	PFI+41
$$CSYS^LEXU	HIST+21, HIST+24, PERIOD+54
$$IMPDATE^LEXU	PFI+34
$$DT^XLFDT	HIST+27, PERIOD+83, VP+4, PFI+34

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ICPT("BA"	VP+15
^LEX(757.01 - [#757.01]	PERIOD+79
^LEX(757.02 - [#757.02]	HIST+20, HIST+29, HIST+31, HIST+32, PERIOD+53, PERIOD+58, PERIOD+59, PERIOD+60, PERIOD+62, PERIOD+63 , PERIOD+64, SYSC+15, SYSC+16, SYSC+17
^LEX(757.03 - [#757.03]	HIST+23, PERIOD+56
^LEX(757.033 - [#757.033]	PFI+36, PFI+37, PFI+39

Name	Line Occurrences
$$SYSC	HIST+22
$$VP	PERIOD+85

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARY	HIST~, HIST+19!, PERIOD~, PERIOD+57!, PERIOD+90!*, PFI~, PFI+33!, PFI+41!
ARY(	HIST+34, HIST+35, HIST+36, HIST+37, HIST+38!, HIST+39, HIST+40, HIST+42, HIST+43, HIST+45 , HIST+46, HIST+47!, HIST+48, HIST+49!, HIST+50, HIST+51, HIST+52, HIST+53*, PERIOD+91
ARY(0	HIST+34, HIST+50!, HIST+55, HIST+56, PERIOD+92, PERIOD+93*, PERIOD+94
CDT	PFI~, PFI+34
CODE	HIST~, HIST+19, PERIOD~, PERIOD+52, VP~, VP+2
EFF	VP~, VP+4
FRAG	PFI~, PFI+33
LEXA	HIST+18~, HIST+36, HIST+38, HIST+39, HIST+41, HIST+42
LEXACT	PERIOD+50~, PERIOD+57!
LEXACT(	PERIOD+61, PERIOD+66, PERIOD+69, PERIOD+70, PERIOD+71!, PERIOD+72, PERIOD+77
LEXC	HIST+18~, HIST+32~, HIST+33, HIST+50, HIST+51, HIST+52, HIST+53, PERIOD+91*, PERIOD+92, PERIOD+93 , PFI+33~
LEXD	PERIOD+50~, PFI+33~, PFI+34, PFI+35, PFI+37, PFI+41
LEXDES	VP+1~, VP+4, VP+9, VP+13, VP+17, VP+18
LEXDT	PERIOD+50~, PERIOD+58, PERIOD+59, PERIOD+61, PERIOD+62, PERIOD+63, PERIOD+65, PERIOD+66, PERIOD+67, PERIOD+69 , PERIOD+71, PERIOD+72, PERIOD+75, PERIOD+77, PERIOD+88, PERIOD+89
LEXE	HIST+18~, HIST+28~, HIST+29, HIST+31, HIST+34, HIST+35, HIST+36, HIST+37, HIST+38, HIST+39 , HIST+40, HIST+42, HIST+43, HIST+45, HIST+46, HIST+47, HIST+48, HIST+49, PFI+33~, PFI+37* , PFI+38, PFI+39
LEXEF	PERIOD+50~, PERIOD+73~, PERIOD+83, PERIOD+85, PERIOD+91, VP+1~, VP+4*, VP+9, VP+13, VP+17
LEXEXI	PERIOD+50~, PERIOD+60~, PERIOD+61, PERIOD+64~, PERIOD+65, PERIOD+68~, PERIOD+69, PERIOD+70, PERIOD+73~, PERIOD+77 , PERIOD+78*, PERIOD+79, PERIOD+88
LEXEXP	PERIOD+50~, PERIOD+73~, PERIOD+79*, PERIOD+89
LEXF	PFI+33~*, PFI+36, PFI+37, PFI+39
LEXI	HIST+18~, HIST+27, HIST+29, HIST+31, HIST+34, HIST+35, HIST+51, HIST+52, HIST+53, PERIOD+50~ , VP+1~, VP+6~, VP+8, VP+11~, VP+12, VP+15~, VP+16, PFI+33~, PFI+34, PFI+35
LEXIDT	PERIOD+50~, PERIOD+73~, PERIOD+75, PERIOD+78, PERIOD+81, PERIOD+83, PERIOD+87, PERIOD+88
LEXIEN	PERIOD+50~, PERIOD+59~, PERIOD+60, PERIOD+63~, PERIOD+64
LEXINA	PERIOD+51~, PERIOD+57!
LEXINA(	PERIOD+65*, PERIOD+67, PERIOD+71!, PERIOD+75, PERIOD+78, PERIOD+81!
LEXN	HIST+18~, HIST+32~, HIST+33, HIST+50, HIST+54, HIST+55, HIST+56, PFI+33~, PFI+39, PFI+40 , PFI+41
LEXND	PERIOD+51~, PERIOD+60~, PERIOD+64~
LEXNOM	HIST+18~, HIST+23*
LEXP	HIST+18~, HIST+48*
LEXPDT	PERIOD+51~, PERIOD+68~, PERIOD+69*, PERIOD+70
LEXPER	PERIOD+51~, PERIOD+90
LEXPER(	PERIOD+88, PERIOD+89
LEXR	VP+1~, VP+6~, VP+7, VP+8, VP+11~, VP+12, VP+15~, VP+16*
LEXS	HIST+18~, HIST+30~, HIST+31, HIST+32, HIST+37, HIST+38, HIST+40, HIST+41, HIST+42, HIST+43 , HIST+44, HIST+45, HIST+47, HIST+49, SYSC+14~, SYSC+16!
LEXS(	SYSC+17*
LEXS(" "	SYSC+18
LEXS(0	SYSC+18
LEXSAB	HIST+18~, HIST+21, HIST+24, HIST+26*
LEXSD	PERIOD+51~, PERIOD+54*, PERIOD+93
LEXSI	HIST+18~, HIST+24, HIST+25, HIST+56
LEXSIEN	SYSC+14~, SYSC+16*, SYSC+17
LEXSO	HIST+18~, HIST+19, HIST+20, HIST+22, HIST+29, HIST+31, HIST+56, PERIOD+51~, PERIOD+52, PERIOD+53 , PERIOD+58, PERIOD+59, PERIOD+62, PERIOD+63, PERIOD+85, VP+1~, VP+2, VP+3, VP+6, VP+9 , VP+11, VP+13, VP+15, VP+17, SYSC+14~, SYSC+15, SYSC+16
LEXSRC	HIST+18~, HIST+21, HIST+22, HIST+23, HIST+24, HIST+33
LEXSY	PERIOD+51~, PERIOD+60~, PERIOD+61, PERIOD+64~, PERIOD+65
LEXSYS	PERIOD+51~, PERIOD+54, PERIOD+55, PERIOD+56, PERIOD+61, PERIOD+65, PERIOD+85, PERIOD+93, VP+1~, VP+2 , VP+3, VP+5, VP+6, VP+9, VP+10, VP+11, VP+13, VP+14
LEXTD	HIST+18~, HIST+27*, HIST+52
LEXVP	PERIOD+51~, PERIOD+73~, PERIOD+85, PERIOD+88, VP+1~, VP+4, VP+8, VP+12, VP+16*, VP+18
SYS	HIST~, HIST+21, PERIOD~, PERIOD+54, VP~, VP+2
U	PERIOD+93, VP+9, VP+13, VP+17
X	HIST+18~, HIST+55, HIST+57, PFI+33~, PFI+41, PFI+42, SYSC~, SYSC+14, SYSC+18, TM~ , TM+1, TM+2, TM+3, TM+4
Y	TM~, TM+1*, TM+2, TM+3

Customize PDF page

Package: Lexicon Utility

Routine: LEXU4

Call Graph Total: 5

Caller Graph Total: 2