Routine: APCLD7TS

Package	Total	Call Graph
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
IHS VA Utilities	2	$$VAL^XBDIQ1 EN^XBVK
Kernel	1	DISP^XQORM1
Patient Care Component Reports	1	EP^APCLD7TL
VA Fileman	1	^DIR

Entry Points

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

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: ! Line Location: ADD+2
Function Call: WRITE	Prompt: !,"No taxonomy selected." Line Location: ADD+5
Function Call: WRITE	Prompt: !,"No taxonomy selected." Line Location: ADD+6
Function Call: WRITE	Prompt: !!,"The ",$P(^ATXLAB(APCLTAXI,0),U)," taxonomy is READ ONLY.",!,"You can not update it." Line Location: ADD+10
Function Call: WRITE	Prompt: !!,"The ",$P(^ATXAX(APCLTAXI,0),U)," taxonomy is READ ONLY.",!,"You can not update it." Line Location: ADD+11
Function Call: WRITE	Prompt: ! Line Location: DISP+1
Function Call: WRITE	Prompt: !,"No taxonomy selected." Line Location: DISP+4
Function Call: WRITE	Prompt: !,"No taxonomy selected." Line Location: DISP+5
Function Call: WRITE	Prompt: !!!,$S(APCLTAXT="L":$P(^ATXLAB(APCLTAXI,0),U),1:$P(^ATXAX(APCLTAXI,0),U)) Line Location: DISP+8
Function Call: WRITE	Prompt: !!,"Items currently defined to this taxonomy:" Line Location: DISP+9
Function Call: WRITE	Prompt: !?5,Y Line Location: DISP+11
Function Call: WRITE	Prompt: !! Line Location: DISP+17
Routine Call	VALM Line Location: EN+1
Routine Call	DIR Line Location: PAUSE+2 ADD+4 DISP+3 DISP+18

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	ADD+9, ADD+11, DISP+8, DISP+12, DISP+13, DISP+14, DISP+15, DISP+16
^ATXAX("B"	INIT+4
^ATXLAB - [#9002228]	ADD+8, ADD+10, DISP+8, DISP+10
^ATXLAB("B"	INIT+12
^LAB(60 - [#60]	DISP+11

Name	Field # of Occurrence
>> APCLHIGH	INIT+1, INIT+16, ADD+3, DISP+2
APCLTAX	INIT+1!
APCLTAX(	INIT+3, INIT+5, INIT+11*
APCLTAX("IDX"	INIT+6, INIT+13, ADD+7, DISP+7
>> APCLTAXI	ADD+7, ADD+8, ADD+9, ADD+10, ADD+11, ADD+13, DISP+7, DISP+8, DISP+10, DISP+12 , DISP+13, DISP+14, DISP+15, DISP+16
>> APCLTAXN	ADD+8, ADD+9
>> APCLTAXT	ADD+7, ADD+8, ADD+9, ADD+10, ADD+11, DISP+7, DISP+8, DISP+10, DISP+12, DISP+14
>> APCLX	INIT+2, INIT+3, INIT+4, INIT+9, INIT+11, INIT+12
>> C	INIT+1, INIT+7, INIT+14*, INIT+16
DIR	PAUSE+2!, BACK+5!, ADD+4!, DISP+3!, DISP+18!
DIR("A"	PAUSE+2, ADD+3, DISP+2, DISP+18
DIR(0	PAUSE+2, ADD+3, DISP+2, DISP+18
>> DIRUT	PAUSE+2, ADD+4, ADD+6, DISP+3*, DISP+5
>> DUOUT	PAUSE+2, ADD+4, DISP+3
>> H	DISP+15*, DISP+16
I	INIT+4, INIT+5, INIT+6, INIT+12, INIT+13, BACK+6!
IO	PAUSE+1
IO(0	PAUSE+1
IOF	EN+4, ADD+12, DISP+6
IOST	PAUSE+1
>> J	INIT+2, INIT+3, INIT+5, INIT+6, INIT+9, INIT+10*, INIT+11, INIT+13
>> K	INIT+9*
>> T	INIT+2, INIT+9
U	INIT+6, INIT+13, ADD+7, ADD+8, ADD+9, ADD+10, ADD+11, DISP+7, DISP+8, DISP+11 , DISP+12, DISP+13, DISP+14, DISP+16
>> VALMBCK	BACK+2*
>> VALMCNT	INIT+16*
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
X	HELP+1, BACK+6!, DISP+10, DISP+11, DISP+12, DISP+13, DISP+14, DISP+15
Y	INIT+2, INIT+3, INIT+9, INIT+11, BACK+6!, ADD+5, ADD+7, DISP+4, DISP+7, DISP+11*
Z	INIT+2, INIT+9, BACK+6!

Name	Field # of Occurrence
$T(@T+J	INIT+2
$T(@T+K	INIT+9