Routine: ABMEH32

Information

ABMEH32 ; IHS/ASDST/DMJ - HCFA-1500 EMC RECORD DA2 (Insurance Information) ;

Source Information

Source file <ABMEH32.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Third Party Billing	3	(DIQ1,DIQ2,DIQ3,DIQ4)^ABMER31A ISET^ABMERINS ($$FMT,S90,SET)^ABMERUTL

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Third Party Billing	1	ABMEH30

Entry Points

Name	Comments	DBIA/ICR reference
150	;233-252 Employer City
190	;276-300 Filler (National)
60	;83-102 Insured's City
130	;173-202 Employer Address 1
110	;132-139 Insured Retire Date
80	;103-113 Insured's Zip
170	;255-263 Employer Zip
20	;4-5 Sequence #
40	;23-52 Insured's Address Line 1
180	;264-275 Employee ID #
200	;301-320 Filler (Local)
140	;203-232 Employer Address 2
120	;140-172 Employer Name
START	;START HERE
70	;103-104 Insured's State
90	;114-123 Insured Phone
100	;124-131 Insured Retire Date
160	;253-254 Employer State
10	;1-3 Record ID
30	;6-22 Patient Control Number
50	;53-82 Insured's Address Line 2
EX(ABMX,ABMY,ABMZ)	;EXTRINSIC FUNCTION HERE
LOOP	;LOOP HERE

External References

Name	Field # of Occurrence
DIQ1^ABMER31A	40+8, 60+8, 70+9, 80+8, 120+8
DIQ2^ABMER31A	130+8, 150+8, 160+7, 170+8
DIQ3^ABMER31A	120+4, 130+4, 150+4, 160+3, 170+4
DIQ4^ABMER31A	40+4, 50+4, 60+4, 70+5, 80+4
ISET^ABMERINS	EX+12
$$FMT^ABMERUTL	20+2, 30+2, 40+10, 50+6, 60+10, 70+12, 80+11, 90+2, 100+2, 110+2 , 120+10, 130+10, 140+2, 150+10, 160+10, 170+10, 180+2, 190+2, 200+2
S90^ABMERUTL	START+4
SET^ABMERUTL	START+3, EX+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	EX+11
^ABMEXLM("AA"	LOOP+3
^DIC(5 - [#5]	70+11, 160+9

Label References

Name	Line Occurrences
@(	LOOP+2, LOOP+3, EX+14
LOOP	START+3

Naked Globals

Name	Field # of Occurrence
^(	LOOP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	EX+17!
ABM(	40+9, 60+9, 70+10, 80+9, 120+5, 120+9, 130+5, 130+9, 150+5, 150+9 , 160+4, 160+8, 170+5, 170+9
ABM(2	40+5, 50+5, 60+5, 70+6, 80+5
ABME	EX+17!
ABME("EMP"	130+9, 150+9, 160+8, 170+9
ABME("ESTATE"	160+4, 160+5, 160+8, 160+9
ABME("FLD"	40+3, 40+7, 50+3, 60+3, 60+7, 70+4, 70+8, 80+3, 80+7, 120+3 , 120+7, 130+3, 130+7, 150+3, 150+7, 160+2, 160+6, 170+3, 170+7*
ABME("INS"	EX+10*, EX+11
ABME("ISTATE"	70+2, 70+6, 70+7, 70+10*, 70+11
ABME("PH"	40+6, 40+9, 60+6, 60+9, 70+7, 70+10, 80+6, 80+9, 120+6, 120+9 , 130+6, 150+6, 160+5, 170+6
ABME("PPP"	40+2, 40+5, 50+2, 50+5, 60+2, 60+5, 70+3, 70+6, 80+2, 80+5 , 120+2, 130+2, 150+2, 160+1, 170+2
ABME("RTYPE"	START+2*
ABME("S#"	START+1, LOOP+4, 20+1
>> ABMP("BDFN"	EX+8*, EX+11
>> ABMP("EXP"	LOOP+3
>> ABMP("FMT"	EX+13, EX+16
>> ABMP("INS"	LOOP+3
>> ABMP("NOFMT"	LOOP+4, EX+13
>> ABMP("PCN"	30+1
>> ABMR(32	START+1!, LOOP+4, 10+1, 20+1, 20+2, 30+1, 30+2, 40+1, 40+5, 40+6 , 40+9, 40+10, 50+1, 50+5, 50+6, 60+1, 60+5, 60+6, 60+9, 60+10 , 70+1, 70+11, 70+12, 80+1, 80+5, 80+6, 80+9, 80+10, 80+11, 90+1* , 90+2, 100+1, 100+2, 110+1, 110+2, 120+1, 120+5, 120+6, 120+9, 120+10* , 130+1, 130+5, 130+6, 130+9, 130+10, 140+1, 140+2, 150+1, 150+5, 150+6 , 150+9, 150+10, 160+9, 160+10, 170+1, 170+5, 170+6, 170+9, 170+10, 180+1* , 180+2, 190+1, 190+2, 200+1, 200+2*, EX+15, EX+17!
>> ABMREC(32	START+1!, LOOP+4*
ABMX	EX~, EX+14, EX+15, EX+17!
ABMY	EX~, EX+8, EX+17!
ABMZ	EX~, EX+10, EX+17!
>> DA	120+5, 130+5, 150+5, 160+4, 170+5
DUZ(2	EX+11
>> I	LOOP+1*, LOOP+2, LOOP+3, LOOP+4
>> Y	EX+11, EX+15, EX+18

Customize PDF page

Package: Third Party Billing

Routine: ABMEH32

Call Graph Total: 3

Caller Graph Total: 1