Routine: ABMEH20

Information

ABMEH20 ; IHS/ASDST/DMJ - HCFA-1500 EMC RECORD CA0 (Patient) ;

Source file <ABMEH20.m>

Package	Total	Call Graph
Third Party Billing	3	$$Y2KD2^ABMDUTL PNM^ABMER20A ($$FMT,S90,SET)^ABMERUTL
VA Fileman	1	EN^DIQ1

Package	Total	Caller Graph
Third Party Billing	3	ABMEF15 ABMEF19 ABMEF20

Name	Comments	DBIA/ICR reference
150	;151-159 Patient Zip
210	;174-181 Patient Date of Death
EX(ABMX,ABMY)	;EP - EXTRINSIC FUNCTION HERE
310	;238-320 Filler
190	;172-172 Patient Employment Status
60	;55-55 Patient MI
130	;129-148 Patient City
110	;69-98 Patient Address 1
80	;59-66 Patient DOB
230	;183-183 Claim Editing Indicator
250	;186-186 Legal Rep Indicator
170	;170-170 Patient Marital Status
20	;4-5 Filler
40	;23-42 Patient Last Name
180	;171-171 Patient Student Status
280	;213-227 Pay To Provider Number
200	;173-173 Patient Death Indicator
ADR	;GET PATIENT ADDRESS FROM FILE 2 ; I = 1 - Mailing Address - Street ; 2 - Street Address [line 2] ; 3 - Street Address [line 3] ; 4 - Mailing Address - City ; 5 - Mailing Address - State ; 6 - Mailing Address - Zip
140	;149-150 Patient State
300	;234-237 For Encounter Data Only
120	;99-128 Patient Address 2
START	;START HERE
260	;187-195 Origin Code
240	;184-185 Type of Claim Indicator
70	;56-58 Patient Generation
90	;67-67 Patient Sex
100	;68-68 Patient Type of Residence
160	;160-169 Patient Phone
220	;182-182 Other Insurance Indicator
10	;1-3 Record ID
270	;196-212 Payor Clm Control Number
30	;6-22 Patient Control Number
50	;43-54 Patient First Name
DIQ1	;PULL BILL DATA VIA DIQ1
290	;228-233 Claim ID Number
LOOP	;LOOP HERE

Name	Line Occurrences (* Changed, ! Killed)
^ABMEXLM("AA"	LOOP+3
^AUPNPAT - [#9000001]	190+1
^DIC(5 - [#5]	ADR+9
^DPT - [#2]	160+1, 160+2, 170+1, 190+2, 200+2, 210+1, ADR+8

Name	Field # of Occurrence
^(	LOOP+3

Name	Field # of Occurrence
ABM	START+6!
ABM(	DIQ1+1
ABME	START+6!
ABME("AD"	ADR+8*
ABME("AD1"	110+2
ABME("AD2"	120+1
ABME("AD4"	130+1
ABME("AD5"	140+1, ADR+9*
ABME("AD6"	150+1
ABME("DOB"	80+1
ABME("FLD"	DIQ1+1
ABME("PNM"	40+2, 50+1, 60+1
ABME("RTYPE"	START+2*
ABME("SEX"	90+1
>> ABMP("BDFN"	DIQ1+1, DIQ1+6, EX+7*
>> ABMP("EXP"	LOOP+3
>> ABMP("FMT"	EX+9, EX+13
>> ABMP("INS"	LOOP+3
>> ABMP("NOFMT"	LOOP+4, EX+9
>> ABMP("PCN"	30+1
>> ABMP("PDFN"	160+1, 160+2, 170+1, 190+1, 190+2, 200+2, 210+1, ADR+8
>> ABMP("SET"	START+3!
>> ABMP("SOP"	230+1
>> ABMR(20	START+1!, LOOP+4, 10+1, 20+1, 20+2, 30+1, 30+2, 40+2, 40+3, 50+1 , 50+2, 50+3, 60+1, 60+2, 60+3, 70+1, 70+2, 80+1, 90+1, 100+1 , 110+2, 110+3, 120+1, 120+2, 130+1, 130+2, 140+1, 140+2, 150+1, 150+2 , 160+1, 160+2, 160+3, 160+4, 170+1, 170+2, 170+3, 180+1, 190+1, 190+2 , 190+3, 200+1, 200+2, 210+1, 210+2, 210+3, 220+1, 230+1, 240+1, 250+1 , 260+1, 260+2, 270+1, 270+2, 280+1, 280+2, 290+1, 290+2, 300+1, 300+2 , 310+1, 310+2, EX+11, EX+12!
>> ABMREC(20	START+1!, LOOP+4*
ABMX	EX~, EX+10, EX+11, EX+12!
ABMY	EX~, EX+7, EX+12!
>> DA	DIQ1+6*
>> DIC	DIQ1+5*
DIQ	DIQ1+3*, DIQ1+9!
DIQ(0	DIQ1+4*
>> DR	DIQ1+7*
I	LOOP+1, LOOP+2, LOOP+3, LOOP+4, ADR+7~, ADR+8, DIQ1+2~
U	160+1, 200+2, 210+1
>> Y	EX+11*, EX+14