Routine: ABMER30A

Information

ABMER30A ; IHS/ASDST/DMJ - UB92 EMC RECORD 30 (Third Party Payor) cont'd ;

Source file <ABMER30A.m>

Package	Total	Call Graph
Third Party Billing	5	$$ENVOY^ABMEF16 $$EX^ABMER20 $$EX^ABMER20A ISET^ABMERINS ($$ENVY,$$FMT,$$RCID,SET)^ABMERUTL
VA Fileman	1	EN^DIQ1

Package	Total	Caller Graph
Third Party Billing	1	ABMER30

Name	Comments	DBIA/ICR reference
10	;Record type
20	;Payor Priority (SOURCE: FILE=9002274.4013, FIELD=.02)
140	;Insured's Middle Initial (SOURCE: FILE=, FIELD=) ; form locator 58
150	;Insured's Sex (SOURCE: FILE=, FIELD=)
120	;Insured's Last Name (SOURCE: FILE=, FIELD=) ; form locator 58
EX(ABMX,ABMY,ABMZ)	;EXTRINSIC FUNTION HERE
30	;Patient Control Number, (SOURCE: FILE=9000001.41,FIELD=.02)
DIQ2	;POLICY HOLDER INFORMATION
50	;Receiver Identification (SOURCE: FILE=9999999.18, FIELD=.08)
40	;Source Payment Code (SOURCE: FILE=9999999.18, FIELD=.21)
DIQ1	;PULL BILL DATA VIA DIQ1
60	;Receiver Sub Identification (SOURCE: FILE=, FIELD=) ; form locator 51
130	;Insured's First Name (SOURCE: FILE=, FIELD=) ; form locator 58
110	;Group Name (SOURCE: FILE=9999999.77, FIELD=.01) ; form locator 61
70	;Claim Certificate ID Number (SOURCE: FILE=, FIELD=) ; form locator 60 ; (previously set in ^ABMERINS)
LOOP2	;LOOP HERE
80	;Insurance Company Name (SOURCE: FILE=9999999.18, FIELD=.01) ; form locator 50
100	;Group ID Number (SOURCE: FILE=9999999.77, FIELD=.02) ; form locator 62
90	;Payer Code (SOURCE: FILE=, FIELD=)
DIQ3	;PATIENT IS INSURED

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^AUPN3PPH - [#9000003.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	EX+11
^ABMEXLM("AA"	LOOP2+3
^ABMNINS(	110+2
^AUTNEGRP - [#9999999.77]	100+2, 110+6
^AUTNINS - [#9999999.18]	80+2

Name	Line Occurrences
@(	LOOP2+2, LOOP2+3, EX+15

Name	Field # of Occurrence
^(	LOOP2+3

Name	Field # of Occurrence
ABM	EX+18!
ABM(	110+4, DIQ1+1, DIQ2+2
ABM(2	DIQ3+1
ABME	EX+18!
ABME("BCBS"	40+1, 90+1
ABME("FLD"	DIQ1+1, DIQ2+2, DIQ3+1
ABME("GRP"	100+2, 110+6
ABME("INS"	50+1, 50+2, 80+2, 110+2, EX+10*, EX+11
ABME("ITYPE"	40+1, 80+3, 80+7, 90+1, 110+5, 110+6
ABME("PH"	110+4, DIQ2+1, DIQ2+2, DIQ2+7
ABME("PHNM"	120+2, 130+2, 140+2
ABME("PHSEX"	150+1
ABME("S#"	LOOP2+4, 20+1, EX+12*
>> ABMP("BDFN"	30+1, 150+2, DIQ1+1, DIQ1+6, EX+8*, EX+11
>> ABMP("EXP"	LOOP2+3
>> ABMP("FMT"	EX+14, EX+17
>> ABMP("INS"	LOOP2+3
>> ABMP("NOFMT"	LOOP2+4, EX+14
>> ABMP("PDFN"	DIQ3+1, DIQ3+6
>> ABMP("PNAME"	80+7
>> ABMP("VTYP"	110+2
>> ABMR(30	LOOP2+4, 10+1, 20+1, 20+2, 30+1, 30+2, 40+1, 50+1, 50+2, 50+3* , 60+2, 60+3, 70+3, 70+4, 80+2, 80+4, 80+5, 80+6, 80+7, 80+8 , 90+1, 100+2, 100+3, 110+2, 110+3, 110+4, 110+5, 110+6, 110+7, 120+2* , 120+3, 130+2, 130+3, 140+2, 140+3, 140+4, 140+5, 150+1, 150+2, 150+3 , EX+16, EX+18!
>> ABMREC(30	LOOP2+4*
ABMX	EX~, EX+15, EX+16, EX+18!
ABMY	EX~, EX+8, EX+18!
ABMZ	EX~, EX+10
>> DA	DIQ1+6, DIQ2+7, DIQ3+6*
>> DIC	DIQ1+5, DIQ2+6, DIQ3+5*
DIQ	DIQ1+3, DIQ1+9!, DIQ2+4, DIQ2+10!, DIQ3+3*, DIQ3+9!
DIQ(0	DIQ1+4, DIQ2+5, DIQ3+4*
>> DR	DIQ1+7, DIQ2+8, DIQ3+7*
DUZ(2	110+2, EX+11
I	LOOP2+1*, LOOP2+2, LOOP2+3, LOOP2+4, DIQ1+2~, DIQ2+3~, DIQ3+2~
U	80+2, 110+2, 110+6
>> Y	EX+11, EX+16, EX+19