Routine: APCLM1

Package	Total	Call Graph
Patient Care Component Reports	2	$$START1^APCLDF (DONE,XTMP)^APCLOSUT
VA Fileman	2	^DIC ^DIR
IHS Patient	1	($$AGE,$$COMMRES,$$HRN,KILL)^AUPNPAT
IHS VA Utilities	1	^XBDBQUE
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
SIGCPTS	;;
FLU	;
DONE	;
PRINT	;
BECPTS	;;
LASTFLU(P)	;EP
PRINT1	;
BI()	;IHS/CMI/LAB - new subroutine patch 4
PRN	;EP
LASTPN(P)	;EP
LASTTD(P)	;EP
COLOCPTS	;;
TD	;
LASTTDO	;
LASTTDN	;
HEAD
ZIS	;call to XBDBQUE
PNEUMOVX	;
START	;
LASTPNO	;
LASTPNN	;
XIT	;
FLUCPTS	;;
PNCPTS	;;
HEAD1	;
PAPCPTS	;;
ST	;
LASTFLO	;
LASTFLN	;
TDCPTS	;;
PROC	;

External References

Name	Field # of Occurrence
$$START1^APCLDF	LASTFLU+7, LASTFLU+9, LASTFLU+11, LASTFLU+13
DONE^APCLOSUT	DONE+2
XTMP^APCLOSUT	PROC+2
$$AGE^AUPNPAT	PRINT1+2
$$COMMRES^AUPNPAT	PROC+5, PRINT1+2
$$HRN^AUPNPAT	PRINT1+2
KILL^AUPNPAT	XIT+2
^DIC	ST+7
^DIR	HEAD+1
^XBDBQUE	ZIS+2
$$FMTE^XLFDT	HEAD1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?12,"******** ADULT IMMUNIZATION NEEDS ********" Line Location: START+2
Function Call: WRITE	Prompt: !!,"This report displays the most recent Td, Pneumococcal, & Influenza Vaccinations",!,"for Adults considered as 'High Risk.' Utilizing QMan, development of a",! Line Location: ST+1
Function Call: WRITE	Prompt: "Cohort (Template) of Patients is required prior to running this report.",!! Line Location: ST+2
Function Call: WRITE	Prompt: "Development of the Cohort of High Risk Adults usually consists of finding",!,"Living Patients who are over Age 65 OR who have one or more specific",!,"chronic diseases.",!! Line Location: ST+3
Function Call: WRITE	Prompt: "Feel free to contact the Help Desk for",!,"assistance in creating your Cohort.",!! Line Location: ST+4
Function Call: WRITE	Prompt: "Note: Patients with Inactive charts will not appear on this report even",!,"if there were a member of the cohort (template).",!! Line Location: ST+5
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,20),?22,$$HRN^AUPNPAT(DFN,DUZ(2)),?30,$E($$COMMRES^AUPNPAT(DFN,"E"),1,12),?44,$$AGE^AUPNPAT(DFN,DT) Line Location: PRINT1+2
Function Call: WRITE	Prompt: ?50,X Line Location: TD+5
Function Call: WRITE	Prompt: ?48,X Line Location: TD+6
Function Call: WRITE	Prompt: ?60,X Line Location: FLU+5
Function Call: WRITE	Prompt: ?59,X Line Location: FLU+6
Function Call: WRITE	Prompt: ?70,X Line Location: PNEUMOVX+5
Function Call: WRITE	Prompt: ?70,X Line Location: PNEUMOVX+6
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?3,$P(^DIC(4,DUZ(2),0),U),?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: ?18,"****** ADULT IMMUNIZATION NEEDS ******",! Line Location: HEAD1+3
Function Call: WRITE	Prompt: !?22,$E($P(^DIC(4,DUZ(2),0),U),1,6),?70,"LAST" Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,"PATIENT NAME",?22,"NUMBER",?30,"COMMUNITY",?44,"AGE",?50,"LAST Td",?60,"LAST FLU",?70,"PNEUMOVAX" Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: HEAD1+6
Routine Call	DIC Line Location: ST+7
Routine Call	DIR Line Location: HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PROC+4
^AUPNVCPT("AA"	LASTFLU+6, LASTTD+6, LASTPN+6
^AUPNVIMM - [#9000010.11]	LASTFLN+2, LASTFLN+5, LASTFLO+2, LASTFLO+5, LASTTDN+2, LASTTDN+5, LASTTDO+2, LASTTDO+5, LASTPNN+2, LASTPNN+5 , LASTPNO+2, LASTPNO+5
^AUPNVIMM("AC"	LASTFLN+1, LASTFLO+1, LASTTDN+1, LASTTDO+1, LASTPNN+1, LASTPNO+1
^AUPNVSIT - [#9000010]	LASTFLN+6, LASTFLO+6, LASTTDN+6, LASTTDO+6, LASTPNN+6, LASTPNO+6
^AUTTIMM - [#9999999.14]	LASTFLN+3, LASTFLN+4, LASTFLO+3, LASTFLO+4, LASTTDN+3, LASTTDN+4, LASTTDO+3, LASTTDO+4, LASTPNN+3, LASTPNN+4 , LASTPNO+3, LASTPNO+4
^AUTTIMM(0	BI+1
^DIBT(	PROC+3
^DIC(4 - [#4]	HEAD1+2, HEAD1+4
^DPT - [#2]	PROC+5, PRINT1+2
^ICPT("B"	LASTFLU+6, LASTTD+6, LASTPN+6
^XTMP("APCLM1"	PROC+5*, DONE+1!, PRINT+1, PRINT+2, PRINT+3

Label References

Name	Line Occurrences
$$BI	LASTFLU+3, LASTFLU+4, LASTTD+3, LASTTD+4, LASTPN+3, LASTPN+4
$$LASTFLU	FLU+1
$$LASTPN	PNEUMOVX+1
$$LASTTD	TD+1
HEAD	PRN+1, PRINT1+1
HEAD1	HEAD
LASTFLN	LASTFLU+4
LASTFLO	LASTFLU+3
LASTPNN	LASTPN+4
LASTPNO	LASTPN+3
LASTTDN	LASTTD+4
LASTTDO	LASTTD+3
PRINT	PRN+3
PRINT1	PRINT+3
XIT	ZIS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	XIT+3!, LASTFLU+6, LASTFLU+7, LASTFLU+9, LASTFLU+11, LASTFLU+13, LASTTD+6, LASTPN+6*
%DT	LASTFLU+1~, LASTTD+1~, LASTPN+1~
APCL	XIT+1!
APCLBTH	PROC+1*, PROC+5, DONE+1!, PRINT+1, PRINT+2, PRINT+3
APCLCOM	XIT+1!, PRINT+1*, PRINT+2, PRINT+3
APCLER	XIT+1!
APCLJOB	PROC+1*, PROC+5, DONE+1!, PRINT+1, PRINT+2, PRINT+3
APCLNAME	XIT+1!, PRINT+2*, PRINT+3
APCLPG	XIT+1!, PRN+1, HEAD, HEAD1+1, HEAD1+2
APCLQUIT	XIT+1!, PRN+2!, PRINT+1, PRINT+2, PRINT+3, PRINT1+1, HEAD+1*
APCLSEAT	ST+9*, XIT+1!, PROC+3
APCLX	XIT+1!
APCLY	LASTFLU+1~, LASTFLU+7!, LASTFLU+9!, LASTFLU+11!, LASTFLU+13!, LASTTD+1~, LASTPN+1~
APCLY(1	LASTFLU+8, LASTFLU+10, LASTFLU+12, LASTFLU+14
B	LASTFLU+1~, LASTFLN+2, LASTFLN+3, LASTFLN+4, LASTFLN+7, LASTFLN+8, LASTFLN+9, LASTFLN+10, LASTFLO+2, LASTFLO+3 , LASTFLO+4, LASTFLO+7, LASTTD+1~, LASTTDN+2, LASTTDN+3, LASTTDN+4, LASTTDN+7, LASTTDN+8, LASTTDN+9, LASTTDN+10 , LASTTDN+11, LASTTDN+12, LASTTDN+13, LASTTDN+14, LASTTDN+15, LASTTDN+16, LASTTDO+2, LASTTDO+3, LASTTDO+4, LASTTDO+7 , LASTTDO+8, LASTTDO+9, LASTTDO+10, LASTTDO+11, LASTPN+1~, LASTPNN+2, LASTPNN+3, LASTPNN+4, LASTPNN+7, LASTPNN+8 , LASTPNN+9, LASTPNO+2, LASTPNO+3, LASTPNO+4, LASTPNO+7
D	LASTFLU+1~, LASTFLN+5, LASTFLN+6, LASTFLN+7, LASTFLN+8, LASTFLN+9, LASTFLN+10, LASTFLO+5, LASTFLO+6, LASTFLO+7 , LASTTD+1~, LASTTDN+5, LASTTDN+6, LASTTDN+7, LASTTDN+8, LASTTDN+9, LASTTDN+10, LASTTDN+11, LASTTDN+12, LASTTDN+13 , LASTTDN+14, LASTTDN+15, LASTTDN+16, LASTTDO+5, LASTTDO+6, LASTTDO+7, LASTTDO+8, LASTTDO+9, LASTTDO+10, LASTTDO+11 , LASTPN+1~, LASTPNN+5, LASTPNN+6, LASTPNN+7, LASTPNN+8, LASTPNN+9, LASTPNO+5, LASTPNO+6, LASTPNO+7
DA	ST+7!
DFN	XIT+1!, PRINT+3*, PRINT1+2, TD+1, FLU+1, PNEUMOVX+1
DIC	ST+7*!
DIC("A"	ST+7*
DIC("S"	ST+7*
DIC(0	ST+7*
DICR	ST+7!
DIR	HEAD+1!
DIR(0	HEAD+1*
DIRUT	XIT+3!
DR	ST+7!
DT	PRINT1+2, HEAD1+2
>> DTOUT	HEAD+1
DUZ(2	PROC+4, PRINT1+2, HEAD1+2, HEAD1+4
E	LASTFLU+1~, LASTFLU+7, LASTFLU+9, LASTFLU+11, LASTFLU+13, LASTTD+1~, LASTPN+1~
H	XIT+3!
IO	HEAD+1
IO("Q"	XIT+3!
IO(0	HEAD+1
IOF	START+1, HEAD1+1
IOSL	PRINT1+1
IOST	HEAD+1
M	XIT+3!
P	LASTFLU~, LASTFLU+6, LASTFLU+7, LASTFLU+9, LASTFLU+11, LASTFLU+13, LASTFLN+1, LASTFLO+1, LASTTD~, LASTTD+6 , LASTTDN+1, LASTTDO+1, LASTPN~, LASTPN+6, LASTPNN+1, LASTPNO+1
POP	XIT+3!
S	XIT+3!
>> T	LASTFLU+6, LASTTD+6, LASTPN+6*
TDD	LASTFLU+1~, LASTFLU+2!, LASTFLU+15, LASTTD+1~, LASTTD+2!, LASTTD+7, LASTPN+1~, LASTPN+2!, LASTPN+7
TDD(	LASTFLU+6, LASTTD+6, LASTPN+6*
TDD(0	LASTFLU+16, LASTTD+8, LASTPN+8
TDD(9999999	LASTFLU+8, LASTFLU+10, LASTFLU+12, LASTFLU+14, LASTFLN+7, LASTFLN+8, LASTFLN+9, LASTFLN+10, LASTFLO+7, LASTTDN+7 , LASTTDN+8, LASTTDN+9, LASTTDN+10, LASTTDN+11, LASTTDN+12, LASTTDN+13, LASTTDN+14, LASTTDN+15, LASTTDN+16, LASTTDO+7 , LASTTDO+8, LASTTDO+9, LASTTDO+10, LASTTDO+11, LASTPNN+7, LASTPNN+8, LASTPNN+9, LASTPNO+7
TS	XIT+3!
U	PROC+4, PROC+5, PRINT1+2, HEAD1+2, HEAD1+4, LASTFLU+8, LASTFLU+10, LASTFLU+12, LASTFLU+14, LASTFLN+2 , LASTFLN+4, LASTFLN+5, LASTFLN+6, LASTFLO+2, LASTFLO+4, LASTFLO+5, LASTFLO+6, LASTTDN+2, LASTTDN+4, LASTTDN+5 , LASTTDN+6, LASTTDO+2, LASTTDO+4, LASTTDO+5, LASTTDO+6, LASTPNN+2, LASTPNN+4, LASTPNN+5, LASTPNN+6, LASTPNO+2 , LASTPNO+4, LASTPNO+5, LASTPNO+6
X	XIT+3!, PROC+3, PROC+4, PROC+5, TD+1, TD+6, FLU+1, FLU+6, PNEUMOVX+1, PNEUMOVX+6* , LASTFLU+1~, LASTFLU+6, LASTFLN+1, LASTFLN+2, LASTFLN+5, LASTFLO+1, LASTFLO+2, LASTFLO+5, LASTTD+1~, LASTTD+6 , LASTTDN+1, LASTTDN+2, LASTTDN+5, LASTTDO+1, LASTTDO+2, LASTTDO+5, LASTPN+1~, LASTPN+6, LASTPNN+1, LASTPNN+2 , LASTPNN+5, LASTPNO+1*, LASTPNO+2, LASTPNO+5
X1	XIT+3!
X2	XIT+3!
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	ST+8, ST+9, XIT+3!, PROC+5*, HEAD+1, LASTFLU+1~, LASTTD+1~, LASTPN+1~
ZTQUEUED	XIT+3!
ZTSK	XIT+3!

Marked Items

Name	Field # of Occurrence
$T(FLUCPTS+%	LASTFLU+6
$T(PNCPTS+%	LASTPN+6
$T(TDCPTS+%	LASTTD+6

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLM1

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items