Routine: APCDSWU

Package	Total	Call Graph
IHS VA Utilities	2	($$VAL,$$VALI)^XBDIQ1 EN^XBNEW
VA Fileman	2	^DIE ^DIR

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please Note: You are NOT permitted to modify or delete these" Line Location: EN0+1
Function Call: WRITE	Prompt: !,APCDMNE("NAME")," entries. You can only mark them as entered in error." Line Location: EN0+2
Function Call: WRITE	Prompt: !!,"There are no '",APCDSWVE,"' clinical review actions documented on this",!,"visit. The ",APCDMNE("NAME")," mnemonic has not been used on this visit so there is nothing",!,"to modify." Line Location: EN0+15
Function Call: WRITE	Prompt: !,"Please choose which clinical review action you would like to" Line Location: SELECTM+2
Function Call: WRITE	Prompt: !,"mark 'Entered in Error', if you do not wish to mark any in error, " Line Location: SELECTM+3
Function Call: WRITE	Prompt: !,"simply press 'enter' to bypass." Line Location: SELECTM+4
Function Call: WRITE	Prompt: !,"Invalid response. Please enter a number from 1 to ",APCDSWT," or N." Line Location: SELECTM+15
Function Call: WRITE	Prompt: !,"You have selected: ",$$VAL^XBDIQ1(9000010.54,APCDSWDA,.01)," Provider: ",$$VAL^XBDIQ1(9000010.54,APCDSWDA,1204) Line Location: SELECTM+19
Function Call: WRITE	Prompt: !!,"invalid v updated/reviewed entry...." Line Location: ENTINERR+2
Routine Call	DIE Line Location: ENTINERR+3 REV+16
Routine Call	DIR Line Location: SELECTM+11 SELECTM+20

FileNo	Call Tags
^AUPNVRUP - [#9000010.54]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVRUP - [#9000010.54]	EN0+9, ENTINERR+2, REV+3, REV+4, REV+5, REV+11, REV+12, REV+13, REV+14, REV+15
^AUPNVRUP("AD"	EN0+8, REV+10
^AUTTCRA - [#9999999.101]	EN0+7
^AUTTCRA("C"	EN0+6, REV+6, REV+7, REV+8

Name	Field # of Occurrence
A	REV+2~, REV+6, REV+7, REV+8*, REV+11
APCDDAT	REV+2~, REV+4*, REV+13
>> APCDMNE("NAME"	EN0+2, EN0+6, EN0+15, SELECTM+25, SELECTM+26, SELECTM+27, REV+6, REV+7, REV+8
APCDP	REV+2~, REV+3*, REV+12
APCDSWA	EN+1~, EN0+5!, EN0+15
APCDSWA(	EN0+14*, SELECTM+5, SELECTM+6, SELECTM+15, SELECTM+17
APCDSWAN	EN+1~
APCDSWCT	EN+1~, EN0+4, EN0+13, EN0+14
APCDSWDA	EN+1~, EN0+8, EN0+9, EN0+10, EN0+14, SELECTM+6, SELECTM+7, SELECTM+8, SELECTM+17*, SELECTM+19 , SELECTM+23, ENTINERR~, ENTINERR+1, ENTINERR+2, ENTINERR+3, REV+3, REV+4, REV+5, REV+15
APCDSWI	EN+1~, SELECTM+16*
APCDSWMV	EN+1~, EN0+6*, EN0+7, EN0+12
APCDSWT	EN+1~, SELECTM+5, SELECTM+6, SELECTM+11, SELECTM+15
APCDSWVE	EN+1~, EN0+7*, EN0+15, SELECTM+11
APCDSWX	EN+1~, SELECTM+5*, SELECTM+6, SELECTM+9
APCDV	REV+2~, REV+5*, REV+10
APCDVM01	EN+1~, EN0+10, EN0+12, SELECTM+7, SELECTM+9
APCDVM04	EN+1~, SELECTM+8*, SELECTM+9
>> APCDVSIT	EN0+8
B	REV+2~, REV+10*, REV+11, REV+12, REV+13, REV+14, REV+15
C	REV+2~
DA	SELECTM+11!, SELECTM+20!, ENTINERR+3!, REV+2~, REV+15
DIE	ENTINERR+3!, REV+2~, REV+15
DIE("NO^"	ENTINERR+3*
DIR	EN+2~, SELECTM+10!, SELECTM+11!, SELECTM+18!, SELECTM+20!
DIR("?"	SELECTM+11*
DIR("A"	SELECTM+11, SELECTM+20
DIR("B"	SELECTM+20*
DIR(0	SELECTM+11, SELECTM+20
>> DIRUT	SELECTM+12, SELECTM+22
DR	ENTINERR+3!, REV+2~, REV+15
G	REV+2~, REV+9, REV+10, REV+17
U	EN0+7, EN0+9, REV+3, REV+4, REV+5, REV+11, REV+12, REV+13, REV+14, REV+15
X	EN+2~, SELECTM+13, SELECTM+15, SELECTM+17
Y	EN+2~, SELECTM+14, SELECTM+16, SELECTM+21