Routine: BHSDEM

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

Package	Total	Caller Graph
Health Summary Components	1	BHSBDEM

Entry Points

Name	Comments	DBIA/ICR reference
DEMOG	; ****************** DEMOGRAPHICS ******************
SSN(P)	;EP
DSPCMSRG	; DISPLAY MEMBERSHIP IN CMS REGISTER
V	;
VSTAT
WWDSPL(DFN)	;
BDPDISP	;display providers from desg prov package
DEMDSP	; <DISPLAY>
REM	;
AGE(DFN,D,F)	;EP - Given DFN, return Age.
WWENPROC(DFN)	;
DEMOGX
VSDT

External References

Name	Field # of Occurrence
$$PREFLANG^APCLAPI7	DEMDSP+35
$$AGE^AUPNPAT	WWDSPL+12
$$DOB^AUPNPAT	AGE+3, AGE+7
$$DOD^AUPNPAT	DEMDSP+3, DEMDSP+10, DEMDSP+11
ACTAGR^BCPAPI	REM+15
$$AICD^BHSUTL	DEMDSP+9
$$GET1^DIQ	WWDSPL+8, WWDSPL+10, WWENPROC+5, WWENPROC+6
^DIWP	DEMDSP+18
CKP^GMTSUP	DEMDSP+1, DEMDSP+54, REM+9, BDPDISP+3
$$ICDD^ICDCODE	DEMDSP+11
$$ICDDX^ICDCODE	DEMDSP+11
$$ICDD^ICDEX	DEMDSP+10
$$ICDDX^ICDEX	DEMDSP+10
$$VAL^XBDIQ1	DEMDSP+3, DEMDSP+4, DEMDSP+5, DEMDSP+6, DEMDSP+10, DEMDSP+11, DEMDSP+45, DEMDSP+47, REM+3, REM+4 , REM+5, REM+14, DSPCMSRG+6, BDPDISP+9
$$FMDIFF^XLFDT	AGE+7
$$FMTE^XLFDT	DEMDSP+46, WWDSPL+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "* DOD: ",$$FMTE^XLFDT($$DOD^AUPNPAT(BHSPAT),"2D")," *",! Line Location: DEMDSP+2
Function Call: WRITE	Prompt: !! Line Location: DEMDSP+22
Function Call: WRITE	Prompt: BHSNAM Line Location: DEMDSP+25
Function Call: WRITE	Prompt: !,?34,BHSBT,! Line Location: DEMDSP+29
Function Call: WRITE	Prompt: $E(BHSTR,1,33) Condition for execution: BHSTR]"" Line Location: DEMDSP+32
Function Call: WRITE	Prompt: ?34,"SSN: ",BHSSN Condition for execution: BHSSN]"" Line Location: DEMDSP+32
Function Call: WRITE	Prompt: ! Line Location: DEMDSP+32
Function Call: WRITE	Prompt: ?34,"MOTHER'S MAIDEN NAME: ",BHSMNM Condition for execution: BHSMNM]"" Line Location: DEMDSP+33
Function Call: WRITE	Prompt: ! Line Location: DEMDSP+33
Function Call: WRITE	Prompt: BHSHPH,BHSOPH Line Location: DEMDSP+34
Function Call: WRITE	Prompt: ?34,"FATHER'S NAME: ",BHSFNM Condition for execution: BHSFNM]"" Line Location: DEMDSP+34
Function Call: WRITE	Prompt: ! Line Location: DEMDSP+34
Function Call: WRITE	Prompt: "OTHER PHONE: ",BHOTPH Line Location: DEMDSP+37
Function Call: WRITE	Prompt: ?34,"PREFERRED LANGUAGE: ",BHPLNG Line Location: DEMDSP+38
Function Call: WRITE	Prompt: ! Line Location: DEMDSP+39
Function Call: WRITE	Prompt: BHSCMR,!! Line Location: DEMDSP+40
Function Call: WRITE	Prompt: "LAST UPDATED: ",BHSLUD," " Condition for execution: BHSLUD]"" Line Location: DEMDSP+41
Function Call: WRITE	Prompt: ?34,"ELIGIBILITY: ",BHSEL Condition for execution: BHSEL]"" Line Location: DEMDSP+41
Function Call: WRITE	Prompt: ! Line Location: DEMDSP+41
Function Call: WRITE	Prompt: !,"NOTICE OF PRIVACY PRACTICES REC'D BY PATIENT? ",$$VAL^XBDIQ1(9000038,BHSPAT,.02) Line Location: DEMDSP+45
Function Call: WRITE	Prompt: !," DATE RECEIVED BY PATIENT: ",$$FMTE^XLFDT($P(BHSNPP,U,3)) Line Location: DEMDSP+46
Function Call: WRITE	Prompt: !," WAS ACKNOWLEDGEMENT SIGNED? ",$$VAL^XBDIQ1(9000038,BHSPAT,.04) Line Location: DEMDSP+47
Function Call: WRITE	Prompt: ! Line Location: DEMDSP+50
Function Call: WRITE	Prompt: ! Line Location: DEMDSP+52
Function Call: WRITE	Prompt: ?24,BHSHRN," ",BHSFAC,! Line Location: DEMDSP+53
Function Call: WRITE	Prompt: "DESIGNATED PROVIDER: ",BHSPP,! Line Location: DEMDSP+56
Function Call: WRITE	Prompt: ?(38-$L(A)),A,": "_$$VAL^XBDIQ1(9002086,BHSPAT,.25),! Line Location: REM+3
Function Call: WRITE	Prompt: ?(38-$L(A)),A,": ",$E($$VAL^XBDIQ1(9000001,BHSPAT,1701),1,22),! Line Location: REM+4
Function Call: WRITE	Prompt: ?(38-$L(A)),A,": ",$$VAL^XBDIQ1(9000001,BHSPAT,1704),! Line Location: REM+5
Function Call: WRITE	Prompt: "REMARKS:",?9,BHSRE1,! Line Location: REM+6
Function Call: WRITE	Prompt: ?9,BHSRE2,! Condition for execution: BHSRE2]"" Line Location: REM+6
Function Call: WRITE	Prompt: "REMARKS:",! Line Location: REM+7
Function Call: WRITE	Prompt: ?1,"[more]",! Line Location: REM+11
Function Call: WRITE	Prompt: ?45,$S(APCHAG:"Opioid Agreement",1:"No Opioid Agreement"),! Line Location: REM+15
Function Call: WRITE	Prompt: ?21,$P(^ACM(41.1,BHSI,0),U) Line Location: DSPCMSRG+5
Function Call: WRITE	Prompt: " Status: ",$$VAL^XBDIQ1(9002241,BHSK,1),! Line Location: DSPCMSRG+6
Function Call: WRITE	Prompt: ?30,"DESIGNATED PROVIDERS",! Line Location: BDPDISP+1
Function Call: WRITE	Prompt: ?(38-$L(A)),A,": "_$$VAL^XBDIQ1(90360.1,BHSX,.03),! Line Location: BDPDISP+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	GET1^DIQ
^BWPCD - [#9002086.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	REM+13
^ACM(41 - [#9002241]	DSPCMSRG+2, DSPCMSRG+4, DSPCMSRG+6
^ACM(41.1 - [#9002241.1]	DSPCMSRG+4, DSPCMSRG+5
^APCHSITE - [#9001023]	V+9, V+10
^AUPNNPP - [#9000038]	DEMDSP+44
^AUPNPAT - [#9000001]	DEMOG+16, V+2, V+15, V+16, V+17, V+28, DEMDSP+10, DEMDSP+11, DEMDSP+53, REM+4 , REM+5
^AUTTTRI - [#9999999.03]	V+5
^BCPP(	REM+12
^BDPRECN - [#90360.1]	BDPDISP+5
^BDPRECN("C"	DEMDSP+55, BDPDISP+2
^BDPTCAT - [#90360.3]	BDPDISP+7, BDPDISP+8
^BWP - [#9002086]	REM+3
^BWPCD("C"	WWENPROC+4
^DD("DD"	DEMOG+10, DEMOG+19
^DD(9000001	DEMOG+45, V+7
^DIC(23 - [#23]	VSTAT+3
^DIC(4 - [#4]	DEMDSP+53
^DIC(5 - [#5]	V+20
^DPT - [#2]	DEMOG+5, DEMOG+13, DEMOG+21, DEMOG+22, V+1, V+20, V+23, VSTAT+1, VSTAT+2, VSTAT+5 , AGE+2, SSN+2, SSN+3
^LR - [#63]	DEMOG+26, DEMOG+27
^UTILITY($J	DEMDSP+12!, DEMDSP+19, DEMDSP+21, DEMDSP+24!
^VA(200 - [#200]	DEMOG+45

Label References

Name	Line Occurrences
$$AGE	DEMDSP+26
$$SSN	DEMOG+11
$$WWENPROC	WWDSPL+4
BDPDISP	DEMDSP+55
DEMDSP	V+29
DSPCMSRG	REM+16
REM	DEMDSP+55
VSDT	VSTAT+4
VSTAT	V+1

Naked Globals

Name	Field # of Occurrence
^(	V+20, VSTAT+1, VSTAT+5, DEMDSP+53
^("VET"	V+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	DEMOG+2~, REM+2~, REM+3, REM+4, REM+5, BDPDISP+5, BDPDISP+6, BDPDISP+7, BDPDISP+8, BDPDISP+9*
AGE	WWDSPL+1~, WWDSPL+12*, WWDSPL+13
APCHAG	REM+15, DEMOGX!
BHOTPH	DEMOG+2~, V+28*, DEMDSP+37, DEMDSP+39
BHPLNG	DEMOG+2~, DEMDSP+35*, DEMDSP+38, DEMDSP+39
BHSADR	V+19, V+20, V+21*, V+22, DEMOGX!
BHSBT	DEMOG+33, DEMOG+37, DEMOG+38*, DEMDSP+29, DEMDSP+30, DEMOGX!
BHSCMR	V+8, V+22, DEMDSP+40, DEMOGX!
BHSDOB	DEMOG+1~, DEMOG+9, DEMOG+10, DEMDSP+26, DEMOGX!
BHSDSC	DEMDSP+7!, DEMDSP+10, DEMDSP+11, DEMDSP+24!
BHSDSC(	DEMDSP+14, DEMDSP+15
BHSDSC(1	DEMDSP+10, DEMDSP+11
BHSEL	V+6, V+7, DEMDSP+41, DEMOGX!
BHSEX	DEMOG+7*, DEMDSP+27, DEMOGX!, WWDSPL+2
BHSFAC	DEMDSP+53*, DEMOGX!
BHSFLD	DEMOG+2~, V+10, V+12, V+16, V+17
BHSFNM	DEMOG+1~, DEMOG+15*, DEMDSP+34
BHSFP	DEMDSP+53*, DEMOGX!
BHSHPH	V+24, V+25, V+26*, V+27, DEMDSP+34, DEMOGX!
BHSHRN	DEMDSP+53*, DEMOGX!
BHSI	V+7, DEMOGX!, DSPCMSRG+1~, DSPCMSRG+4, DSPCMSRG+5, DSPCMSRG+6
BHSJ	DEMOGX!, DSPCMSRG+1~, DSPCMSRG+3, DSPCMSRG+4, DSPCMSRG+5
BHSK	DSPCMSRG+1~, DSPCMSRG+6*
BHSLUD	DEMOG+18, DEMOG+19, DEMDSP+41, DEMOGX!
BHSMNM	DEMOG+1~, DEMOG+14*, DEMDSP+32, DEMDSP+33, DEMOGX!
BHSN	DEMOG+1~, DEMOG+5, DEMOG+6, DEMOG+7, DEMOG+8, DEMOG+13, DEMOG+14, DEMOG+15, DEMOG+16, DEMOG+17 , DEMOG+37, DEMOG+42, V+2, V+3, V+6, V+8, V+20, V+23, V+24, VSTAT+2* , VSTAT+3, VSTAT+4, VSTAT+5*, DEMOGX!
BHSNAM	DEMOG+1~, DEMOG+6*, DEMDSP+25, DEMOGX!
BHSNL	DEMOG+2~, V+9, V+11, V+16, V+17, REM+11
BHSNPP	DEMDSP+44*, DEMDSP+46, DEMDSP+48, DEMDSP+49, DEMDSP+51!
BHSOPH	V+24, V+25, V+27, DEMDSP+34, DEMOGX!
BHSP	V+7, V+20, DEMOGX!
BHSPAT	DEMOG+1~, DEMOG+3*, DEMOG+5, DEMOG+11, DEMOG+13, DEMOG+16, DEMOG+21, DEMOG+22, V+1, V+2 , V+15, V+16, V+17, V+20, V+23, V+28, VSTAT+1, VSTAT+2, VSTAT+5, DEMDSP+3 , DEMDSP+4, DEMDSP+5, DEMDSP+6, DEMDSP+10, DEMDSP+11, DEMDSP+26, DEMDSP+35, DEMDSP+44, DEMDSP+45, DEMDSP+47 , DEMDSP+53, DEMDSP+55, REM+3, REM+4, REM+5, REM+12, REM+14, REM+15, DSPCMSRG+2, DSPCMSRG+4 , DSPCMSRG+6, BDPDISP+2
BHSPP	DEMOG+42, DEMOG+43, DEMOG+44, DEMOG+45, DEMDSP+56, DEMOGX!
BHSRE1	V+13!, REM+7, DEMOGX!
BHSRE1(	V+16*, REM+8, REM+10
BHSRE1(99999	V+17*
BHSRE2	DEMOGX!
BHSSEX	DEMOG+1~
BHSSN	DEMOG+11*, DEMDSP+32, DEMOGX!
BHSTR	V+3, V+4, V+5*, DEMDSP+32, DEMOGX!
BHSVST	V+1, VSTAT, VSTAT+1, VSTAT+3, VSTAT+4, VSTAT+5, DEMDSP+42, DEMOGX!
BHSX	DEMOG+2~, DEMOG+40!, DEMDSP+13, DEMDSP+14, DEMDSP+15, DEMDSP+24!, REM+8, REM+10, BDPDISP+2, BDPDISP+5 , BDPDISP+9
BHSX("ABO"	DEMOG+28*, DEMOG+29, DEMOG+32
BHSX("ABO/Rh"	DEMOG+32*, DEMOG+33, DEMOG+36
BHSX("LR"	DEMOG+27*, DEMOG+28, DEMOG+30
BHSX("LRDFN"	DEMOG+22*, DEMOG+24, DEMOG+25, DEMOG+26, DEMOG+27
BHSX("Rh"	DEMOG+30*, DEMOG+31, DEMOG+32
BHSZ	DEMDSP+19*, DEMDSP+21, DEMDSP+24!
BHTCNT	DEMOG+2~, V+14, V+15, REM+11
C	DEMOG+2~, V+14, V+16, V+17*
D	AGE~, AGE+4*, AGE+7
DAY	AGE+6~, AGE+7*, AGE+8, AGE+12
DFN	DEMOG+3, AGE~, AGE+1, AGE+2, AGE+3, AGE+7, WWDSPL~, WWDSPL+4, WWDSPL+8, WWDSPL+10 , WWDSPL+12, WWENPROC~, WWENPROC+3, WWENPROC+4
DIW	DEMDSP+24!
DIWL	DEMDSP+14*, DEMDSP+19, DEMDSP+21, DEMDSP+24!
DIWR	DEMDSP+14*, DEMDSP+24!
DT	DEMDSP+26, DEMDSP+35, AGE+4
DUZ(2	V+9, V+10
E	V+20*, DEMOGX!
F	AGE~, AGE+5*, AGE+9
>> GMTSQIT	DEMDSP+1, DEMDSP+14, DEMDSP+20, DEMDSP+54, REM+8, REM+9, BDPDISP+3
IEN	WWENPROC+1~, WWENPROC+4*, WWENPROC+5, WWENPROC+6
P	SSN~, SSN+1, SSN+2, SSN+3
PDT	WWENPROC+1~, WWENPROC+2, WWENPROC+3, WWENPROC+4, WWENPROC+6*, WWENPROC+7
SDATE	WWDSPL+1~, WWDSPL+3, WWDSPL+6, WWDSPL+10*, WWDSPL+15
STAT	WWDSPL+1~, WWDSPL+3, WWDSPL+6, WWDSPL+8, WWDSPL+9, WWDSPL+13, WWDSPL+14, WWDSPL+15
U	DEMOG+6, DEMOG+7, DEMOG+8, DEMOG+14, DEMOG+15, DEMOG+17, DEMOG+28, DEMOG+30, DEMOG+37, DEMOG+42 , DEMOG+45, V+1, V+3, V+5, V+6, V+7, V+8, V+9, V+10, V+20 , V+24, V+28, VSTAT+1, VSTAT+3, VSTAT+4, VSTAT+5, DEMDSP+10, DEMDSP+11, DEMDSP+46, DEMDSP+48 , DEMDSP+49, DEMDSP+53, REM+3, REM+4, REM+5, DSPCMSRG+4, DSPCMSRG+5, BDPDISP+5, BDPDISP+8, SSN+3
WW	WWDSPL+1~, WWDSPL+4*, WWDSPL+5, WWDSPL+6
X	V+7, V+15, V+16, V+17, DEMDSP+15, DEMDSP+16, DEMDSP+17, REM+13, DEMOGX!
Y	DEMOG+2~, DEMOG+8, DEMOG+9, DEMOG+10, DEMOG+17, DEMOG+18, DEMOG+19, VSTAT+4, VSTAT+5, VSDT* , DEMOGX!
YEAR	AGE+6~, AGE+8*, AGE+9, AGE+12

Customize PDF page

Package: Health Summary Components

Routine: BHSDEM

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: