Routine: APCLOSP

Package	Total	Call Graph
VA Fileman	2	DD^%DT ^DIR
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	(CALC,DONE)^APCLOSUT

Package	Total	Caller Graph
Patient Care Component Reports	6	APCLOSP1 APCLOSP2 APCLOSP3 APCLOSP4 APCLOSP5 APCLOSP6

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;ENTRY POINT
SEGMNT	; OUTPUT A SEGMENT TYPE
HEAD1	;
THIRD	;
EOJ	;ENTRY POINT
POP	;
START	;
DONE	;

External References

Name	Field # of Occurrence
DD^%DT	HEAD1+5
CALC^APCLOSUT	POP+3, POP+6, POP+8, POP+10, THIRD+3, THIRD+5, THIRD+7, THIRD+9, THIRD+11
DONE^APCLOSUT	DONE+2
^DIR	HEAD+2
$$FMTE^XLFDT	HEAD1+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PATIENT REGISTRATION" Line Location: POP+2
Function Call: WRITE	Prompt: !!,"There are ",X," (",Z,") living patients registered at this ",$S(APCLLOCT="O":"facility.",1:"SU.") Line Location: POP+4
Function Call: WRITE	Prompt: !,"This number does not represent the 'Active User Population' which",!,"is found elsewhere in PCC Reports." Line Location: POP+5
Function Call: WRITE	Prompt: " There were ",X," (",Z,") new patients, ",! Line Location: POP+7
Function Call: WRITE	Prompt: X," (",Z,") births, and " Line Location: POP+9
Function Call: WRITE	Prompt: X," (",Z,") death(s) during this period. Data is",!,"based on the Patient Registration File." Line Location: POP+11
Function Call: WRITE	Prompt: !!,"THIRD PARTY ELIGIBILITY" Line Location: THIRD+2
Function Call: WRITE	Prompt: !!,"There were ",X," (",Z,") patients enrolled in Medicare Part A and " Line Location: THIRD+4
Function Call: WRITE	Prompt: !,X," (",Z,") patients enrolled in Part B at the end of this time period." Line Location: THIRD+6
Function Call: WRITE	Prompt: !!,"There were ",X," (",Z,") patients enrolled in Medicare Part D." Line Location: THIRD+8
Function Call: WRITE	Prompt: !!,"There were also ",X," (",Z,") patients enrolled in Medicaid and" Line Location: THIRD+10
Function Call: WRITE	Prompt: !,X," (",Z,") patients with an active private insurance policy as of that date." Line Location: THIRD+12
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: HEAD+4
Function Call: WRITE	Prompt: !?10,"PCC Operations Summary for ",APCLSUP,$S(APCLLOCT="O":"",APCLLOCT="S":" Service Unit",1:""),?70,"Page ",APCLPG Line Location: HEAD+4
Function Call: WRITE	Prompt: !?72,"Page ",APCLPG Line Location: HEAD1+3
Function Call: WRITE	Prompt: !?((80-APCLLENG)/2),"OPERATIONS SUMMARY FOR ",APCLSUP,$S(APCLLOCT="O":"",APCLLOCT="S":" Service Unit",1:"") Line Location: HEAD1+4
Function Call: WRITE	Prompt: !?33,"FOR ",Y Line Location: HEAD1+5
Function Call: WRITE	Prompt: !192,"FOR FY",APCLFY,"-To-Date as of ",APCLFYEY Line Location: HEAD1+6
Function Call: WRITE	Prompt: !?22,"FOR FY",APCLFY,"-To-Date: ",APCLFYBY," - ",APCLFYEY Line Location: HEAD1+7
Function Call: WRITE	Prompt: !?15,"FOR DATE RANGE: ",$$FMTE^XLFDT(APCLFYB)," - ",$$FMTE^XLFDT(APCLFYE) Line Location: HEAD1+8
Function Call: WRITE	Prompt: !!,"(Note: In parentheses following each statistic is the percent increase or",!,"decrease from the same time period in the previous year. '**' indicates",!,"no data is present for one of the two time periods.)",! Line Location: HEAD1+9
Routine Call	DIR Line Location: HEAD+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLOSC - [#9001003.2]	SEGMNT+1
^APCLOST - [#9001003.1]	START+6, SEGMNT+1
^AUTTSU - [#9999999.22]	START+2, START+3
^DIC(4 - [#4]	START+3
^XTMP("APCLOS"	DONE+1!, POP+3, POP+6, POP+8, POP+10, THIRD+3, THIRD+5, THIRD+7, THIRD+9, THIRD+11
^XTMP("APCLOSP"	DONE+1!, POP+3, POP+6, POP+8, POP+10, THIRD+3, THIRD+5, THIRD+7, THIRD+9, THIRD+11
^XTMP("APCLSU"	START+3, DONE+1!

Label References

Name	Line Occurrences
@(	SEGMNT+2
HEAD	START+5, POP+1, THIRD+1
HEAD1	HEAD+1
SEGMNT	START+6

Naked Globals

Name	Field # of Occurrence
^("BIRTHS"	POP+8
^("DEATHS"	POP+10
^("LIVREG"	POP+3
^("MCD"	THIRD+9
^("MCRA"	THIRD+3
^("MCRB"	THIRD+5
^("MCRD"	THIRD+7
^("NEWREG"	POP+6
^("PI"	THIRD+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCL1	EOJ+1!, EOJ+2!
APCL2	EOJ+1!, EOJ+2!
APCL3	EOJ+2!, EOJ+3!
APCLBT	EOJ+2!
>> APCLBTH	START+3, DONE+1, POP+3, POP+6, POP+8, POP+10, THIRD+3, THIRD+5, THIRD+7, THIRD+9 , THIRD+11
APCLC	EOJ+1!
APCLD	EOJ+1!
>> APCLFY	HEAD1+7
>> APCLFYB	HEAD1+8
>> APCLFYBY	HEAD1+7
>> APCLFYE	HEAD1+8
>> APCLFYEY	HEAD1+7
APCLGLOB	EOJ+1!
>> APCLJOB	START+3, DONE+1, POP+3, POP+6, POP+8, POP+10, THIRD+3, THIRD+5, THIRD+7, THIRD+9 , THIRD+11
APCLLC	EOJ+1!, EOJ+2!
APCLLENG	EOJ+1!, HEAD1+2*, HEAD1+4
APCLLOCT	START+2, START+3, START+4, EOJ+1!, POP+4, HEAD+4, HEAD1+4
APCLLWC	EOJ+3!
APCLMAX	EOJ+1!
>> APCLMFY	HEAD1+5, HEAD1+7, HEAD1+8
>> APCLMON	HEAD1+5
APCLN	EOJ+1!
APCLPD	EOJ+1!
APCLPG	START+1, EOJ+1!, HEAD+1, HEAD+3, HEAD+4, HEAD1+1*, HEAD1+3
APCLPIEC	EOJ+1!
APCLPTR	EOJ+3!
APCLQUIT	START+6!, POP+1, THIRD+1, HEAD+2*
APCLRPT	START+6, EOJ+1!, SEGMNT+1
APCLSEGC	EOJ+1!, SEGMNT+1*
APCLSEGN	START+6*, EOJ+1!, SEGMNT+1
APCLSEGP	EOJ+1!, SEGMNT+1*, SEGMNT+2
APCLSEGT	EOJ+1!, SEGMNT+1*
>> APCLSQ	START+6*
APCLSQIT	EOJ+1!
APCLSU	START+2, START+3, EOJ+1!
APCLSUN	START+2, START+3, START+4*, EOJ+1!, HEAD1+2
APCLSUP	START+2, START+3, START+4*, EOJ+1!, HEAD+4, HEAD1+4
APCLT	EOJ+2!, EOJ+3!
APCLTOT	EOJ+1!
APCLTOTC	EOJ+2!, EOJ+3!
APCLTOTO	EOJ+2!, EOJ+3!
APCLTYPE	EOJ+1!
APCLWC	EOJ+3!
APCLX	EOJ+1!, EOJ+2!
APCLY	EOJ+1!
DIR	HEAD+2!
DIR(0	HEAD+2*
>> DTOUT	HEAD+2
G	EOJ+4!
IO	HEAD+2
IO(0	HEAD+2
IOF	HEAD+4, HEAD1+1
IOSL	POP+1, THIRD+1
IOST	HEAD+2
U	START+2, START+3, SEGMNT+1, SEGMNT+2
X	EOJ+4!, POP+3, POP+4, POP+6, POP+7, POP+8, POP+9, POP+10, POP+11, THIRD+3* , THIRD+4, THIRD+5, THIRD+6, THIRD+7, THIRD+8, THIRD+9, THIRD+10, THIRD+11, THIRD+12
Y	EOJ+4!, POP+3, POP+6, POP+8, POP+10, THIRD+3, THIRD+5, THIRD+7, THIRD+9, THIRD+11* , HEAD+2, HEAD1+5*
Z	EOJ+4!, POP+4, POP+7, POP+9, POP+11, THIRD+4, THIRD+6, THIRD+8, THIRD+10, THIRD+12

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLOSP

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: