Routine: ABMER50

Information

ABMER50 ; IHS/ASDST/DMJ - UB92 EMC RECORD 50 (INPATIENT ACCOMMODATIONS) ;

Source Information

Source file <ABMER50.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Third Party Billing	3	FRATE^ABMDF11 $$EX^ABMER20 ($$FMT,$$RCID,S90,SET)^ABMERUTL

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Third Party Billing	3	ABMEF10 ABMEF13 ABMEF16
Local Area Programs	1	AZAXSND

Entry Points

Name	Comments	DBIA/ICR reference
EX(ABMX,ABMY)	;EXTRINSIC FUNCTION HERE
60	;Accommodation Days 1 (SOURCE: FILE=9002274.4025, FIELD=.02)
130	;Accommodations Revenue Code 4 (SOURCE: FILE=9002274.4025)
110	;Accommodations Revenue Code 2 (SOURCE: FILE=9002274.4025)
80	;Accommodations Non-Covered Charges 1 (SOURCE: FILE= FIELD=)
20	;Sequence
GET25	;GET INFO FOR ROOM AND BOARD CHARGES
40	;Accommodations Revenue Code 1 (SOURCE: FILE=9002274.4025 FIELD=.01)
120	;Accommodations Revenue Code 3 (SOURCE: FILE=9002274.25)
START	;START HERE
70	;Accommodation Total Charges 1 (SOURCE: FILE=9002274.4025, FIELD=.03)
90	;Form Locator 49 1 (SOURCE: FILE= FIELD=)
100	;Filler (National Use)
10	;Record type
30	;Patient Control Number, (SOURCE: FILE=9000001.41,FIELD=.02)
50	;Accommodations Rate 1 (SOURCE: FILE=9002274.0131, FIELD=.02)
1106	;Form Locator 49
1107	;Filler
1104	;Total Charges
1105	;Non-Covered Charges
1102	;Rate
1103	;Days
1101	;Revenue Code
LOOP	;LOOP HERE

External References

Name	Field # of Occurrence
FRATE^ABMDF11	GET25+2
$$EX^ABMER20	30+1
$$FMT^ABMERUTL	20+2, 30+2, 40+2, 50+2, 60+2, 70+2, 80+2, 90+2, 100+2, 1101+2 , 1102+2, 1103+2, 1104+2, 1105+3, 1106+2, 1107+2
$$RCID^ABMERUTL	GET25+23
S90^ABMERUTL	START+5
SET^ABMERUTL	START+3, EX+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	GET25+5, GET25+7, GET25+18
^ABMEXLM("AA"	LOOP+3

Label References

Name	Line Occurrences
@(	LOOP+2, LOOP+3, 110+3, 120+3, 130+3, EX+4
GET25	40+1, 50+1, 60+1, 70+1, 80+1, 110+1, 120+1, 130+1
LOOP	START+4

Naked Globals

Name	Field # of Occurrence
^(	LOOP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	START+6!, EX+7!
ABM("NCDAYS"	GET25+18*, GET25+19
ABM("RC#"	110+2, 120+2, 130+2*, 1101+1, 1102+1, 1103+1, 1104+1, 1105+2
ABM("T2"	GET25+3, GET25+9, GET25+14*, GET25+24
ABM("T4"	GET25+3, GET25+9, GET25+14*, GET25+15, GET25+16, GET25+17, GET25+24
ABM(25	40+1, 50+1, 60+1, 70+1, 1101+1, 1102+1, 1103+1, 1104+1, 1105+2, GET25+1 , GET25+7, GET25+8, GET25+9, GET25+13, GET25+14, GET25+19, GET25+24, GET25+25*
ABME	EX+7!
ABME("RTYPE"	START+2*
ABME("S#"	START+4*, LOOP+4, 20+1
>> ABMP("BDFN"	30+1, GET25+5, GET25+7, GET25+18, EX+2*
>> ABMP("EXP"	LOOP+3
>> ABMP("FLAT"	GET25+2!, GET25+4, GET25+10, GET25+11, GET25+13
>> ABMP("FMT"	EX+3, EX+6
>> ABMP("INS"	LOOP+3, GET25+23
>> ABMP("NOFMT"	LOOP+4, EX+3
>> ABMR(50	START+1!, LOOP+4, 10+1, 20+1, 20+2, 30+1, 30+2, 40+1, 40+2, 50+1 , 50+2, 60+1, 60+2, 70+1, 70+2, 80+2, 90+1, 90+2, 100+1, 100+2 , 110+3, 120+3, 130+3, 1101+1, 1101+2, 1102+1, 1102+2, 1103+1, 1103+2, 1104+1 , 1104+2, 1105+1, 1105+2, 1105+3, 1106+1, 1106+2, 1107+1, 1107+2, GET25+18, GET25+19 , GET25+20, GET25+21, GET25+22, EX+5, EX+7!
>> ABMREC(50	START+1!, LOOP+4*
>> ABMRT(90	GET25+15, GET25+20
>> ABMRT(95	GET25+16, GET25+21
>> ABMRT(99	GET25+17, GET25+22
ABMX	EX~, EX+4, EX+5, EX+7!
ABMY	EX~, EX+2, EX+7!
ABMZ	EX+7!
>> CNT	GET25+5, GET25+6, GET25+7, GET25+8, GET25+9, GET25+12, GET25+24
DUZ(2	GET25+5, GET25+7, GET25+18
I	LOOP+1, LOOP+2, LOOP+3, LOOP+4, 110+3~, 120+3~, 130+3~, 1101+1, 1101+2, 1102+1 , 1102+2, 1103+1, 1103+2, 1104+1, 1104+2, 1105+1, 1105+2, 1105+3, 1106+1, 1106+2 , 1107+1, 1107+2, GET25+2~, GET25+5~, GET25+7, GET25+25
U	40+1, 1101+1, 1105+2, GET25+13
>> Y	EX+5*, EX+8

Customize PDF page

Package: Third Party Billing

Routine: ABMER50

Call Graph Total: 3

Caller Graph Total: 4