Routine: ABME520

Information

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

Source Information

Source file <ABME520.m>

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Third Party Billing	3	ABMEF13 ABMEF16 ABMEF17

Entry Points

Name	Comments	DBIA/ICR reference
150	;EP - Patient's State, 112-113 (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, 149-150 (SOURCE: FILE=9002274.4, FIELD=.53) ; form locator #22
140	;EP - Patient's City, 97-111 (SOURCE: FILE=2, FIELD=.114) ; form locator #13
200	;EP - Statement Covers Period Through, 141-148 (SOURCE: FILE=9002274.4, FIELD=.72) ; form locator #6
230	;EP - Payments Received (Patient line), 153-162 (SOURCE: FILE=9002274.4, FIELD=.99)
260	;EP - Filler (National Use), 190-192
30	;EP - Patient Control Number (SOURCE: FILE=9000001.41, FIELD=.02) ; form locator #3
190	;EP - Statement Covers Period From, 133-140 (SOURCE: FILE=9002274.4, FIELD=.71) ; form locator #6
DIQ1	;PULL BILL DATA VIA DIQ1
120	;EP - Patient Address - Line 1, 67-84 (SOURCE: FILE=2, FIELD=.111) ; form locator #13
START	;START HERE
180	;EP - Admission Hour, 131-132 (SOURCE: FILE=9002274.4, FIELD=.62) ; form locator #18
130	;EP - Patient Address - Line 2, 85-96 (SOURCE: FILE=2, FIELD=.112) ; form locator #13
240	;EP - Estimated Amount Due (Patient line), 163-172 (SOURCE: FILE=, FIELD=)
250	;EP - Medical Record Number, 172-189 (SOURCE: FILE=9000001.41, FIELD=.02) ; form locator #23
220	;EP - Discharge Hour, 151-152 (SOURCE: FILE=9002274.4, FIELD=.64) ; form locator #21
160	;EP - Patient's Zip,114-122 (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, 123-130 (SOURCE: FILE=9002274.4, FIELD=.71) ; form locator #17

External References

Name	Field # of Occurrence
$$Y2KD2^ABMDUTL	170+5, 190+5, 200+5
^ABME520A	LOOP+1
$$FMT^ABMERUTL	30+9, 120+4, 130+4, 140+4, 160+7, 170+6, 180+5, 190+6, 200+6, 210+8 , 220+5, 230+4, 240+4, 250+3, 250+4, 260+2
S90^ABMERUTL	START+6
SET^ABMERUTL	START+5, EX+8
EN^DIQ1	DIQ1+8

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
250	30+6
@(	LOOP+3, LOOP+4, EX+10
ADR	120+2, 130+2, 140+2, 150+2, 160+2
DIQ1	170+3, 180+3, 190+3, 200+3, 210+3, 220+3, 230+2, 240+2
LOOP	START+5

Naked Globals

Name	Field # of Occurrence
^(	LOOP+4
^(2	30+3

Local Variables

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"	30+2, 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
>> 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("PDFN"	ADR+8, 250+2
>> ABMP("SET"	START+4!
>> ABMR(20	START+1!, LOOP+5, 30+2, 30+3, 30+7, 30+9, 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+4 , 260+1, 260+2, EX+11, EX+12!
>> ABMRCID	250+4
>> 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*
DUZ(2	30+2, 30+3, 30+5
I	LOOP+2, LOOP+3, LOOP+4, LOOP+5, ADR+7~, ADR+8, DIQ1+2~
U	30+2
>> Y	EX+11*, EX+14

Customize PDF page

Package: Third Party Billing

Routine: ABME520

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed