Routine: APCLEL1

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
Patient Care Component Reports	3	$$START1^APCLDF XTMP^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL
VA Fileman	2	^DIC ^DIR
IHS Patient	1	($$AGE,$$DOB,$$DOD,$$HRN,KILL)^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT
PCC Medical Query	1	PEP^AMQQGTX0

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

Name	Field # of Occurrence
PEP^AMQQGTX0	CMMNTS+11
$$START1^APCLDF	NUMV+7
XTMP^APCLOSUT	PROC+3
$$DEMO^APCLUTL	PROC+12
DEMOCHK^APCLUTL	DEMO+1
$$AGE^AUPNPAT	PROC+13, LIST+7
$$DOB^AUPNPAT	LIST+7
$$DOD^AUPNPAT	PROC+11
$$HRN^AUPNPAT	LIST+7
KILL^AUPNPAT	EXIT+3
^DIC	CMMNTS+7, CMMNTS+10
^DIR	DATE+3, DATE+5, AGE+3, CMMNTS+2, NV+3, RPT+2, DONE+1, HEAD+1, EOP+5
^XBDBQUE	DEMO+4
^XBFMK	EXIT+2
EN^XBVK	EXIT+1
$$FMADD^XLFDT	NUMV+4
$$FMTE^XLFDT	NV+2, NUMV+7, LIST+7, HEAD1+6

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 by age/sex, all patients who have had a functional",!,"assessment in a date range you specify. You will also specity what age" Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"range of patients you are interested in. In order to determine the demoninator",!,"or population of patients to review, you will be asked if you want " Line Location: INFORM+5
Function Call: WRITE	Prompt: "patients who live a particular community or set of communities",!,"and to specify the minimum number of times the must have been seen" Line Location: INFORM+6
Function Call: WRITE	Prompt: !,"in the 3 years prior to the end of your date range in order to be included ",!,"in the report.",! Line Location: INFORM+7
Function Call: WRITE	Prompt: !,"You will be given the opportunity to get a tally of patients only, ",!,"or to get a tally and a list of the patients.",!! Line Location: INFORM+8
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: DATE+8
Function Call: WRITE	Prompt: !,"Please enter the age range of patients you are interested in." Line Location: AGE+1
Function Call: WRITE	Prompt: ! Line Location: AGE+2
Function Call: WRITE	Prompt: !!,"No age range entered." Line Location: AGE+5
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Enter a numeric range in the format nnn-nnn. e.g. 0-5, 0-99, 5-20." Line Location: AGE+6
Function Call: WRITE	Prompt: !,"Enter an age range, maximum age 130",! Line Location: AGE+7
Function Call: WRITE	Prompt: !!,"Patients from all communities will be included in the report.",! Line Location: CMMNTS+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: CMMNTS+10
Function Call: WRITE	Prompt: !!,"In order to determine 'active' patients please indicate the minimum number of" Line Location: NV+1
Function Call: WRITE	Prompt: !,"times the patient must have been seen in the 3 years prior to ",$$FMTE^XLFDT(APCLED),!,"in order to be considered active and be included in this report.",! Line Location: NV+2
Function Call: WRITE	Prompt: !!,"NO PATIENTS TO REPORT" Line Location: PRINT+4
Function Call: WRITE	Prompt: ?20,"-",?27,"-",?33,"-" Line Location: TALLY+8
Function Call: WRITE	Prompt: ?15,$J($P(APCLF,U,2),6),?22,$J($P(APCLF,U),6) Line Location: TALLY+9
Function Call: WRITE	Prompt: ?29,V Line Location: TALLY+9
Function Call: WRITE	Prompt: ?40,"-",?47,"-",?53,"-" Line Location: TALLY+10
Function Call: WRITE	Prompt: ?35,$J($P(APCLM,U,2),6),?42,$J($P(APCLM,U),6) Line Location: TALLY+11
Function Call: WRITE	Prompt: ?49,V Line Location: TALLY+11
Function Call: WRITE	Prompt: ?60,"-",?67,"-",?73,"-" Line Location: TALLY+13
Function Call: WRITE	Prompt: ?55,$J(T1,6),?62,$J(T,6) Line Location: TALLY+14
Function Call: WRITE	Prompt: ?69,V Line Location: TALLY+14
Function Call: WRITE	Prompt: !!,"TOTAL" Line Location: TALLY+17
Function Call: WRITE	Prompt: ?20,"-",?27,"-",?33,"-" Line Location: TALLY+18
Function Call: WRITE	Prompt: ?15,$J($P(APCLTF,U,2),6),?22,$J($P(APCLTF,U),6) Line Location: TALLY+19
Function Call: WRITE	Prompt: ?29,V Line Location: TALLY+19
Function Call: WRITE	Prompt: ?40,"-",?47,"-",?53,"-" Line Location: TALLY+20
Function Call: WRITE	Prompt: ?35,$J($P(APCLTM,U,2),6),?42,$J($P(APCLTM,U),6) Line Location: TALLY+21
Function Call: WRITE	Prompt: ?49,V Line Location: TALLY+21
Function Call: WRITE	Prompt: ?60,"-",?67,"-",?73,"-" Line Location: TALLY+23
Function Call: WRITE	Prompt: ?55,$J(T1,6),?62,$J(T,6) Line Location: TALLY+24
Function Call: WRITE	Prompt: ?69,V Line Location: TALLY+24
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("PATIENTS WITH FUNCTIONAL ASSESSMENT DOCUMENTED",80),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $$CTR(X,80) Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,$$CTR(X) Line Location: HEAD1+7
Function Call: WRITE	Prompt: !,$$CTR(X) Line Location: HEAD1+8
Function Call: WRITE	Prompt: !,APCL80D Line Location: HEAD1+9
Function Call: WRITE	Prompt: !,?24,"FEMALES",?42,"MALES/UNKNOWN",?65,"TOTAL",!,?20,"#",?27,"N",?32,"%",?40,"#",?47,"N",?52,"%",?60,"#",?66,"N",?72,"%",!,?17,"------------------" Line Location: HEAD1+10
Function Call: WRITE	Prompt: !?64,"LAST FUNCTIONAL",!,"PATIENT NAME",?28,"HRN",?36,"SEX",?41,"DOB",?59,"AGE",?64,"ASSESSMENT",!,APCL80D Line Location: HEAD1+12
Routine Call	DIC Line Location: CMMNTS+7 CMMNTS+10
Routine Call	DIR Line Location: DATE+3 DATE+5 AGE+3 CMMNTS+2 NV+3 RPT+2 DONE+1 HEAD+1 EOP+5

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^AUTTCOM - [#9999999.05]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PROC+10, PROC+16
^AUPNVELD - [#9000010.35]	FA+5
^AUPNVELD("AC"	FA+2, FA+4
^AUPNVSIT - [#9000010]	FA+5
^AUTTCOM - [#9999999.05]	CMMNTS+9
^DIC(4 - [#4]	HEAD1+4, LOC+1
^DPT - [#2]	PROC+21, PROC+22, PROC+24, PROC+25, LIST+7
^VA(200 - [#200]	HEAD1+3, USR+1
^XTMP("APCLEL1"	PROC+2!, PROC+5, PROC+21, PROC+24, PROC+25, PRINT+4, TALLY+3, TALLY+6, TALLY+7, LIST+3 , LIST+4, LIST+5, LIST+7, DONE+3!

Name	Line Occurrences
$$CTR	INFORM+2, INFORM+3, HEAD1+5, HEAD1+6, HEAD1+7, HEAD1+8
$$FA	PROC+20
$$LOC	INFORM+2
$$NUMV	PROC+18
$$USR	INFORM+3
AGE	AGE+6, AGE+7, CMMNTS+3
CMMNTS	CMMNTS+5, CMMNTS+12, CMMNTS+13, NV+4
DATE	DATE+7, AGE+4, AGE+5
DONE	PRINT+4, PRINT+6, PRINT+8
EXIT	INFORM+9, DATE+3, DATE+5, DEMO+5
HEAD	PRINT+4, TALLY+2, TALLY+4, TALLY+16, LIST+2, LIST+6
HEAD1	HEAD
LIST	PRINT+7
NV	CMMNTS+4, CMMNTS+5, RPT+3
RPT	DEMO+2
TALLY	PRINT+5

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGE	PROC+13*, PROC+14, PROC+21, PROC+24, PROC+25
APCL	NUMV+5~, NUMV+10!
APCL(	NUMV+9
>> APCL80D	PRINT+2*, HEAD1+9, HEAD1+12
>> APCLA	TALLY+3, TALLY+5, TALLY+6, TALLY+7, LIST+3, LIST+4, LIST+5, LIST+7
>> APCLAGET	AGE+8*, PROC+4, PROC+14
>> APCLBD	DATE+1, DATE+3, DATE+7, PROC+13, PROC+20, LIST+7, HEAD1+6
APCLBTH	PROC+1*, PROC+2, PROC+5, PROC+21, PROC+24, PROC+25, PRINT+4, TALLY+3, TALLY+6, TALLY+7 , LIST+3, LIST+4, LIST+5, LIST+7, DONE+3!
APCLCOMM	CMMNTS+1!, CMMNTS+5, CMMNTS+6!, CMMNTS+10!, CMMNTS+12, CMMNTS+13!, PROC+16, HEAD1+7, HEAD1+8
APCLCOMM(	CMMNTS+9*, PROC+16
APCLCOMM("*"	CMMNTS+13
>> APCLDEMO	DEMO+1, DEMO+2, PROC+12
>> APCLED	DATE+1, DATE+5, DATE+7, NV+2, PROC+18, PROC+20, HEAD1+6
>> APCLERR	CMMNTS+10*
>> APCLF	TALLY+6*, TALLY+8, TALLY+9, TALLY+12
APCLJOB	PROC+1*, PROC+2, PROC+5, PROC+21, PROC+24, PROC+25, PRINT+4, TALLY+3, TALLY+6, TALLY+7 , LIST+3, LIST+4, LIST+5, LIST+7, DONE+3!
>> APCLM	TALLY+7*, TALLY+10, TALLY+11, TALLY+12
>> APCLNV	NV+5*, PROC+18
>> APCLPG	PRINT+3, HEAD, HEAD1+1, HEAD1+3
APCLQ	PRINT+1!, PRINT+6, TALLY+2, TALLY+3, TALLY+4, TALLY+15, TALLY+16, LIST+2, LIST+3, LIST+4 , LIST+5, LIST+6, HEAD+1*
>> APCLRPT	RPT+1, RPT+4, PRINT+5, PRINT+7
>> APCLS	LIST+4*, LIST+5, LIST+7
>> APCLTF	TALLY+1, TALLY+6, TALLY+18, TALLY+19, TALLY+22
>> APCLTM	TALLY+1, TALLY+7, TALLY+20, TALLY+21, TALLY+22
>> APCLTR	PRINT+4, TALLY+1, LIST+1*, HEAD1+10, HEAD1+12
B	FA~, FA+6, NUMV+3~, NUMV+4*, NUMV+7
>> C	PROC+16*
D	FA+3~, FA+5*, FA+6, FA+7, FA+8
DA	CMMNTS+2!, CMMNTS+10!, NV+3!, RPT+2!
>> DFN	PROC+10, PROC+11, PROC+12, PROC+13, PROC+16, PROC+18, PROC+20, PROC+21, PROC+22, PROC+24 , PROC+25, LIST+5, LIST+7
DFOUT	EOP+4!
DIC	CMMNTS+7!, CMMNTS+10!
DIC("A"	CMMNTS+7*
DIC("S"	CMMNTS+10*
DIC(0	CMMNTS+7, CMMNTS+10
DIR	DATE+2!, DATE+3!, DATE+4!, DATE+5!, AGE+3!, CMMNTS+2!, NV+3!, RPT+2!, DONE+1!, HEAD+1! , EOP+3~
DIR("A"	DATE+2, DATE+4, AGE+3, CMMNTS+2, NV+3, RPT+2, DONE+1*
DIR("B"	CMMNTS+2, NV+3, RPT+2*
DIR(0	DATE+2, DATE+4, AGE+3, CMMNTS+2, NV+3, RPT+2, DONE+1, HEAD+1, EOP+5*
DIRUT	AGE+4, CMMNTS+3, NV+4, RPT+3, DONE+1*, EOP+4!
DLOUT	EOP+4!
DTOUT	HEAD+1, EOP+4!
DUOUT	DONE+1, EOP+4!
DUZ	HEAD1+3, USR+1
DUZ(2	LIST+7, HEAD1+4, LOC+1
E	FA~, FA+7, NUMV~, NUMV+4, NUMV+7
G	FA+3~, FA+4!*
G(0	FA+10, FA+11
G(9999999	FA+8*
>> I	PROC+4*, PROC+5
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+4, TALLY+16, LIST+6
IOST	DONE+1, HEAD+1, EOP+1
>> IOT	EOP+2
J	PROC+4, PROC+5, NUMV+5~, NUMV+7
P	FA~, FA+1, FA+2, FA+4, NUMV~, NUMV+1, NUMV+7
>> S	PROC+22, PROC+23, PROC+24, PROC+25
>> T	TALLY+12, TALLY+13, TALLY+14, TALLY+22, TALLY+23, TALLY+24
>> T1	TALLY+12, TALLY+14, TALLY+22, TALLY+24
U	CMMNTS+9, PROC+16, PROC+21, PROC+22, PROC+24, PROC+25, FA+5, TALLY+6, TALLY+7, TALLY+8 , TALLY+9, TALLY+10, TALLY+11, TALLY+12, TALLY+18, TALLY+19, TALLY+20, TALLY+21, TALLY+22, LIST+7 , HEAD1+3, HEAD1+4, USR+1, LOC+1
>> V	FA+5, TALLY+9, TALLY+11, TALLY+14, TALLY+19, TALLY+21, TALLY+24*
X	CMMNTS+10, PROC+5, PROC+20, PROC+21, PROC+25, FA+3~, FA+4, FA+5, FA+8, NUMV+5~ , NUMV+7, NUMV+8, NUMV+9, HEAD1+6, HEAD1+7, HEAD1+8, CTR~, CTR+1
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	DATE+3, DATE+5, AGE+5, AGE+6, AGE+7, AGE+8, CMMNTS+4, CMMNTS+5, CMMNTS+8, CMMNTS+9 , CMMNTS+10, CMMNTS+11, NV+5, RPT+4, FA+3~, NUMV+5~, NUMV+6, NUMV+7, NUMV+8, NUMV+9* , NUMV+11, HEAD+1, CTR~, CTR+1
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLEL1

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: