Routine: ABMER40A

Information

ABMER40A ; IHS/ASDST/DMJ - UB92 EMC RECORD 40 (Claim Data) cont'd ;

Source file <ABMER40A.m>

Package	Total	Call Graph
Third Party Billing	2	$$EX^ABMER20 ($$FMT,DFMT,SET)^ABMERUTL
VA Fileman	1	EN^DIQ1

Package	Total	Caller Graph
Third Party Billing	1	ABMER40

Name	Comments	DBIA/ICR reference
150	;Occurrence Date 4 (SOURCE: FILE=9002274.4051, FIELD=.02) ; form locator #35a
EX(ABMX,ABMY)
60	;Treatment Authorization Code-B (SOURCE: FILE=9002274.4, FIELD=) ; form locator #63b
130	;Occurrence Date 3 (SOURCE: FILE=9002274.4051, FIELD=.02) ; form locator #34a
110	;Occurrence Date 2 (SOURCE: FILE=9002274.4051, FIELD=.02) ; form locator #33a
80	;Occurrence Code 1 (SOURCE: FILE=9002274.4051, FIELD=.01) ; form locator #32a
170	;Occurrence Date 5 (SOURCE: FILE=9002274.4051, FIELD=.02) ; form locator #32b
20	;Sequence
40	;Type of Bill (SOURCE: FILE=9002274.4 FIELD=.02)
140	;Occurrence Code 4 (SOURCE: FILE=9002274.4051, FIELD=.01) ; form locator #35a
120	;Occurrence Code 3 (SOURCE: FILE=9002274.4051, FIELD=.01) ; form locator #34a
70	;Treatment Authorization Code-C (SOURCE: FILE=9002274.4, FIELD=) ; form locator #63c
90	;Occurrence Date 1 (SOURCE: FILE=9002274.4051, FIELD=.02) ; form locator #32a
100	;Occurrence Code 2 (SOURCE: FILE=9002274.4051 FIELD=.01) ; form locator #33a
160	;Occurrence Code 5 (SOURCE: FILE=9002274.4051, FIELD=.01) ; form locator #32b
10	;Record type
30	;Patient Control Number, (SOURCE: FILE=9000001.41,FIELD=.02)
50	;Treatment Authorization Code-A (SOURCE: FILE=9002274.4 FIELD=.58) ; form locator #63a
DIQ1	;PULL POLICY HOLDER DATA VIA DIQ1
GET57	;GET OCCURRENCE SPAN CODES
LOOP	;LOOP HERE
GET51	;GET OCCURANCE CODES

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	GET51+4, GET51+6, GET57+4, GET57+6
^ABMDCODE - [#9002274.03]	GET51+7, GET57+7
^ABMEXLM("AA"	LOOP+3

Name	Field # of Occurrence
^(	LOOP+3

Name	Field # of Occurrence
ABM	EX+13!
ABM(	40+3, 50+4, DIQ1+1
ABM(51	80+3, 90+3, 100+3, 110+3, 120+3, 130+3, 140+3, 150+3, 160+2, 170+3 , GET51+1, GET51+6, GET51+7, GET51+8, GET51+9
ABM(57	GET57+1, GET57+6, GET57+7, GET57+8*
ABME	EX+13!
ABME("FLD"	40+1, 50+2, DIQ1+1
ABME("S#"	LOOP+4, 20+1
>> ABMP("BDFN"	30+1, 40+3, 50+4, DIQ1+1, DIQ1+6, GET51+4, GET51+6, GET57+4, GET57+6, EX+7*
>> ABMP("EXP"	LOOP+3
>> ABMP("FMT"	EX+9, EX+12
>> ABMP("INS"	LOOP+3
>> ABMP("NOFMT"	LOOP+4, EX+9
>> ABMR(40	LOOP+4, 10+1, 20+1, 20+2, 30+1, 30+2, 40+3, 40+4, 50+4, 50+5* , 60+2, 60+3, 70+2, 70+3, 80+3, 80+4, 90+5, 90+6, 100+3, 100+4 , 110+5, 110+6, 120+3, 120+4, 130+5, 130+6, 140+3, 140+4, 150+5, 150+6 , 160+2, 160+3, 170+5, 170+6, EX+11, EX+13!
>> ABMREC(40	LOOP+4*
ABMX	EX~, EX+10, EX+11, EX+13!
ABMY	EX~, EX+7, EX+13!
ABMZ	EX+13!
>> CNT	GET51+3, GET51+5, GET51+6, GET51+7, GET51+8, GET57+3, GET57+5, GET57+6, GET57+7
>> DA	DIQ1+6*
>> DIC	DIQ1+5*
DIQ	DIQ1+3*, DIQ1+9!
DIQ(0	DIQ1+4*
>> DR	DIQ1+7*
DUZ(2	GET51+4, GET51+6, GET57+4, GET57+6
I	LOOP+1, LOOP+2, LOOP+3, LOOP+4, DIQ1+2~, GET51+2~, GET51+3, GET51+4, GET51+6, GET51+9 , GET57+2~, GET57+3, GET57+4, GET57+6, GET57+8*
U	80+3, 100+3, 120+3, 140+3, 160+2, GET51+7, GET51+8, GET57+7
>> Y	90+3, 90+5, 110+3, 110+5, 130+3, 130+5, 150+3, 150+5, 170+3, 170+5 , EX+11, EX+14