Routine: BHSACG

Package	Total	Call Graph
Patient Care Component Reports	3	($$LASTCPTT,$$LASTLAB,ALLLAB,ALLV)^APCLAPIU $$START1^APCLDF ($$CLINIC,$$PRIMPROV,$$VD)^APCLV
Patient Care Component	2	$$D1^APCHSMU GETMEDS^APCHSMU1
IHS Patient	1	($$AGE,$$DOB,$$HRN,$$SEX)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	($$FMADD,$$FMTE)^XLFDT
VA Fileman	1	^DIWP

Package	Total	Caller Graph
Health Summary Components	1	BHSASM

Entry Points

Name	Comments	DBIA/ICR reference
MRSTART(P)	;PEP - most recent duration and date
EOJ	;
S1	;
EP(DFN)	;PEP - ANTI-COAG supplement
SIG	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
INR	;get all INR lab tests
SETARRAY	;set up array
URIN	;last urinalysis on file and its children
CTR(X,Y)	;EP - Center
INDIC	;get all dxs
EDUC(P,BDATE,EDATE,DATA)	;EP pass back array of all asthma educ topics
LASTACUR(P,BD,ED)	;EP
CLN	;
COMBBYDT	;combine the inrs and meds inverse by date
EDPRV(I)	;
MRGOAL(P)	;PEP - most recent INR goal and date
MRCOM(P)	;PEP - most recent INR goal and date
S(Y,F,C,T)	;EP - set up array
INRGOAL	;most recent goal from V ANTICOAG
VITK	;
W	;write out array
LASTACCB(P,BD,ED)	;EP
LASTACFO(P,BD,ED)	;EP
CBC	;
LAB	;
FOBT	;
EP2(DFN)	;EP - PASS DFN get back array of patient care summary
MRDUR(P)	;PEP - most recent duration and date
PTED	;
MREND(P)	;PEP - most recent duration and date

External References

Name	Field # of Occurrence
$$D1^APCHSMU	INDIC+12, INRGOAL+3, INRGOAL+4, CLN+6, CLN+21, COMBBYDT+30, URIN+5, URIN+9, URIN+13, CBC+6 , CBC+10, CBC+14, FOBT+6, FOBT+9, VITK+7, PTED+6
GETMEDS^APCHSMU1	INR+8, VITK+4
$$LASTCPTT^APCLAPIU	LASTACUR+5, LASTACCB+5, LASTACFO+5
$$LASTLAB^APCLAPIU	LASTACUR+4, LASTACCB+4, LASTACFO+4
ALLLAB^APCLAPIU	INR+5
ALLV^APCLAPIU	CLN+13
$$START1^APCLDF	INDIC+3, EDUC+7
$$CLINIC^APCLV	CLN+18
$$PRIMPROV^APCLV	CLN+21, EDPRV+5
$$VD^APCLV	CLN+21, MRGOAL+12, MRCOM+11, MRDUR+10
$$AGE^AUPNPAT	SETARRAY+7
$$DOB^AUPNPAT	SETARRAY+7, INDIC+3, URIN+2, CBC+3, FOBT+3, LASTACUR+1, LASTACCB+1, LASTACFO+1
$$HRN^AUPNPAT	SETARRAY+6
$$SEX^AUPNPAT	SETARRAY+7
^DIWP	INDIC+11, CLN+7, COMBBYDT+36, VITK+10
$$VAL^XBDIQ1	SETARRAY+8, INDIC+10, CLN+5, COMBBYDT+9, COMBBYDT+18, URIN+9, URIN+12, URIN+13, CBC+10, CBC+13 , CBC+14, FOBT+9, VITK+7, PTED+6, EDPRV+2, EDPRV+3, MRGOAL+11, MRDUR+9, MRSTART+9, MREND+9
$$FMADD^XLFDT	INDIC+3, CLN+13, INR+5, INR+8, VITK+4, PTED+4
$$FMTE^XLFDT	SETARRAY+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	INR+5, LASTACUR+4, LASTACCB+4, LASTACFO+4
^ATXLAB("B"	INR+5, LASTACUR+4, LASTACCB+4, LASTACFO+4
^AUPNVACG - [#9000010.51]	MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+12, MRCOM+8, MRCOM+9, MRCOM+10, MRCOM+11, MRDUR+8, MRDUR+10 , MRSTART+8, MRSTART+10, MREND+10
^AUPNVACG("AA"	MRGOAL+2, MRGOAL+5, MRGOAL+6, MRGOAL+7, MRCOM+2, MRCOM+5, MRCOM+6, MRCOM+7, MRDUR+2, MRDUR+5 , MRDUR+6, MRDUR+7, MRSTART+2, MRSTART+5, MRSTART+6, MRSTART+7, MREND+2, MREND+5, MREND+6, MREND+7
^AUPNVLAB - [#9000010.09]	URIN+7, URIN+11, CBC+8, CBC+12
^AUPNVLAB("ALR0"	URIN+10, CBC+11
^AUPNVMED - [#9000010.14]	COMBBYDT+16, VITK+8
^AUPNVPED - [#9000010.16]	EDPRV+4, EDUC+12
^AUTTEDT - [#9999999.09]	EDUC+14
^DPT - [#2]	SETARRAY+6
^PS(51 - [#51]	SIG+2
^TMP("BHSACG"	S1+1, S1+2, W+4, W+5, W+7!, EP2+2!, EP2+3*
^UTILITY($J	INDIC+11!, INDIC+12, INDIC+13, CLN+7!, CLN+8, CLN+9, CLN+10!, COMBBYDT+36!, COMBBYDT+37, COMBBYDT+38 , VITK+10!, VITK+11, VITK+12

Label References

Name	Line Occurrences
$$CTR	SETARRAY+4
$$EDPRV	PTED+6
$$LASTACCB	CBC+3
$$LASTACFO	FOBT+3
$$LASTACUR	URIN+2
$$MRCOM	CLN+2
$$MRDUR	INRGOAL+2
$$MREND	INRGOAL+4
$$MRGOAL	INRGOAL+1
$$MRSTART	INRGOAL+3
CBC	URIN+3, URIN+4
EDUC	PTED+4
EOJ	W+9
EP2	EP+3
FOBT	CBC+4, CBC+5
INR	CLN+15
PTED	VITK+5
S	SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, INDIC+2, INDIC+12, INDIC+13, INRGOAL+1, INRGOAL+2 , INRGOAL+3, INRGOAL+4, CLN+4, CLN+8, CLN+9, CLN+14, CLN+15, CLN+21, CLN+22, INR+1 , INR+2, COMBBYDT+37, COMBBYDT+38, COMBBYDT+39, LAB+1, LAB+2, URIN+3, URIN+5, URIN+9, URIN+12 , URIN+13, CBC+1, CBC+4, CBC+6, CBC+10, CBC+13, CBC+14, FOBT+1, FOBT+4, FOBT+6 , FOBT+9, VITK+1, VITK+2, VITK+5, VITK+7, VITK+11, VITK+12, PTED+1, PTED+2, PTED+6 , PTED+7
S1	S+5, S+7, S+10
SETARRAY	EP2+4
SIG	VITK+8
VITK	FOBT+4, FOBT+5

Naked Globals

Name	Field # of Occurrence
^(9	SIG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	S+3~, S+8, S+9, S1+1, S1+2, EOJ+1!, EDUC+4~, EDUC+9, EDUC+10, EDUC+11 , EDUC+16
A	EP+2~, SETARRAY+1~, URIN+7, URIN+8, URIN+10, CBC+8, CBC+9, CBC+11, EDUC+4~, EDUC+6* , EDUC+7
APCHCOMB	COMBBYDT+1!
APCHCOMB(	COMBBYDT+21
B	EP+2~, EOJ+1!, SETARRAY+1~
BD	LASTACUR~, LASTACUR+1, LASTACUR+4, LASTACCB~, LASTACCB+1, LASTACCB+4, LASTACFO~, LASTACFO+1*, LASTACFO+4
BDATE	EDUC~, EDUC+7
BHCOMB	SETARRAY+2~
BHCOMB(	COMBBYDT+10, COMBBYDT+19, COMBBYDT+22, COMBBYDT+23*, COMBBYDT+26, COMBBYDT+27, COMBBYDT+28
BHD	SETARRAY+2~, COMBBYDT+26*, COMBBYDT+27, COMBBYDT+28
BHE	EDUC+4~, EDUC+5!, EDUC+8, EDUC+19!
BHE(	EDUC+9, EDUC+10, EDUC+11, EDUC+16
BHEDS	SETARRAY+2~
BHEDUC	EP+1~, PTED+3!, PTED+4
BHEDUC(	PTED+5, PTED+6
BHMEDS	SETARRAY+2~, INR+7!, INR+8, COMBBYDT+25!, URIN+1!, VITK+3!, VITK+4
BHMEDS(	COMBBYDT+12, COMBBYDT+13, COMBBYDT+15, COMBBYDT+16, VITK+6, VITK+7
BHMEDS(0	VITK+5
BHPG	EP+1~, W+3*
BHQUIT	EP+1~, W+2!
BHSDX	SETARRAY+2~, INDIC+1!
BHSDX(	INDIC+4
BHSDX("D"	INDIC+8, INDIC+9*
BHSDX("I"	INDIC+4*, INDIC+5, INDIC+6, INDIC+7
BHSIG	EP+1~, VITK+8*, SIG+1, SIG+2
BHSP	EP+1~, SIG+1*, SIG+2
>> BHSPAT	URIN+2, CBC+3, FOBT+3, LASTACUR+4, LASTACCB+4, LASTACFO+4
BHSQUIT	EP+1~, W+4, W+8
BHSS	EP+1~, SETARRAY+2~, COMBBYDT+29, COMBBYDT+30, COMBBYDT+31, COMBBYDT+37, COMBBYDT+39*
BHSSGY	SETARRAY+2~, VITK+9, SIG+1, SIG+3
BHSX	EP+1~, CLN+1~, CLN+2*, CLN+3, CLN+5, CLN+6
BHV	EP+1~, SETARRAY+2~, CLN+11!, CLN+12, CLN+13, INR+3!, INR+4, INR+5, COMBBYDT+25!, URIN+1! , URIN+2, URIN+3, URIN+4, URIN+5, URIN+7, URIN+9, URIN+13, CBC+2!, CBC+3, CBC+4 , CBC+5, CBC+6, CBC+8, CBC+10, CBC+14, FOBT+2!, FOBT+3*, FOBT+4, FOBT+5, FOBT+6 , FOBT+8, FOBT+9
BHV(	CLN+16, CLN+17, COMBBYDT+3, COMBBYDT+4, COMBBYDT+6, COMBBYDT+7
BHV(0	CLN+15
BHVV	COMBBYDT+2~, COMBBYDT+28*, COMBBYDT+30, COMBBYDT+31, COMBBYDT+34, COMBBYDT+37, COMBBYDT+39
BHX	EP+1~, W+4*, W+5, EDUC+4~
BHX(	EDUC+17, EDUC+18
BHX(9999999	EDUC+16*
BHY	SETARRAY+2~, COMBBYDT+27, COMBBYDT+28, VITK+6, VITK+7
C	S~, S+7, EOJ+1!, SETARRAY+1~, INDIC+7, INDIC+8, INDIC+9, INDIC+12, CLN+16, CLN+17 , COMBBYDT+2~, COMBBYDT+3, COMBBYDT+5, COMBBYDT+10, COMBBYDT+12, COMBBYDT+14, COMBBYDT+23, EDUC+17, EDUC+18, LASTACUR+3~ , LASTACUR+5, LASTACUR+6, LASTACCB+3~, LASTACCB+5, LASTACCB+6, LASTACFO+3~, LASTACFO+5*, LASTACFO+6
D	SETARRAY+1~, INDIC+4, INDIC+5, INDIC+6, INDIC+7, INDIC+12, COMBBYDT+2~, COMBBYDT+4, COMBBYDT+10, COMBBYDT+13 , COMBBYDT+19, COMBBYDT+21, COMBBYDT+22, COMBBYDT+23, MRGOAL+3~, MRGOAL+5, MRGOAL+6, MRGOAL+7, MRCOM+3~, MRCOM+5 , MRCOM+6, MRCOM+7, MRDUR+3~, MRDUR+5, MRDUR+6, MRDUR+7, MRSTART+3~, MRSTART+5, MRSTART+6, MRSTART+7 , MREND+3~, MREND+5, MREND+6, MREND+7, EDUC+4~, EDUC+10, EDUC+16
DATA	EDUC~, EDUC+2!
DATA(	EDUC+18*
DFN	EP~, EP+3, EP2~, SETARRAY+6, SETARRAY+7, SETARRAY+8, INDIC+3, INRGOAL+1, INRGOAL+2, INRGOAL+3 , INRGOAL+4, CLN+2, CLN+13, INR+5, INR+8, VITK+4, PTED+4, LASTACUR+5, LASTACCB+5, LASTACFO+5
DIWL	INDIC+1!, INDIC+11, CLN+7, COMBBYDT+36, VITK+10
DIWR	INDIC+1!, INDIC+11, CLN+7, COMBBYDT+36, VITK+10
DT	SETARRAY+5, INDIC+3, CLN+13, INR+5, INR+8, URIN+2, CBC+3, FOBT+3, VITK+4, PTED+4 , LASTACUR+2, LASTACUR+5, LASTACCB+2, LASTACCB+5, LASTACFO+2, LASTACFO+5
DUZ(2	SETARRAY+6
E	EP+2~, EOJ+1!, SETARRAY+1~, INDIC+3, EDUC+4~, EDUC+7
ED	LASTACUR~, LASTACUR+2, LASTACUR+4, LASTACCB~, LASTACCB+2, LASTACCB+4, LASTACFO~, LASTACFO+2*, LASTACFO+4
EDATE	EDUC~, EDUC+7
F	S~, S+1, S+5, EOJ+1!, SETARRAY+1~, INDIC+13, CLN+9, COMBBYDT+38, VITK+12
G	SETARRAY+1~, CLN+16, CLN+20, CLN+22, COMBBYDT+21*, EDUC+4~
>> GMTSQIT	W+8*
H	EOJ+1!
I	EP+2~, SETARRAY+1~, INDIC+6, INDIC+7, INDIC+10, COMBBYDT+2~, COMBBYDT+7, COMBBYDT+9, EDPRV~, EDPRV+2 , EDPRV+3, EDPRV+4, MRGOAL+3~, MRGOAL+7, MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+11, MRGOAL+12, MRCOM+3~ , MRCOM+7, MRCOM+8, MRCOM+9, MRCOM+10, MRCOM+11, MRDUR+3~, MRDUR+7, MRDUR+8, MRDUR+9, MRDUR+10 , MRSTART+3~, MRSTART+7, MRSTART+8, MRSTART+9, MRSTART+10, MREND+3~, MREND+7, MREND+9, MREND+10, EDUC+4~ , EDUC+11, EDUC+12
IOF	W+1
IOM	CTR+1
L	S+7, EOJ+1!, URIN+7, URIN+9, URIN+11, URIN+13, CBC+8, CBC+10, CBC+12, CBC+14 , FOBT+8, FOBT+9
M	EOJ+1!, COMBBYDT+2~, COMBBYDT+15, COMBBYDT+16, COMBBYDT+18, VITK+6, VITK+7, VITK+8
N	EOJ+1!, SETARRAY+1~, INDIC+10, INDIC+11, EDUC+4~, EDUC+12, EDUC+13, EDUC+14, EDUC+15, EDUC+17 , EDUC+18
O	COMBBYDT+2~, COMBBYDT+8, COMBBYDT+9, COMBBYDT+10, COMBBYDT+17, COMBBYDT+18, COMBBYDT+22, COMBBYDT+23
P	EOJ+1!, CLN+5~, CLN+6, CLN+8, MRGOAL~, MRGOAL+1, MRGOAL+2, MRGOAL+5, MRGOAL+6, MRGOAL+7 , MRCOM~, MRCOM+1, MRCOM+2, MRCOM+5, MRCOM+6, MRCOM+7, MRDUR~, MRDUR+1, MRDUR+2, MRDUR+5 , MRDUR+6, MRDUR+7, MRSTART~, MRSTART+1, MRSTART+2, MRSTART+5, MRSTART+6, MRSTART+7, MREND~, MREND+1 , MREND+2, MREND+5, MREND+6, MREND+7, EDUC~, EDUC+3, EDUC+7, LASTACUR~, LASTACUR+1, LASTACCB~ , LASTACCB+1, LASTACFO~, LASTACFO+1
R	MRGOAL+3~, MRGOAL+4, MRGOAL+5, MRGOAL+6, MRGOAL+12, MRGOAL+13, MRCOM+3~, MRCOM+4, MRCOM+5, MRCOM+6 , MRCOM+11, MRCOM+12, MRDUR+3~, MRDUR+4, MRDUR+5, MRDUR+6, MRDUR+10, MRDUR+11, MRSTART+3~, MRSTART+4* , MRSTART+5, MRSTART+6, MRSTART+10, MRSTART+11, MREND+3~, MREND+4, MREND+5, MREND+6, MREND+10, MREND+11 , LASTACUR+3~, LASTACUR+4, LASTACUR+6, LASTACUR+7, LASTACCB+3~, LASTACCB+4, LASTACCB+6, LASTACCB+7, LASTACFO+3~, LASTACFO+4 , LASTACFO+6, LASTACFO+7
S	SETARRAY+1~, CLN+18, CLN+19, MRGOAL+3~, MRGOAL+10, MRGOAL+11*, MRGOAL+12, MRCOM+3~
T	S~, S+2, S+7, S+8, S+9, EP+2~, EOJ+1!, SETARRAY+1~
T1	EOJ+1!
T2	EOJ+1!
T3	EOJ+1!
U	S1+1, SETARRAY+6, INDIC+4, INDIC+7, INRGOAL+1, INRGOAL+2, INRGOAL+3, INRGOAL+4, CLN+5, CLN+6 , CLN+17, COMBBYDT+4, COMBBYDT+6, COMBBYDT+7, COMBBYDT+10, COMBBYDT+13, COMBBYDT+15, COMBBYDT+16, COMBBYDT+22, COMBBYDT+23 , COMBBYDT+30, COMBBYDT+31, COMBBYDT+34, COMBBYDT+37, COMBBYDT+39, URIN+4, URIN+5, URIN+7, URIN+9, URIN+11 , URIN+13, CBC+5, CBC+6, CBC+8, CBC+10, CBC+12, CBC+14, FOBT+5, FOBT+6, FOBT+8 , FOBT+9, VITK+6, VITK+7, VITK+8, PTED+6, EDPRV+4, MRGOAL+8, MRGOAL+9, MRGOAL+10, MRGOAL+12 , MRCOM+8, MRCOM+9, MRCOM+10, MRCOM+11, MRDUR+8, MRDUR+10, MRSTART+8, MRSTART+10, MREND+10, EDUC+10 , EDUC+11, EDUC+12, EDUC+14, EDUC+16, EDUC+18, LASTACUR+6, LASTACCB+6, LASTACFO+6
V	SETARRAY+1~, CLN+17, CLN+18, CLN+21, COMBBYDT+2~, COMBBYDT+6, COMBBYDT+10, COMBBYDT+16, COMBBYDT+22, COMBBYDT+23 , EDPRV+1~, EDPRV+4, EDPRV+5
W	EOJ+1!
X	S+3~, S+5, S+6, S+8, S+9, S1+2, CTR~, CTR+1, EP+2~, EOJ+1! , SETARRAY+1~, SETARRAY+4, SETARRAY+5, SETARRAY+6, SETARRAY+7, SETARRAY+8, INDIC+2, INDIC+3, INDIC+4, INDIC+11* , INDIC+12, INDIC+13, INRGOAL+1, INRGOAL+2, INRGOAL+3, INRGOAL+4, CLN+6, CLN+9, CLN+14, CLN+15 , CLN+21, CLN+22, INR+1, INR+2, COMBBYDT+2~, COMBBYDT+3, COMBBYDT+4, COMBBYDT+6, COMBBYDT+7, COMBBYDT+12 , COMBBYDT+13, COMBBYDT+15, COMBBYDT+16, COMBBYDT+34, COMBBYDT+35, COMBBYDT+37, COMBBYDT+38, LAB+1, LAB+2, URIN+3 , URIN+5, URIN+9, URIN+12, URIN+13, CBC+4, CBC+6, CBC+10, CBC+13, CBC+14, FOBT+4 , FOBT+6, FOBT+9, VITK+1, VITK+2, VITK+5, VITK+7, VITK+9, VITK+11, VITK+12, PTED+1 , PTED+2, PTED+6, SIG+1, SIG+2, SIG+3, MRGOAL+3~, MRGOAL+6, MRGOAL+7, MRCOM+3~, MRCOM+6 , MRCOM+7, MRDUR+3~, MRDUR+6, MRDUR+7, MRSTART+3~, MRSTART+6, MRSTART+7, MREND+3~, MREND+6, MREND+7 , EDUC+4~, EDUC+7, EDUC+18*
Y	S~, S+6, S+7, S+9, CTR~, CTR+1, EP+2~, EOJ+1!, SETARRAY+1~, COMBBYDT+21* , COMBBYDT+22, URIN+10, URIN+11, URIN+12, CBC+11, CBC+12, CBC+13, PTED+5, PTED+6, SIG+2 , MRGOAL+3~, MRCOM+3~, MRDUR+3~, MRSTART+3~, MREND+3~
Z	EP+2~, SETARRAY+1~, EDPRV+1~, EDPRV+2, EDPRV+3, MRGOAL+3~, MRGOAL+9, MRGOAL+10, MRGOAL+11, MRCOM+3~ , MRCOM+10, MRCOM+11, MRDUR+3~, MRDUR+9, MRDUR+10, MRSTART+3~, MRSTART+9, MRSTART+10, MREND+3~, MREND+9* , MREND+10

Customize PDF page

Package: Health Summary Components

Routine: BHSACG

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: