Routine: APCHSAST

Information

APCHSAST ; IHS/CMI/LAB - ; 20 Sep 2010 1:44 PM

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Patient Care Component	3	(FMH,ICD,N)^APCHSAS1 $$LASTACON^APCHSMAS ($$DATE,$$LASTITEM)^APCHSMU
Kernel	2	($$FMADD,$$FMDIFF,$$FMTE)^XLFDT $$STRIP^XLFSTR
Patient Care Component Reports	2	($$LASTSMEX,$$LASTSMLE,$$LASTSMOK)^APCLAPI7 $$START1^APCLDF
IHS Patient	1	($$AGE,$$DOB,$$HRN,$$SEX)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Taxonomy	1	$$ICD^ATXAPI
VA Fileman	1	^DIR
iCare	1	($$ATAG,ATAG)^BQITDUTL

Package	Total	Caller Graph
Patient Care Component	4	APCHAAP2 APCHS9 APCHSAS1 APCHSTP
iCare	3	BQI2POS1 BQIRGASU BQITDPRC
Health Summary Components	1	BHSAAP2
IHS Mods To Patient Care Encounter	1	BPXRMASM

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)
GREEN(V)	;EP - GREEN VALUE

External References

Name	Field # of Occurrence
FMH^APCHSAS1	SETARRAY+49
ICD^APCHSAS1	SETARRAY+32, SETARRAY+44
N^APCHSAS1	N+1
$$LASTACON^APCHSMAS	SETARRAY+46
$$DATE^APCHSMU	TOB+2, TOB+3, TOB+4
$$LASTITEM^APCHSMU	SETARRAY+64
$$LASTSMEX^APCLAPI7	TOB+4
$$LASTSMLE^APCLAPI7	TOB+3
$$LASTSMOK^APCLAPI7	TOB+2
$$START1^APCLDF	ASFD+3, ADM+3, PBPF+2, GETM+1
$$ICD^ATXAPI	PLAST+10, PLASTA+11, DXAST+7, LASTSEV+11
$$AGE^AUPNPAT	SETARRAY+4
$$DOB^AUPNPAT	SETARRAY+4
$$HRN^AUPNPAT	SETARRAY+3
$$SEX^AUPNPAT	SETARRAY+4
$$ATAG^BQITDUTL	SETARRAY+6
ATAG^BQITDUTL	SETARRAY+5, SETARRAY+6
^DIR	HEADER+1
$$VAL^XBDIQ1	SETARRAY+17, SETARRAY+19, SETARRAY+21, SETARRAY+36, SETARRAY+37, SETARRAY+38, PLN+3, LASTSEV+15
$$FMADD^XLFDT	ASFD+3, ADM+3
$$FMDIFF^XLFDT	SETARRAY+68, SETARRAY+70
$$FMTE^XLFDT	HEAD1+3, SETARRAY+2, SETARRAY+44, SETARRAY+58, SETARRAY+68, SETARRAY+70, TRIGHF+8, V+7, ASFD+12, ADM+12 , LASTAM+6, LASTSEV+18
$$STRIP^XLFSTR	FVFC+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: HEADER+1
Function Call: WRITE	Prompt: !,APCHSHDR Line Location: HEAD1+2
Function Call: WRITE	Prompt: !,"ASTHMA PATIENT CARE SUMMARY Report Date: ",$$FMTE^XLFDT(DT),! Line Location: HEAD1+3
Routine Call	DIR Line Location: HEADER+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	PLAST+9, PLAST+10, PLASTA+10, PLASTA+11, DXAST+6, DXAST+7, LASTSEV+4
^AUPNPROB - [#9000011]	SETARRAY+36, SETARRAY+37, SETARRAY+40, SETARRAY+41, SETARRAY+43, SETARRAY+44, PLAST+7, PLAST+8, PLASTA+8, PLASTA+9 , PLN+2, PLN+3, LASTSEV+8, LASTSEV+9, LASTSEV+12, LASTSEV+13, LASTSEV+15
^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
^AUTTEDT("C"	SETARRAY+63
^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
^ICD9 - [#80]	PLAST+8, PLASTA+9, DXAST+5
^TMP("APCHAST"	S1+1, S1+2, W+3, W+5, EP2+2!, EP2+3*

Label References

Name	Line Occurrences
$$FVFC	GETM+7
$$GREEN	SETARRAY+60
$$LASTAM	SETARRAY+70
$$PBPF	SETARRAY+57
$$PLN	PLAST+15, PLASTA+12
$$RED	SETARRAY+62
$$YELLOW	SETARRAY+61
ASFD	V+4
EOJ	W+8
EP2	EP+3
GETM	LAST5+2, LAST5+3, LAST5+4
HEADER	W+4
LAST5	V
PLASTA	SETARRAY+23
S	SETARRAY+1, 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+68, SETARRAY+70, SETARRAY+71, 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+8, PLAST+11, PLASTA+5~, PLASTA+7, PLASTA+8, PLASTA+9, PLASTA+12, DXAST+2~, DXAST+5*, DXAST+7
APCHASEV	SETARRAY+23!
APCHASFD	ASFD+1!, ADM+1!
>> APCHC	TRIGHF+2*, TRIGHF+3, TRIGHF+4
APCHD	LAST5+1!, LAST5+5!, GETM+10!
APCHD(	GETM+2, GETM+3
>> APCHF	TRIGHF+4*, TRIGHF+5, TRIGHF+6, TRIGHF+8
>> APCHG	TRIGHF+1, TRIGHF+7, TRIGHF+8, TRIGHF+9, TRIGHF+10*
APCHL	V+4, ASFD+2!, ASFD+5, ADM+2!, ADM+5, LAST5+1!
APCHL(	V+5, V+6, V+8, V+9, V+10, ASFD+9, ADM+9, GETM+5, GETM+6, GETM+8 , GETM+9
APCHL("D"	ASFD+9, ASFD+10, ASFD+11, ASFD+12, ADM+9, ADM+10, ADM+11, ADM+12
APCHL(1	ASFD+4, ADM+4
APCHPL	SETARRAY+23!, SETARRAY+24, SETARRAY+25
APCHPL(	SETARRAY+26, SETARRAY+32, SETARRAY+42, PLASTA+12*
APCHQUIT	EP+1~, W+2!, W+3, W+4, W+7, HEADER+1*
>> APCHSHDR	HEAD1+2, SETARRAY+1
>> APCHSICL	SETARRAY+32, SETARRAY+44
>> APCHSNRQ	SETARRAY+32, SETARRAY+44
>> APCHSQIT	W+7*
APCHSX	EP+1~, SETARRAY+12*, SETARRAY+13, SETARRAY+17, SETARRAY+19, TRIGHF+1!
APCHSX(	TRIGHF+8*, TRIGHF+10
APCHTFH	SETARRAY+48!, SETARRAY+49, SETARRAY+51, SETARRAY+52
APCHTFH(	SETARRAY+53, SETARRAY+55
APCHTFH(1	SETARRAY+54
APCHV	LAST5+1!, LAST5+5!, GETM+10!
APCHX	EP+1~, W+3, W+5, SETARRAY+40, SETARRAY+41, SETARRAY+43, SETARRAY+44, SETARRAY+63*, SETARRAY+64
APCHY	SETARRAY+43, SETARRAY+44, SETARRAY+63!, SETARRAY+64, SETARRAY+65, SETARRAY+66, PBPF+2~!
APCHY(	SETARRAY+66*, PBPF+3
APCHY(0	SETARRAY+67
B	EP+2~, EOJ+2!, SETARRAY+57*, SETARRAY+58, SETARRAY+59, SETARRAY+60, SETARRAY+61, SETARRAY+62, PLAST+5~, PLASTA+5~
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+9, LASTSEV+10, LASTSEV+11
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+64, SETARRAY+70, TRIGHF+5, TRIGHF+6, TOB+2, TOB+3, TOB+4 , ASFD+3, ADM+3, GETM+1
DIR	HEADER+1!
DIR(0	HEADER+1*
DT	HEAD1+3, SETARRAY+2, SETARRAY+68, SETARRAY+70, ASFD+3, ADM+3
>> DTOUT	HEADER+1
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+13, LASTSEV+14, LASTSEV+15
F	S~, S+1, S+5, EOJ+2!, PBPF~, PBPF+1, PBPF+4, PLAST~, PLAST+4, PLAST+14 , PLAST+15, PLASTA+4, FVFC+1~, FVFC+2, FVFC+5, FVFC+7, LASTAM~, LASTAM+2, LASTAM+5, LASTAM+6 , LASTAM+7, LASTSEV~, LASTSEV+3, LASTSEV+16, LASTSEV+17, LASTSEV+18, LASTSEV+19, LASTSEV+20
G	PLAST+5~, PLAST+6, PLAST+11, PLAST+13, PLAST+15, PLASTA+5~, PLASTA+7, DXAST+2~, DXAST+3, DXAST+4 , DXAST+8, DXAST+11
H	EOJ+2!
I	EP+2~, ASFD+11, ASFD+12, ADM+11, ADM+12, PLAST+5~, PLAST+8, PLAST+10, PLASTA+5~, PLASTA+9 , PLASTA+11, DXAST+2~, DXAST+4, DXAST+5, GETM+3, GETM+5, GETM+6, GETM+7, GETM+9, LASTAM+3~ , LASTAM+8*, LASTAM+9, LASTAM+10
IO	HEADER+1
IO(0	HEADER+1
IOF	W+1, HEAD1+1
IOSL	W+4
IOST	HEADER+1
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, PLASTA~, PLASTA+3, PLASTA+7 , 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+8, PLAST+9, PLASTA+5~, PLASTA+9, PLASTA+10, DXAST+2~ , DXAST+5, DXAST+6, FVFC+1~, FVFC+3, FVFC+4, FVFC+6, FVFC+7, PLN+1~, PLN+2, PLN+3 , LASTSEV+1~, LASTSEV+6, LASTSEV+14, LASTSEV+15*, LASTSEV+16, LASTSEV+17, LASTSEV+18, LASTSEV+19, LASTSEV+20
T	S~, S+2, S+7, S+8, S+9, EP+2~, EOJ+2!, SETARRAY+6, LASTSEV+1~, LASTSEV+4 , LASTSEV+5, LASTSEV+11
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, SETARRAY+66, 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+8, PLASTA+8 , PLASTA+9, DXAST+5, GETM+3, GETM+5, GETM+6, GETM+7, GETM+8, GETM+9, PLN+2, PLN+3 , LASTAM+9, LASTSEV+8, LASTSEV+9, LASTSEV+12, LASTSEV+13, LASTSEV+14, LASTSEV+15, LASTSEV+16, LASTSEV+17, LASTSEV+18 , LASTSEV+19, LASTSEV+20
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+1, 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+68, SETARRAY+70, SETARRAY+71, 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+9, LASTSEV+12, LASTSEV+13, LASTSEV+15
Y	S~, S+6, S+7, S+9, EP+2~, EOJ+2!, HEADER+1, SETARRAY+5, SETARRAY+6, SETARRAY+24* , SETARRAY+28, SETARRAY+36, SETARRAY+37, SETARRAY+38, SETARRAY+50, SETARRAY+51, SETARRAY+52, SETARRAY+63, SETARRAY+67, SETARRAY+68 , SETARRAY+69, SETARRAY+70, SETARRAY+71, 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: Patient Care Component

Routine: APCHSAST

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items