Routine: APCLAP3P

Package	Total	Call Graph
VA Fileman	3	DD^%DT NOW^%DTC ^DIR
IHS VA Utilities	1	$$VAL^XBDIQ1
Patient Care Component Reports	1	DONE^APCLOSUT

Entry Points

Name	Comments	DBIA/ICR reference
START	;
HEAD
DONE	;
HEAD1	;
P	;

External References

Name	Field # of Occurrence
DD^%DT	START+2, START+3
NOW^%DTC	START+3
DONE^APCLOSUT	DONE+1
^DIR	HEAD+1
$$VAL^XBDIQ1	P+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?53,"-------",! Line Location: START+9
Function Call: WRITE	Prompt: ?15,"Total Number of Provider Contacts:",?53,$J(APCLTOT,6),! Line Location: START+10
Function Call: WRITE	Prompt: !!,"Provider ",$S(APCLPSRT="D":"Discipline",APCLPSRT="A":"Discipline",1:"of Service"),": " Line Location: P+2
Function Call: WRITE	Prompt: $S(APCLPSRT="D":$P(^DIC(7,APCLPOS,0),U),APCLPSRT="A":$P(^DIC(7,APCLPOS,0),U),1:$S($P(^DD(9000010.06,.01,0),U,2)[200:$P(^VA(200,APCLPOS,0),U),1:$P(^DIC(16,APCLPOS,0),U))) Line Location: P+3
Function Call: WRITE	Prompt: " [",$$VAL^XBDIQ1(200,APCLPOS,53.5),"]" Line Location: P+4
Function Call: WRITE	Prompt: !?5,$P(^DIC(4,APCLVLOC,0),U) Line Location: P+6
Function Call: WRITE	Prompt: !?10,APCLCAT,?53,$J(^XTMP("APCLAP3",APCLJOB,APCLBTH,APCLPOS,APCLVLOC,APCLCAT),6) Line Location: P+9
Function Call: WRITE	Prompt: !?53,"------",!?40,"Subtotal: ",?53,$J(^XTMP("APCLAP3",APCLJOB,APCLBTH,APCLPOS,"TOTAL"),6) Line Location: P+12
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: ! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?58,APCLDT,?72,"Page ",APCLPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: !?9,"NUMBER OF CONTACTS BY PROVIDER, LOCATION AND SERVICE CATEGORY" Line Location: HEAD1+4
Function Call: WRITE	Prompt: !?((80-APCLLENG)/2),"LOCATION OF VISITS: ",APCLLOCT,! Line Location: HEAD1+9
Function Call: WRITE	Prompt: ?((80-APCLLENG)/2),APCLPROT,APCLPROS,! Line Location: HEAD1+11
Function Call: WRITE	Prompt: ?APCLTAB,APCLTEXT,! Line Location: HEAD1+13
Function Call: WRITE	Prompt: ?18,"VISIT DATES: ",APCLBDD," TO ",APCLEDD,! Line Location: HEAD1+14
Function Call: WRITE	Prompt: !?5,"LOCATION OF VISIT" Line Location: HEAD1+15
Function Call: WRITE	Prompt: !?10,"SERVICE CATEGORY",?50,"# PROVIDER CONTACTS",! Line Location: HEAD1+16
Function Call: WRITE	Prompt: APCL80S Line Location: HEAD1+17
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(9000010.06	P+3, HEAD1+7
^DIC(16 - [#16]	P+3, HEAD1+7
^DIC(4 - [#4]	P+6
^DIC(7 - [#7]	P+3, HEAD1+7
^VA(200 - [#200]	P+3, HEAD1+7
^XTMP("APCLAP3"	START+6, DONE+2!, P+5, P+7, P+9, P+12, P+13

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL80S	START+1*, HEAD1+17
>> APCLBDD	HEAD1+14
>> APCLBTH	START+6, DONE+2, P+5, P+7, P+9, P+12, P+13
>> APCLCAT	P+7*, P+9
>> APCLDISC	HEAD1+7
>> APCLDT	START+3*, HEAD1+3
>> APCLED	START+2
>> APCLEDD	START+2*, HEAD1+14
>> APCLJOB	START+6, DONE+2, P+5, P+7, P+9, P+12, P+13
>> APCLLENG	HEAD1+8, HEAD1+9, HEAD1+10, HEAD1+11
>> APCLLOC	HEAD1+5
>> APCLLOCT	HEAD1+5*, HEAD1+8, HEAD1+9
>> APCLPG	START+4, HEAD, HEAD1+1, HEAD1+3
>> APCLPOS	START+5, START+6, P+3, P+4, P+5, P+7, P+9, P+12, P+13
>> APCLPRIM	HEAD1+12
>> APCLPROS	HEAD1+7*, HEAD1+10, HEAD1+11
>> APCLPROT	HEAD1+6*, HEAD1+10, HEAD1+11
>> APCLPROV	HEAD1+7
>> APCLPSRT	P+2, P+3, P+4, HEAD1+6, HEAD1+7
APCLQUIT	START+5!, START+6, START+7, START+8, P+1, P+5, P+7, P+8, P+10, P+11 , HEAD+1*
>> APCLTAB	HEAD1+12*, HEAD1+13
>> APCLTEXT	HEAD1+12*, HEAD1+13
>> APCLTOT	START+4, START+5, START+10, P+13*
>> APCLVLOC	P+5*, P+6, P+7, P+9
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	START+8, P+1, P+8, P+11
IOST	HEAD+1
U	P+3, P+6, HEAD1+7
>> X	START+3
>> Y	START+2, START+3, HEAD+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLAP3P

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
DONE	START+7, START+8
HEAD	START+4, START+8, P+1, P+8, P+11
HEAD1	HEAD
P	START+6