Routine: BHSAST

Information

BHSAST ;IHS/MSC/MGH - Asthma supplement data ;21-Apr-2014 17:43;DU

Call Graph

Call Graph Total: 15

Package	Total	Call Graph
DRG Grouper	2	$$ICDDX^ICDCODE $$ICDDX^ICDEX
Health Summary Components	2	(FMH,ICD,N)^BHSAST1 $$AICD^BHSUTL
Kernel	2	($$FMADD,$$FMDIFF,$$FMTE)^XLFDT $$STRIP^XLFSTR
Patient Care Component	2	$$LASTACON^APCHSMAS ($$DATE,$$LASTITEM)^APCHSMU
Patient Care Component Reports	2	($$LASTSMEX,$$LASTSMLE,$$LASTSMOK)^APCLAPI7 $$START1^APCLDF
Health Summary	1	CKP^GMTSUP
IHS Patient	1	($$AGE,$$DOB,$$HRN,$$SEX)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Taxonomy	1	$$ICD^ATXCHK
iCare	1	($$ATAG,ATAG)^BQITDUTL

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Health Summary Components	2	BHSASM BHSAST1

Entry Points

Name	Comments	DBIA/ICR reference
EOJ	;
S1	;
EP(DFN)	;PEP - Asthma supplement for health summary
DXAST(P)	;EP
SETARRAY	;set up array containing dm care summary
TOB	;
GETM	;
TRIGHF	;trigger health factors
RED(V,D)	;EP - RED VALUE
PLN(E)	;
PLAST(P,F)	;EP
PLASTA(P,R)	;EP
LASTSEV(P,F)	;EP - return highest CLASSIFICATION recorded
S(Y,F,C,T)	;EP - set up array
N	;more stuff
LAST5	;
HEADER	;
W	;write out array
V
PBPF(P,F)	;EP - BEST PEAK FLOW
ADM	;
ASFD	;asthma symptom free days
FVFC(R)	;
LASTAM(P,F)	;EP - return date of last asthma management plan = yes
HEAD1	;
EP2(DFN)	;EP - PASS DFN get back array of patient care summary
YELLOW(V)	;EP - YELLOW VALUE
GREEN(V)	;EP - GREEN VALUE

External References

Name	Field # of Occurrence
$$LASTACON^APCHSMAS	SETARRAY+46
$$DATE^APCHSMU	TOB+2, TOB+3, TOB+4
$$LASTITEM^APCHSMU	SETARRAY+63
$$LASTSMEX^APCLAPI7	TOB+4
$$LASTSMLE^APCLAPI7	TOB+3
$$LASTSMOK^APCLAPI7	TOB+2
$$START1^APCLDF	ASFD+3, ADM+3, PBPF+2, GETM+1
$$ICD^ATXCHK	PLAST+13, PLASTA+14, DXAST+10, LASTSEV+10
$$AGE^AUPNPAT	SETARRAY+4
$$DOB^AUPNPAT	SETARRAY+4
$$HRN^AUPNPAT	SETARRAY+3
$$SEX^AUPNPAT	SETARRAY+4
FMH^BHSAST1	SETARRAY+49
ICD^BHSAST1	SETARRAY+32, SETARRAY+44
N^BHSAST1	N+1
$$AICD^BHSUTL	PLAST+9, PLASTA+10, DXAST+7
$$ATAG^BQITDUTL	SETARRAY+6
ATAG^BQITDUTL	SETARRAY+5, SETARRAY+6
CKP^GMTSUP	W+1, W+3, W+6
$$ICDDX^ICDCODE	PLAST+10, PLASTA+11, DXAST+8
$$ICDDX^ICDEX	PLAST+9, PLASTA+10, DXAST+7
$$VAL^XBDIQ1	SETARRAY+17, SETARRAY+19, SETARRAY+21, SETARRAY+36, SETARRAY+37, SETARRAY+38, PLN+3, LASTSEV+14
$$FMADD^XLFDT	ASFD+3, ADM+3
$$FMDIFF^XLFDT	SETARRAY+63, SETARRAY+64
$$FMTE^XLFDT	SETARRAY+2, SETARRAY+44, SETARRAY+58, SETARRAY+63, SETARRAY+64, TRIGHF+8, V+7, ASFD+12, ADM+12, LASTAM+6 , LASTSEV+17
$$STRIP^XLFSTR	FVFC+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: HEADER+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	PLAST+12, PLAST+13, PLASTA+13, PLASTA+14, DXAST+9, DXAST+10, LASTSEV+4
^AUPNPROB - [#9000011]	SETARRAY+36, SETARRAY+37, SETARRAY+40, SETARRAY+41, SETARRAY+43, SETARRAY+44, PLAST+7, PLASTA+8, PLN+2, PLN+3 , LASTSEV+8, LASTSEV+11, LASTSEV+12, LASTSEV+14
^AUPNPROB("AC"	PLAST+6, PLASTA+7, LASTSEV+7
^AUPNVAST - [#9000010.41]	LASTAM+9
^AUPNVAST("AM"	LASTAM+3, LASTAM+8
^AUPNVHF("AA"	TRIGHF+5, TRIGHF+6
^AUPNVMSR - [#9000010.01]	GETM+5, GETM+6, GETM+7, GETM+9
^AUPNVPOV - [#9000010.07]	DXAST+5
^AUPNVPOV("AA"	DXAST+3, DXAST+4
^AUPNVSIT - [#9000010]	GETM+5, GETM+6, GETM+8, GETM+9
^AUTTHF - [#9999999.64]	TRIGHF+8
^AUTTHF("AC"	TRIGHF+4
^AUTTHF("B"	TRIGHF+2
^AUTTLOC - [#9999999.06]	SETARRAY+41, PLN+2
^BDPRECN - [#90360.1]	SETARRAY+13
^BDPRECN("C"	SETARRAY+10, SETARRAY+12
^BDPTCAT - [#90360.3]	SETARRAY+15, SETARRAY+16
^DPT - [#2]	SETARRAY+3
^TMP("BHSAST"	S1+1, S1+2, W+2, W+4, EP2+2!, EP2+3*

Label References

Name	Line Occurrences
$$FVFC	GETM+7
$$GREEN	SETARRAY+60
$$LASTAM	SETARRAY+64
$$PBPF	SETARRAY+57
$$PLN	PLAST+18, PLASTA+15
$$RED	SETARRAY+62
$$YELLOW	SETARRAY+61
ASFD	V+4
EOJ	W+7
EP2	EP+3
GETM	LAST5+2, LAST5+3, LAST5+4
LAST5	V
PLASTA	SETARRAY+23
S	SETARRAY+2, SETARRAY+3, SETARRAY+9, SETARRAY+11, SETARRAY+19, SETARRAY+21, SETARRAY+22, SETARRAY+24, SETARRAY+28, SETARRAY+29 , SETARRAY+35, SETARRAY+36, SETARRAY+37, SETARRAY+38, SETARRAY+45, SETARRAY+46, SETARRAY+51, SETARRAY+52, SETARRAY+55, SETARRAY+58 , SETARRAY+59, SETARRAY+60, SETARRAY+61, SETARRAY+62, SETARRAY+63, SETARRAY+64, SETARRAY+65, TRIGHF+9, TRIGHF+10, TOB+2 , TOB+3, TOB+4, V+1, V+2, V+3, V+4, V+11, ASFD+4, ASFD+6, ASFD+7 , ASFD+8, ASFD+12, ADM+4, ADM+6, ADM+7, ADM+8, ADM+12
S1	S+5, S+7, S+10
SETARRAY	EP2+4
TOB	TRIGHF+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	S+3~, S+8, S+9, S1+1, S1+2, EOJ+2!, PBPF+2~, PBPF+3, PBPF+4, LASTAM+3~ , LASTAM+7, LASTAM+10
A	EP+2~, SETARRAY+13, SETARRAY+14, SETARRAY+15, SETARRAY+16, SETARRAY+17, SETARRAY+19, PLAST+5~, PLAST+6, PLAST+7 , PLAST+14, PLASTA+5~, PLASTA+7, PLASTA+8, PLASTA+15, DXAST+2~, DXAST+5*, DXAST+7, DXAST+8, DXAST+10
APCHQUIT	EP+1~
APCHY	PBPF+2~!
APCHY(	PBPF+3
B	EP+2~, EOJ+2!, SETARRAY+57*, SETARRAY+58, SETARRAY+59, SETARRAY+60, SETARRAY+61, SETARRAY+62, PLAST+5~, PLASTA+5~
BHASEV	SETARRAY+23!
BHASFD	ASFD+1!, ADM+1!
BHC	EOJ+3!, TRIGHF+2*, TRIGHF+3, TRIGHF+4
BHCRN	EOJ+4!
BHD	LAST5+1!, LAST5+5!, GETM+10!
BHD(	GETM+2, GETM+3
BHDG	EOJ+4!
BHDTM	EOJ+4!
BHDYS	EOJ+4!
BHEXP	EOJ+4!
BHF	EOJ+3!, TRIGHF+4*, TRIGHF+5, TRIGHF+6, TRIGHF+8
BHG	EOJ+3!, TRIGHF+1, TRIGHF+7, TRIGHF+8, TRIGHF+9, TRIGHF+10*
BHL	V+4, ASFD+2!, ASFD+5, ADM+2!, ADM+5, LAST5+1!
BHL(	V+5, V+6, V+8, V+9, V+10, ASFD+9, ADM+9, GETM+5, GETM+6, GETM+8 , GETM+9
BHL("D"	ASFD+9, ASFD+10, ASFD+11, ASFD+12, ADM+9, ADM+10, ADM+11, ADM+12
BHL(1	ASFD+4, ADM+4
BHMED	EOJ+4!
BHMFX	EOJ+4!
BHORTS	EOJ+4!
BHPL	SETARRAY+23!, SETARRAY+24, SETARRAY+25
BHPL(	SETARRAY+26, SETARRAY+32, SETARRAY+42, PLASTA+15*
BHPWHT	EOJ+4!
BHQTY	EOJ+4!
BHREF	EOJ+4!
BHRFL	EOJ+4!
BHRX	EOJ+4!
BHSICL	EOJ+3!, SETARRAY+32, SETARRAY+44
BHSNRP	EOJ+3!
BHSNRQ	EOJ+3!, SETARRAY+32, SETARRAY+44
BHSO	EOJ+4!
BHSTAT	EOJ+4!
BHSX	EP+1~, SETARRAY+12*, SETARRAY+13, SETARRAY+17, SETARRAY+19, TRIGHF+1!
BHSX(	TRIGHF+8*, TRIGHF+10
BHTDAT	EOJ+4!
BHTFH	SETARRAY+48!, SETARRAY+49, SETARRAY+51, SETARRAY+52
BHTFH(	SETARRAY+53, SETARRAY+55
BHTFH(1	SETARRAY+54
BHV	LAST5+1!, LAST5+5!, GETM+10!
BHX	EP+1~, W+2, W+4, SETARRAY+40, SETARRAY+41, SETARRAY+43, SETARRAY+44
BHY	EOJ+3!, SETARRAY+43*, SETARRAY+44
C	S~, S+7, EOJ+2!, SETARRAY+26, SETARRAY+27, SETARRAY+28, SETARRAY+29, V+5, V+6, ASFD+10* , ASFD+11, ADM+10, ADM+11, LASTSEV+8, LASTSEV+9, LASTSEV+10
D	SETARRAY+33, SETARRAY+35, TRIGHF+6, TRIGHF+8, V+5, V+6, V+7, V+8, V+9, V+10 , ASFD+10, ASFD+11, ASFD+12, ADM+10, ADM+11, ADM+12, RED~, DXAST+2~, DXAST+3, DXAST+4 , LASTAM+3~*, LASTAM+4, LASTAM+5, LASTAM+6, LASTAM+8, LASTAM+10, LASTSEV+1~
DFN	EP~, EP+3, EP2~, SETARRAY+3, SETARRAY+4, SETARRAY+6, SETARRAY+10, SETARRAY+12, SETARRAY+21, SETARRAY+23 , SETARRAY+46, SETARRAY+49, SETARRAY+57, SETARRAY+63, SETARRAY+64, TRIGHF+5, TRIGHF+6, TOB+2, TOB+3, TOB+4 , ASFD+3, ADM+3, GETM+1
DT	SETARRAY+2, SETARRAY+63, SETARRAY+64, ASFD+3, ADM+3
DUZ(2	SETARRAY+3
E	EP+2~, EOJ+2!, SETARRAY+45, ASFD+3, ADM+3, PBPF+2~, GETM+1, PLN~, PLN+2, PLN+3 , LASTSEV+1~, LASTSEV+12, LASTSEV+13, LASTSEV+14
F	S~, S+1, S+5, EOJ+2!, PBPF~, PBPF+1, PBPF+4, PLAST~, PLAST+4, PLAST+17 , PLAST+18, PLASTA+4, FVFC+1~, FVFC+2, FVFC+5, FVFC+7, LASTAM~, LASTAM+2, LASTAM+5, LASTAM+6 , LASTAM+7, LASTSEV~, LASTSEV+3, LASTSEV+15, LASTSEV+16, LASTSEV+17, LASTSEV+18, LASTSEV+19
G	PLAST+5~, PLAST+6, PLAST+14, PLAST+16, PLAST+18, PLASTA+5~, PLASTA+7, DXAST+2~, DXAST+3, DXAST+4 , DXAST+11, DXAST+14
>> GMTSQIT	W+1, W+2, W+3, W+6
H	EOJ+2!
I	EP+2~, ASFD+11, ASFD+12, ADM+11, ADM+12, PLAST+5~, PLAST+7, PLAST+9, PLAST+10, PLAST+13 , PLASTA+5~, PLASTA+8, PLASTA+10, PLASTA+11, PLASTA+14, DXAST+2~, DXAST+4, DXAST+5, GETM+3, GETM+5 , GETM+6, GETM+7, GETM+9, LASTAM+3~, LASTAM+8*, LASTAM+9, LASTAM+10
L	S+7*, EOJ+2!
LAST	LASTSEV+1~
M	EOJ+2!, LAST5+2, LAST5+3, LAST5+4*, GETM+1, GETM+4
N	EOJ+2!
P	EOJ+2!, PBPF~, PBPF+2, GREEN+1~, GREEN+3, GREEN+4, YELLOW+1~, YELLOW+3, YELLOW+4, YELLOW+6 , RED+1~, RED+3, RED+4, RED+5, PLAST~, PLAST+3, PLAST+6, PLAST+11, PLASTA~, PLASTA+3 , PLASTA+7, PLASTA+12, DXAST~, DXAST+1, DXAST+3, DXAST+4, LAST5+2, LAST5+3, LAST5+4, GETM+5 , GETM+6, FVFC+7, FVFC+8, FVFC+9, FVFC+10*, FVFC+11, LASTAM~, LASTAM+1, LASTAM+3, LASTAM+8 , LASTSEV~, LASTSEV+2, LASTSEV+7
P1	GREEN+1~, GREEN+3, YELLOW+1~, YELLOW+5, YELLOW+6, RED+1~
R	PLASTA~, PLASTA+6!, GETM+3*, FVFC~, FVFC+2, FVFC+3
S	SETARRAY+41, SETARRAY+42, SETARRAY+44, PLAST+5~, PLAST+9, PLAST+10, PLAST+12, PLASTA+5~, PLASTA+10, PLASTA+11 , PLASTA+13, DXAST+2~, DXAST+7, DXAST+8, DXAST+9, FVFC+1~, FVFC+3, FVFC+4, FVFC+6, FVFC+7 , PLN+1~, PLN+2, PLN+3, LASTSEV+1~, LASTSEV+6, LASTSEV+13, LASTSEV+14, LASTSEV+15, LASTSEV+16, LASTSEV+17 , LASTSEV+18, LASTSEV+19
T	S~, S+2, S+7, S+8, S+9, EP+2~, EOJ+2!, SETARRAY+6, LASTSEV+1~, LASTSEV+4 , LASTSEV+5, LASTSEV+10
T1	EOJ+2!
T2	EOJ+2!
T3	EOJ+2!
U	S1+1, SETARRAY+3, SETARRAY+6, SETARRAY+13, SETARRAY+16, SETARRAY+36, SETARRAY+37, SETARRAY+41, SETARRAY+44, SETARRAY+58 , SETARRAY+59, SETARRAY+60, SETARRAY+61, SETARRAY+62, TRIGHF+8, TOB+2, TOB+3, TOB+4, V+8, V+9 , V+10, ASFD+9, ASFD+12, ADM+9, ADM+12, PBPF+3, PLAST+7, PLAST+9, PLAST+10, PLASTA+8 , PLASTA+10, PLASTA+11, DXAST+5, DXAST+7, DXAST+8, GETM+3, GETM+5, GETM+6, GETM+7, GETM+8 , GETM+9, PLN+2, PLN+3, LASTAM+9, LASTSEV+8, LASTSEV+11, LASTSEV+12, LASTSEV+13, LASTSEV+14, LASTSEV+15 , LASTSEV+16, LASTSEV+17, LASTSEV+18, LASTSEV+19
V	V+6, V+8, V+9, V+10, GREEN~, GREEN+2, GREEN+3, GREEN+4, YELLOW~, YELLOW+2 , YELLOW+3, YELLOW+5, RED~, RED+2, RED+3, GETM+3, GETM+5, GETM+6, GETM+8, GETM+9 , FVFC+1~, LASTAM+3~, LASTAM+9*, LASTAM+10
W	EOJ+2!
X	S+3~, S+5, S+6, S+8, S+9, S1+2, EP+2~, EOJ+2!, SETARRAY+2, SETARRAY+3 , SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+9, SETARRAY+19, SETARRAY+21, SETARRAY+26, SETARRAY+32, SETARRAY+36, SETARRAY+37 , SETARRAY+38, SETARRAY+40, SETARRAY+41, SETARRAY+42, SETARRAY+43, SETARRAY+44, SETARRAY+46, SETARRAY+53, SETARRAY+54, SETARRAY+55 , SETARRAY+58, SETARRAY+59, SETARRAY+60, SETARRAY+61, SETARRAY+62, SETARRAY+63, SETARRAY+64, SETARRAY+65, TRIGHF+8, TRIGHF+9 , TOB+2, TOB+3, TOB+4, V+1, V+2, V+3, V+4, V+7, V+8, V+9 , V+10, V+11, ASFD+3, ASFD+8, ASFD+9, ADM+3, ADM+8, ADM+9, GETM+1, GETM+2* , GETM+3, LASTSEV+1~, LASTSEV+7*, LASTSEV+8, LASTSEV+11, LASTSEV+12, LASTSEV+14
Y	S~, S+6, S+7, S+9, EP+2~, EOJ+2!, SETARRAY+5, SETARRAY+6, SETARRAY+24, SETARRAY+28 , SETARRAY+36, SETARRAY+37, SETARRAY+38, SETARRAY+50, SETARRAY+51, SETARRAY+52, SETARRAY+63, SETARRAY+64, SETARRAY+65, TOB+2 , TOB+3, TOB+4, ASFD+4, ASFD+6, ASFD+7, ASFD+12, ADM+4, ADM+6, ADM+7, ADM+12 , PBPF+2~, PBPF+3, GETM+7, GETM+8, GETM+9
Z	EP+2~, SETARRAY+31!
Z(	SETARRAY+33, SETARRAY+35, SETARRAY+45

Marked Items

Name	Field # of Occurrence
$T(ATAG^BQITDUTL	SETARRAY+5, SETARRAY+6

Customize PDF page

Package: Health Summary Components

Routine: BHSAST

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items