Routine: LEXU4

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

Package	Total	Caller Graph
Lexicon Utility	2	LEXU LEXU2

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

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

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: