Routine: APCLOCCK

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Patient Care Component Reports	19	APCLAP1 APCLAP11 APCLAP2 APCLAP21 APCLAP3 APCLAP31 APCLAP4 APCLAP41 APCLAP5 APCLAP51 APCLAP6 APCLAP61 APCLAP7 APCLAP71 APCLAP8 APCLAP81 APCLCAW APCLCAW1 APCLGCDC

Entry Points

Name	Comments	DBIA/ICR reference
ALL	;-----> Get all facilities
INDIV	;-----> Get one of more facilities individually
TAXONOMY	;-----> Get all facilties within a taxonomy
SERVUNIT	;-----> Get all facilities within a service unit
GETLOC(APCLOCCK)	;EP - Entry point of extrinsic function
EXIT	;
CHKLOC(APCLOCCK,APCLDUZ2)
MAIN	;

Name	Field # of Occurrence
^DIC	INDIV+6, SERVUNIT+5, TAXONOMY+7
^DIR	MAIN+9

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You may include visits from all facilities, from one of more facilities" Line Location: MAIN+2
Function Call: WRITE	Prompt: !,"selected individually, from all facilities within a Service Unit, or from" Line Location: MAIN+3
Function Call: WRITE	Prompt: !,"a pre-defined Taxonomy (Search Template) of facilities" Line Location: MAIN+4
Function Call: WRITE	Prompt: ! Line Location: INDIV+2
Function Call: WRITE	Prompt: !,"Maximum entries reached" Line Location: INDIV+13
Function Call: WRITE	Prompt: ! Line Location: SERVUNIT+2
Function Call: WRITE	Prompt: !,"Maximum entries reached" Line Location: SERVUNIT+15
Function Call: WRITE	Prompt: ! Line Location: TAXONOMY+2
Function Call: WRITE	Prompt: !,"Maximum entries reached" Line Location: TAXONOMY+14
Function Call: WRITE	Prompt: !!,"Taxonomy Entries added!",! Line Location: TAXONOMY+18
Function Call: WRITE	Prompt: " YES IT DOES!" Line Location: TAXONOMY+37
Function Call: WRITE	Prompt: " YES IT DOES!" Line Location: TAXONOMY+38
Routine Call	DIC Line Location: INDIV+6 SERVUNIT+5 TAXONOMY+7
Routine Call	DIR Line Location: MAIN+9

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	TAXONOMY+13, TAXONOMY+15
^AUTTLOC("C"	SERVUNIT+12, SERVUNIT+14
^AUTTSU - [#9999999.22]	SERVUNIT+9
^DD(	TAXONOMY+35
^DIBT(	TAXONOMY+22, TAXONOMY+23, TAXONOMY+32

Name	Field # of Occurrence
APCLDUZ2	CHKLOC~, CHKLOC+7, CHKLOC+10*, CHKLOC+11
APCLFLAG	MAIN+11, MAIN+16, EXIT+2!, ALL+1, INDIV+14, SERVUNIT+16, TAXONOMY+19, TAXONOMY+22, TAXONOMY+23, TAXONOMY+28 , TAXONOMY+37, TAXONOMY+38*, TAXONOMY+41
>> APCLLOC	ALL+2*
APCLOCCK	GETLOC~, MAIN+1, MAIN+10, EXIT+3, INDIV+1, INDIV+11, INDIV+12, SERVUNIT+1, SERVUNIT+13, SERVUNIT+14 , TAXONOMY+1, TAXONOMY+16, TAXONOMY+17, CHKLOC~, CHKLOC+6, CHKLOC+8, CHKLOC+9, CHKLOC+11
DIC	EXIT+1!, INDIV+3!, INDIV+4, INDIV+15!, SERVUNIT+3!, SERVUNIT+4, SERVUNIT+6!, TAXONOMY+3!, TAXONOMY+5*, TAXONOMY+8!
DIC("A"	TAXONOMY+6*
DIC("S"	TAXONOMY+4*
DIC(0	INDIV+4, SERVUNIT+4, TAXONOMY+5*
DIE	EXIT+1!, INDIV+3!, INDIV+15!, SERVUNIT+3!, SERVUNIT+6!, TAXONOMY+3!, TAXONOMY+8!
DIR	MAIN+5!, EXIT+1!
DIR("?"	MAIN+8*
DIR("A"	MAIN+7*
DIR(0	MAIN+6*
>> DIRUT	MAIN+10
DR	EXIT+1!, INDIV+3!, INDIV+15!, SERVUNIT+3!, SERVUNIT+6!, TAXONOMY+3!, TAXONOMY+8!
>> N	SERVUNIT+10, SERVUNIT+12, SERVUNIT+14, TAXONOMY+12, TAXONOMY+13, TAXONOMY+15
U	INDIV+11, SERVUNIT+9, SERVUNIT+13, TAXONOMY+15, TAXONOMY+16, TAXONOMY+22, TAXONOMY+23, TAXONOMY+32, TAXONOMY+35, CHKLOC+9 , CHKLOC+10
>> X	INDIV+5, INDIV+7, INDIV+8, SERVUNIT+9, SERVUNIT+10, SERVUNIT+11, SERVUNIT+12, TAXONOMY+32, TAXONOMY+33, TAXONOMY+34 , TAXONOMY+35, TAXONOMY+36, TAXONOMY+37, TAXONOMY+38
>> Y	MAIN+12, MAIN+13, MAIN+14, MAIN+15, INDIV+9, INDIV+12, SERVUNIT+7, SERVUNIT+9, TAXONOMY+9, TAXONOMY+13 , TAXONOMY+15, TAXONOMY+22, TAXONOMY+23, TAXONOMY+32
>> Z	TAXONOMY+15*, TAXONOMY+17