Routine: LR132P

Package	Total	Call Graph
VA FileMan	3	^DIC FILE^DICN ^DIE
Kernel	1	BMES^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Updates for file 69.5 that will not work with KIDS
MAIL	;Add the report mail group to file 69.4
ICD9	;Add the ICD9 codes to the file.
TST
BUGS	;ADD THE BUGS TO FILE 69.5
NLT	;AUTO LINKS THE FILE 62.06 WITH FILE 64
EXIT
SETBG	;ADD THE ENTRY FOR ETIOLOGY
SETIC	;ADD THE ENTRY FOR ICD9

Name	Field # of Occurrence
^DIC	NLT+7, NLT+8
FILE^DICN	EN+6, SETBG+7, SETIC+8
^DIE	NLT+15
BMES^XPDUTL	EN+9, EN+11, ICD9+1, ICD9+2, BUGS+1, BUGS+2, NLT+2, NLT+11, SETBG+3, SETIC+4

FileNo	Call Tags
^LAB(69.4 - [#69.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(63.3	NLT+6
^DD(69.5	SETBG+6, SETIC+7
^ICD9 - [#80]	ICD9+6, ICD9+11, TST+2, SETIC+2
^ICD9("AB"	ICD9+4, ICD9+9, TST
^LAB(61.2 - [#61.2]	BUGS+3, BUGS+5
^LAB(62.06 - [#62.06]	NLT+3, NLT+4, NLT+14*
^LAB(69.4 - [#69.4]	MAIL+2, MAIL+3
^LAB(69.5 - [#69.5]	EN+10*, SETBG+1, SETBG+2, SETIC+1, SETIC+3
^ORD(101 - [#101]	EN+2, EN+7
^XMB(3.8 - [#3.8]	MAIL+1

Name	Field # of Occurrence
BUG	BUGS+3*, BUGS+4, BUGS+5, BUGS+6, EXIT!, SETBG+2
BUGI	BUGS+5*, EXIT!, SETBG+1, SETBG+5
DA	NLT+13!, NLT+15*
DA(1	SETBG+6, SETIC+7
DD	EN+4!, NLT+13!, EXIT!, SETBG+4!, SETIC+5!
DIC	EN+5, NLT+7, NLT+8, NLT+13!, EXIT!, SETBG+5, SETIC+6*
DIC("P"	SETBG+6, SETIC+7
DIC(0	EN+5, NLT+7, NLT+8, SETBG+5, SETIC+6*
DIE	NLT+13!, NLT+15*
>> DINUM	EN+5*
DR	NLT+13!, NLT+15*
>> I	EN+10*
>> ICD	ICD9+4, ICD9+9
ICD9	ICD9+4, ICD9+9, TST*, TST+3, EXIT!
INT	ICD9+4, ICD9+5, ICD9+6, ICD9+9, ICD9+10, ICD9+11, TST*, TST+1, TST+2, EXIT! , SETIC+1, SETIC+2, SETIC+6
>> LRANM	NLT+4*, NLT+7, NLT+9, NLT+10
>> LRANT	NLT+3*, NLT+4, NLT+14, NLT+15
LRMAIL	MAIL+1*, MAIL+2, EXIT!
>> LRND	NLT+4*, NLT+6
>> LRNDM	NLT+5, NLT+6, NLT+8
LRPATH	ICD9+7, ICD9+12, TST+3, BUGS+6, EXIT!, SETBG+1, SETBG+2, SETBG+5, SETBG+6, SETIC+1 , SETIC+3, SETIC+6, SETIC+7
LRPROT	EN+2*, EN+3, EN+5, EN+7, EN+10, EN+11, MAIL+2, MAIL+3, EXIT!
MSG	EN+7, EN+8, EN+9!, NLT+1, NLT+2, NLT+9, NLT+10, NLT+11, SETBG+2, SETBG+3 , SETIC+2, SETIC+3, SETIC+4
U	EN+7, EN+10, MAIL+2, MAIL+3, NLT+4, NLT+6, NLT+9, SETBG+2, SETBG+6, SETIC+2 , SETIC+3, SETIC+7
X	EN+5, NLT+7, NLT+8, EXIT!, SETBG+5, SETIC+6*
Y	NLT+8, NLT+9, NLT+10, NLT+12, NLT+15, EXIT!