Routine: APCLEL4

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VALI^XBDIQ1 ^XBFMK EN^XBVK
Patient Care Component Reports	2	XTMP^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL
IHS Patient	1	($$AGE,$$DOB,$$DOD,$$HRN,KILL)^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
LOC()	;EP - Return location name from file 4 based on DUZ(2).
HEAD
ZIS	;call to XBDBQUE
HEAD1	;
INFORM	;
DEMO	;
PRINT	;EP - called from xbdbque
TALLY	;
FA(P,B,E)	;
START	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
EXIT	;clean up and exit
CTR(X,Y)	;EP - Center X in a field Y wide.
DATE	;get visit date range for functional assessment
DONE	;
PROC	;EP - called from XBDBQUE

External References

Name	Field # of Occurrence
XTMP^APCLOSUT	PROC+3
$$DEMO^APCLUTL	PROC+7
DEMOCHK^APCLUTL	DEMO+1
$$AGE^AUPNPAT	TALLY+9
$$DOB^AUPNPAT	TALLY+9
$$DOD^AUPNPAT	PROC+6
$$HRN^AUPNPAT	TALLY+9
KILL^AUPNPAT	EXIT+3
^DIR	DATE+3, DONE+1, HEAD+1, EOP+5
^XBDBQUE	DEMO+4
$$VALI^XBDIQ1	PROC+13, PROC+14, TALLY+10, TALLY+11
^XBFMK	EXIT+2
EN^XBVK	EXIT+1
$$FMADD^XLFDT	DATE+4
$$FMTE^XLFDT	TALLY+9, HEAD1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC) Line Location: INFORM+2
Function Call: WRITE	Prompt: !,$$CTR($$USR) Line Location: INFORM+3
Function Call: WRITE	Prompt: !!,"This report will tally the number of patients who have had",!,"2 or more items in the ADL and 2 or more items in the IADL groups",!,"documented as NEEDS HELP or TOTALLY DEPENDENT.",! Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"All patients who have had a functional assessment in the year prior the as of",!,"date entered will be reviewed.",! Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"A list of the patients will also be listed.",! Line Location: INFORM+6
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT" Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,"Total Number of Patients w/Functional Assessment Documented: ",?70,$J(APCLPTOT,6) Line Location: TALLY+3
Function Call: WRITE	Prompt: !!,"Total Number of Patients w/2 or more in ADL and IADL documented",!,"as NEEDS HELP or TOTALLY DEPENDENT",?70,$J(APCLADL,6),!! Line Location: TALLY+4
Function Call: WRITE	Prompt: $P(^DD(9000010.35,APCLX,0),U),"-",V," " Line Location: TALLY+10
Function Call: WRITE	Prompt: $E($P(^DD(9000010.35,APCLX,0),U),1,12),"-",V," " Line Location: TALLY+11
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",APCLPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: ?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: $$CTR("ELDER PATIENTS WITH 2 OR MORE ITEMS",80),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $$CTR("documented as NEEDS HELP or TOTALLY DEPENDENT",80),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: $$CTR(X,80) Line Location: HEAD1+7
Function Call: WRITE	Prompt: !?64,"LAST FUNCTIONAL",!,"PATIENT NAME",?28,"HRN",?36,"SEX",?41,"DOB",?59,"AGE",?64,"ASSESSMENT" Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,APCL80D Line Location: HEAD1+9
Routine Call	DIR Line Location: DATE+3 DONE+1 HEAD+1 EOP+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PROC+5
^AUPNVELD - [#9000010.35]	FA+5, TALLY+9
^AUPNVELD("AC"	FA+2, FA+4
^AUPNVSIT - [#9000010]	FA+5, TALLY+9
^DD(9000010.35	TALLY+10, TALLY+11
^DIC(4 - [#4]	HEAD1+4, LOC+1
^DPT - [#2]	TALLY+9
^VA(200 - [#200]	HEAD1+3, USR+1
^XTMP("APCLEL4"	PROC+2!, PROC+15*, PRINT+4, TALLY+6, TALLY+8, DONE+3!

Label References

Name	Line Occurrences
$$CTR	INFORM+2, INFORM+3, HEAD1+5, HEAD1+6, HEAD1+7
$$FA	PROC+9
$$LOC	INFORM+2
$$USR	INFORM+3
DATE	DEMO+2
DONE	PRINT+4, PRINT+6
EXIT	INFORM+7, DATE+3, DEMO+5
HEAD	PRINT+4, TALLY+2, TALLY+5, TALLY+7
HEAD1	HEAD
TALLY	PRINT+5

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCL80D	PRINT+2*, HEAD1+9
>> APCLADL	PROC+4, PROC+15, TALLY+4
>> APCLBD	DATE+4*, PROC+9, TALLY+9, HEAD1+7
APCLBTH	PROC+1*, PROC+2, PROC+15, PRINT+4, TALLY+6, TALLY+8, DONE+3!
>> APCLDA	PROC+13, PROC+14, TALLY+10, TALLY+11
>> APCLDEMO	DEMO+1, DEMO+2, PROC+7
>> APCLED	DATE+1, DATE+3, DATE+4, PROC+9, HEAD1+7
>> APCLIADL	PROC+4*
>> APCLIEN	TALLY+8*, TALLY+9, TALLY+10, TALLY+11
APCLJOB	PROC+1*, PROC+2, PROC+15, PRINT+4, TALLY+6, TALLY+8, DONE+3!
>> APCLPG	PRINT+3, HEAD, HEAD1+1, HEAD1+3
>> APCLPTOT	PROC+1, PROC+11, TALLY+3
APCLQ	PRINT+1!, TALLY+6, TALLY+7, HEAD+1*
>> APCLTR	PRINT+2, TALLY+1, HEAD1+8
>> APCLX	PROC+13, PROC+14, TALLY+10, TALLY+11
B	FA~, FA+6
D	FA+3~, FA+5*, FA+6, FA+7, FA+8
>> DFN	PROC+5, PROC+6, PROC+7, PROC+9, PROC+15, TALLY+6, TALLY+8, TALLY+9
DFOUT	EOP+4!
DIR	DATE+2!, DATE+3!, DONE+1!, HEAD+1!, EOP+3~
DIR("A"	DATE+2, DONE+1
DIR(0	DATE+2, DONE+1, HEAD+1, EOP+5
DIRUT	DONE+1*, EOP+4!
DLOUT	EOP+4!
DTOUT	HEAD+1, EOP+4!
DUOUT	DONE+1, EOP+4!
DUZ	HEAD1+3, USR+1
DUZ(2	TALLY+9, HEAD1+4, LOC+1
E	FA~, FA+7
G	PROC+13, PROC+15, FA+3~, FA+4!, TALLY+10*
G(	FA+11
G(0	FA+10
G(9999999	FA+8*
>> H	PROC+14, PROC+15, TALLY+11
IO	DONE+1, HEAD+1
IO("S"	EOP+2
IO(0	DONE+1, HEAD+1
IOF	INFORM+1, DONE+2, HEAD1+1
IOM	CTR+1
IOSL	TALLY+7
IOST	DONE+1, HEAD+1, EOP+1
>> IOT	EOP+2
P	FA~, FA+1, FA+2, FA+4
U	FA+5, TALLY+9, TALLY+10, TALLY+11, HEAD1+3, HEAD1+4, USR+1, LOC+1
>> V	PROC+13, PROC+14, FA+5, TALLY+10, TALLY+11*
X	PROC+9, PROC+10, PROC+13, PROC+14, PROC+15, FA+3~, FA+4, FA+5, FA+8, FA+11* , HEAD1+7*, CTR~, CTR+1
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	DATE+3, FA+3~, HEAD+1, CTR~, CTR+1
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLEL4

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: