Routine: APCDPE

Package	Total	Call Graph
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
IHS VA Utilities	2	^XBFMK EN^XBVK
Kernel	1	DISP^XQORM1
Patient Care Component	1	^APCDPE1
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
REMX	;
EN	; -- main entry point for APCD VGEN SELECT ITEMS
HDR	; -- header code
EXITR	;EP - exit report called from protocol entry
ADD	;EP - add an item to the selected list - called from a protocol
ADDX	;
INIT	; -- init variables and list array
EXIT	; -- exit code
REM	;EP - remove a selected item - called from protocol entry
BACK	;go back to listman
EXPND	; -- expand code
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No items selected for entry!" Line Location: EN+7
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
Function Call: WRITE	Prompt: !!,"No items have been selected.",! Line Location: REM+1
Function Call: WRITE	Prompt: !,"No items selected." Line Location: REM+3
Function Call: WRITE	Prompt: !,"No items selected." Line Location: REM+4
Function Call: WRITE	Prompt: !,"Item ",APCDC," ",$S($P(^APCDTKW(APCDCRIT,0),U,12)]"":$P(^APCDTKW(APCDCRIT,0),U,12),1:$P(^APCDTKW(APCDCRIT,0),U,6))," has not been selected.",! Line Location: REM+6
Function Call: READ	Timeout: "visits",1:"patients"),", Line Location: HELP+3
Function Call: WRITE	Prompt: !,"Enter an S to Select an Item, and R to remove a selected item, Q to Quit",!,"the selection process. To exit the report, enter an E.",!,"Hit a Q to select all ",$S(APCDPTVS="V":"visits",1:"patients"),", bypassing all screens.",! Line Location: HELP+3
Function Call: WRITE	Prompt: ! Line Location: HELP+4
Routine Call	VALM Line Location: EN+3
Routine Call	DIR Line Location: ADD+1 REM+2 REMX+1 HELP+5

Name	Line Occurrences (* Changed, ! Killed)
^APCDTKW - [#9001001]	INIT+5, INIT+7, INIT+9, REM+6, REM+8
^APCDTKW("FP"	INIT+2

Name	Field # of Occurrence
APCDANS	EN+6!, REM+5*
APCDC	EN+6!, ADD+4, REM+5, REM+6, REM+7
APCDCRIT	EN+6!, REM+5*, REM+6, REM+8
>> APCDCSEL	EN+7, REM+1
>> APCDCSEL(	INIT+5, INIT+7, INIT+9, ADD+4*, REM+6, REM+7!
APCDCUT	EN+6!, INIT+3*, INIT+6, INIT+8
APCDDISP	EN+6!, INIT+1!, INIT+10!, EXIT+1!
APCDDISP(	INIT+4, INIT+5, INIT+7, INIT+9*
APCDHIGH	EN+6!, INIT+1!, INIT+2*, INIT+3, ADD+1
APCDI	EN+6!, ADD+4, REM+5
APCDLIST	EN+6!, INIT+1!
APCDLIST(	INIT+5, INIT+7, INIT+9*
APCDLIST("IDX"	INIT+5*
>> APCDPTVS	HELP+3
>> APCDQUIT	EXITR+1*
APCDSEL	EN+6!, INIT+1!
APCDSEL(	INIT+2*, INIT+4, INIT+5, INIT+7, INIT+9, ADD+4, REM+5
ATXICD	EN+10!
>> C	INIT+4, INIT+5, INIT+7, INIT+9, INIT+11
DA	REM+2!, REMX+1!, HELP+5!
DIR	EN+1!, ADD+1!, REM+2!, REMX+1!, HELP+5!, BACK+5!
DIR("A"	ADD+1, REM+2, REMX+1, HELP+5
DIR(0	ADD+1, REM+2, REMX+1, HELP+5
>> DIRUT	ADD+1, ADD+3, REM+2, REM+4
>> DUOUT	ADD+1, REM+2
I	INIT+4*, INIT+5, INIT+6, BACK+6!
IOF	ADD+5, HELP+2
>> IORVOFF	HDR+1
>> IORVON	HDR+1
>> J	INIT+4, INIT+6, INIT+7, INIT+8
>> K	INIT+4, INIT+8, INIT+9
U	INIT+5, INIT+7, INIT+9, REM+6, REM+8
>> VALMBCK	BACK+2*
VALMCC	EXIT+2!
VALMCNT	EN+6!, INIT+11*
VALMHDR	EN+6!, EXIT+2!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2*
VALMHDR(3	HDR+3*
X	INIT+2, ADD+4, HELP+4*, BACK+6!
Y	INIT+2*, ADD+2, ADD+4, REM+3, REM+5, BACK+6!
Z	BACK+6!