Routine: BHSBDEM

Package	Total	Call Graph
DRG Grouper	2	($$ICDD,$$ICDDX)^ICDCODE ($$ICDD,$$ICDDX)^ICDEX
Health Summary Components	2	$$SSN^BHSDEM $$AICD^BHSUTL
VA Fileman	2	$$GET1^DIQ ^DIWP
Health Summary	1	CKP^GMTSUP
IHS Patient	1	($$AGE,$$DOD)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Patient Care Component Reports	1	$$PREFLANG^APCLAPI7

Package

Total

Call Graph

($$ICDD,$$ICDDX)^ICDCODE ($$ICDD,$$ICDDX)^ICDEX

$$SSN^BHSDEM $$AICD^BHSUTL

$$GET1^DIQ ^DIWP

CKP^GMTSUP

($$AGE,$$DOD)^AUPNPAT

$$VAL^XBDIQ1

$$PREFLANG^APCLAPI7

Name	Comments	DBIA/ICR reference
BDEMOG	; ****************** BRIEF DEMOGRAPHICS - W/ADV DIRECTIVES ****************** ; <SETUP>
HOMELOCX
BDEMOGX
BDEMDSP	; <DISPLAY>
HOMELOC	; ****************** LOCATION OF HOME ****************** ; <SETUP>

Name	Field # of Occurrence
$$PREFLANG^APCLAPI7	BDEMDSP+29
$$AGE^AUPNPAT	BDEMDSP+24
$$DOD^AUPNPAT	BDEMDSP+2, BDEMDSP+9, BDEMDSP+10
$$SSN^BHSDEM	BDEMDSP+24
$$AICD^BHSUTL	BDEMDSP+8
$$GET1^DIQ	BDEMDSP+36
^DIWP	BDEMDSP+17
CKP^GMTSUP	BDEMDSP+1, BDEMDSP+33, BDEMDSP+38, HOMELOC+4
$$ICDD^ICDCODE	BDEMDSP+10
$$ICDDX^ICDCODE	BDEMDSP+10
$$ICDD^ICDEX	BDEMDSP+9
$$ICDDX^ICDEX	BDEMDSP+9
$$VAL^XBDIQ1	BDEMDSP+2, BDEMDSP+3, BDEMDSP+4, BDEMDSP+5, BDEMDSP+9, BDEMDSP+10, BDEMDSP+24, BDEMDSP+25, BDEMDSP+39

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: BDEMDSP+21
Function Call: WRITE	Prompt: !,BHSNAM," ",$$VAL^XBDIQ1(2,BHSPAT,.02)," DOB: ",BHSDOB," AGE: ",$$AGE^AUPNPAT(BHSPAT,DT)," SSN: ",$$SSN^BHSDEM(BHSPAT),! Line Location: BDEMDSP+24
Function Call: WRITE	Prompt: "TRIBE: ",$$VAL^XBDIQ1(9000001,DFN,1108)," ",$$VAL^XBDIQ1(9000001,DFN,1112),! Line Location: BDEMDSP+25
Function Call: WRITE	Prompt: $P(^DIC(4,BHSFP,0),U,1)," HEALTH RECORD NUMBER: ",BHSFAC,! Line Location: BDEMDSP+26
Function Call: WRITE	Prompt: "Home Phone: ",$S($G(BHHPH)]"":BHHPH,1:"None")_" "_"Work Phone: ",$S($G(BHWPH)]"":BHWPH,1:"None"),! Line Location: BDEMDSP+28
Function Call: WRITE	Prompt: "Preferred Language: ",BHPLNG,! Line Location: BDEMDSP+30
Function Call: WRITE	Prompt: ?20,$$GET1^DIQ(9000040.11,BHIEN,.02)," ",$$GET1^DIQ(9000040.11,BHIEN,.03)," Updated: ",$$GET1^DIQ(9000040.11,BHIEN,.01),! Line Location: BDEMDSP+36
Function Call: WRITE	Prompt: "Advance Directives: No information on file.",! Line Location: BDEMDSP+37
Function Call: WRITE	Prompt: "Last Registration Update: ",$$VAL^XBDIQ1(9000001,BHSPAT,.03),! Line Location: BDEMDSP+39
Function Call: WRITE	Prompt: ^AUPNPAT(BHSPAT,12,BHSI,0),! Line Location: HOMELOC+4

FileNo	Call Tags
9000040.11	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNADVD - [#9000040]	BDEMDSP+32, BDEMDSP+35, BDEMDSP+37
^AUPNPAT - [#9000001]	BDEMDSP+9, BDEMDSP+10, BDEMDSP+26, HOMELOC+2, HOMELOC+4
^DD("DD"	BDEMOG+8
^DIC(4 - [#4]	BDEMDSP+26
^DIC(5 - [#5]	BDEMOG+10
^DPT - [#2]	BDEMOG+4, BDEMOG+10, BDEMOG+11
^UTILITY($J	BDEMDSP+11!, BDEMDSP+18, BDEMDSP+20, BDEMDSP+23!

Name	Field # of Occurrence
^(	BDEMOG+10

Name	Field # of Occurrence
BHDNAM	BDEMOG+2~
BHHPH	BDEMOG+11*, BDEMDSP+28, BDEMOGX+1!
BHIEN	BDEMDSP+36*, BDEMOGX!
BHPLNG	BDEMOG+2~, BDEMDSP+29*, BDEMDSP+30
BHSADR	BDEMOG+2~, BDEMOG+9, BDEMOG+10, BDEMOG+12*, BDEMDSP+27, BDEMOGX!
BHSDN	BDEMOG+2~
BHSDOB	BDEMOG+2~, BDEMOG+7, BDEMOG+8, BDEMDSP+24, BDEMOGX!
BHSDSC	BDEMDSP+6!, BDEMDSP+9, BDEMDSP+10, BDEMDSP+23!
BHSDSC(	BDEMDSP+13, BDEMDSP+14
BHSDSC(1	BDEMDSP+9, BDEMDSP+10
BHSFAC	BDEMDSP+26*, BDEMOGX!
BHSFP	BDEMDSP+26*, BDEMOGX!
BHSI	BDEMOG+10, BDEMDSP+35, BDEMOGX!, HOMELOC+4*, HOMELOCX!
BHSN	BDEMOG+4, BDEMOG+5, BDEMOG+6, BDEMOG+10, BDEMDSP+35*, BDEMOGX!
BHSNAM	BDEMOG+5*, BDEMDSP+24, BDEMOGX!
BHSP	BDEMOG+10, BDEMDSP+35, BDEMDSP+36, BDEMOGX!
BHSPAT	BDEMOG+2~, BDEMOG+3*, BDEMOG+4, BDEMOG+10, BDEMOG+11, BDEMDSP+2, BDEMDSP+3, BDEMDSP+4, BDEMDSP+5, BDEMDSP+9 , BDEMDSP+10, BDEMDSP+24, BDEMDSP+26, BDEMDSP+29, BDEMDSP+32, BDEMDSP+35, BDEMDSP+36, BDEMDSP+37, BDEMDSP+39, HOMELOC+2 , HOMELOC+4
BHSX	BDEMOG+2~, BDEMDSP+12, BDEMDSP+13, BDEMDSP+14, BDEMDSP+23!
BHSZ	BDEMOG+2~, BDEMDSP+18*, BDEMDSP+20, BDEMDSP+23!
BHWPH	BDEMOG+11*, BDEMDSP+28, BDEMOGX+1!
>> DFN	BDEMOG+3, BDEMDSP+25
DIW	BDEMDSP+23!
DIWL	BDEMDSP+13*, BDEMDSP+18, BDEMDSP+20, BDEMDSP+23!
>> DIWR	BDEMDSP+13*
DT	BDEMDSP+24, BDEMDSP+29
DUZ(2	BDEMDSP+26
>> GMTSQIT	BDEMDSP+1, BDEMDSP+13, BDEMDSP+19, BDEMDSP+33, BDEMDSP+38, HOMELOC+4
U	BDEMOG+5, BDEMOG+6, BDEMOG+10, BDEMOG+11, BDEMDSP+9, BDEMDSP+10, BDEMDSP+26
>> X	BDEMDSP+14*, BDEMDSP+15, BDEMDSP+16
>> Y	BDEMOG+6*, BDEMOG+7, BDEMOG+8

Information