Routine: APCHS9B1

Information

APCHS9B1 ; IHS/CMI/LAB - DIABETIC CARE SUMMARY SUPPLEMENT ;

Source Information

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Patient Care Component	5	MORE^APCHS9B2 $$REFDF^APCHS9B3 ($$CMSFDX,$$DFE,$$EYE,$$PAP,$$PLDMDOO)^APCHS9B4 ($$ACE,$$ASPREF,MAM,PAP)^APCHS9B5 ($$DENTAL,TOBACCO)^APCHS9B6
Kernel	2	($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR
Patient Care Component Reports	2	$$START1^APCLDF $$CLINIC^APCLV
VA Fileman	2	^%DT ^DIR
DRG Grouper	1	($$ICDDX,$$IEN)^ICDEX
Diabetes Registry	1	EP2^BDMS9B1
IHS Patient	1	($$AGE,$$DOB,$$DOD,$$HRN,$$SEX)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Taxonomy	1	$$ICD^ATXAPI

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLDMSP
Patient Chart	1	BPCDBS

Entry Points

Name	Comments	DBIA/ICR reference
EOJ	;
S1	;
DMPN(P)	;return problem number of lowest DM code
DEPSCR(P,BDATE,EDATE)	;EP
SETARRAY	;set up array containing dm care summary
BPX	;
LASTWC	;
GETHWB(P)
LASTHT	;
BMI	;
LASTWT	;
NOTREG(P)	;is patient on any Diabetes register 1 if on reg, "" if not
S(Y,F,C,T)	;set up array
HEADER	;
DOO(P)	;get earliest date of onset
W	;write out array
EP	;EP - called from component
DEPPL(P,BDATE,EDATE)	;EP
HTNX	;
HEAD1	;
BP(P)	;last 3 BPs
EP2(APCHSDFN)	;PEP - PASS DFN get back array of patient care summary
BHSCR	;
M12	;
HTN(P)	;
ASPIRIN(P,D)	;

External References

Name	Field # of Occurrence
^%DT	DEPPL+33, DEPPL+34
MORE^APCHS9B2	M12+21
$$REFDF^APCHS9B3	BHSCR+18
$$CMSFDX^APCHS9B4	DOO+2
$$DFE^APCHS9B4	M12+4
$$EYE^APCHS9B4	M12+5
$$PAP^APCHS9B4	M12+12
$$PLDMDOO^APCHS9B4	DOO+4
$$ACE^APCHS9B5	SETARRAY+17
$$ASPREF^APCHS9B5	SETARRAY+20
MAM^APCHS9B5	M12+19
PAP^APCHS9B5	M12+15
$$DENTAL^APCHS9B6	M12+6
TOBACCO^APCHS9B6	SETARRAY+13
$$START1^APCLDF	HTN+8, LASTHT+4, LASTWT+1, LASTWC+1, DEPPL+30, DEPSCR+5, DEPSCR+9, DEPSCR+13
$$CLINIC^APCLV	BP+12
$$ICD^ATXAPI	HTN+4, DMPN+7, DEPPL+9, DEPPL+23
$$AGE^AUPNPAT	SETARRAY+6, BMI+1
$$DOB^AUPNPAT	SETARRAY+7, M12+22
$$DOD^AUPNPAT	SETARRAY+5
$$HRN^AUPNPAT	HEAD1+4, SETARRAY+4, M12+22
$$SEX^AUPNPAT	SETARRAY+6
EP2^BDMS9B1	EP2+2
^DIR	EP+2, HEADER+1
$$ICDDX^ICDEX	DMPN+9, DEPPL+11, DEPPL+25
$$IEN^ICDEX	DEPPL+21
$$VAL^XBDIQ1	SETARRAY+9, ASPIRIN+13, ASPIRIN+14, BHSCR+3
$$FMADD^XLFDT	SETARRAY+16, SETARRAY+19, SETARRAY+21, SETARRAY+22, M12+2
$$FMTE^XLFDT	SETARRAY+3, SETARRAY+5, SETARRAY+7, SETARRAY+24, SETARRAY+27, SETARRAY+30, M12+13, M12+19, LASTHT+4, LASTWT+1 , LASTWC+1, ASPIRIN+13, ASPIRIN+14, DOO+7, DEPSCR+6, DEPSCR+10, DEPSCR+20, BHSCR+2, BHSCR+3, BHSCR+7 , BHSCR+14
$$UP^XLFSTR	NOTREG+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: EP+2
Function Call: WRITE	Prompt: ! Line Location: HEADER+1
Function Call: WRITE	Prompt: !,APCHSHDR,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,"Diabetes 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+2 HEADER+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	EP2+2, SETARRAY+2
^ACM(41 - [#9002241]	NOTREG+3
^ACM(41.1 - [#9002241.1]	NOTREG+4
^AMHPPROB - [#9002011.51]	DEPPL+18
^AMHPPROB("AC"	DEPPL+17
^AMHPROB - [#9002012.2]	DEPPL+19, DEPPL+41, BHSCR+6
^AMHREC - [#9002011]	DEPPL+37, DEPPL+38, BHSCR+2
^AMHREC("AE"	DEPPL+36, BHSCR+1
^AMHREDU - [#9002011.05]	BHSCR+10
^AMHREDU("AD"	BHSCR+8, BHSCR+9
^AMHRPRO - [#9002011.01]	DEPPL+39, BHSCR+4
^AMHRPRO("AD"	DEPPL+39, BHSCR+4
^ATXAX - [#9002226]	ASPIRIN+10, ASPIRIN+11
^ATXAX("B"	HTN+2, DMPN+2, ASPIRIN+5, ASPIRIN+6, DEPPL+5, DEPPL+16
^AUPNPROB - [#9000011]	HTN+4, DMPN+5, DMPN+6, DMPN+15, DMPN+16, DEPPL+7, DEPPL+8
^AUPNPROB("AC"	HTN+4, DMPN+4, DEPPL+6
^AUPNVMED - [#9000010.14]	ASPIRIN+9, ASPIRIN+13, ASPIRIN+14
^AUPNVMED("AA"	ASPIRIN+8, ASPIRIN+9
^AUPNVMSR - [#9000010.01]	BP+9, BP+11, BP+13
^AUPNVMSR("AA"	BP+7, BP+8
^AUPNVMSR("AC"	LASTHT+2
^AUPNVPED - [#9000010.16]	DEPSCR+16
^AUPNVSIT - [#9000010]	BP+10, ASPIRIN+13, ASPIRIN+14
^AUPNVSIT("AC"	LASTHT+1
^AUTTEDT - [#9999999.09]	DEPSCR+18, DEPSCR+19, BHSCR+12, BHSCR+13
^AUTTEXAM("B"	BHSCR+18
^AUTTLOC - [#9999999.06]	DMPN+16
^AUTTMSR("B"	BP+6
^DPT - [#2]	HEAD1+4, SETARRAY+4, M12+9, M12+22
^TMP("APCHS"	W+3, W+5, EP2+3!, EP2+4, S1+1, S1+2*

Label References

Name	Line Occurrences
$$ASPIRIN	SETARRAY+19
$$BP	SETARRAY+23
$$DEPPL	SETARRAY+21
$$DEPSCR	SETARRAY+22
$$DMPN	SETARRAY+7
$$DOO	SETARRAY+6
$$HTN	SETARRAY+15
$$NOTREG	SETARRAY+8
BHSCR	DEPSCR+14
EOJ	W+8
EP2	EP+4
GETHWB	SETARRAY+10
HEADER	W+4
HTNX	HTN+8
S	SETARRAY+3, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+9, SETARRAY+10, SETARRAY+11, SETARRAY+12, SETARRAY+14 , SETARRAY+15, SETARRAY+18, SETARRAY+19, SETARRAY+20, SETARRAY+26, SETARRAY+29, SETARRAY+32, SETARRAY+34, M12+3, M12+4 , M12+5, M12+6, M12+10, M12+13, M12+14, M12+16, M12+17, M12+19, M12+20, M12+22
S1	S+5, S+7, S+10
SETARRAY	EP2+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+2!, SETARRAY+17, SETARRAY+18, S+3~, S+8, S+9, S1+1, S1+2, LASTHT+4, LASTWT+1 , LASTWC+1, BMI+3, BMI+5, BMI+6, ASPIRIN+3~, ASPIRIN+4, ASPIRIN+8, ASPIRIN+9, ASPIRIN+10, ASPIRIN+11 , ASPIRIN+12, ASPIRIN+13, ASPIRIN+14, DEPSCR+15*
>> %DT	DEPPL+33, DEPPL+34
APCH	DEPPL+1~, DEPPL+2!, DEPPL+32, DEPPL+36, DEPPL+39, DEPPL+42, DEPPL+43, DEPPL+44, DEPPL+45, DEPPL+46 , DEPPL+47, DEPPL+48, DEPPL+49, DEPPL+50, DEPPL+51*, DEPPL+53, DEPSCR+3!, DEPSCR+7!, DEPSCR+11!, DEPSCR+21!
APCH(	DEPSCR+15, DEPSCR+16, DEPSCR+20
APCH(1	DEPPL+32, DEPSCR+6, DEPSCR+10, DEPSCR+14
APCH(2	DEPPL+31
APCHC	BP+2~, BP+4, BP+7, BP+8, BP+13, BPX+1!, BHSCR+1, BHSCR+4, BHSCR+18, BHSCR+19
APCHD	BP+2~, BP+4, BP+7, BP+8, BP+13, BPX+1!
>> APCHDEPP	SETARRAY+21*, SETARRAY+28, SETARRAY+31, SETARRAY+33
>> APCHDEPS	SETARRAY+22*, SETARRAY+33
>> APCHLAST	DEPSCR+3, DEPSCR+6, DEPSCR+10, DEPSCR+20, BHSCR+2, BHSCR+7, BHSCR+14*, BHSCR+16
>> APCHP	DEPPL+39, DEPPL+40, DEPPL+41, DEPPL+42, DEPPL+43, DEPPL+44, DEPPL+45, DEPPL+46, DEPPL+47, DEPPL+48 , DEPPL+49, DEPPL+50, DEPPL+51, BHSCR+4, BHSCR+5, BHSCR+6, BHSCR+7
APCHQUIT	W+2!, W+3, W+4, W+7, EOJ+1!, HEADER+1*
>> APCHRF	BHSCR+1, BHSCR+2, BHSCR+3*, BHSCR+20
APCHSBEG	EOJ+1!, SETARRAY+16, SETARRAY+17, SETARRAY+19, M12+2*, M12+4, M12+5, M12+6
>> APCHSCVD	EP2+5*
APCHSDAT	M12+8!, M12+11!, M12+19!
APCHSDFN	EOJ+1!, EP2~, EP2+2, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, SETARRAY+9, SETARRAY+10 , SETARRAY+15, SETARRAY+17, SETARRAY+19, SETARRAY+20, SETARRAY+21, SETARRAY+22, SETARRAY+23, M12+4, M12+5, M12+6 , M12+9, M12+12, M12+22
APCHSED	EOJ+1!
>> APCHSHDR	HEAD1+2
>> APCHSPAT	EP+1, EP+4, HEAD1+4
>> APCHSQIT	EP+2, W+7
APCHSTEX	EOJ+1!, M12+8!, M12+11!, M12+19!
APCHSTEX(	M12+17, M12+20
APCHSTEX(1	M12+16, M12+19
APCHSTOB	EOJ+1!
APCHSUPI	EOJ+1!
APCHSX	SETARRAY+19!
APCHTOB	EOJ+1!, SETARRAY+14
APCHTOBN	EOJ+1!
>> APCHV	DEPPL+32*, DEPPL+38
APCHX	W+3, W+5, EOJ+1!, M12+8!, M12+12, M12+13, M12+14, HTN+6~, HTN+7, HTN+8 , HTN+9, HTNX+1, BP+3!, BP+4, BPX+2, GETHWB+1!
APCHX(	BP+13*
APCHX("BMI"	SETARRAY+11, GETHWB+2, BMI+6
APCHX("HT"	SETARRAY+10, GETHWB+2, LASTHT+4, LASTHT+5*, BMI+2, BMI+5
APCHX("HTD"	SETARRAY+10, GETHWB+2, LASTHT+4, BMI+1
APCHX("WC"	SETARRAY+12, GETHWB+2, LASTWC+1
APCHX("WCD"	SETARRAY+12, GETHWB+2, LASTWC+1
APCHX("WT"	SETARRAY+11, GETHWB+2, LASTWT+1, BMI+2, BMI+5
APCHX("WTD"	SETARRAY+11, GETHWB+2, LASTWT+1, BMI+1
APCHX(1	SETARRAY+24, BP+16*
APCHX(2	SETARRAY+27
APCHX(3	SETARRAY+30, HTN+8
APCHY	EOJ+1!, LASTHT+3~, LASTWT+1!, LASTWC+1!
APCHY(1	LASTHT+4, LASTWT+1, LASTWC+1
B	EOJ+2!, SETARRAY+23*
>> BD	DEPPL+33*
BDATE	DEPPL~, DEPPL+30, DEPPL+33, DEPPL+36, DEPSCR~, DEPSCR+5, DEPSCR+9, DEPSCR+13, BHSCR+1
C	EOJ+2!, S~, S+7
D	DMPN+4~, DMPN+12, DMPN+13, DMPN+14, ASPIRIN~, ASPIRIN+2, ASPIRIN+8, DEPPL+36, DEPSCR+15, BHSCR+1 , BHSCR+2, BHSCR+3, BHSCR+7, BHSCR+14
D(	DMPN+9*, DMPN+14
D(""	DMPN+12
DIR	HEADER+1!
DIR("A"	EP+2*
DIR(0	EP+2, HEADER+1
>> DIRUT	EP+2
DOO	DOO+1~, DOO+4*
DOO(	DOO+3, DOO+5, DOO+7
DOO(0	DOO+6, DOO+7
DT	SETARRAY+3, SETARRAY+16, SETARRAY+19, SETARRAY+21, SETARRAY+22, M12+2
>> DTOUT	HEADER+1
DUZ(2	HEAD1+4, SETARRAY+4, M12+22
E	EOJ+2!, HTN+8, LASTHT+4, LASTWT+1, LASTWC+1, DEPPL+30, DEPPL+36, DEPSCR+5, DEPSCR+9, DEPSCR+13* , DEPSCR+15, BHSCR+1
>> ED	DEPPL+34*
EDATE	DEPPL~, DEPPL+30, DEPPL+34, DEPPL+36, DEPSCR~, DEPSCR+5, DEPSCR+9, DEPSCR+13, BHSCR+1
F	EOJ+2!, S~, S+1, S+5
>> G	ASPIRIN+9, ASPIRIN+10, ASPIRIN+11, DEPPL+3, DEPPL+6, DEPPL+11, DEPPL+13, DEPPL+14, DEPPL+17, DEPPL+25* , DEPPL+27
H	EOJ+2!, BMI+5*
I	HTN+4~, HTN+5, DMPN+4~, DMPN+6, DMPN+7, DMPN+9, ASPIRIN+3~, ASPIRIN+8, ASPIRIN+9, DEPPL+3 , DEPPL+8, DEPPL+9, DEPPL+11, DEPPL+14, DEPPL+18, DEPPL+19, DEPPL+20, DEPPL+21*, DEPPL+22, DEPPL+23 , DEPPL+25
IO	EP+2, HEADER+1
IO(0	EP+2, HEADER+1
IOF	W+1, HEAD1+1
IOSL	W+4
IOST	EP+2, HEADER+1
L	EOJ+2!, S+7, DMPN+15~, DMPN+16
>> M	BP+8*, BP+9, BP+11, BP+13
N	EOJ+2!, NOTREG+4*, NOTREG+5, NOTREG+6, NOTREG+7, NOTREG+8
P	EOJ+2!, HTN~, HTN+4, HTN+8, DMPN~, DMPN+1, DMPN+4, BP~, BP+7, BP+8 , GETHWB~, LASTHT+1, LASTHT+2, LASTHT+4, LASTWT+1, LASTWC+1, BMI+1, ASPIRIN~, ASPIRIN+1, ASPIRIN+8 , ASPIRIN+9, DOO~, DOO+2, DOO+4, NOTREG~, NOTREG+1, NOTREG+3, DEPPL~, DEPPL+6, DEPPL+17 , DEPPL+30, DEPPL+36, DEPSCR~, DEPSCR+2, DEPSCR+5, DEPSCR+9, DEPSCR+13, BHSCR+1, BHSCR+18
T	EOJ+2!, S~, S+2, S+7, S+8, S+9, HTN+2~, HTN+3, HTN+4, DMPN+2~ , DMPN+3, DMPN+7, BP+6, BP+7, BP+8, ASPIRIN+5~, ASPIRIN+7, ASPIRIN+10, DEPPL+5, DEPPL+9 , DEPPL+16, DEPPL+23, DEPSCR+15, DEPSCR+16, DEPSCR+17, DEPSCR+18, DEPSCR+19, DEPSCR+20, BHSCR+10, BHSCR+11 , BHSCR+12, BHSCR+13*, BHSCR+14
T1	ASPIRIN+5~, ASPIRIN+6*, ASPIRIN+11
U	HEAD1+4, SETARRAY+4, SETARRAY+24, SETARRAY+27, SETARRAY+30, M12+9, M12+13, M12+14, M12+22, S1+1 , HTN+4, DMPN+5, DMPN+6, DMPN+9, DMPN+15, DMPN+16, BP+9, BP+11, BP+13, LASTHT+4 , LASTWT+1, LASTWC+1, ASPIRIN+9, ASPIRIN+13, ASPIRIN+14, NOTREG+4, DEPPL+7, DEPPL+8, DEPPL+11, DEPPL+18 , DEPPL+19, DEPPL+25, DEPPL+32, DEPPL+38, DEPPL+39, DEPPL+41, DEPSCR+6, DEPSCR+10, DEPSCR+16, DEPSCR+19 , DEPSCR+20, BHSCR+2, BHSCR+4, BHSCR+6, BHSCR+7, BHSCR+10, BHSCR+13, BHSCR+14, BHSCR+16
V	BP+9, BP+10, BP+12, ASPIRIN+3~, ASPIRIN+9, ASPIRIN+10, ASPIRIN+11, DEPPL+36, DEPPL+37, DEPPL+38 , DEPPL+39, BHSCR+1, BHSCR+2, BHSCR+3, BHSCR+4, BHSCR+8, BHSCR+9
W	EOJ+2!, BMI+5*
X	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+14, SETARRAY+15, SETARRAY+18, SETARRAY+19, SETARRAY+20, SETARRAY+24, SETARRAY+25 , SETARRAY+26, SETARRAY+27, SETARRAY+28, SETARRAY+29, SETARRAY+30, SETARRAY+31, SETARRAY+32, SETARRAY+33, SETARRAY+34, M12+3 , M12+4, M12+5, M12+6, M12+10, M12+13, M12+14, M12+16, M12+17, M12+19, M12+20 , M12+22, S+3~, S+5, S+6, S+8, S+9, S1+2, HTN+4~, HTN+8, DMPN+4~ , DMPN+5, DMPN+6, DMPN+9, DMPN+14, DMPN+15, DMPN+16, LASTHT+4~, LASTWT+1~, LASTWC+1~, DOO+1~ , DOO+2, DOO+3, DOO+4, DOO+5, DOO+7, NOTREG+2~, NOTREG+3, NOTREG+4, DEPPL+1~, DEPPL+3 , DEPPL+6, DEPPL+7, DEPPL+8, DEPPL+14, DEPPL+17, DEPPL+18, DEPPL+30, DEPPL+33, DEPPL+34, DEPPL+39* , DEPSCR+1~, DEPSCR+5, DEPSCR+9, DEPSCR+13, DEPSCR+15, DEPSCR+16, DEPSCR+20, BHSCR+4, BHSCR+19
Y	EOJ+2!, HEADER+1, SETARRAY+7, M12+17, M12+20, S~, S+6, S+7, S+9, HTN+4~ , DMPN+16~, DMPN+17, NOTREG+2~, NOTREG+3, NOTREG+5, NOTREG+6, NOTREG+7, NOTREG+8, NOTREG+10, DEPPL+29* , DEPPL+30, DEPPL+33, DEPPL+34, DEPSCR+4, DEPSCR+5, DEPSCR+8, DEPSCR+9, DEPSCR+12, DEPSCR+13, BHSCR+9 , BHSCR+10

Customize PDF page

Package: Patient Care Component

Routine: APCHS9B1

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: