Routine: APCLM2

Package	Total	Call Graph
VA Fileman	3	^%DTC ^DIC ^DIR
IHS VA Utilities	2	^XBDBQUE $$VAL^XBDIQ1
Patient Care Component Reports	2	(DONE,XTMP)^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL
IHS Patient	1	($$AGE,$$COMMRES,$$DOB,$$HRN,KILL)^AUPNPAT
Kernel	1	$$FMTE^XLFDT
PCC Medical Query	1	PEP^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;
HEAD
PROC1	;
ZIS	;call to XBDBQUE
HEAD1	;
DEMO	;
AGE	;
PRN	;EP
GETIMM	;
START	;
DONE	;
XIT	;
PRINT	;
COMM	;
RAGE(D)	;printable age
PROC	;
SBW	;

External References

Name	Field # of Occurrence
^%DTC	RAGE+3
PEP^AMQQGTX0	COMM+10
DONE^APCLOSUT	DONE+1
XTMP^APCLOSUT	PROC+2
$$DEMO^APCLUTL	PROC1+2
DEMOCHK^APCLUTL	DEMO+1
$$AGE^AUPNPAT	PROC1+7
$$COMMRES^AUPNPAT	PROC1+5, PROC1+6, PROC1+10
$$DOB^AUPNPAT	PRINT1+2
$$HRN^AUPNPAT	PRINT1+2
KILL^AUPNPAT	XIT+3
^DIC	COMM+6, COMM+9
^DIR	AGE+3, COMM+2, HEAD+1
^XBDBQUE	DEMO+4
$$VAL^XBDIQ1	PRINT1+2
$$FMTE^XLFDT	SBW+2, HEAD1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?12,"******** CHILDREN NOT ON IMMUNIZATION REGISTER ********" Line Location: START+2
Function Call: WRITE	Prompt: !!,"This report will list all children in an age range that you select, who are not",!,"on the immunization register. You will be asked to specify an age range",!,"and the community or communities that you are interested in.",!! Line Location: START+3
Function Call: WRITE	Prompt: ! Line Location: AGE+1
Function Call: WRITE	Prompt: !!,"No age range entered. All ages will be included." Line Location: AGE+5
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"Enter an age range in the format nnn-nnn. E.g. 2-5, 12-74, 5-20." Line Location: AGE+6
Function Call: WRITE	Prompt: !!,"Kids from all communities will be included in the report.",! Line Location: COMM+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: COMM+9
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT",! Line Location: PRN+2
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,20),?23,"(",$$HRN^AUPNPAT(DFN,DUZ(2)),")",?34,$$DOB^AUPNPAT(DFN,"E"),?50,$$RAGE($P(^DPT(DFN,0),U,3)),?66,$$VAL^XBDIQ1(2,DFN,.02),! Line Location: PRINT1+2
Function Call: WRITE	Prompt: !?12,"No prior immunizations listed",! Line Location: PRINT1+4
Function Call: WRITE	Prompt: ! Line Location: PRINT1+6
Function Call: WRITE	Prompt: !,?16,$$FMTE^XLFDT(D),?30 Line Location: SBW+2
Function Call: WRITE	Prompt: S," " Condition for execution: S Line Location: SBW+5
Function Call: WRITE	Prompt: V Line Location: SBW+5
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?5,"WARNING: CONFIDENTIAL PATIENT INFORMATION, PRIVACY ACT APPLIES",! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !?3,$P(^DIC(4,DUZ(2),0),U),?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG Line Location: HEAD1+3
Function Call: WRITE	Prompt: !?12,"****** CHILDREN NOT ON IMMUNIZATION REGISTER ******",!! Line Location: HEAD1+4
Routine Call	DIC Line Location: COMM+6 COMM+9
Routine Call	DIR Line Location: AGE+3 COMM+2 HEAD+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMCH(85 - [#9002085]	PROC1+3
^AUPNVIMM - [#9000010.11]	GETIMM+3, GETIMM+4
^AUPNVIMM("AC"	GETIMM+2
^AUPNVSIT - [#9000010]	GETIMM+6
^AUTTCOM - [#9999999.05]	COMM+8
^AUTTIMM - [#9999999.14]	SBW+5
^AUTTIMM(0	PROC1+3, PROC1+4
^BIP("B"	PROC1+4
^DIC(4 - [#4]	HEAD1+3
^DPT - [#2]	PROC+3, PROC1+1, PROC1+10, PRINT1+2
^XTMP("APCLM2"	PROC1+10*, PRN+2, PRINT+1, PRINT+4, PRINT+5

Label References

Name	Line Occurrences
$$RAGE	PRINT1+2
AGE	AGE+6, COMM+3
COMM	AGE+5, COMM+5, COMM+11, DEMO+2
DONE	PRN+2
GETIMM	PRINT1+3
HEAD	PRN+2, PRN+3, PRINT+2, PRINT1+1, SBW+1
HEAD1	HEAD
PRINT	PRN+5
PRINT1	PRINT+5
PROC1	PROC+3
SBW	PRINT1+5
XIT	AGE+4, COMM+9, DEMO+5
ZIS	COMM+4, COMM+5

Naked Globals

Name	Field # of Occurrence
^(0	SBW+5, GETIMM+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	XIT+4!, RAGE+1~, RAGE+4*, RAGE+5
A	XIT+2!, GETIMM+1!
APCLAGE	XIT+1!, PROC1+7*, PROC1+8, PROC1+9
APCLAGER	AGE+2!, AGE+7*, XIT+1!, PROC1+8, PROC1+9
APCLBT	XIT+1!, PROC+1*, PROC1+10, PRN+2, PRINT+1, PRINT+4, PRINT+5
APCLCNT	XIT+1!, PROC+1, PROC1+11
APCLCOM	XIT+1!, PRINT+1*, PRINT+3, PRINT+4, PRINT+5
APCLCOMM	COMM+1!, COMM+5, COMM+11, COMM+12!, XIT+1!, PROC1+5, PROC1+6, PRN+3
APCLCOMM(	COMM+8*, PROC1+6
APCLCOMM("*"	COMM+12
>> APCLDEMO	DEMO+1, DEMO+2, PROC1+2
APCLET	XIT+1!, PROC+4*
APCLJOB	XIT+1!, PROC+1*, PROC1+10, PRN+2, PRINT+1, PRINT+4, PRINT+5
APCLNAME	XIT+1!, PRINT+4*, PRINT+5
APCLPG	XIT+1!, PRN+1, HEAD, HEAD1+1, HEAD1+3
APCLQUIT	XIT+1!, PRN+4!, PRINT+1, PRINT+2, PRINT+4, PRINT+5, PRINT1+1, PRINT1+5, SBW+1, HEAD+1*
B	XIT+2!, GETIMM+1!
B(	PRINT1+5, SBW+3, SBW+4, GETIMM+7*
C	XIT+2!, PRINT1+4, SBW+3, SBW+4, GETIMM+1, GETIMM+7*
D	XIT+2!, PRINT1+5, SBW+2, SBW+3, SBW+4, GETIMM+1~, GETIMM+5, GETIMM+6*, GETIMM+7, RAGE~ , RAGE+2
DA	COMM+2!, COMM+9!, XIT+2!
DFN	XIT+2!, PROC+3, PROC1+1, PROC1+2, PROC1+3, PROC1+4, PROC1+5, PROC1+6, PROC1+7, PROC1+10 , PRINT+5, PRINT1+2, GETIMM+2
DIC	COMM+6!, COMM+9!, XIT+2!
DIC("A"	COMM+6*
DIC("S"	COMM+9*
DIC(0	COMM+6, COMM+9
DIR	AGE+3!, COMM+2!, XIT+2!, HEAD+1!
DIR("A"	AGE+3, COMM+2
DIR("B"	COMM+2*
DIR(0	AGE+3, COMM+2, HEAD+1*
DIRUT	AGE+3*, COMM+3, XIT+2!, XIT+4!
DT	PROC1+7, RAGE+2, HEAD1+3
DTOUT	XIT+2!, HEAD+1
DUOUT	AGE+3, AGE+4, XIT+2!
DUZ(2	PRINT1+2, HEAD1+3
H	XIT+2!, XIT+4!
I	XIT+2!, GETIMM+1, GETIMM+2, GETIMM+3, GETIMM+4
IO	HEAD+1
IO("Q"	XIT+4!
IO(0	HEAD+1
IOF	START+1, HEAD1+1
IOSL	PRINT+2, PRINT1+1, SBW+1
IOST	HEAD+1
K	XIT+2!, GETIMM+1~, GETIMM+5*, GETIMM+6
M	XIT+2!, XIT+4!
N	XIT+2!, SBW+3, SBW+4
POP	XIT+4!
S	XIT+2!, XIT+4!, SBW+4, SBW+5, GETIMM+1~, GETIMM+5, GETIMM+7
TS	XIT+2!, XIT+4!
U	COMM+8, PROC1+1, PROC1+10, PRINT1+2, SBW+4, SBW+5, GETIMM+4, GETIMM+5, GETIMM+7, HEAD1+3
V	XIT+2!, SBW+4, SBW+5, GETIMM+1~, GETIMM+4*, GETIMM+7
X	COMM+9, XIT+2!, XIT+4!, GETIMM+1~, GETIMM+4, GETIMM+5, RAGE+1~, RAGE+4
X1	XIT+2!, XIT+4!, RAGE+1~, RAGE+2*
X2	XIT+2!, XIT+4!, RAGE+1~, RAGE+2*
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	AGE+5, AGE+6, AGE+7, COMM+4, COMM+5, COMM+7, COMM+8, COMM+9, COMM+10, XIT+2! , XIT+4!, HEAD+1
ZTQUEUED	XIT+4!
ZTSK	XIT+4!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLM2

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: