Routine: ABME630A

Information

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

Source file <ABME630A.m>

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

Package	Total	Caller Graph
Third Party Billing	1	ABME630

Name	Comments	DBIA/ICR reference
10	;1-2, Record type
20	;3-4, Payor Priority
140	;140-140, Insured's Middle Initial ; form locator 58
150	;141-141, Insured's Sex
120	;111-130, Insured's Last Name ; form locator 58
EX(ABMX,ABMY,ABMZ)	;EXTRINSIC FUNTION HERE
30	;5-24, Patient Control Number
DIQ2	;POLICY HOLDER INFORMATION
50	;26-34, Receiver Identification
40	;25-25, Source Payment Code
DIQ1	;PULL BILL DATA VIA DIQ1
60	;35-53, Claim Certificate ID Number ; form locator 60 ; (previously set in ^ABMERINS)
130	;131-139, Insured's First Name ; form locator 58
110	;97-110, Group Name ; form locator 61
70	;54-55, Payer Identification Indicator
LOOP2	;LOOP HERE
80	;56-78, Payer Name ; form locator 50
100	;80-96, Group ID Number ; form locator 62
90	;79-79, Payer Code
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
^AUTNEGRP - [#9999999.77]	100+2
^AUTNINS - [#9999999.18]	50+1, 80+2

Name	Field # of Occurrence
ABM	EX+18!
ABM(	110+2, 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
ABME("INS"	50+1, 80+2, EX+10*, EX+11
ABME("ITYPE"	40+1, 80+3, 90+1, 110+3
ABME("PH"	110+2, 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
>> ABMR(30	LOOP2+4, 10+1, 20+1, 20+2, 30+1, 30+2, 40+1, 50+1, 50+2, 50+3* , 60+3, 60+4, 70+1, 80+2, 80+4, 80+5, 80+6, 90+1, 100+2, 100+3* , 110+2, 110+3, 110+4, 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	EX+11
I	LOOP2+1*, LOOP2+2, LOOP2+3, LOOP2+4, DIQ1+2~, DIQ2+3~, DIQ3+2~
U	80+2
>> Y	EX+11, EX+16, EX+19