Routine: ABMER30

Information

ABMER30 ; IHS/SD/SDR - UB92 EMC RECORD 30 (Third Party Payor) ;

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Third Party Billing	4	^ABMER30A ^ABMER31 ISET^ABMERINS ($$FMT,$$RCID,PAYED,S90,SET)^ABMERUTL
VA Fileman	1	EN^DIQ1

Package	Total	Caller Graph
Third Party Billing	9	ABMDF11X ABMDF11Y ABMDF28R ABMDF28X ABMDF51X ABMDF51Y ABMEF10 ABMEF13 ABMEF16
Local Area Programs	1	AZAXSND
Phoenix Devel Center	1	AZXDF11X

Entry Points

Name	Comments	DBIA/ICR reference
200	;EP - Covered Days (SOURCE: FILE=9002274.4, FIELD=.73) ; form locator #7
210	;EP - Non-Covered Days (SOURCE: FILE=9002274.4 FIELD=.66) ; form locator #8
230	;EP - Lifetime Reserve Days (SOURCE: FILE=9002274.4, FIELD=.68) ; form locator #10
DIQ2	;POLICY HOLDER INFORMATION
190	;EP - Employment Status Code (SOURCE: FILE=9000003.1, FIELD=.15)
DIQ1	;PULL BILL DATA VIA DIQ1
START	;START HERE
180	;EP - Patient's Relationship to Insured (SOURCE: FILE=, FIELD=) ; form locator #59
260	;EP - Estimated Third Party Amount Due (SOURCE: FILE= FIELD=) ; form locator #55
240	;EP - Provider I.D. Number ; form locator #51
DIQ3	;PATIENT IS INSURED
LOOP2	;LOOP HERE
250	;EP - Third Party Payments Received (SOURCE: FILE= FIELD=) ; form locator #54
220	;EP - Coinsurance Days (SOURCE: FILE=9002274.4, FIELD=.67) ; form locator #9
160	;EP - Release Code (SOURCE: FILE=9002274.4 FIELD=.74) ; form locator #52
EX(ABMX,ABMY,ABMZ)	;EXTRINSIC FUNCTION HERE
LOOP	;FIRST LOOP ; Loop thru INS priorities
170	;EP - Benefits Assigned Indicator (SOURCE: FILE=9002274.4, FIELD=.75) ; form locator #53

External References

Name	Field # of Occurrence
^ABMER30A	LOOP2+1
^ABMER31	LOOP+11
ISET^ABMERINS	LOOP+8, EX+13
$$FMT^ABMERUTL	160+5, 170+5, 180+5, 190+12, 200+5, 210+5, 220+5, 230+5, 240+9, 250+6 , 260+8
$$RCID^ABMERUTL	LOOP+13
PAYED^ABMERUTL	250+2, 260+2
S90^ABMERUTL	LOOP+10
SET^ABMERUTL	START+3, EX+9
EN^DIQ1	DIQ1+8, DIQ2+9, DIQ3+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPN3PPH - [#9000003.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	250+5, 260+5, 260+6, EX+11
^ABMEXLM("AA"	LOOP2+4
^ABMNINS(	180+2, 240+2, 240+3
^AUTNINS - [#9999999.18]	240+4, 240+5
^AUTTLOC - [#9999999.06]	240+7

Label References

Name	Line Occurrences
@(	LOOP2+3, LOOP2+4, EX+15
DIQ1	160+3, 170+3, 200+3, 210+3, 220+3, 230+3
DIQ2	190+9
DIQ3	190+4
LOOP	START+3
LOOP2	LOOP+9

Naked Globals

Name	Field # of Occurrence
^(	LOOP2+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	START+1!, START+4!, EX+18!
ABM(	160+4, 170+4, 190+10, 200+4, 210+4, 220+4, 230+4, DIQ1+1, DIQ2+2
ABM(9000001	190+5, DIQ3+1
ABME	START+1!, START+4!, EX+18!
ABME("FLD"	160+2, 170+2, 190+3, 190+8, 200+2, 210+2, 220+2, 230+2, DIQ1+1, DIQ2+2 , DIQ3+1
ABME("INS"	LOOP+4, LOOP+13, 240+2, 240+3, 240+4, 240+5, 250+3, 260+5, EX+10, EX+11
ABME("INSIEN"	LOOP+5*, 260+5
ABME("ITYPE"	240+6, 250+5
ABME("PH"	180+3, 180+4, 190+7, 190+10, DIQ2+1, DIQ2+2, DIQ2+7
ABME("PPP"	190+2, 190+5
ABME("REL"	180+4
ABME("RTYPE"	LOOP+6*
ABME("S#"	LOOP+2, LOOP+3, LOOP+4, LOOP+5, LOOP+13, LOOP2+5, EX+12
>> ABMP("BDFN"	160+4, 170+4, 200+4, 210+4, 220+4, 230+4, 250+5, 260+5, 260+6, DIQ1+1 , DIQ1+6, EX+8*, EX+11
>> ABMP("EXP"	LOOP2+4
>> ABMP("FMT"	EX+14, EX+17
>> ABMP("INS"	LOOP+3, LOOP+4, LOOP+5, LOOP2+4, 180+2, 260+5
>> ABMP("LDFN"	180+2, 240+2, 240+5, 240+7
>> ABMP("NOFMT"	LOOP2+5, EX+14
>> ABMP("PAYED"	START+1!, 250+2, 250+3, 260+2
>> ABMP("PDFN"	DIQ3+1, DIQ3+6
>> ABMP("SET"	START+2!
>> ABMP("VTYP"	180+2, 240+2, 240+3, 240+4
>> ABMPBAL	260+7*
>> ABMR(30	LOOP+7!, LOOP2+5, 160+4, 160+5, 170+4, 170+5, 180+3, 180+4, 180+5, 190+1 , 190+5, 190+7, 190+10, 190+12, 200+4, 200+5, 210+4, 210+5, 220+4, 220+5* , 230+4, 230+5, 240+2, 240+3, 240+4, 240+5, 240+7, 240+8, 240+9, 250+3 , 250+5, 250+6, 260+3, 260+6, 260+7, 260+8*, EX+16, EX+18!
>> ABMR(31	LOOP+7!
>> ABMREC(30	START+1!, LOOP2+5*
>> ABMREC(31	START+1!
>> ABMRELC	180+2*, 180+3
ABMX	EX~, EX+15, EX+16, EX+18!
ABMY	EX~, EX+8, EX+18!
ABMZ	EX~, EX+10, EX+18!
>> 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	240+3, 250+5, 260+5, 260+6, EX+11
I	LOOP2+2*, LOOP2+3, LOOP2+4, LOOP2+5, DIQ1+2~, DIQ2+3~, DIQ3+2~
U	180+2, 260+6
>> Y	EX+11, EX+16, EX+19

Customize PDF page

Package: Third Party Billing

Routine: ABMER30

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 11

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: