Routine: BHSAST1

Package	Total	Call Graph
Health Summary	1	REGDT4^GMTSU
Health Summary Components	1	S^BHSAST
IHS VA Utilities	1	($$VAL,ENP)^XBDIQ1
Kernel	1	($$FMADD,$$FMDIFF,$$FMTE)^XLFDT
Patient Care Component Reports	1	$$START1^APCLDF
Taxonomy	1	$$ICD^ATXAPI
VA Fileman	1	^DIWP

Package	Total	Caller Graph
Health Summary Components	1	BHSAST

Name	Comments	DBIA/ICR reference
RELMEDS	;
PRTTXT	;EP - PUBLISHED ENTRY POINT ; GENERALIZED TEXT PRINTER
FMH2	;
FMH1
LDM(I)	;get last date modified of Family History or relation
S2(N)	;
SIG	;CONSTRUCT THE FULL TEXT FROM THE ENCODED SIG
PRTICD	;ENTRY POINT
DISPMEDS	;
PRTTXT1	;
TXT1	;
TXT2
PRTTXT2
FMH(BHSPAT,BHTFP)	;EP - ASTHMA ******* FAMILY HISTORY * 9000014 ******* ; <SETUP>
REF	;DETERMINE THE NUMBER OF REFILLS REMAINING
LAST1YRR	;
S1(Y)	;
TXT	;EP - PUBLISHED ENTRY POINT ; GENERALIZED TEXT PRINTER
FRAG
LAST1YRC	;
GETFRAG
ICD	;EP - ENTRY POINT print text
DISPEDUC	;
EDUC(P,DATA)	;EP pass back array of all asthma educ topics
COMN	;if comments/notes in register print them
N1	;
N	;EP - called from APCHSAST
FMHX
SR	;
FHDSP
SC	;
CONTMEDS	;

Name	Field # of Occurrence
$$START1^APCLDF	EDUC+7
$$ICD^ATXAPI	FMH+13
S^BHSAST	RELMEDS+3, RELMEDS+5, RELMEDS+7, RELMEDS+8, CONTMEDS+1, CONTMEDS+2, DISPEDUC+3, DISPEDUC+4, DISPEDUC+5, DISPEDUC+6 , DISPEDUC+7, DISPEDUC+8, COMN+2, COMN+4, N1+1, DISPMEDS+16, DISPMEDS+20, DISPMEDS+21
^DIWP	DISPMEDS+19
REGDT4^GMTSU	FMH2+4
$$VAL^XBDIQ1	FMH+14, FMH+17, FMH+19, FHDSP+4, FHDSP+5, FHDSP+8, FHDSP+10, FHDSP+16, FHDSP+17, EDUC+16
ENP^XBDIQ1	COMN+3
$$FMADD^XLFDT	DISPMEDS+9, LAST1YRR+9, LAST1YRC+9
$$FMDIFF^XLFDT	DISPMEDS+8
$$FMTE^XLFDT	DISPEDUC+6, DISPMEDS+3, DISPMEDS+9, DISPMEDS+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	LAST1YRR+15, LAST1YRR+16, LAST1YRR+17, LAST1YRR+20, LAST1YRR+21, LAST1YRR+23, LAST1YRC+15, LAST1YRC+16, LAST1YRC+17, LAST1YRC+20 , LAST1YRC+21, LAST1YRC+22
^ATXAX("B"	FMH+13, LAST1YRR+3, LAST1YRR+4, LAST1YRR+5, LAST1YRR+6, LAST1YRR+7, LAST1YRR+8, LAST1YRC+3, LAST1YRC+4, LAST1YRC+5 , LAST1YRC+6, LAST1YRC+7, LAST1YRC+8
^AUPNFH - [#9000014]	FMH+10, FMH+11, FMH+16, LDM+2, LDM+5, LDM+6, LDM+7, FHDSP+4, FHDSP+11
^AUPNFH("AC"	FMH+4, FMH+9
^AUPNFHR - [#9000014.1]	FMH+19, FMH+20, LDM+5, FHDSP+5, FHDSP+7, FHDSP+8, FHDSP+9, FHDSP+10
^AUPNFHR("AC"	FMH+4
^AUPNVMED - [#9000010.14]	DISPMEDS+2, DISPMEDS+12, LAST1YRR+12, LAST1YRR+13, LAST1YRC+12, LAST1YRC+13
^AUPNVMED("AA"	LAST1YRR+10, LAST1YRR+11, LAST1YRC+10, LAST1YRC+11
^AUPNVPED - [#9000010.16]	EDUC+12
^AUPNVSIT - [#9000010]	DISPMEDS+3, DISPMEDS+7
^AUTNPOV - [#9999999.27]	FHDSP+14
^AUTTEDT - [#9999999.09]	EDUC+14
^AUTTRLSH - [#9999999.36]	FMH+20
^BATREG - [#90181.01]	COMN+1
^PS(51 - [#51]	SIG+2
^PS(55 - [#55]	DISPMEDS+5
^PSDRUG - [#50]	DISPMEDS+10, LAST1YRR+18, LAST1YRR+22, LAST1YRC+18
^PSRX - [#52]	REF+2
^PSRX("APCC"	DISPMEDS+4
^TMP($J	EDUC+5!, EDUC+8, EDUC+9, EDUC+10, EDUC+11, EDUC+16, EDUC+18!
^UTILITY($J	DISPMEDS+19!, DISPMEDS+20, DISPMEDS+21, DISPMEDS+22!

Name	Line Occurrences
$$LDM	FMH1
CONTMEDS	RELMEDS+8
DISPEDUC	CONTMEDS+2
DISPMEDS	RELMEDS+11, CONTMEDS+5
EDUC	DISPEDUC+1
FHDSP	FMH2+6
FMH1	FMH+17
FMH2	FMH1+5
FRAG	TXT2
GETFRAG	PRTTXT2
LAST1YRC	RELMEDS+4
LAST1YRR	RELMEDS+2
PRTICD	FHDSP+21
PRTTXT	PRTICD+5
PRTTXT1	PRTTXT+4
PRTTXT2	PRTTXT+4
REF	DISPMEDS+15
S1	TXT2
S2	FHDSP+6, FHDSP+8, FHDSP+10, PRTTXT2
SC	LAST1YRC+15, LAST1YRC+16, LAST1YRC+17, LAST1YRC+20, LAST1YRC+21, LAST1YRC+22
SIG	DISPMEDS+14
SR	LAST1YRR+15, LAST1YRR+16, LAST1YRR+17, LAST1YRR+20, LAST1YRR+21, LAST1YRR+23
TXT	ICD+8
TXT1	TXT+4
TXT2	TXT+4

Name	Field # of Occurrence
^(	DISPMEDS+4
^(9	SIG+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EDUC+4~, EDUC+9*, EDUC+10, EDUC+11, EDUC+16
A	FHDSP+15, FHDSP+17, FHDSP+19, EDUC+4~, EDUC+6*, EDUC+7
BHAR	COMN+3!, N1+2!
BHAR(1100	COMN+4
BHC	FMH1+1~, FMH2+1, FMH2+5, FHDSP*, FHDSP+1, FHDSP+6, FHDSP+8, FHDSP+10
BHCNT	S2+1, S2+2, FMH+2~, FMH+3
BHCONT	RELMEDS+1!, RELMEDS+5, CONTMEDS+2, CONTMEDS+4, LAST1YRC+2, SC+1
BHCONT(	SC+1*
>> BHCRN	DISPMEDS+5*, DISPMEDS+16
BHD	FMH1+1~, FMHX!, FMH2+5, FMH2+6, DISPMEDS+3, DISPMEDS+16
BHDC	FMH1+1~, DISPMEDS+4*, DISPMEDS+11, DISPMEDS+13
>> BHDTM	DISPMEDS+7*, DISPMEDS+8, DISPMEDS+9
>> BHDYS	DISPMEDS+4*, DISPMEDS+9, DISPMEDS+16
BHE	EDUC+4~, EDUC+18!
BHE(	EDUC+16*, EDUC+17
BHEDUC	DISPEDUC+1!, DISPEDUC+2
BHEDUC(	DISPEDUC+6, DISPEDUC+7, DISPEDUC+8
>> BHEXP	DISPMEDS+7, DISPMEDS+9, DISPMEDS+11, DISPMEDS+13, DISPMEDS+16
BHL	RELMEDS+1!, RELMEDS+9!, RELMEDS+10, CONTMEDS+3!, CONTMEDS+4
BHL(	DISPMEDS+1, DISPMEDS+2
>> BHMED	DISPMEDS+10*, DISPMEDS+16
>> BHMFX	DISPMEDS+4*, DISPMEDS+10
BHO	FMH+7~, FMH1+5*, FMH2+1, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6
>> BHORTS	DISPMEDS+12*, DISPMEDS+13
>> BHQTY	DISPMEDS+6*, DISPMEDS+16
BHR	FMH1+1~, FMHX!, FMH2+3*, FMH2+4, FMH2+5, FMH2+6, FHDSP+3, FHDSP+5, FHDSP+7, FHDSP+8 , FHDSP+9, FHDSP+10
>> BHREF	DISPMEDS+15, REF+1, REF+2, REF+3*
BHREL	RELMEDS+1!, RELMEDS+3, RELMEDS+8, RELMEDS+10, LAST1YRR+2, SR+1
BHREL(	SR+1*
>> BHRFL	REF+2*, REF+3
>> BHRX	DISPMEDS+4*, DISPMEDS+5, REF+1, REF+2
BHS	FMH1+1~, FMHX!, FMH2+1*, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6
BHSC	PRTTXT+6!, GETFRAG+1, GETFRAG+2, GETFRAG+3, TXT+6!, FRAG, FRAG+1, FRAG+2
BHSCVD	FMH1+1~, FMH1+2*
BHSDAT	FMHX!
BHSDFN	FMH+7~, FMH+9, FMH+10, FMH+11, FMH+14, FMH+16, FMH+17, FMH1, FMHX!, FMH2+6 , FHDSP+4, FHDSP+11, FHDSP+16, FHDSP+17
BHSDLT	PRTTXT+3, PRTTXT+6!, PRTTXT2, TXT+3, TXT+6!, TXT2
BHSF	PRTTXT+6!, PRTTXT2, GETFRAG, GETFRAG+3, TXT+6!, TXT2, FRAG+2*
BHSICD	FMHX!, FHDSP+12, PRTICD+1, ICD+4*
BHSICF	FMH1+1~, FMH1+3*, PRTICD+1
BHSICL	FMHX!, FHDSP+20, PRTTXT+3, PRTTXT2, TXT+3, TXT2*
BHSIG	N1+2!, DISPMEDS+6, DISPMEDS+14, DISPMEDS+15*, DISPMEDS+19, SIG+1, SIG+2
BHSILN	PRTTXT+3, PRTTXT+6!, PRTTXT2, GETFRAG, GETFRAG+1, GETFRAG+2, TXT+3, TXT+6!, TXT2, FRAG , FRAG+1
BHSN	FMHX!, FHDSP+11*, FHDSP+12, FHDSP+13
BHSNRQ	FMHX!, FHDSP+13, FHDSP+14, FHDSP+16, FHDSP+18, FHDSP+20, PRTTXT1+1, PRTTXT1+2, PRTICD+1, TXT1+1* , TXT1+2, ICD+4*
BHSNTE	PRTTXT+2, PRTTXT+5!, PRTTXT1+2, PRTICD+3, PRTICD+4, TXT+2, TXT+5!, TXT1+2, ICD+6, ICD+7
BHSO	FMH1+1~
BHSP	N1+2!, SIG+1*, SIG+2
BHSPAT	FMH~, FMH+4, FMH+9
>> BHSQ	PRTTXT+4, TXT+4
BHSSGY	N1+2!, DISPMEDS+14, SIG+1, SIG+3
>> BHSTAT	FHDSP+2, FHDSP+4, FHDSP+5*, FHDSP+6
BHSTXT	PRTTXT+4, PRTTXT+6!, PRTTXT1+1, PRTTXT1+2, GETFRAG, GETFRAG+1, GETFRAG+3, PRTICD+2, TXT+4, TXT+6! , TXT1+1, TXT1+2, FRAG, FRAG+2, ICD+5*
BHTD	FMH1+1~, FMH2+4*
>> BHTDAT	FMH2+4*, FHDSP+1
BHTFH	FMH+5~, FMH+6!, FMHX!
BHTFH(	FMH1*, FMH1+5, FMH2+1, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6
BHTFP	FMH~, FMH+6!
BHTFP(	S2+2*
BHZ	FMH1+1~, FMHX!, FMH2+2*, FMH2+3, FMH2+4, FMH2+5, FMH2+6, FHDSP+1
C	FMH+7~, FMH+11, FMH+13, ICD+1~, ICD+3, S1+1, S1+2, LAST1YRR+1~, LAST1YRR+22, LAST1YRR+23 , LAST1YRC+1~
D	LDM+3~, LDM+4, LDM+5, LDM+6, LDM+7, LDM+8, DISPMEDS+1, DISPMEDS+2, LAST1YRR+1~, LAST1YRR+10 , LAST1YRR+11, SR+1, LAST1YRC+1~, LAST1YRC+10, LAST1YRC+11, SC+1, EDUC+4~, EDUC+10, EDUC+16
DATA	EDUC~, EDUC+2!
DATA(	EDUC+17*
>> DFN	DISPEDUC+1, COMN+1, COMN+3, DISPMEDS+5, LAST1YRR+10, LAST1YRR+11, LAST1YRC+10, LAST1YRC+11
>> DIWL	DISPMEDS+19*
>> DIWR	DISPMEDS+19*
DT	DISPMEDS+8, LAST1YRR+9, LAST1YRC+9
E	LDM+3~, LDM+6, LDM+7, DISPMEDS+2, DISPMEDS+4, DISPMEDS+12, LAST1YRR+1~, LAST1YRR+9, LAST1YRR+10, LAST1YRC+1~ , LAST1YRC+9, LAST1YRC+10, EDUC+4~, EDUC+7
>> F	COMN+4, DISPMEDS+21
G	FMH+7~, FMH+12, FMH+13, FMH+14*, FMH+15, LAST1YRR+1~, LAST1YRC+1~, EDUC+4~
I	LDM~, LDM+1, LDM+2, LDM+5, LDM+6, LDM+7, EDUC+4~, EDUC+11*, EDUC+12
IOM	DISPMEDS+19
J	LDM+3~, LDM+5*
M	LAST1YRR+1~, LAST1YRR+11, LAST1YRR+12, LAST1YRR+13, SR+1, LAST1YRC+1~, LAST1YRC+11, LAST1YRC+12, LAST1YRC+13, SC+1
N	S2~, S2+2, FHDSP+15, DISPEDUC+6, DISPEDUC+7, DISPEDUC+8, DISPMEDS+2, DISPMEDS+3, DISPMEDS+4, DISPMEDS+6 , DISPMEDS+7, DISPMEDS+10, LAST1YRR+1~, LAST1YRR+18, LAST1YRR+19, LAST1YRR+20, LAST1YRR+21, LAST1YRC+1~, LAST1YRC+18, LAST1YRC+19 , LAST1YRC+20, LAST1YRC+21, LAST1YRC+22, EDUC+4~, EDUC+12, EDUC+13, EDUC+14, EDUC+15, EDUC+17
O	FMH+7~, FMH+17, FMH+20, FMH+21*, FMH1
P	FHDSP+15*, EDUC~, EDUC+3, EDUC+7
R	FMH+7~, FMH+16, FMH+17, FMH+19, FMH+20, FMH1, FHDSP+15*
S	FMH+7~, FMH+17, FMH+18, FMH+19, FMH1, FHDSP+15
T	LAST1YRR+1~, LAST1YRC+1~
T(1	LAST1YRR+3, LAST1YRR+15, LAST1YRC+3, LAST1YRC+15
T(2	LAST1YRR+4, LAST1YRR+20, LAST1YRC+4, LAST1YRC+20
T(3	LAST1YRR+5, LAST1YRR+16, LAST1YRC+5, LAST1YRC+16
T(4	LAST1YRR+6, LAST1YRR+21, LAST1YRC+6, LAST1YRC+21
T(5	LAST1YRR+7, LAST1YRR+17, LAST1YRC+7, LAST1YRC+17
T(6	LAST1YRR+8, LAST1YRR+23, LAST1YRC+8, LAST1YRC+22
U	FMH+11, FMH+16, FMH+19, FMH+20, LDM+5, LDM+6, LDM+7, FHDSP+4, FHDSP+5, FHDSP+7 , FHDSP+8, FHDSP+9, FHDSP+10, FHDSP+12, FHDSP+13, FHDSP+14, DISPEDUC+6, DISPEDUC+7, DISPEDUC+8, DISPMEDS+3 , DISPMEDS+4, DISPMEDS+6, DISPMEDS+7, DISPMEDS+10, REF+2, LAST1YRR+13, LAST1YRR+18, LAST1YRR+22, LAST1YRC+13, LAST1YRC+18 , EDUC+10, EDUC+11, EDUC+12, EDUC+14, EDUC+16, EDUC+17
X	FMH2+4, FHDSP+15, FHDSP+18, FHDSP+19, FHDSP+20, RELMEDS+3, RELMEDS+5, RELMEDS+7, RELMEDS+8, CONTMEDS+1* , CONTMEDS+2, DISPEDUC+3, DISPEDUC+4, DISPEDUC+5, DISPEDUC+6, COMN+2, COMN+4, N1+1, DISPMEDS+8, DISPMEDS+9 , DISPMEDS+16, DISPMEDS+19, DISPMEDS+20, DISPMEDS+21, SIG+1, SIG+2, SIG+3, EDUC+4~, EDUC+7
Y	FHDSP+1, FHDSP+6, FHDSP+8, FHDSP+10, PRTTXT2, TXT2, S1~, S1+2, DISPEDUC+7, DISPEDUC+8 , DISPMEDS+9, DISPMEDS+11, DISPMEDS+13, SIG+2, LAST1YRR+1~, LAST1YRR+13, LAST1YRR+14, LAST1YRR+15, LAST1YRR+16, LAST1YRR+17 , LAST1YRR+18, LAST1YRR+22, LAST1YRC+1~, LAST1YRC+13*, LAST1YRC+14, LAST1YRC+15, LAST1YRC+16, LAST1YRC+17, LAST1YRC+18
Z	FMH+7~, FMH+17, FMH+18, FMH+19*, FMH1, ICD+2!
Z(	S1+2*

Customize PDF page

Package: Health Summary Components

Routine: BHSAST1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: