Routine: APCL1AP

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
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+2
Function Call: WRITE	Prompt: !!," T O T A L",?21,$J(APCLGRAN,7),?30,"100.0" Line Location: START2+6
Function Call: WRITE	Prompt: ?APCLTAB,$J(APCLMON,6) Line Location: START2+7
Function Call: WRITE	Prompt: !!,"*TOTAL PRIMARY PVDR",?21,$J(APCLPRIT,7) Line Location: START2+8
Function Call: WRITE	Prompt: ?30,$J(APCLP,5) Line Location: START2+9
Function Call: WRITE	Prompt: ?APCLTAB,$J(APCLMON,6) Line Location: START2+9
Function Call: WRITE	Prompt: !!!,^("IN XREF")," visits were not exported to the National Data Warehouse (NDW) because they",!,"were posted or modified after the last NDW export was generated.",! Line Location: START2+11
Function Call: WRITE	Prompt: " visits that will be counted in this report but not in the 1A report from the National Data Warehouse.",! Line Location: START2+19
Function Call: WRITE	Prompt: ! Line Location: START2+20
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

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

Name	Field # of Occurrence
^(	START2+7, START2+9, W+1, MONTOT+1, MONTOT+2
^("DUPLICATE"	START2+18
^("IN XREF"	START2+11, START2+12
^("NO EXPORT"	START2+12, START2+18

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL("FY"	START+5
>> APCL132	START+1*, HEAD1+2, HEAD1+7, HEAD1+11
>> APCLAREA	START+8, START+9, START+10*, HEAD1+3
>> APCLAREC	START+8, START+9, START+10*, HEAD1+3
>> APCLBT	START2+3, START2+7, START2+9, START2+10, START2+11, START2+12, START2+17, START2+18, DONE+1, P+1 , P1+2, W+1, MONTOT+1, MONTOT+2
>> APCLDISC	START2, 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+2, START2+6, START2+8, P1+2
>> APCLJ	START2+7, START2+9, W+1*, MONTOT+1, MONTOT+2
>> APCLJOB	START2+3, START2+7, START2+9, START2+10, START2+11, START2+12, START2+17, START2+18, DONE+1, P+1 , P1+2, W+1, MONTOT+1, MONTOT+2
>> APCLLOC	START+7, START+8, SU+1
>> APCLLOCC	START+7*, HEAD1+5
>> APCLLOCP	START+7*, HEAD1+5
>> APCLMOL	START+2*, HEAD1+10
>> APCLMON	START2+7, START2+9, W+1*, MONTOT+1, MONTOT+2
>> APCLP	START2+8, START2+9, P1+2, W
>> APCLPDC	START2, START2+3, P+1, P1+2, W+1
>> APCLPG	START2, HEAD, HEAD1+1, HEAD1+3
APCLPRIM	P1+4!, MONTOT+2, CHKPRIM+2*
>> APCLPRIT	START2, START2+8, CHKPRIM+2
APCLQUIT	START2+1!, START2+3, START2+4, START2+5, 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+7, START2+9, 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+5, P1+1
IOST	HEAD+1
U	START+7, START+8, START+10, SU+1, SU+3, P1+4, CHKPRIM+2
>> Y	START+5*, HEAD+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCL1AP

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:

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