Routine: ABMER41A

Information

ABMER41A ; IHS/ASDST/DMJ - UB92 EMC RECORD 41 (Claim Data Condition-Value) cont'd ;

Source file <ABMER41A.m>

Package	Total	Call Graph
Third Party Billing	2	$$EX^ABMER20 ($$FMT,SET)^ABMERUTL

Package	Total	Caller Graph
Third Party Billing	1	ABMER41

Name	Comments	DBIA/ICR reference
150	;Form Locator 31 (Lower) (SOURCE: FILE= FIELD=)
210	;Condition Code - 11 (SOURCE: FILE=9002274.4053, FIELD=.01)
EX(ABMX,ABMY)
190	;Value Amount - 2 (SOURCE: FILE=9002274.4055, FIELD=.02) ; form locator #40a
60	;Condition Code - 3 (SOURCE: FILE=9002274.4053, FIELD=.01) ; form locator #26
130	;Condition Code - 10 (SOURCE: FILE=9002274.4053, FIELD=.01)
110	;Condition Code - 8 (SOURCE: FILE=9002274.4053, FIELD=.01)
80	;Condition Code - 5 (SOURCE: FILE=9002274.4053, FIELD=.01) ; form locator #28
170	;Value Amount - 1 (SOURCE: FILE=9002274.4055, FIELD=.02) ; form locator #39a
20	;Sequence
40	;Condition Code - 1 (SOURCE: FILE=9002274.4053 FIELD=.01) ; form locator #24
180	;Value Code - 2 (SOURCE: FIlE=9002274.4055, FIELD=.01) ; form locator #40a
200	;Value Code - 3 (SOURCE: FILE=9002274.4055, FIELD=.01) D GET55 ; form locator #40a
140	;Form Locator 31 (Upper) (SOURCE: FILE=, FIELD=)
120	;Condition Code - 9 (SOURCE: FILE=9002274.4053, FIELD=.01)
70	;Condition Code - 4 (SOURCE: FILE=9002274.4053, FIELD=.01) ; form locator #27
90	;Condition Code - 6 (SOURCE: FILE=9002274.4053, FIELD=.01) ; form locator #29
100	;Condition Code - 7 (SOURCE: FILE=9002274.4053, FIELD=.01) ; form locator #30
160	;Value Code - 1 (SOURCE: FILE=9002274.4055, FIELD=.01) ; form locator #39a
10	;Record type
30	;Patient Control Number, (SOURCE: FILE=9000001.41,FIELD=.02)
50	;Condition Code - 2 (SOURCE: FILE=9002274.4053 FIELD=.01) ; form locator #25
GET55	;GET VALUE CODES
GET53	;GET CONDITION CODES
LOOP	;LOOP HERE

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

Name	Field # of Occurrence
^(	LOOP+3

Name	Field # of Occurrence
>> ABM("9SP"	170+4, 190+4
>> ABM(53	40+3, 50+3, 60+3, 70+3, 80+3, 90+3, 100+2, 110+2, 120+2, 130+2 , 210+2, GET53+6, GET53+7, GET53+8, GET53+9
>> ABM(55	160+3, 170+3, 180+3, 190+3, 200+3, GET53+1, GET55+1, GET55+6, GET55+7, GET55+8*
>> ABME("S#"	LOOP+4, 20+1
>> ABMP("BDFN"	30+1, GET53+4, GET53+6, GET55+4, GET55+6, EX+7*
>> ABMP("EXP"	LOOP+3
>> ABMP("FMT"	EX+9, EX+12
>> ABMP("INS"	LOOP+3
>> ABMP("NOFMT"	LOOP+4, EX+9
>> ABMR(41	LOOP+4, 10+1, 20+1, 20+2, 30+1, 30+2, 40+3, 40+4, 50+3, 50+4* , 60+3, 60+4, 70+3, 70+4, 80+3, 80+4, 90+3, 90+4, 100+2, 100+3 , 110+2, 110+3, 120+2, 120+3, 130+2, 130+3, 140+1, 140+2, 150+1, 150+2 , 160+3, 160+4, 170+3, 170+4, 170+5, 180+3, 180+4, 190+3, 190+4, 190+5 , 200+3, 200+4, 210+2, 210+3, EX+11, EX+13!
>> ABMREC(41	LOOP+4*
ABMX	EX~, EX+10, EX+11, EX+13!
ABMY	EX~, EX+7, EX+13!
ABMZ	EX+13!
>> CNT	GET53+3, GET53+5, GET53+6, GET53+7, GET53+8, GET55+3, GET55+5, GET55+6, GET55+7
DUZ(2	GET53+4, GET53+6, GET55+4, GET55+6
I	LOOP+1, LOOP+2, LOOP+3, LOOP+4, GET53+2~, GET53+3, GET53+4, GET53+6, GET53+9, GET55+2~ , GET55+3, GET55+4, GET55+6, GET55+8*
U	160+3, 180+3, 200+3, GET53+7, GET55+7
>> Y	EX+11*, EX+14