Routine: APCLSIL2

Package	Total	Call Graph
Patient Care Component Reports	5	($$LASTCPTT,$$LASTITEM,ALLV)^APCLAPIU $$START1^APCLDF $$PN^APCLSIL1 ($$ICD,$$ICDDX)^APCLSILU ($$CLINIC,$$PRIMPOV,$$PRIMPROV,$$VD)^APCLV
VA Fileman	3	FILE^DICN UPDATE^DIE $$GET1^DIQ
IHS Patient	2	($$AGE,$$COMMRES,$$DOB,$$HRN)^AUPNPAT $$UIDV^AUPNVSIT
Kernel	2	($$FMADD,$$FMTE)^XLFDT ($$STRIP,$$UP)^XLFSTR
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1

Package	Total	Caller Graph
Patient Care Component Surveillance	3	APCSSIL1 APCSSIL2 APCSSLAB
Patient Care Component Reports	2	APCLSIL1 APCLSILI
Patient Care Component	1	APCHPWH9

Entry Points

Name	Comments	DBIA/ICR reference
E	;
ERR	;EP
JDATE(D)	;EP
R(V)	;EP
WT(P,BDATE,EDATE)	;EP
SETV	;EP
CHSDT	;
UID(APCLA)	;Given DFN return unique patient record id.
HTWTSD(P,BDATE,EDATE)	;EP - get last ht / wt on same day
BMI(P,EDATE)	;EP - get last calulable bmi as of EDATE and date of wt
PNEU(P,EDATE)	;EP
REF(V)	;EP
DSCHTYPE(V)	;EP
ASTDM(P,EDATE)	;EP
OB(P,BMI,A)	;EP obese
HT(P,BDATE,EDATE)	;EP
DSCHDATE(V)	;EP
SETREC	;EP - called from
CHSDD	;
DATE(D)	;

External References

