Routine: BHSFH1

Package	Total	Call Graph
Health Summary	2	REGDT4^GMTSU CKP^GMTSUP
Health Summary Components	2	$$DATE^BHSMU (GETICDDX,GETNARR,PRTICD)^BHSUTL
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$REPEAT^XLFSTR

Package

Total

Call Graph

Health Summary

REGDT4^GMTSU CKP^GMTSUP

Health Summary Components

$$DATE^BHSMU (GETICDDX,GETNARR,PRTICD)^BHSUTL

IHS VA Utilities

$$VAL^XBDIQ1

Kernel

$$REPEAT^XLFSTR

Name	Comments	DBIA/ICR reference
FMHX
FMH2	;
FMH1
FHDSP
LDM(I)	;get last date modified of Family History or relation
FMH	;EP - ******* FAMILY HISTORY * 9000014 ******* ; <SETUP>
PWH	;EP - called from component Patient wellness Handout ; <SETUP>

External References

Name	Field # of Occurrence
$$DATE^BHSMU	PWH+14
GETICDDX^BHSUTL	FHDSP+13
GETNARR^BHSUTL	FHDSP+16
PRTICD^BHSUTL	FHDSP+31
REGDT4^GMTSU	FMH2+4
CKP^GMTSUP	FMH+6, FHDSP+17, PWH+4
$$VAL^XBDIQ1	FMH+12, FMH+14, FMH1+5, FHDSP+4, FHDSP+5, FHDSP+8, FHDSP+10, FHDSP+21, PWH+11
$$REPEAT^XLFSTR	PWH+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Date Last Mod",?14,"Relation/Status/Diagnosis" Line Location: FMH1+9
Function Call: WRITE	Prompt: !,BHTDAT,?14,BHZ," Status: " Line Location: FHDSP+1
Function Call: WRITE	Prompt: BHSTAT,! Line Location: FHDSP+6
Function Call: WRITE	Prompt: ?14,"Age at Death: ",$$VAL^XBDIQ1(9000014.1,BHR,.05)," Cause of Death: ",$S($P(^AUPNFHR(BHR,0),U,6)]"":$P(^AUPNFHR(BHR,0),U,6),1:"Data Not Available"),! Line Location: FHDSP+8
Function Call: WRITE	Prompt: ?14,"Multiple Birth: "_$$VAL^XBDIQ1(9000014.1,BHR,.07)_$S($P(^AUPNFHR(BHR,0),U,7)="Y":" Multiple Birth Type: "_$$VAL^XBDIQ1(9000014.1,BHR,.08),1:""),! Line Location: FHDSP+10
Function Call: WRITE	Prompt: !,APCHSDAT Line Location: FHDSP+17
Function Call: WRITE	Prompt: "No Patient Wellness Handouts given to this patient.",! Line Location: PWH+16
Function Call: WRITE	Prompt: ?2,"PATIENT WELLNESS HANDOUT TYPE",?34,"# given",?42,"Dates Last 4 Given to Patient",! Line Location: PWH+17
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("-",79),! Line Location: PWH+18
Function Call: WRITE	Prompt: ?42,$P(BHTFH(BHSN),U,2)," ",$P(BHTFH(BHSN),U,3)," ",$P(BHTFH(BHSN),U,4)," ",$P(BHTFH(BHSN),U,5),! Line Location: PWH+20

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCHPWHL - [#9001027]	PWH+9, PWH+14
^APCHPWHL("AA"	PWH+7, PWH+8
^AUPNFH - [#9000014]	FMH+10, FMH+11, LDM+2, LDM+5, LDM+6, LDM+7, FHDSP+4, FHDSP+12
^AUPNFH("AC"	FMH+5, FMH+9
^AUPNFH("AE"	FMH1+3
^AUPNFHR - [#9000014.1]	FMH+14, FMH+15, FMH1+5, FMH1+6, FMH1+8, LDM+5, FHDSP+5, FHDSP+7, FHDSP+8, FHDSP+9 , FHDSP+10
^AUPNFHR("AA"	FMH+5, FMH1+2
^AUTTRLSH - [#9999999.36]	FMH+15, FMH1+6

Name	Line Occurrences
$$LDM	FMH1
FHDSP	FMH2+6
FMH1	FMH+12
FMH2	FMH1+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	FMHX+1!, FHDSP+18, FHDSP+21, FHDSP+27
APCHTFH	FMH+8!, FMHX!
APCHTFH(	FMH1, FMH1+8, FMH1+10, FMH2+1, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6
BHC	FMHX+1!, FMH2+1, FMH2+5, FHDSP*, FHDSP+1, FHDSP+6, FHDSP+8, FHDSP+10
BHD	FMHX!, FMH2+5*, FMH2+6
BHIEN	FMHX+1!, PWH+8*, PWH+9, PWH+11, PWH+14
BHO	FMH1+10*, FMHX!, FMH2+1, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6
BHR	FMHX!, FMH2+3*, FMH2+4, FMH2+5, FMH2+6, FHDSP+3, FHDSP+5, FHDSP+7, FHDSP+8, FHDSP+9 , FHDSP+10
BHS	FMHX!, FMH2+1*, FMH2+2, FMH2+3, FMH2+4, FMH2+5, FMH2+6
BHSDAT	FMHX!
BHSDFN	FMH+9, FMH+10, FMH+11, FMH+12, FMH1, FMHX!, FMH2+6, FHDSP+3, FHDSP+4, FHDSP+11 , FHDSP+12, FHDSP+21
BHSICD	FMHX!, FHDSP+13*
BHSICL	FMHX!, FHDSP+30*
BHSIVD	FMHX+1!, PWH+7*, PWH+8
BHSN	FMHX!, FHDSP+12, FHDSP+13, FHDSP+15, PWH+9, PWH+10, PWH+19*, PWH+20, PWH+22!
BHSNRQ	FMHX!, FHDSP+15, FHDSP+26, FHDSP+30
BHSPAT	FMH+3~, FMH+4, FMH+5, FMH+9, FMH1+2, PWH+2~, PWH+3, PWH+7, PWH+8
BHSQ	FMH+3~
BHSTAT	FMHX+1!, FHDSP+2, FHDSP+4, FHDSP+5*, FHDSP+6
BHTD	FMHX+1!, FMH2+4*
BHTDAT	FMHX+1!, FMH2+4*, FHDSP+1
BHTFH	PWH+6!, PWH+16, PWH+22!
BHTFH(	PWH+12, PWH+13, PWH+14, PWH+19, PWH+20
BHZ	FMHX!, FMH2+2*, FMH2+3, FMH2+4, FMH2+5, FMH2+6, FHDSP+1
D	LDM+3~, LDM+4, LDM+5, LDM+6, LDM+7, LDM+8
>> DFN	FMH+4, PWH+3
E	LDM+3~, LDM+6, LDM+7
>> GMTSDLM	PWH+7
>> GMTSQIT	FMH+6, FMH2+1, FMH2+2, FMH2+3, FMH2+5, FMH2+6, FHDSP+17, PWH+4, PWH+19
I	LDM~, LDM+1, LDM+2, LDM+5, LDM+6, LDM+7
J	LDM+3~, LDM+5*
N	FMHX+1!, FHDSP+18, PWH+11, PWH+12, PWH+13, PWH+14
O	FMH+12, FMH+15, FMH+16, FMH1, FMH1+6, FMH1+7*, FMH1+8, FMHX+1!
P	FMHX+1!, FHDSP+18, PWH+13, PWH+14
R	FMH+11, FMH+12, FMH+14, FMH+15, FMH1, FMH1+4, FMH1+5, FMH1+6, FMH1+8, FMHX+1! , FHDSP+18
S	FMH+12, FMH+13, FMH+14, FMH1, FMH1+5, FMH1+8, FMHX+1!, FHDSP+18*
T	FMHX+1!
U	FMH+11, FMH+14, FMH+15, FMH1+5, FMH1+6, FMH1+8, LDM+5, LDM+6, LDM+7, FHDSP+4 , FHDSP+5, FHDSP+7, FHDSP+8, FHDSP+9, FHDSP+10, FHDSP+13, FHDSP+15, PWH+12, PWH+13, PWH+14 , PWH+20
X	FMH1+2, FMHX+1!, FMH2+4, FHDSP+18, FHDSP+26, FHDSP+27*, FHDSP+30
Y	FMH1+2*, FMH1+3, FMH1+4, FMHX+1!
Z	FMH+12, FMH+13, FMH+14, FMH1, FMH1+5, FMH1+8, FMHX+1!

Customize PDF page

Package: Health Summary Components

Routine: BHSFH1

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: