Routine: BADEHLI

Package	Total	Call Graph
Health Level Seven	2	($$HLDATE,$$HLNAME,$$HLPHONE)^HLFNC $$ADDSEG^HLOAPI
Electronic Dental Record	1	(NOTIF,SET)^BADEHL1
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$DT^XLFDT
Registration	1	$$EN^VAFHLPID
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Electronic Dental Record	1	BADEHL1

Name	Comments	DBIA/ICR reference
IN2(INSCO,POLICY,CASENUM)	;Do the IN2 Segment
MAIDX
MSCINS	;Insurance company data
RR	;EP ; RAILROAD RETIREMENT
THIRD	;EP ; OTHER THIRD PARTY
CRTNULL	; Creates empty IN1/IN2
DRR	;
DMAID	;
INS	;Entry point - Create the Insurance segment
DMCARE	;
MAID	;See if the patient is on MEDICAID
DTHIRD	;Private insurance data
BMAID
GETREL(RIEN)	;Find the relationship
PTADDR(DFN)	;EP
MCARE	;ENTRY POINT ; See if patient is on MEDICARE

External References

Name	Field # of Occurrence
NOTIF^BADEHL1	DMAID+47, DMCARE+39, DTHIRD+61, DRR+45, IN2+18, CRTNULL+4, CRTNULL+8
SET^BADEHL1	DMAID+8, DMAID+9, DMAID+12, DMAID+13, DMAID+16, DMAID+22, DMAID+24, DMAID+30, DMAID+31, DMAID+32 , DMAID+37, DMAID+38, DMAID+40, DMAID+41, DMAID+43, DMAID+44, DMAID+45, DMCARE+9, DMCARE+10, DMCARE+13 , DMCARE+14, DMCARE+17, DMCARE+23, DMCARE+25, DMCARE+31, DMCARE+32, DMCARE+33, DMCARE+35, DMCARE+36, DMCARE+37 , DTHIRD+15, DTHIRD+16, DTHIRD+17, DTHIRD+18, DTHIRD+21, DTHIRD+28, DTHIRD+29, DTHIRD+32, DTHIRD+34, DTHIRD+38 , DTHIRD+40, DTHIRD+43, DTHIRD+45, DTHIRD+46, DTHIRD+47, DTHIRD+48, DTHIRD+50, DTHIRD+53, DTHIRD+54, DTHIRD+57 , DTHIRD+58, DRR+9, DRR+10, DRR+15, DRR+16, DRR+19, DRR+25, DRR+27, DRR+28, DRR+31 , DRR+32, DRR+33, DRR+34, DRR+41, DRR+42, DRR+43, MSCINS+7, MSCINS+11, MSCINS+14, MSCINS+15 , IN2+3, IN2+4, IN2+5, IN2+12, IN2+16, CRTNULL+1, CRTNULL+2, CRTNULL+5, CRTNULL+6
$$GET1^DIQ	DMAID+14, DMAID+28, DMAID+32, DMAID+40, DMAID+43, DMCARE+15, DMCARE+29, DMCARE+33, DTHIRD+19, DTHIRD+28 , DTHIRD+29, DTHIRD+47, DTHIRD+58, DRR+13, DRR+17, DRR+28, DRR+29, DRR+34, MSCINS+3, MSCINS+9 , GETREL+4
$$HLDATE^HLFNC	DMAID+21, DMAID+23, DMAID+32, DMCARE+22, DMCARE+24, DMCARE+33, DTHIRD+31, DTHIRD+33, DTHIRD+42, DRR+24 , DRR+26, DRR+33, DRR+34
$$HLNAME^HLFNC	DMAID+28, DMCARE+29, DTHIRD+36, DRR+29, MSCINS+9
$$HLPHONE^HLFNC	MSCINS+12
$$ADDSEG^HLOAPI	DMAID+46, DMCARE+38, DTHIRD+60, DRR+44, IN2+17, CRTNULL+3, CRTNULL+7
$$EN^VAFHLPID	PTADDR+3
$$VAL^XBDIQ1	DMAID+25
$$DT^XLFDT	DMAID+6, DMCARE+6, DTHIRD+12, DRR+7

FileNo	Call Tags
^DIC(5 - [#5]	GET1^DIQ
^AUPNMCR - [#9000003]	GET1^DIQ
^AUPN3PPH - [#9000003.1]	GET1^DIQ
^AUPNMCD - [#9000004]	GET1^DIQ
^AUPNRRE - [#9000005]	GET1^DIQ
^AUTNINS - [#9999999.18]	GET1^DIQ
^AUTTRLSH - [#9999999.36]	GET1^DIQ
^AUTNEGRP - [#9999999.77]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	DMAID+35, DTHIRD+26
^AUPNMCD - [#9000004]	BMAID, BMAID+1, BMAID+2, BMAID+3, DMAID+2, DMAID+10
^AUPNMCD("B"	MAID+2
^AUPNMCR - [#9000003]	MCARE+2, MCARE+3, MCARE+4, MCARE+6, MCARE+7, DMCARE+1, DMCARE+11
^AUPNPRVT - [#9000006]	THIRD+2, THIRD+4, THIRD+5, DTHIRD+4, DTHIRD+5
^AUPNRRE - [#9000005]	RR+2, RR+5, RR+8, RR+9, DRR+2, DRR+11
^AUTNEMPL - [#9999999.75]	IN2+9
^AUTNINS - [#9999999.18]	DMAID+18, DMCARE+19, DTHIRD+7, DTHIRD+23, DRR+21, IN2+13
^AUTTMCS - [#9999999.32]	DMCARE+8

Name	Line Occurrences
$$GETREL	DMAID+31, DTHIRD+40
BMAID	MAID+2
CRTNULL	INS+7
DMAID	MAID+7
DMCARE	MCARE+13
DRR	RR+14
DTHIRD	THIRD+9
IN2	DMAID+49, DMCARE+40, DTHIRD+63, DRR+47
MAID	INS+5
MCARE	INS+5
MSCINS	DMAID+19, DMCARE+20, DTHIRD+24, DRR+22
RR	INS+5
THIRD	INS+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADDR	DMAID+1~, DTHIRD+1~, MSCINS+2~, MSCINS+5*, MSCINS+6
>> ARY	DMAID+8, DMAID+9, DMAID+12, DMAID+13, DMAID+16, DMAID+22, DMAID+24, DMAID+30, DMAID+31, DMAID+32 , DMAID+37, DMAID+38, DMAID+40, DMAID+41, DMAID+43, DMAID+44, DMAID+45, DMAID+46, DMCARE+9, DMCARE+10 , DMCARE+13, DMCARE+14, DMCARE+17, DMCARE+23, DMCARE+25, DMCARE+31, DMCARE+32, DMCARE+33, DMCARE+35, DMCARE+36 , DMCARE+37, DMCARE+38, DTHIRD+15, DTHIRD+16, DTHIRD+17, DTHIRD+18, DTHIRD+21, DTHIRD+28, DTHIRD+29, DTHIRD+32 , DTHIRD+34, DTHIRD+38, DTHIRD+40, DTHIRD+43, DTHIRD+45, DTHIRD+46, DTHIRD+47, DTHIRD+48, DTHIRD+50, DTHIRD+53 , DTHIRD+54, DTHIRD+57, DTHIRD+58, DTHIRD+60, DRR+9, DRR+10, DRR+15, DRR+16, DRR+19, DRR+25 , DRR+27, DRR+28, DRR+31, DRR+32, DRR+33, DRR+34, DRR+41, DRR+42, DRR+43, DRR+44 , MSCINS+7, MSCINS+11, MSCINS+14, MSCINS+15, IN2+3, IN2+4, IN2+5, IN2+12, IN2+16, IN2+17 , CRTNULL+1, CRTNULL+2, CRTNULL+3, CRTNULL+5, CRTNULL+6, CRTNULL+7
BADEEMPN	IN2+1~, IN2+9*, IN2+10
BADEEMPP	IN2+1~, IN2+7*, IN2+8, IN2+9, IN2+10
>> BADEPLCY	DTHIRD+6*
BADEPOLP	DMAID+39, DMAID+40, DTHIRD+1~, DTHIRD+3, DTHIRD+8*, DTHIRD+26, DTHIRD+47, DTHIRD+51, DTHIRD+58
BADEPPAT	IN2+1~
BHSCOV	INS+3~, MAIDX!
BHSCTYP	RR+4~, DRR+14*, DRR+43
BHSDTL	INS+3~, MAIDX!
BHSDTN	INS+3~, MAIDX!
BHSDTS	INS+3~, MAIDX!
BHSEDN	INS+3~, MAID+6, MAIDX!, BMAID+1, BMAID+2, BMAID+5, DMAID+2, MCARE+6, MCARE+7, MCARE+10 , MCARE+13, DMCARE+1, RR+3~, RR+8, RR+9, RR+11, RR+14, DRR+2
BHSI	INS+3~, MAID+3, MAID+4, MAID+5, MAIDX!, BMAID+3, BMAID+5, MCARE+8, MCARE+10, MCARE+11 , MCARE+12, THIRD+3~, THIRD+7, THIRD+8, THIRD+9, RR+3~, RR+10, RR+11, RR+12*, RR+13
BHSIDN	INS+3~, MAIDX!, THIRD+3~, THIRD+4, THIRD+5, THIRD+6, THIRD+9, DTHIRD+4, DTHIRD+5
BHSINS	INS+3~, MAIDX!, DMAID+14, DMAID+15, DMAID+16, DMCARE+15, DMCARE+16, DMCARE+17, DTHIRD+1~, DTHIRD+7* , DTHIRD+19, DTHIRD+20, DTHIRD+21, DRR+1~, DRR+17, DRR+18, DRR+19
BHSITB	INS+3~, MAID+1!, MCARE+5!, THIRD+3~, RR+3~
BHSITB(	MAID+3, MAID+4, MAID+5, BMAID+5, MCARE+10, MCARE+11, MCARE+12, THIRD+6, THIRD+7, THIRD+8 , THIRD+9, RR+11, RR+12, RR+13
BHSJ	INS+3~, MAID+4, MAID+5, MAIDX!, BMAID+4, BMAID+5, MCARE+9, MCARE+10, MCARE+12, THIRD+3~ , THIRD+8, THIRD+9, RR+3~, RR+10, RR+11, RR+13*
BHSN	INS+3~, MAIDX!, DMAID+10, DMAID+11, DMAID+31, DMAID+33, DMAID+45, DMAID+49, MCARE+3, MCARE+8 , DMCARE+8, DMCARE+11, DMCARE+12, DMCARE+37, DTHIRD+2~, DTHIRD+4, DTHIRD+6, DTHIRD+7, DTHIRD+8, DTHIRD+10 , DTHIRD+13, DTHIRD+40, RR+3~, RR+5, RR+10, DRR+11, DRR+12, DRR+43, MSCINS+8
BHSNM	INS+3~, MAIDX!, DMAID+2, DMAID+4, DMAID+21, DMAID+23, DMAID+44, DMCARE+1, DMCARE+2, DMCARE+4 , DMCARE+22, DMCARE+24, DMCARE+35, DMCARE+36, DMCARE+41!, RR+4~, DRR+2*, DRR+3, DRR+5, DRR+14 , DRR+24, DRR+26, DRR+33, DRR+41, DRR+42, DRR+43, DRR+48!
BHSP	INS+3~, MAID+5, MAID+6, MAIDX!, BMAID+2, BMAID+3, BMAID+4, MCARE+7, MCARE+8, MCARE+9 , MCARE+12, MCARE+13, THIRD+3~, THIRD+5, THIRD+6, RR+3~, RR+9, RR+10, RR+13*, RR+14
BHSPDN	INS+3~, MAID+2, MAID+6, MAIDX!, BMAID, BMAID+1, BMAID+2, BMAID+3, BMAID+5, DMAID+2 , DMAID+10, DMAID+25, DMAID+28, DMAID+32, DMAID+43, MCARE+13, DMCARE+1, DMCARE+11, RR+3~, RR+14 , DRR+2
BHSPFX	RR+4~, DRR+13*, DRR+43
BHSQ	INS+3~, MAIDX!, MCARE+11, RR+3~, RR+12
BHSUFF	INS+3~, MAIDX!, DMCARE+8*, RR+3~
BHSXDT	INS+3~, MAIDX!, DMAID+4, DMAID+5, DMAID+6, DMCARE+4, DMCARE+5, DMCARE+6, DMCARE+41!, DTHIRD+2~ , DTHIRD+10, DTHIRD+11, DTHIRD+12, DRR+1~, DRR+5, DRR+6, DRR+7, DRR+48!
CASENUM	IN2~, IN2+2*, IN2+5
CNT	INS+1~, INS+4, INS+6, DMAID+7, DMAID+9, DMCARE+7, DMCARE+10, DTHIRD+14, DTHIRD+16, DRR+8* , DRR+10, IN2+4
DEN	IN2+1~, IN2+13*, IN2+14
DENI	IN2+1~, IN2+14, IN2+15, IN2+16
DFN	MAID+2, DMAID+47, MCARE+2, MCARE+3, MCARE+4, MCARE+6, MCARE+7, MCARE+10, DMCARE+29, DMCARE+33 , DMCARE+39, THIRD+2, THIRD+4, THIRD+5, DTHIRD+4, DTHIRD+5, DTHIRD+61, RR+2, RR+5, RR+8 , RR+9, RR+11, DRR+11, DRR+13, DRR+28, DRR+29, DRR+34, DRR+45, IN2+18, CRTNULL+4 , CRTNULL+8, PTADDR~, PTADDR+3
DGNAME	INS+1~
>> ERR	DMAID+46, DMAID+47, DMCARE+38, DMCARE+39, DTHIRD+60, DTHIRD+61, DRR+44, DRR+45, IN2+17, IN2+18 , CRTNULL+3, CRTNULL+4, CRTNULL+7, CRTNULL+8
FLD	PTADDR+1~, PTADDR+4*, PTADDR+5
GRPIEN	DTHIRD+1~, DTHIRD+27*, DTHIRD+28, DTHIRD+29
>> HL1("Q"	PTADDR+2
>> HLECH	DMAID+28, DMAID+29, DMCARE+29, DMCARE+30, DTHIRD+37, DRR+29, DRR+30, MSCINS+6, MSCINS+9, MSCINS+10 , IN2+11
>> HLFS	PTADDR+4
HLQ	PTADDR+1~, PTADDR+2*
>> HLST	DMAID+46, DMCARE+38, DTHIRD+60, DRR+44, IN2+17, CRTNULL+3, CRTNULL+7
IN1	INS+1~, DMAID+46, DMCARE+38, DTHIRD+60, DRR+44, CRTNULL+3*
IN2	INS+1~, IN2+17, CRTNULL+7
INS	DMAID+1~, DMAID+18, DMCARE+19, DTHIRD+1~, DTHIRD+3, DTHIRD+23, DRR+21*, MSCINS+1, MSCINS+3, MSCINS+4 , MSCINS+5, MSCINS+12
INSARRAY	INS+1~
INSCO	DMAID+11, DMAID+12, DMAID+13, DMAID+14, DMAID+18, DMAID+49, DMCARE+12, DMCARE+13, DMCARE+14, DMCARE+15 , DMCARE+19, DMCARE+40, DTHIRD+2~, DTHIRD+13, DTHIRD+17, DTHIRD+18, DTHIRD+19, DTHIRD+23, DTHIRD+63, DRR+12 , DRR+15, DRR+16, DRR+17, DRR+21, DRR+47, IN2~, IN2+13
LP	DMAID+29, DMAID+30, DMCARE+30, DMCARE+31, DTHIRD+37, DTHIRD+38, DRR+30, DRR+31, MSCINS+2~, MSCINS+6* , MSCINS+7, MSCINS+10, MSCINS+11, IN2+11, IN2+12
MEMID	DTHIRD+2~, DTHIRD+5*, DTHIRD+53, DTHIRD+57
PHD	MSCINS+2~, MSCINS+8, MSCINS+9, MSCINS+10
PHONE	DMAID+1~, MSCINS+2~, MSCINS+12*, MSCINS+13, MSCINS+14
PID	PTADDR+1~, PTADDR+3*, PTADDR+4
POLICY	DMAID+1~, DMAID+33, DMAID+35, DMAID+36, DMAID+37, DMAID+38, DMAID+39, DMAID+41, DMAID+49, DTHIRD+2~ , DTHIRD+26*, DTHIRD+27, DTHIRD+31, DTHIRD+33, DTHIRD+36, DTHIRD+42, DTHIRD+45, DTHIRD+46, DTHIRD+48, DTHIRD+50 , DTHIRD+54, DTHIRD+63, IN2~, IN2+6, IN2+7
REL	GETREL+1~, GETREL+2, GETREL+5, GETREL+6, GETREL+7, GETREL+8*, GETREL+9
RIEN	GETREL~, GETREL+3, GETREL+4
ST	MSCINS+2~, MSCINS+3*, MSCINS+5
U	BMAID+3, BMAID+4, DMAID+4, DMAID+11, DMAID+21, DMAID+23, DMAID+31, DMAID+33, DMAID+37, DMAID+38 , DMAID+39, DMAID+41, DMAID+44, DMAID+45, DMAID+49, MCARE+8, MCARE+9, DMCARE+2, DMCARE+4, DMCARE+8 , DMCARE+12, DMCARE+22, DMCARE+24, DMCARE+35, DMCARE+36, DMCARE+37, THIRD+6, DTHIRD+5, DTHIRD+6, DTHIRD+7 , DTHIRD+8, DTHIRD+10, DTHIRD+27, DTHIRD+31, DTHIRD+33, DTHIRD+36, DTHIRD+40, DTHIRD+42, DTHIRD+45, DTHIRD+46 , DTHIRD+48, DTHIRD+50, DTHIRD+54, RR+10, DRR+3, DRR+5, DRR+12, DRR+14, DRR+24, DRR+26 , DRR+33, DRR+41, DRR+42, DRR+43, MSCINS+3, MSCINS+4, MSCINS+5, MSCINS+8, MSCINS+12, IN2+7 , IN2+9, IN2+13
VAL	DMAID+29, DMAID+30, DMCARE+30, DMCARE+31, DTHIRD+37, DTHIRD+38, DRR+30, DRR+31, MSCINS+2~, MSCINS+6* , MSCINS+7, MSCINS+10, MSCINS+11, IN2+11, IN2+12
X	DMAID+4, DMAID+21, DMAID+22, DMAID+23, DMAID+24, DMAID+25, DMAID+28, DMAID+29, DMCARE+2, DMCARE+4* , DMCARE+22, DMCARE+23, DMCARE+24, DMCARE+25, DMCARE+29, DMCARE+30, DTHIRD+2~, DTHIRD+10, DTHIRD+31, DTHIRD+32 , DTHIRD+33, DTHIRD+34, DTHIRD+36, DTHIRD+37, DTHIRD+42, DTHIRD+43, DRR+1~, DRR+3, DRR+5, DRR+24* , DRR+25, DRR+26, DRR+27, DRR+29, DRR+30, IN2+10*, IN2+11
Y	MAIDX!, GETREL+1~, GETREL+4*, GETREL+5, GETREL+6, GETREL+7
ZIP	MSCINS+2~, MSCINS+4*, MSCINS+5

Customize PDF page

Package: Electronic Dental Record

Routine: BADEHLI

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: