Routine: APCHS1C

Package	Total	Call Graph
VA Fileman	2	$$GET1^DIQ ^DIWP
DRG Grouper	1	($$ICDD,$$ICDDX)^ICDEX
IHS Patient	1	($$AGE,$$DOD)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Patient Care Component	1	$$SSN^APCHS1
Patient Care Component Reports	1	$$PREFLANG^APCLAPI7

Entry Points

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
$$SSN^APCHS1	BDEMDSP+21
$$PREFLANG^APCLAPI7	BDEMDSP+26
$$AGE^AUPNPAT	BDEMDSP+21
$$DOD^AUPNPAT	BDEMDSP+2, BDEMDSP+7
$$GET1^DIQ	BDEMDSP+34
^DIWP	BDEMDSP+14
$$ICDD^ICDEX	BDEMDSP+7
$$ICDDX^ICDEX	BDEMDSP+7
$$VAL^XBDIQ1	BDEMDSP+2, BDEMDSP+3, BDEMDSP+4, BDEMDSP+5, BDEMDSP+7, BDEMDSP+21, BDEMDSP+22, BDEMDSP+28, BDEMDSP+37

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BDEMDSP+18
Function Call: WRITE	Prompt: !,APCHSNAM," ",$$VAL^XBDIQ1(2,APCHSPAT,.02)," DOB: ",APCHSDOB," AGE: ",$$AGE^AUPNPAT(APCHSPAT,DT)," SSN: ",$$SSN^APCHS1(APCHSPAT),! Line Location: BDEMDSP+21
Function Call: WRITE	Prompt: "TRIBE: ",$$VAL^XBDIQ1(9000001,DFN,1108)," ",$$VAL^XBDIQ1(9000001,DFN,1112),! Line Location: BDEMDSP+22
Function Call: WRITE	Prompt: $P(^DIC(4,APCHSFP,0),U,1)," HEALTH RECORD NUMBER: ",APCHSFAC,! Line Location: BDEMDSP+23
Function Call: WRITE	Prompt: "Home Phone: ",$S($G(APCHHPH)]"":APCHHPH,1:"None")_" "_"Work Phone: ",$S($G(APCHWPH)]"":APCHWPH,1:"None"),! Line Location: BDEMDSP+25
Function Call: WRITE	Prompt: "Preferred Language: ",APCHPLNG,! Line Location: BDEMDSP+27
Function Call: WRITE	Prompt: !,"Preferred Method of Receiving Reminders: ",$$VAL^XBDIQ1(9000001,APCHSPAT,4002),! Line Location: BDEMDSP+28
Function Call: WRITE	Prompt: ?20,$$GET1^DIQ(9000040.11,APCHIEN,.02)," ",$$GET1^DIQ(9000040.11,APCHIEN,.03)," Updated: ",$$GET1^DIQ(9000040.11,APCHIEN,.01),! Line Location: BDEMDSP+34
Function Call: WRITE	Prompt: "Advance Directives: No information on file.",! Line Location: BDEMDSP+35
Function Call: WRITE	Prompt: "Last Registration Update: ",$$VAL^XBDIQ1(9000001,APCHSPAT,.03),! Line Location: BDEMDSP+37
Function Call: WRITE	Prompt: ^AUPNPAT(APCHSPAT,12,APCHSI,0),! Line Location: HOMELOC+5

FileNo	Call Tags
9000040.11	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNADVD - [#9000040]	BDEMDSP+30, BDEMDSP+33, BDEMDSP+35
^AUPNPAT - [#9000001]	BDEMDSP+7, BDEMDSP+23, BDEMDSP+28, HOMELOC+2, HOMELOC+5
^DD("DD"	BDEMOG+6
^DIC(4 - [#4]	BDEMDSP+23
^DIC(5 - [#5]	BDEMOG+8
^DPT - [#2]	BDEMOG+2, BDEMOG+8, BDEMOG+9
^UTILITY($J	BDEMDSP+8!, BDEMDSP+15, BDEMDSP+17, BDEMDSP+19!

Name	Field # of Occurrence
^(	BDEMOG+8

Name	Field # of Occurrence
APCHHPH	BDEMOG+9*, BDEMDSP+25, BDEMOGX+1!
APCHIEN	BDEMDSP+34*, BDEMOGX!
>> APCHPLNG	BDEMDSP+26*, BDEMDSP+27
APCHSADR	BDEMOG+7, BDEMOG+8, BDEMOG+10*, BDEMDSP+24, BDEMOGX!
>> APCHSBRK	BDEMDSP+1, HOMELOC+3
>> APCHSCKP	BDEMDSP+16, BDEMDSP+31, BDEMDSP+36, HOMELOC+5
APCHSDOB	BDEMOG+5, BDEMOG+6, BDEMDSP+21, BDEMOGX!
APCHSDSC	BDEMDSP+6!, BDEMDSP+7*, BDEMDSP+19!
APCHSDSC(	BDEMDSP+10, BDEMDSP+11
APCHSDSC(1	BDEMDSP+7*
APCHSFAC	BDEMDSP+23*, BDEMOGX!
APCHSFP	BDEMDSP+23*, BDEMOGX!
APCHSI	BDEMOG+8, BDEMDSP+33, BDEMOGX!, HOMELOC+5*, HOMELOCX!
APCHSN	BDEMOG+2, BDEMOG+3, BDEMOG+4, BDEMOG+8, BDEMDSP+33*, BDEMOGX!
APCHSNAM	BDEMOG+3*, BDEMDSP+21, BDEMOGX!
APCHSP	BDEMOG+8, BDEMDSP+33, BDEMDSP+34, BDEMOGX!
>> APCHSPAT	BDEMOG+2, BDEMOG+8, BDEMOG+9, BDEMDSP+2, BDEMDSP+3, BDEMDSP+4, BDEMDSP+5, BDEMDSP+7, BDEMDSP+21, BDEMDSP+23 , BDEMDSP+26, BDEMDSP+28, BDEMDSP+30, BDEMDSP+33, BDEMDSP+34, BDEMDSP+35, BDEMDSP+37, HOMELOC+2, HOMELOC+5
>> APCHSQIT	BDEMDSP+10, BDEMDSP+16, BDEMDSP+20, BDEMDSP+31, BDEMDSP+36, HOMELOC+5
APCHSX	BDEMDSP+9, BDEMDSP+10, BDEMDSP+11, BDEMDSP+19!
APCHSZ	BDEMDSP+15*, BDEMDSP+17, BDEMDSP+19!
APCHWPH	BDEMOG+9*, BDEMDSP+25, BDEMOGX+1!
>> DFN	BDEMDSP+22
DIWL	BDEMDSP+10*, BDEMDSP+15, BDEMDSP+17, BDEMDSP+19!
DIWR	BDEMDSP+10*, BDEMDSP+19!
DT	BDEMDSP+21, BDEMDSP+26
DUZ(2	BDEMDSP+23
U	BDEMOG+3, BDEMOG+4, BDEMOG+8, BDEMOG+9, BDEMDSP+7, BDEMDSP+23, BDEMDSP+28
>> X	BDEMDSP+11*, BDEMDSP+12, BDEMDSP+13
>> Y	BDEMOG+4*, BDEMOG+5, BDEMOG+6