Routine: APCHHMR1

Package	Total	Call Graph
IHS VA Utilities	3	$$VAL^XBDIQ1 ARRAY^XBLM EN^XBVK
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
Kernel	1	DISP^XQORM1
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for APCH HMR DISPLAY
ADDALL	;
HELP	; -- help code
EOJ	;EP
S1	;
EXPND	; -- expand code
S(Y,F,C,T)	;set up array
BACK	;go back to listman
INIT	; -- init variables and list array
EXIT	; -- exit code
DISPLAY	;gather in ^TMP and display
ADDX	;
ADD	;EP - add an item to the selected list - called from a protocol
EP	;EP - CALLED FROM OPTION
HDR	; -- header code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: ! Line Location: ADD+1
Function Call: WRITE	Prompt: !,"No items selected." Line Location: ADD+2
Function Call: WRITE	Prompt: !,"No items selected." Line Location: ADD+3
Routine Call	VALM Line Location: EN+1
Routine Call	DIR Line Location: ADD+1

Name	Line Occurrences (* Changed, ! Killed)
^APCHSCTL - [#9001015]	DISPLAY+16, DISPLAY+17
^APCHSURV - [#9001018]	INIT+2, INIT+6, INIT+7, INIT+8, DISPLAY+4, DISPLAY+7, DISPLAY+9, DISPLAY+10, DISPLAY+11, DISPLAY+12 , DISPLAY+13
^APCHSURV("B"	INIT+2
^TMP("APCHHMR1"	DISPLAY+1!, DISPLAY+2, DISPLAY+21!, S1+1, S1+2*

Name	Line Occurrences
ADDX	ADD+2, ADD+3
BACK	ADDX+1, ADDALL+3
DISPLAY	ADD+6, ADDALL+2
EN	EP+1
EOJ	EN+5
HDR	BACK+4
INIT	BACK+3
S	DISPLAY+4, DISPLAY+5, DISPLAY+6, DISPLAY+7, DISPLAY+8, DISPLAY+9, DISPLAY+13, DISPLAY+15, DISPLAY+17, DISPLAY+18
S1	S+4, S+6, S+9

Name	Field # of Occurrence
>> %	S+7, S+8, S1+1*, S1+2
>> APCHANS	ADD+5*
>> APCHC	ADD+5, DISPLAY+3, DISPLAY+4*
APCHCSEL	INIT+1!
APCHCSEL(	INIT+6, INIT+7, INIT+8, ADD+5, ADDALL+1, DISPLAY+4
>> APCHCUT	INIT+3*, INIT+7, INIT+8
APCHDISP	INIT+1!, INIT+9!
APCHDISP(	INIT+5, INIT+6, INIT+7, INIT+8*
APCHHIGH	INIT+1!, INIT+2*, INIT+3, ADD+1, ADDALL+1
>> APCHHMR	DISPLAY+4*, DISPLAY+5, DISPLAY+7, DISPLAY+9, DISPLAY+10, DISPLAY+11, DISPLAY+12, DISPLAY+13, DISPLAY+17
>> APCHI	ADD+5*
APCHLIST	INIT+1!
APCHLIST(	INIT+6, INIT+7, INIT+8*
APCHLIST("IDX"	INIT+6*
APCHSEL	INIT+1!
APCHSEL(	INIT+2*, INIT+5, INIT+6, INIT+7, INIT+8, DISPLAY+4
>> APCHX	DISPLAY+4*
C	INIT+5, INIT+6, INIT+7, INIT+8, INIT+10, S~, S+6
DIR	BACK+5!, ADD+1!
DIR("A"	ADD+1*
DIR(0	ADD+1*
>> DIRUT	ADD+1*, ADD+3
>> DUOUT	ADD+1
F	S~, S+1, S+4
I	INIT+5*, INIT+6, INIT+7, BACK+6!
IOF	EN+4, ADD+4
>> J	INIT+5, INIT+7, INIT+8, DISPLAY+12, DISPLAY+13, DISPLAY+16, DISPLAY+17
>> K	INIT+5, INIT+8, DISPLAY+17*
>> L	S+6*
>> N	INIT+2*
T	S~, S+2, S+6, S+7, S+8
U	INIT+2, INIT+6, INIT+7, INIT+8, DISPLAY+4, DISPLAY+11, DISPLAY+13, DISPLAY+17, S1+1
>> VALMBCK	BACK+2*
>> VALMCNT	INIT+10*
>> VALMHDR(1	HDR+1*
X	INIT+2, HELP+1, BACK+6!, ADDALL+1, DISPLAY+5, DISPLAY+6, DISPLAY+7, DISPLAY+8, DISPLAY+9, DISPLAY+13* , DISPLAY+15, DISPLAY+17, DISPLAY+18, S+4, S+5, S+7, S+8*, S1+2
Y	BACK+6!, ADD+2, ADD+5, DISPLAY+4, DISPLAY+7, DISPLAY+10*, DISPLAY+11, DISPLAY+12, DISPLAY+13, S~ , S+5, S+6, S+8
Z	BACK+6!, DISPLAY+11*, DISPLAY+13