Routine: ABMER20

Information

ABMER20 ; IHS/ASDST/DMJ - UB92 EMC RECORD 20 (Patient) ;

Source file <ABMER20.m>

Package	Total	Call Graph
Third Party Billing	3	$$MDY^ABMDUTL ^ABMER20A ($$FMT,PCN,S90,SET)^ABMERUTL
VA Fileman	1	EN^DIQ1

Package	Total	Caller Graph
Third Party Billing	27	ABMDF11X ABMDF28X ABMDF51X ABME520A ABME540A ABME561 ABME570A ABME630A ABME650 ABME660 ABME661 ABME690 ABMEE61 ABMEF10 ABMER20A ABMER30A ABMER31 ABMER40A ABMER41A ABMER46 ABMER50 ABMER60 ABMER61 ABMER70A ABMER80 ABMER90 ABMER91
Local Area Programs	1	AZAXSND
Phoenix Devel Center	1	AZXDF11X

Name	Comments	DBIA/ICR reference
150	;EP - Patient's State (SOURCE: FILE=2, FIELD=.115) ; form locator #13
ADR	;GET PATIENT ADDRESS FROM FILE 2 ; I = 1 - Mailing Address - Street ; 2 - Street Address [line 2] ; 3 - Street Address [line 3] ; 4 - Mailing Address - City ; 5 - Mailing Address - State ; 6 - Mailing Address - Zip
210	;EP - Patient Status (SOURCE: FILE=9002274.4, FIELD=.53) ; form locator #22
140	;EP - Patient's City (SOURCE: FILE=2, FIELD=.114) ; form locator #13
200	;EP - Statement Covers Period Through (SOURCE: FILE=9002274.4, FIELD=.72) ; form locator #6
230	;EP - Patient Has Paid (SOURCE: FILE=9002274.4, FIELD=.99)
260	;EP - Filler
30	;EP -Patient Control Number ; form locator #3
190	;EP - Statement Covers Period From (SOURCE: FILE=9002274.4, FIELD=.71) ; form locator #6
DIQ1	;PULL BILL DATA VIA DIQ1
120	;EP - Patient Address - Line 1 (SOURCE: FILE=2, FIELD=.111) ; form locator #13
START	;START HERE
180	;EP - Admission Hour (SOURCE: FILE=9002274.4, FIELD=.62) ; form locator #18
130	;EP - Patient Address - Line 2 (SOURCE: FILE=2, FIELD=.112) ; form locator #13
240	;EP - Estimated Amount Due (SOURCE: FILE=, FIELD=)
250	;EP - Medical Record Number (SOURCE: FILE=9000001.41, FIELD=.02) ; form locator #23
220	;EP - Discharge Hour (SOURCE: FILE=9002274.4, FIELD=.64) ; form locator #21
160	;EP - Patient's Zip (SOURCE: FILE=2, FIELD=.116) ; form locator #13
EX(ABMX,ABMY)	;EP - EXTRINSIC FUNCTION HERE
LOOP	;LOOP HERE
170	;EP - Admission/Start of Care Date (SOURCE: FILE=9002274.4, FIELD=.71) ; form locator #17

Name	Line Occurrences (* Changed, ! Killed)
^ABMEXLM("AA"	LOOP+4
^AUPNPAT - [#9000001]	250+2
^DIC(5 - [#5]	ADR+9
^DPT - [#2]	ADR+8

Name	Field # of Occurrence
^(	LOOP+4

Name	Field # of Occurrence
ABM	START+7!
ABM(	170+4, 180+4, 190+4, 200+4, 210+4, 220+4, 230+3, 240+3, DIQ1+1
ABME	START+7!
ABME("AD"	ADR+8*
ABME("AD1"	120+2, 120+3
ABME("AD2"	130+2, 130+3
ABME("AD4"	140+2, 140+3
ABME("AD5"	150+2, 150+3, ADR+9*
ABME("AD6"	160+2, 160+3, 160+5*, 160+6
ABME("FLD"	170+2, 180+2, 190+2, 200+2, 210+2, 220+2, 230+1, 240+1, DIQ1+1
ABME("RTYPE"	START+2*
>> ABMP("BDFN"	170+4, 180+4, 190+4, 200+4, 210+4, 220+4, 230+3, 240+3, DIQ1+1, DIQ1+6 , EX+7*
>> ABMP("EXP"	LOOP+4, 250+5
>> ABMP("FMT"	EX+9, EX+13
>> ABMP("INS"	LOOP+4
>> ABMP("ITYPE"	210+7
>> ABMP("LDFN"	250+2
>> ABMP("NOFMT"	LOOP+5, 160+4, EX+9
>> ABMP("PCN"	30+3
>> ABMP("PDFN"	ADR+8, 250+2
>> ABMP("SET"	START+4!
>> ABMP("VTYP"	210+7
>> ABMR(20	START+1!, LOOP+5, 30+3, 120+3, 120+4, 130+3, 130+4, 140+3, 140+4, 150+3 , 150+4, 160+3, 160+6, 160+7, 170+4, 170+5, 170+6, 180+4, 180+5, 190+4 , 190+5, 190+6, 200+4, 200+5, 200+6, 210+4, 210+7, 210+8, 220+4, 220+5 , 230+3, 230+4, 240+3, 240+4, 250+2, 250+3, 250+5, 260+1, 260+2*, EX+11 , EX+12!
>> ABMRCID	250+5
>> ABMREC(20	START+1!, LOOP+5*
>> ABMRT(95	START+3*
ABMX	EX~, EX+10, EX+11, EX+12!
ABMY	EX~, EX+7, EX+12!
>> DA	DIQ1+6*
>> DIC	DIQ1+5*
DIQ	DIQ1+3*, DIQ1+9!
DIQ(0	DIQ1+4*
>> DR	DIQ1+7*
I	LOOP+2, LOOP+3, LOOP+4, LOOP+5, ADR+7~, ADR+8, DIQ1+2~
>> Y	EX+11*, EX+14