Routine: ABME540A

Information

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

Source file <ABME540A.m>

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

Package	Total	Caller Graph
Third Party Billing	1	ABME540

Name	Comments	DBIA/ICR reference
150	;Occurrence Date 4, 114-121 (SOURCE: FILE=9002274.4051, FIELD=.02) ; form locator #35a
EX(ABMX,ABMY)
60	;Treatment Authorization Code-B, 46-63 (SOURCE: FILE=9002274.4, FIELD=) ; form locator #63b
130	;Occurrence Date 3, 104-111 (SOURCE: FILE=9002274.4051, FIELD=.02) ; form locator #34a
110	;Occurrence Date 2, 94-101 (SOURCE: FILE=9002274.4051, FIELD=.02) ; form locator #33a
80	;Occurrence Code 1, 82-83 (SOURCE: FILE=9002274.4051, FIELD=.01) ; form locator #32a
170	;Occurrence Date 5, 124-131 (SOURCE: FILE=9002274.4051, FIELD=.02) ; form locator #32b
20	;Sequence, 3-4
40	;Type of Bill, 25-27 (SOURCE: FILE=9002274.4 FIELD=.02)
140	;Occurrence Code 4, 112-113 (SOURCE: FILE=9002274.4051, FIELD=.01) ; form locator #35a
120	;Occurrence Code 3, 102-103 (SOURCE: FILE=9002274.4051, FIELD=.01) ; form locator #34a
70	;Treatment Authorization Code-C, 64-81 (SOURCE: FILE=9002274.4, FIELD=) ; form locator #63c
90	;Occurrence Date 1, 84-91 (SOURCE: FILE=9002274.4051, FIELD=.02) ; form locator #32a
100	;Occurrence Code 2, 92-93 (SOURCE: FILE=9002274.4051 FIELD=.01) ; form locator #33a
160	;Occurrence Code 5, 122-123 (SOURCE: FILE=9002274.4051, FIELD=.01) ; form locator #32b
10	;Record type, 1-2
30	;Patient Control Number, 5-24 (SOURCE: FILE=9000001.41,FIELD=.02)
50	;Treatment Authorization Code-A, 28-45 (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+4, 90+5, 100+3, 100+4 , 110+4, 110+5, 120+3, 120+4, 130+4, 130+5, 140+3, 140+4, 150+4, 150+5 , 160+2, 160+3, 170+4, 170+5, 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+4, 110+3, 110+4, 130+3, 130+4, 150+3, 150+4, 170+3, 170+4 , EX+11, EX+14