Routine: BUDCUTXL

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIR
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
IHS VA Utilities	2	^XBFMK EN^XBVK
Kernel	1	DISP^XQORM1

Package	Total	Caller Graph
IHS Uniform Data System	1	BUDCUTXS

Entry Points

Name	Comments	DBIA/ICR reference
REMX	;
EN	;EP -- main entry point for
HDR	; -- header code
ADD	;EP - add an item to the selected list - called from a protocol
EOJ	;EP
EXPND	; -- expand code
BACK	;go back to listman
INIT	; -- init variables and list array
EXIT	; -- exit code
REM	;
ADDX	;
EP(BUDTAXI,BUDTAXT)	;EP - CALLED FROM OPTION
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: ! Line Location: REM+1
Function Call: WRITE	Prompt: !,"No lab test selected." Line Location: REM+5
Function Call: WRITE	Prompt: !,"No lab test selected." Line Location: REM+6
Function Call: WRITE	Prompt: ! Line Location: ADD+2
Function Call: WRITE	Prompt: !!,"Lab test ",$P(^LAB(60,+Y,0),U)," is already in the taxonomy." Line Location: ADD+7
Function Call: WRITE	Prompt: !!,"Drug test ",$P(^PSDRUG(+Y,0),U)," is already in the taxonomy." Line Location: ADD+8
Function Call: WRITE	Prompt: !!,"adding lab test failed." Line Location: ADD+18
Function Call: WRITE	Prompt: !!,"adding DRUG failed." Line Location: ADD+19
Routine Call	VALM Line Location: EN+1
Routine Call	DIE Line Location: REM+14 REM+15
Routine Call	DIC Line Location: ADD+4 ADD+5
Routine Call	DIR Line Location: REM+4 REM+9 REM+10

FileNo	Call Tags
^PSDRUG - [#50]	Classic Fileman Calls
^LAB(60 - [#60]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	HDR+2, INIT+8, INIT+10, REM+15, ADD+8, ADD+16*, ADD+19
^ATXLAB - [#9002228]	HDR+1, INIT+2, INIT+4, REM+14, ADD+7, ADD+15*, ADD+18
^LAB(60 - [#60]	INIT+5, REM+9, ADD+7
^PSDRUG - [#50]	INIT+11, REM+10, ADD+8

Name	Field # of Occurrence
>> BUDHIGH	INIT+1, INIT+14, REM+2, REM+3
BUDLAB	INIT+1!
BUDLAB(	INIT+5, INIT+11
BUDLAB("IDX"	INIT+6, INIT+12, REM+7
>> BUDLABI	INIT+4, INIT+5, INIT+6, INIT+10, INIT+11, INIT+12, REM+7*, REM+9, REM+10, REM+14 , REM+15
BUDTAXI	EP~, HDR+1, HDR+2, INIT+2, INIT+4, INIT+8, INIT+10, REM+14, REM+15, ADD+7 , ADD+8, ADD+9, ADD+11, ADD+18, ADD+19
BUDTAXLI	ADD+10*, ADD+18, ADD+19, ADDX+1!
BUDTAXT	EP~, HDR+1, HDR+2, INIT+2, INIT+8, REM+2, REM+3, REM+9, REM+10, REM+14 , REM+15, ADD+4, ADD+5, ADD+7, ADD+8, ADD+12, ADD+13, ADD+15, ADD+16, ADD+18 , ADD+19
>> BUDX	INIT+2, INIT+4, INIT+8, INIT+10
>> C	INIT+1, INIT+3, INIT+5, INIT+6, INIT+9*, INIT+11, INIT+12, INIT+14
DA	REM+9!, REM+10!, REM+14, REM+15, ADD+9*, ADD+12, ADD+13, ADD+15, ADD+16, ADDX+1!
DA(1	REM+14, REM+15, ADD+11*
DD	ADD+14!, ADDX+1!
DIC	ADD+3!, ADD+4, ADD+5, ADD+12, ADD+13, ADDX+1!
DIC("A"	ADD+4, ADD+5
DIC(0	ADD+4, ADD+5, ADD+14*
>> DIE	REM+14, REM+15
DIR	BACK+5!, REM+1!, REM+4!, REM+9!, REM+10!
DIR("A"	REM+2, REM+3, REM+9, REM+10
DIR("B"	REM+9, REM+10
DIR(0	REM+2, REM+3, REM+9, REM+10
>> DIRUT	REM+4*, REM+6, REM+12
DO	ADD+14!, ADDX+1!
DR	REM+14, REM+15, ADDX+1!
>> DUOUT	REM+4
I	BACK+6!
IOF	EN+4
U	HDR+1, HDR+2, INIT+4, INIT+5, INIT+10, INIT+11, REM+9, REM+10, ADD+7, ADD+8
>> VALMBCK	BACK+2*
>> VALMCNT	INIT+14*
>> VALMHDR(1	HDR+1, HDR+2
X	HELP+1, BACK+6!, ADD+10
Y	BACK+6!, REM+5, REM+7, REM+11, ADD+6, ADD+7, ADD+8, ADD+10
Z	BACK+6!