Name	Field # of Occurrence
$$LASTCPTT^APCLAPIU	PNEU+22
$$LASTITEM^APCLAPIU	SETREC+67, SETREC+70, PNEU+19
ALLV^APCLAPIU	ASTDM+17
$$START1^APCLDF	HTWTSD+4, HTWTSD+8, HT+3, WT+3
$$PN^APCLSIL1	SETREC+31
$$ICD^APCLSILU	WT+9, ASTDM+13, ASTDM+14, ASTDM+27, ASTDM+28
$$ICDDX^APCLSILU	WT+8
$$CLINIC^APCLV	SETREC+40
$$PRIMPOV^APCLV	ASTDM+25
$$PRIMPROV^APCLV	SETREC+76
$$VD^APCLV	SETREC+17, SETREC+28, SETREC+33, SETREC+67, SETREC+70, PNEU+14
$$AGE^AUPNPAT	SETREC+34, BMI+23
$$COMMRES^AUPNPAT	SETREC+6
$$DOB^AUPNPAT	PNEU+4, PNEU+19, PNEU+22
$$HRN^AUPNPAT	SETREC+3
$$UIDV^AUPNVSIT	SETREC+18
FILE^DICN	SETREC+81
UPDATE^DIE	SETREC+88
$$GET1^DIQ	UID+4
$$VAL^XBDIQ1	SETREC+14, PNEU+20, PNEU+23, CHSDT+2
$$VALI^XBDIQ1	PNEU+13, DSCHTYPE+8
$$FMADD^XLFDT	BMI+26, BMI+42, BMI+59, REF+5
$$FMTE^XLFDT	BMI+27, BMI+31, BMI+36, BMI+43, BMI+47, BMI+52, BMI+60, JDATE+3
$$STRIP^XLFSTR	SETREC+46, SETREC+47, SETREC+48, SETREC+49, SETREC+51, SETREC+52, SETREC+73, SETREC+74
$$UP^XLFSTR	JDATE+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCLILIL - [#9001003.4]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLBMI - [#9001003.9]	OB+8, OB+9
^APCLBMI("H"	OB+5, OB+6
^APCLDATA($J	SETREC+78*
^APCLILIL("B"	SETREC+80
^ATXAX - [#9002226]	PNEU+12
^ATXAX("B"	PNEU+5, PNEU+6, WT+9, ASTDM+4, ASTDM+5
^AUPNPAT - [#9000001]	BMI+21, UID+2
^AUPNPROB - [#9000011]	ASTDM+8, ASTDM+9, ASTDM+10, ASTDM+11, ASTDM+12
^AUPNPROB("AC"	ASTDM+7
^AUPNVCHS - [#9000010.03]	CHSDD+2
^AUPNVCHS("AD"	CHSDT+1, CHSDD+1
^AUPNVIMM - [#9000010.11]	PNEU+8, PNEU+14
^AUPNVIMM("AC"	PNEU+7
^AUPNVINP - [#9000010.02]	DSCHDATE+6
^AUPNVINP("AD"	DSCHTYPE+6, DSCHDATE+5
^AUPNVMSR - [#9000010.01]	SETREC+13, SETREC+15
^AUPNVMSR("AD"	SETREC+12
^AUPNVPOV - [#9000010.07]	WT+8
^AUPNVPOV("AD"	WT+6, WT+7
^AUPNVSIT - [#9000010]	SETREC+18, SETREC+19, SETREC+20, ASTDM+23, ASTDM+24, REF+4, REF+5, REF+6, DSCHTYPE+2, DSCHTYPE+3 , DSCHTYPE+5, DSCHDATE+2, DSCHDATE+3
^AUTTIMM - [#9999999.14]	PNEU+10
^AUTTLOC - [#9999999.06]	SETREC+7
^AUTTSITE(1	UID+4
^BMCREF - [#90001]	REF+8, REF+12
^BMCREF("D"	REF+7
^DD(9000010.02	DSCHTYPE+10, DSCHTYPE+11
^DG(405.1 - [#405.1]	DSCHTYPE+11
^DIC(42.2 - [#42.2]	DSCHTYPE+10
^DPT - [#2]	SETREC+4, SETREC+5, OB+3, BMI+22

Label References

Name	Line Occurrences
$$ASTDM	SETREC+28
$$BMI	SETREC+33
$$DSCHDATE	SETREC+22, REF+5
$$DSCHTYPE	SETREC+21
$$HT	BMI+34, BMI+50
$$HTWTSD	BMI+61
$$OB	SETREC+34
$$PNEU	SETREC+37
$$R	SETREC+35
$$REF	SETREC+23
$$UID	SETREC+2
$$WT	BMI+29, BMI+45
CHSDD	DSCHDATE+5
CHSDT	DSCHTYPE+5
E	PNEU+18, PNEU+21, PNEU+24
ERR	BMI+31, BMI+36, BMI+47, BMI+52, BMI+62, BMI+63
SETV	BMI+40, BMI+56, BMI+71

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SETREC+37, SETREC+38, SETREC+39, PNEU+23, BMI+16~, HTWTSD+2~, HTWTSD+4, HTWTSD+8, HT+2~, HT+3* , WT+2~, ASTDM+2~, DSCHTYPE+4~, DSCHTYPE+6*
%DT	BMI+16~
A	OB~, OB+5, OB+6, JDATE+2~, JDATE+3*, JDATE+4
AGE	BMI+16~, BMI+23*, BMI+25, BMI+41, BMI+58
APCL	ASTDM+2~, ASTDM+18
APCL(	ASTDM+21, ASTDM+22, ASTDM+27, ASTDM+28
APCLA	UID~, UID+1, UID+2, UID+4
>> APCLADVE	SETREC+53, SETREC+56
APCLARRY	HT+2~
APCLARRY(1	HT+4, HT+7
APCLAS	ASTDM+2~, ASTDM+3, ASTDM+13, ASTDM+15, ASTDM+18, ASTDM+21, ASTDM+27*, ASTDM+30
APCLASC	ASTDM+2~, ASTDM+3, ASTDM+27
>> APCLASDM	SETREC+28*, SETREC+29, SETREC+30
>> APCLAVM	SETREC+46, SETREC+47
>> APCLBMI	SETREC+33*, SETREC+34, SETREC+35, SETREC+36, SETREC+66, SETREC+69
>> APCLC	SETREC+10*
>> APCLCHT	HTWTSD+12, HTWTSD+13, HTWTSD+14
>> APCLDATE	SETREC+8, SETREC+62, SETREC+63, SETREC+75
APCLDM	ASTDM+2~, ASTDM+3, ASTDM+14, ASTDM+15, ASTDM+18, ASTDM+21, ASTDM+28*, ASTDM+30
APCLDMC	ASTDM+2~, ASTDM+3, ASTDM+28
APCLERRR	SETREC+82~
APCLFDA	SETREC+82~
APCLFDA(	SETREC+84, SETREC+85, SETREC+86, SETREC+87
>> APCLH1N1	SETREC+23, SETREC+41
APCLHTS	HTWTSD+2~
APCLHTS(	HTWTSD+5!, HTWTSD+6, HTWTSD+13
APCLHTS1	HTWTSD+2~, HTWTSD+6!
APCLHTS1(	HTWTSD+6*, HTWTSD+12, HTWTSD+13
>> APCLHVAC	SETREC+26, SETREC+48, SETREC+49, SETREC+63
APCLICD	WT+2~, WT+8*, WT+9
APCLIENS	SETREC+82~, SETREC+83*
>> APCLILI	SETREC+10, SETREC+23
>> APCLIVAC	SETREC+27, SETREC+51, SETREC+52, SETREC+62
APCLJ	ASTDM+20~
APCLJ(	ASTDM+27*
APCLK	ASTDM+20~
APCLK(	ASTDM+28*
APCLL	WT+2~, WT+3!
APCLL(	WT+4, WT+5, WT+6, WT+10
APCLLAST	PNEU+2~, PNEU+3, PNEU+19, PNEU+22, PNEU+25, E+1
APCLLD	WT+2~, WT+7*, WT+8
APCLLN	WT+2~, WT+4*, WT+5, WT+6, WT+10
>> APCLLOC	SETREC+3, SETREC+7
APCLLW	WT+2~, WT+3, WT+4, WT+6, WT+7, WT+10*, WT+12
APCLLX	WT+2~, WT+3*
APCLLZ	WT+2~, WT+5*, WT+6, WT+7
>> APCLNVAC	SETREC+72, SETREC+73, SETREC+74, SETREC+75
>> APCLOVAC	SETREC+54
>> APCLPCVA	SETREC+59
>> APCLPCVE	SETREC+58
>> APCLPCVF	SETREC+57
>> APCLPCVI	SETREC+61
>> APCLPCVS	SETREC+60
>> APCLPN	SETREC+31*, SETREC+32, SETREC+33, SETREC+34
>> APCLPVAC	SETREC+55
>> APCLREAS	SETREC+87
>> APCLREC	SETREC+2, SETREC+3, SETREC+4, SETREC+5, SETREC+6, SETREC+7, SETREC+8, SETREC+10, SETREC+17, SETREC+18 , SETREC+19, SETREC+20, SETREC+21, SETREC+22, SETREC+24, SETREC+25, SETREC+26, SETREC+27, SETREC+29, SETREC+30 , SETREC+32, SETREC+34, SETREC+35, SETREC+36, SETREC+38, SETREC+39, SETREC+40, SETREC+41, SETREC+42, SETREC+43 , SETREC+44, SETREC+45, SETREC+46, SETREC+47, SETREC+48, SETREC+49, SETREC+50, SETREC+51, SETREC+52, SETREC+53 , SETREC+54, SETREC+55, SETREC+56, SETREC+57, SETREC+58, SETREC+59, SETREC+60, SETREC+61, SETREC+62, SETREC+63 , SETREC+66, SETREC+67, SETREC+69, SETREC+70, SETREC+71, SETREC+72, SETREC+73, SETREC+74, SETREC+75, SETREC+76 , SETREC+78
>> APCLREF	SETREC+23*, SETREC+24, SETREC+25
>> APCLSRD	SETREC+42, SETREC+43, SETREC+44, SETREC+45
>> APCLSTAT	SETREC+71, SETREC+86
>> APCLTEMP	SETREC+11, SETREC+16, SETREC+17
>> APCLV	SETREC+12, SETREC+17, SETREC+18, SETREC+19, SETREC+20, SETREC+21, SETREC+22, SETREC+23, SETREC+28, SETREC+31 , SETREC+33, SETREC+40, SETREC+67, SETREC+70, SETREC+76, SETREC+80, SETREC+81, SETREC+84, SETREC+85, SETREC+86 , SETREC+87
>> APCLVTOT	SETREC+77*, SETREC+78
APCLWTS	HTWTSD+2~
APCLWTS(	HTWTSD+9!, HTWTSD+11, HTWTSD+13
APCLWTS1	HTWTSD+2~, HTWTSD+11!
APCLWTS1(	HTWTSD+11*, HTWTSD+12, HTWTSD+13
>> APCLZHSD	SETREC+84, SETREC+85
B	BMI+16~, REF+2~, REF+4*, REF+5, REF+10
BDATE	PNEU+2~, PNEU+4, PNEU+15, BMI+16~, BMI+26, BMI+29, BMI+34, BMI+42, BMI+45, BMI+50 , BMI+59, BMI+61, HTWTSD~, HTWTSD+4, HTWTSD+8, HT~, HT+3, WT~, WT+3
BMI	OB~, OB+2, OB+8, OB+9, BMI+16~, BMI+39, BMI+55, BMI+70*, SETV+1
C	SETREC+1, ERR+2~, ERR+3, ERR+4, ERR+5, REF+2~, REF+3, REF+13*, REF+15
CD	BMI+16~
CVX	PNEU+2~, PNEU+10*, PNEU+11, PNEU+12, PNEU+17
D	PNEU+13, PNEU+14, PNEU+15, PNEU+16, PNEU+17, BMI+16~, REF+8*, REF+9, REF+10, REF+11 , REF+13, DATE~, DATE+1, JDATE~, JDATE+1, JDATE+3, JDATE+4
D0	SETREC+81!
DD	SETREC+81!
>> DFN	SETREC+2, SETREC+3, SETREC+4, SETREC+5, SETREC+6, SETREC+28, SETREC+31, SETREC+33, SETREC+34, SETREC+37 , SETREC+67, SETREC+70
DIADD	SETREC+81*!
DIC	SETREC+81*!
DIC(0	SETREC+81*
DINUM	SETREC+81*!
DLAYGO	SETREC+81*!
DO	SETREC+81!
DT	SETREC+37, BMI+19
DUZ(2	SETREC+3
E	HTWTSD+4, HTWTSD+8, HT+2~, HT+3, WT+2~, WT+3, ASTDM+2~, REF+2~, REF+5*, REF+11
EDATE	PNEU~, PNEU+16, PNEU+19, PNEU+22, BMI~, BMI+19, BMI+23, BMI+26, BMI+27, BMI+29 , BMI+31, BMI+34, BMI+36, BMI+42, BMI+43, BMI+45, BMI+47, BMI+50, BMI+52, BMI+59 , BMI+60, BMI+61, BMI+62, BMI+63, HTWTSD~, HTWTSD+4, HTWTSD+8, HT~, HT+3, WT~ , WT+3, ASTDM~, ASTDM+11, ASTDM+17
ERR	BMI+16~, BMI+31, BMI+36, BMI+47, BMI+52, BMI+62, BMI+63, ERR+4
ERRC	BMI+16~, BMI+17, ERR+1, ERR+4
F	PNEU+2~
G	ASTDM+2~, ASTDM+6*
H	BMI+16~, BMI+35, BMI+36, BMI+39, BMI+51, BMI+52, BMI+55, BMI+65, BMI+70, HT+2~ , HT+4, HT+5, HT+6, HT+7, HT+8
HD	BMI+16~, BMI+37, BMI+53, BMI+68*, SETV+3
HV	BMI+16~, BMI+38, BMI+54, BMI+69*, SETV+4
I	PNEU+2~, PNEU+8*, PNEU+9, PNEU+10
OH	BMI+16~, BMI+35, BMI+51, BMI+65*, SETV+2
OW	BMI+16~, BMI+30, BMI+46, BMI+64*, SETV+5
P	PNEU~, PNEU+1, PNEU+4, PNEU+7, PNEU+19, PNEU+22, OB~, OB+3, BMI~, BMI+20 , BMI+21, BMI+22, BMI+23, BMI+29, BMI+34, BMI+45, BMI+50, BMI+61, HTWTSD~, HTWTSD+1 , HTWTSD+4, HTWTSD+8, HT~, HT+1, HT+3, WT~, WT+1, WT+3, ASTDM~, ASTDM+7 , ASTDM+17, REF+2~, REF+6*, REF+7
Q	ASTDM+2~, ASTDM+12, ASTDM+13, ASTDM+14, ASTDM+25, ASTDM+26, ASTDM+27, ASTDM+28
R	OB+1~, OB+5, OB+6, OB+7, OB+8, OB+9
S	OB+1~, OB+3*, OB+4, OB+5, OB+6
T	PNEU+2~, PNEU+5, PNEU+12, ASTDM+2~, ASTDM+4, ASTDM+13, ASTDM+27
T1	PNEU+2~, PNEU+6*, PNEU+12
TD	ASTDM+2~, ASTDM+5*, ASTDM+14, ASTDM+28
U	SETREC+4, SETREC+5, SETREC+7, SETREC+10, SETREC+13, SETREC+15, SETREC+18, SETREC+19, SETREC+20, SETREC+24 , SETREC+25, SETREC+26, SETREC+27, SETREC+29, SETREC+30, SETREC+34, SETREC+35, SETREC+36, SETREC+38, SETREC+39 , SETREC+41, SETREC+42, SETREC+43, SETREC+44, SETREC+45, SETREC+46, SETREC+47, SETREC+48, SETREC+49, SETREC+51 , SETREC+52, SETREC+53, SETREC+55, SETREC+56, SETREC+66, SETREC+67, SETREC+69, SETREC+70, SETREC+72, SETREC+73 , SETREC+74, PNEU+8, PNEU+10, PNEU+14, PNEU+17, PNEU+19, PNEU+20, PNEU+22, PNEU+23, PNEU+25 , E+1, OB+3, OB+8, OB+9, BMI+30, BMI+32, BMI+33, BMI+35, BMI+37, BMI+38 , BMI+46, BMI+48, BMI+49, BMI+51, BMI+53, BMI+54, BMI+66, BMI+67, BMI+68, BMI+69 , HTWTSD+5, HTWTSD+6, HTWTSD+9, HTWTSD+11, HTWTSD+13, HT+4, HT+7, WT+5, WT+6, WT+8 , WT+10, ERR+3, ERR+5, SETV+1, SETV+2, SETV+3, SETV+4, SETV+5, SETV+6, SETV+7 , ASTDM+9, ASTDM+10, ASTDM+11, ASTDM+12, ASTDM+15, ASTDM+18, ASTDM+22, ASTDM+24, ASTDM+27, ASTDM+28 , ASTDM+30, REF+4, REF+5, REF+6, REF+8, REF+12, REF+13, UID+4
V	SETREC+15, SETREC+16, PNEU+2~, PNEU+3, PNEU+17, PNEU+19, PNEU+20, PNEU+22, PNEU+23, E+1 , R~, R+1, R+2, R+3, R+4, BMI+16~, BMI+29, BMI+30, BMI+32, BMI+33 , BMI+34, BMI+35, BMI+37, BMI+38, BMI+45, BMI+46, BMI+48, BMI+49, BMI+50, BMI+51 , BMI+53, BMI+54, ASTDM+2~, ASTDM+22*, ASTDM+23, ASTDM+24, ASTDM+25, REF~, REF+4, REF+5 , REF+6, DSCHTYPE~, DSCHTYPE+1, DSCHTYPE+2, DSCHTYPE+3, DSCHTYPE+5, DSCHTYPE+6, CHSDT+1, DSCHDATE~, DSCHDATE+1 , DSCHDATE+2, DSCHDATE+3, DSCHDATE+5, CHSDD+1
VALUE	BMI+16~, BMI+18, BMI+24, BMI+25, BMI+41, BMI+58, ERR+3, ERR+5, SETV+1, SETV+2* , SETV+3, SETV+4, SETV+5, SETV+6, SETV+7*
W	BMI+16~, BMI+30, BMI+31, BMI+39, BMI+46, BMI+47, BMI+55, BMI+64, BMI+70
WD	BMI+16~, BMI+32, BMI+48, BMI+66*, SETV+6
WV	BMI+16~, BMI+33, BMI+49, BMI+67*, SETV+7
X	SETREC+10, SETREC+12, SETREC+13, SETREC+14, SETREC+15, SETREC+67, SETREC+70, SETREC+81, PNEU+2~, PNEU+7 , PNEU+8, PNEU+13, PNEU+14, BMI+61, BMI+62, BMI+63, BMI+64, BMI+65, BMI+66, BMI+67 , BMI+68, BMI+69, HTWTSD+2~, HTWTSD+6, HTWTSD+11, HTWTSD+12, HTWTSD+13, WT+2~, ASTDM+2~, ASTDM+7* , ASTDM+8, ASTDM+9, ASTDM+10, ASTDM+11, ASTDM+12, ASTDM+21, ASTDM+22, ASTDM+27, ASTDM+28, REF+2~ , REF+7, REF+8, REF+12
Y	SETREC+10, PNEU+2~, HTWTSD+2~, HTWTSD+5, HTWTSD+9, ASTDM+2~, REF+2~, DSCHTYPE+4~, DSCHTYPE+8, DSCHTYPE+9 , DSCHTYPE+10, DSCHTYPE+11, CHSDT+2, CHSDT+3, DSCHDATE+4~, DSCHDATE+6, DSCHDATE+7, DSCHDATE+8, CHSDD+2*, CHSDD+3 , CHSDD+4
Z	SETREC+10, REF+2~, DSCHTYPE+4~, DSCHTYPE+6, DSCHTYPE+7, DSCHTYPE+8, CHSDT+1, CHSDT+2, DSCHDATE+4~, DSCHDATE+5 , DSCHDATE+6, CHSDD+1*, CHSDD+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLSIL2

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: