Routine: APCL2AP

Package	Total	Call Graph
VA Fileman	2	DD^%DT ^DIR
Patient Care Component Reports	1	DONE^APCLOSUT

Entry Points

Name	Comments	DBIA/ICR reference
HEAD
P1	;
HEAD1	;
P	;
START2	;
START1	;
SU	;
CHKPRIM	;
START	;
DONE
MONTOT	;set up month totals for all visits and pcp visits
W

External References

Name	Field # of Occurrence
DD^%DT	START+5
DONE^APCLOSUT	DONE
^DIR	HEAD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO VISITS FOR THIS FISCAL YEAR",! Line Location: START2+3
Function Call: WRITE	Prompt: !!," T O T A L",?21,$J(APCLGRAN(APCLLOC),7),?30,"100.0" Line Location: START2+7
Function Call: WRITE	Prompt: ?APCLTAB,$J(APCLMON,6) Line Location: START2+8
Function Call: WRITE	Prompt: !!,"*TOTAL PRIMARY PVDR",?21,$J(APCLPRIT,7) Line Location: START2+9
Function Call: WRITE	Prompt: ?30,$J(APCLP,5) Line Location: START2+10
Function Call: WRITE	Prompt: ?APCLTAB,$J(APCLMON,6) Line Location: START2+10
Function Call: WRITE	Prompt: !!!,^("IN XREF")," visits were not exported to the National Data Warehouse because they ",!,"were posted or modified after the last NDW export was generated.",! Line Location: START2+12
Function Call: WRITE	Prompt: ! Line Location: START2+22
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !,APCLDISN,?22,$J(APCLT,6),?30,$J(APCLP,5) Line Location: W+0
Function Call: WRITE	Prompt: ?APCLTAB,$J(APCLMON,6) Line Location: W+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: APCL132,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !?5,"AREA: ",APCLAREC," ",APCLAREA,?50,"PCC-AMBULATORY PATIENT CARE REPORT 1A",?95,APCLDT,?110,"Page ",APCLPG Line Location: HEAD1+3
Function Call: WRITE	Prompt: !?5,"S.U.: ",APCLSUC," ",APCLSU,?58,"FISCAL YEAR ",APCLFYD Line Location: HEAD1+4
Function Call: WRITE	Prompt: !?5,"FAC.: ",APCLLOCC," ",APCLLOCP Line Location: HEAD1+5
Function Call: WRITE	Prompt: !?24,"AMBULATORY CARE VISITS TO SERVICE LOCATION BY PRIMARY PROVIDER AND MONTH OF SERVICE",! Line Location: HEAD1+6
Function Call: WRITE	Prompt: APCL132,! Line Location: HEAD1+7
Function Call: WRITE	Prompt: "PRIMARY PROVIDER",?23,"YR-TO",?30,"% OF" Line Location: HEAD1+8
Function Call: WRITE	Prompt: !," OF SERVICE",?23,"DATE",?30,"TOTAL" Line Location: HEAD1+9
Function Call: WRITE	Prompt: ?APCLTAB,$P(APCLMOL,",",APCLX) Line Location: HEAD1+10
Function Call: WRITE	Prompt: !,APCL132 Line Location: HEAD1+11
Routine Call	DIR Line Location: HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTAREA - [#9999999.21]	START1+4, START1+5
^AUTTLOC - [#9999999.06]	START1+2, START1+3, SU+1
^AUTTSU - [#9999999.22]	SU+2, SU+3
^DIC(4 - [#4]	START1+2
^DIC(7 - [#7]	P1+4, CHKPRIM+2
^XTMP("APCL2A"	START2+4, START2+8, START2+10, START2+11, START2+12, START2+13, DONE+1!, P+1, P1+2, W+1 , MONTOT+1, MONTOT+2

Label References

Name	Line Occurrences
CHKPRIM	P1+4
DONE	START+9, START2+3, START2+5, START2+6
HEAD	START2+1, START2+6, P1+1
HEAD1	HEAD
MONTOT	W+1
P	START2+4
P1	P+1
START1	START+7
START2	SU+1, SU+2
SU	START1+3, START1+4, START1+6
W	P1+3

Naked Globals

Name	Field # of Occurrence
^(	START2+8, START2+10, W+1, MONTOT+1, MONTOT+2
^("IN XREF"	START2+12, START2+13
^("NO EXPORT"	START2+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL("FY"	START+5
>> APCL132	START+1*, HEAD1+2, HEAD1+7, HEAD1+11
>> APCLAREA	START1+3, START1+4, START1+5*, HEAD1+3
>> APCLAREC	START1+3, START1+4, START1+5*, HEAD1+3
>> APCLBT	START2+4, START2+8, START2+10, START2+11, START2+12, START2+13, DONE+1, P+1, P1+2, W+1 , MONTOT+1, MONTOT+2
>> APCLDISC	START2+1, P+1, P1+2, P1+3, P1+4, W+1, CHKPRIM+2
>> APCLDISN	P1+3, P1+4, W
>> APCLDT	START+5*, HEAD1+3
>> APCLFYD	START+5*, HEAD1+4
>> APCLGRAN(	START2+3, START2+7, START2+9, P1+2
>> APCLJ	START2+8, START2+10, W+1*, MONTOT+1, MONTOT+2
>> APCLJOB	START2+4, START2+8, START2+10, START2+11, START2+12, START2+13, DONE+1, P+1, P1+2, W+1 , MONTOT+1, MONTOT+2
>> APCLLOC	START1+1*, START1+2, START1+3, SU+1, START2+3, START2+4, START2+7, START2+8, START2+9, START2+10 , START2+11, START2+12, START2+13, P+1, P1+2, W+1, MONTOT+1, MONTOT+2
>> APCLLOCC	START1+2*, HEAD1+5
>> APCLLOCP	START1+2*, HEAD1+5
>> APCLLOCS(	START1+1
>> APCLMOL	START+2*, HEAD1+10
>> APCLMON	START2+8, START2+10, W+1*, MONTOT+1, MONTOT+2
>> APCLP	START2+9, START2+10, P1+2, W
>> APCLPDC	START2+1, START2+4, P+1, P1+2, W+1
>> APCLPG	START2+1, HEAD, HEAD1+1, HEAD1+3
APCLPRIM	P1+4!, MONTOT+2, CHKPRIM+2*
>> APCLPRIT	START2+1, START2+9, CHKPRIM+2
APCLQUIT	START+8, START1+1, START2+2!, START2+4, START2+5, START2+6, P+1, P1+1, HEAD+1*
>> APCLSU	SU+1, SU+2, SU+3*, HEAD1+4
>> APCLSUC	SU+1, SU+2, SU+3*, HEAD1+4
>> APCLT	P1+2*, W, CHKPRIM+2
>> APCLTAB	START2+8, START2+10, W+1, HEAD1+10
>> APCLX	HEAD1+10*
DIR	HEAD+1!
DIR(0	HEAD+1*
DT	START+5
>> DTOUT	HEAD+1
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	START2+6, P1+1
IOST	HEAD+1
U	START1+2, START1+3, START1+5, SU+1, SU+3, P1+4, CHKPRIM+2
>> Y	START+5*, HEAD+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCL2AP

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: