Routine: APCHS9D1

Package	Total	Call Graph
Patient Care Component	6	EDUC^APCHS9B2 ($$DIETV,EDUCREF)^APCHS9B3 ($$ACE,$$ASPREF)^APCHS9B5 TOBACCO^APCHS9B6 MORE^APCHS9D2 ($$LASTITEM,$$PLCODE,$$PLTAX)^APCHSMU
Patient Care Component Reports	2	$$START1^APCLDF $$CLINIC^APCLV
Diabetes Registry	1	EP2^BDMS9D1
IHS Patient	1	($$AGE,$$DOB,$$HRN,$$SEX)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Taxonomy	1	$$ICD^ATXAPI
VA Fileman	1	^DIR

Package

Total

Call Graph

EDUC^APCHS9B2 ($$DIETV,EDUCREF)^APCHS9B3 ($$ACE,$$ASPREF)^APCHS9B5 TOBACCO^APCHS9B6 MORE^APCHS9D2 ($$LASTITEM,$$PLCODE,$$PLTAX)^APCHSMU

Patient Care Component Reports

$$START1^APCLDF $$CLINIC^APCLV

Diabetes Registry

EP2^BDMS9D1

IHS Patient

($$AGE,$$DOB,$$HRN,$$SEX)^AUPNPAT

IHS VA Utilities

$$VAL^XBDIQ1

Kernel

($$FMADD,$$FMTE)^XLFDT

Taxonomy

$$ICD^ATXAPI

VA Fileman

^DIR

Entry Points

Name	Comments	DBIA/ICR reference
MS(P)	;
EOJ	;
S1	;
IGT(P)	;
SETARRAY	;set up array containing dm care summary
BPX	;
LASTWC	;
LASTHT	;
BMI	;
CMSMAN(P,F)	;EP - return date/dx of dm in register
LASTWT	;
GETHWB(P,EDATE)
S(Y,F,C,T)	;set up array
HEADER	;
W	;write out array
EP	;EP - called from component
HTNX	;
HEAD1	;
BP(P)	;last 3 BPs - NON ER
IFG(P)	;
EP2(APCHSDFN)	;PEP - PASS DFN get back array of patient care summary
M12	;
HTN(P)	;
ASPIRIN(P,D)	;

External References

Name	Field # of Occurrence
EDUC^APCHS9B2	SETARRAY+35
$$DIETV^APCHS9B3	SETARRAY+33
EDUCREF^APCHS9B3	SETARRAY+38
$$ACE^APCHS9B5	SETARRAY+43
$$ASPREF^APCHS9B5	SETARRAY+46
TOBACCO^APCHS9B6	SETARRAY+30
MORE^APCHS9D2	M12+1
$$LASTITEM^APCHSMU	EP+3
$$PLCODE^APCHSMU	MS+2, IGT+2, IFG+2
$$PLTAX^APCHSMU	EP+2
$$START1^APCLDF	MS+6, IGT+6, IFG+6, HTN+7, LASTHT+4, LASTWT+1, LASTWC+1
$$CLINIC^APCLV	BP+10
$$ICD^ATXAPI	HTN+3
$$AGE^AUPNPAT	SETARRAY+5, BMI+4, BMI+7
$$DOB^AUPNPAT	SETARRAY+5, M12+2
$$HRN^AUPNPAT	HEAD1+4, SETARRAY+4, M12+2
$$SEX^AUPNPAT	SETARRAY+5
EP2^BDMS9D1	EP2+2
^DIR	EP+5, HEADER+1
$$VAL^XBDIQ1	SETARRAY+15, ASPIRIN+13, ASPIRIN+14
$$FMADD^XLFDT	EP+4, SETARRAY+34, SETARRAY+42, SETARRAY+45
$$FMTE^XLFDT	SETARRAY+3, SETARRAY+5, SETARRAY+7, SETARRAY+9, SETARRAY+11, SETARRAY+24, SETARRAY+26, SETARRAY+28, LASTHT+5, LASTHT+7 , LASTHT+9, LASTWT+2, LASTWT+3, LASTWT+4, LASTWC+2, LASTWC+3, LASTWC+4, ASPIRIN+13, ASPIRIN+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EP+5
Function Call: WRITE	Prompt: ! Line Location: HEADER+1
Function Call: WRITE	Prompt: !,APCHSHDR,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,"PreDiabetes Patient Care Summary - continued" Line Location: HEAD1+3
Function Call: WRITE	Prompt: !,"Patient: ",$P(^DPT(APCHSPAT,0),U)," HRN: ",$$HRN^AUPNPAT(APCHSPAT,DUZ(2)),! Line Location: HEAD1+4
Routine Call	DIR Line Location: EP+5 HEADER+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	EP2+2, SETARRAY+2
^ACM(41 - [#9002241]	CMSMAN+4, CMSMAN+5
^ACM(41.1 - [#9002241.1]	CMSMAN+3
^ATXAX - [#9002226]	ASPIRIN+10, ASPIRIN+11
^ATXAX("B"	HTN+1, ASPIRIN+5, ASPIRIN+6
^AUPNPROB - [#9000011]	MS+3, MS+4, IGT+3, IGT+4, IFG+3, IFG+4, HTN+3
^AUPNPROB("AC"	HTN+3
^AUPNVMED - [#9000010.14]	ASPIRIN+9, ASPIRIN+13, ASPIRIN+14
^AUPNVMED("AA"	ASPIRIN+8, ASPIRIN+9
^AUPNVMSR - [#9000010.01]	BP+7, BP+9, BP+11
^AUPNVMSR("AA"	BP+5, BP+6
^AUPNVMSR("AC"	LASTHT+2
^AUPNVSIT - [#9000010]	BP+8, ASPIRIN+13, ASPIRIN+14
^AUPNVSIT("AC"	LASTHT+1
^AUTTMSR("B"	BP+4
^DPT - [#2]	HEAD1+4, SETARRAY+4, M12+2
^TMP("APCHS"	W+3, W+5, EP2+3!, EP2+4, S1+1, S1+2*
^VA(200 - [#200]	CMSMAN+5

Label References

Name	Line Occurrences
$$ASPIRIN	SETARRAY+45
$$BP	SETARRAY+23
$$CMSMAN	SETARRAY+14
$$HTN	SETARRAY+41
$$IFG	SETARRAY+7
$$IGT	SETARRAY+9
$$MS	SETARRAY+11
EOJ	W+8
EP2	EP+6
GETHWB	SETARRAY+17
HEADER	W+4
HTNX	HTN+7
S	SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+8, SETARRAY+10, SETARRAY+12, SETARRAY+13, SETARRAY+14, SETARRAY+15 , SETARRAY+16, SETARRAY+18, SETARRAY+19, SETARRAY+20, SETARRAY+21, SETARRAY+22, SETARRAY+25, SETARRAY+27, SETARRAY+29, SETARRAY+31 , SETARRAY+32, SETARRAY+33, SETARRAY+36, SETARRAY+38, SETARRAY+39, SETARRAY+41, SETARRAY+44, SETARRAY+45, SETARRAY+46, M12+2
S1	S+4, S+6, S+9
SETARRAY	EP2+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+2!, SETARRAY+36, SETARRAY+37!, SETARRAY+39, SETARRAY+40!, SETARRAY+43, SETARRAY+44, S+3~, S+7, S+8* , S1+1, S1+2, MS+1~, MS+6, IGT+1~, IGT+6, IFG+1~, IFG+6, LASTHT+4, LASTWT+1 , LASTWC+1, BMI+10, BMI+11, BMI+12, ASPIRIN+3~, ASPIRIN+4, ASPIRIN+8, ASPIRIN+9, ASPIRIN+10, ASPIRIN+11 , ASPIRIN+12, ASPIRIN+13, ASPIRIN+14
APCHC	BP+1~, BP+3, BP+5, BP+6, BP+11, BPX+1!
APCHD	BP+1~, BP+3, BP+5, BP+6, BP+11, BPX+1!
>> APCHHT	BMI+3, BMI+4, BMI+6, BMI+7, BMI+8, BMI+9, BMI+11
APCHQUIT	W+2!, W+3, W+4, W+7, EOJ+1!, HEADER+1*
APCHSBEG	EOJ+1!, SETARRAY+34, SETARRAY+42, SETARRAY+43, SETARRAY+45*
APCHSDFN	EOJ+1!, EP2~, EP2+2, SETARRAY+4, SETARRAY+5, SETARRAY+7, SETARRAY+9, SETARRAY+11, SETARRAY+14, SETARRAY+15 , SETARRAY+17, SETARRAY+23, SETARRAY+33, SETARRAY+41, SETARRAY+43, SETARRAY+45, SETARRAY+46, M12+2
APCHSED	EOJ+1!
>> APCHSHDR	HEAD1+2
>> APCHSPAT	EP+1, EP+2, EP+3, EP+6, HEAD1+4
>> APCHSQIT	EP+5, W+7
APCHSTEX	EOJ+1!
APCHSTOB	EOJ+1!
APCHSUPI	EOJ+1!
APCHSX	SETARRAY+45!
APCHTOB	EOJ+1!, SETARRAY+31
APCHTOBN	EOJ+1!
APCHX	W+3, W+5, EOJ+1!, SETARRAY+35!, SETARRAY+37!, SETARRAY+38, SETARRAY+40!, HTN+5~, HTN+6, HTN+7* , HTN+8, HTNX+1, BP+2!, BP+3, BPX+2, GETHWB+1!
APCHX(	SETARRAY+36, SETARRAY+39, BP+11, GETHWB+2, BMI+2, BMI+6, BMI+8, BMI+11, BMI+12*
APCHX(1	SETARRAY+18, SETARRAY+19, SETARRAY+22, SETARRAY+24, BP+14, LASTHT+5, LASTHT+6, LASTWT+2, LASTWC+2*, BMI+9
APCHX(2	SETARRAY+20, SETARRAY+26, LASTHT+7, LASTHT+8, LASTWT+3, LASTWC+3
APCHX(3	SETARRAY+21, SETARRAY+28, HTN+7, LASTHT+9, LASTHT+10, LASTWT+4, LASTWC+4
APCHY	EOJ+1!, SETARRAY+37!, SETARRAY+40!, MS+1~, MS+6!, IGT+1~, IGT+6!, IFG+1~, IFG+6!, LASTHT+3~ , LASTWT+1!, LASTWC+1!, BMI+1*, BMI+2, BMI+6, BMI+8, BMI+11, BMI+12
APCHY(1	MS+7, IGT+7, IFG+7, LASTHT+5, LASTWT+2, LASTWC+2
APCHY(2	LASTHT+7, LASTWT+3, LASTWC+3
APCHY(3	LASTHT+9, LASTWT+4, LASTWC+4
B	EOJ+2!, SETARRAY+23*
C	EOJ+2!, S~, S+6
D	CMSMAN+3~, CMSMAN+4, CMSMAN+5, CMSMAN+6, MS+3, MS+4, MS+5, IGT+3, IGT+4, IGT+5 , IFG+3, IFG+4, IFG+5, ASPIRIN~, ASPIRIN+2, ASPIRIN+8
D1	CMSMAN+3~
DIR	HEADER+1!
DIR("A"	EP+5*
DIR(0	EP+5, HEADER+1
>> DIRUT	EP+5
DT	EP+4, SETARRAY+3, SETARRAY+17, SETARRAY+34, SETARRAY+42, SETARRAY+45
>> DTOUT	HEADER+1
DUZ(2	HEAD1+4, SETARRAY+4, M12+2
E	EOJ+2!, MS+6, IGT+6, IFG+6, HTN+7, LASTHT+4, LASTWT+1, LASTWC+1*
EDATE	GETHWB~
F	EOJ+2!, S~, S+1, S+4, CMSMAN~, CMSMAN+1*
G	CMSMAN+3~, CMSMAN+4, ASPIRIN+9, ASPIRIN+10, ASPIRIN+11
H	EOJ+2!, BMI+11*
I	MS+1~, IGT+1~, IFG+1~, HTN+3~, HTN+4, ASPIRIN+3~, ASPIRIN+8, ASPIRIN+9
IO	EP+5, HEADER+1
IO(0	EP+5, HEADER+1
IOF	W+1, HEAD1+1
IOSL	W+4
IOST	EP+5, HEADER+1
L	EOJ+2!, S+6*
>> M	BP+6*, BP+7, BP+9, BP+11
N	EOJ+2!, CMSMAN+3~*
P	EOJ+2!, CMSMAN~, CMSMAN+2, CMSMAN+4, MS~, MS+2, MS+6, IGT~, IGT+2, IGT+6 , IFG~, IFG+2, IFG+6, HTN~, HTN+3, HTN+7, BP~, BP+5, BP+6, GETHWB~ , LASTHT+1, LASTHT+2, LASTHT+4, LASTWT+1, LASTWC+1, BMI+4, BMI+7, ASPIRIN~, ASPIRIN+1, ASPIRIN+8 , ASPIRIN+9
R	CMSMAN+3~*, CMSMAN+4
T	EOJ+2!, S~, S+2, S+6, S+7, S+8, HTN+1~, HTN+2, HTN+3, BP+4 , BP+5, BP+6, ASPIRIN+5~*, ASPIRIN+7, ASPIRIN+10
T1	ASPIRIN+5~, ASPIRIN+6*, ASPIRIN+11
U	HEAD1+4, SETARRAY+4, SETARRAY+7, SETARRAY+9, SETARRAY+11, SETARRAY+24, SETARRAY+26, SETARRAY+28, M12+2, S1+1 , CMSMAN+4, CMSMAN+5, MS+3, MS+4, MS+5, MS+7, IGT+3, IGT+4, IGT+5, IGT+7 , IFG+3, IFG+4, IFG+5, IFG+7, HTN+3, BP+7, BP+9, BP+11, LASTHT+5, LASTHT+7 , LASTHT+9, LASTWT+2, LASTWT+3, LASTWT+4, LASTWC+2, LASTWC+3, LASTWC+4, ASPIRIN+9, ASPIRIN+13, ASPIRIN+14
V	BP+7, BP+8, BP+10, ASPIRIN+3~, ASPIRIN+9, ASPIRIN+10, ASPIRIN+11
W	EOJ+2!, BMI+11*
X	EP+3, EP+4, EOJ+2!, EP2+2~, SETARRAY+2, SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7 , SETARRAY+8, SETARRAY+9, SETARRAY+10, SETARRAY+11, SETARRAY+12, SETARRAY+13, SETARRAY+14, SETARRAY+15, SETARRAY+16, SETARRAY+18* , SETARRAY+19, SETARRAY+20, SETARRAY+21, SETARRAY+22, SETARRAY+24, SETARRAY+25, SETARRAY+26, SETARRAY+27, SETARRAY+28, SETARRAY+29 , SETARRAY+31, SETARRAY+32, SETARRAY+33, SETARRAY+36, SETARRAY+38, SETARRAY+39, SETARRAY+41, SETARRAY+44, SETARRAY+45, SETARRAY+46* , M12+2, S+3~, S+4, S+5, S+7, S+8, S1+2, CMSMAN+3~, CMSMAN+4, CMSMAN+5 , MS+1~, MS+2, MS+3, MS+4, IGT+1~, IGT+2, IGT+3, IGT+4, IFG+1~, IFG+2* , IFG+3, IFG+4, HTN+3~, HTN+7, GETHWB+2*, LASTHT+4~, LASTWT+1~, LASTWC+1~
Y	EOJ+2!, HEADER+1, SETARRAY+7, SETARRAY+9, SETARRAY+11, S~, S+5, S+6, S+8, CMSMAN+3~ , CMSMAN+4, MS+1~, MS+2, MS+3, MS+4, MS+5, IGT+1~, IGT+2, IGT+3, IGT+4* , IGT+5, IFG+1~, IFG+2, IFG+3, IFG+4, IFG+5, HTN+3~, BMI+6, BMI+8*

Customize PDF page

Package: Patient Care Component