Routine: ABMER80

Information

ABMER80 ; IHS/ASDST/DMJ - UB92 EMC RECORD 80 (PHYSICIAN DATA) ;

Source Information

Source file <ABMER80.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Third Party Billing	4	$$ENVOY^ABMEF16 $$REPLNOT^ABMER10 $$EX^ABMER20 ($$FMT,$$RCID,$$SLN,S90,SET)^ABMERUTL
VA Fileman	1	EN^DIQ1

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Third Party Billing	5	ABMEF10 ABMEF13 ABMEF16 ABMEF17 ABMEH10
Local Area Programs	1	AZAXSND

Entry Points

Name	Comments	DBIA/ICR reference
10	;Record type
20	;Sequence
GP	;GIVEN DA GET PROVIDER NAME AND NUMBER
120	;Other Physician Name 2 (SOURCE: FILE=9002274.4017, FIELD=.01)
EX(ABMX,ABMY)	;EXTRINSIC FUNCTION HERE
30	;Patient Control Number, (SOURCE: FILE=9000001.41,FIELD=.02)
50	;Attending Physician Number (SOURCE: FILE=9002274.4041, FIELD=)
40	;Physician Number Qualifying Codes (SOURCE: FILE=9002274.4041 FIELD=)
DIQ1	;GET PROVIDER INFO
60	;Operating or Other Physician Number (SOURCE: FILE=9002274.4041, FIELD=)
START	;START HERE
130	;Filler
110	;Other Physician Name 1 (SOURCE: FILE=9002274.4017, FIELD=.01)
70	;Other Physician Number 1 (SOURCE: FILE=9002274.4041, FIELD=)
90	;Attending Physician Name (SOURCE: FILE=9002274.4041, FIELD=)
80	;Other Physician Number 2 (SOURCE: FILE=9002274.4041, FIELD=)
GET41	;EP - get provider information
100	;Operating or Other Physician Name (SOURCE: FILE=9002274.4041, FIELD=)
LOOP	;LOOP HERE

External References

Name	Field # of Occurrence
$$ENVOY^ABMEF16	50+3
$$REPLNOT^ABMER10	50+4
$$EX^ABMER20	30+1
$$FMT^ABMERUTL	20+3, 30+2, 40+2, 50+5, 60+3, 70+3, 80+3, 90+2, 100+2, 110+2 , 120+2, 130+2
$$RCID^ABMERUTL	START+7, START+9, 20+2, 50+2, 60+2, 70+2, 80+2
$$SLN^ABMERUTL	GP+16
S90^ABMERUTL	START+12
SET^ABMERUTL	START+3
EN^DIQ1	DIQ1+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	GET41+3, GET41+6, GET41+8, GET41+9
^ABMEXLM("AA"	LOOP+3
^AUTTLOC - [#9999999.06]	GP+14, GP+15
^VA(200 - [#200]	GP+7

Label References

Name	Line Occurrences
@(	LOOP+2, LOOP+3, EX+3
DIQ1	GP+1
GET41	50+1, 60+1, 70+1, 80+1, 90+1, 100+1, 110+1, 120+1
GP	GET41+4, GET41+7, GET41+10
LOOP	START+11

Naked Globals

Name	Field # of Occurrence
^(	LOOP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	START+13!, EX+6!
ABM("FNAME"	GP+3, GP+5, GP+17
ABM("LNAME"	GP+2, GP+3, GP+4*, GP+17
ABM("LSTATE"	GP+14, GP+15, GP+16
ABM("MI"	GP+6*, GP+17
ABM("P#"	GP+7, GP+8, GP+9, GP+11, GP+12, GP+16*, GP+17
ABM(200	GP+2, GP+6, GP+9, GP+11, DIQ1+2*
ABM(41	50+1, 60+1, 70+1, 80+1, 90+1, 100+1, 110+1, 120+1, GET41+1, GET41+3* , GET41+11, GP+17
ABME	START+13!, EX+6!
ABME("NTYPE"	START+8, START+9, START+10, 40+1, GP+9, GP+10, GP+13
ABME("RTYPE"	START+2*
ABME("S#"	START+4*, START+5, START+7, START+8, LOOP+4, 20+1
>> ABMP("BDFN"	30+1, GET41+3, GET41+6, GET41+8, GET41+9
>> ABMP("EXP"	LOOP+3
>> ABMP("FMT"	EX+2, EX+5
>> ABMP("INS"	START+5, START+7, START+8, START+9, LOOP+3, 20+2, 50+2, 60+2, 70+2, 80+2 , GP+7
>> ABMP("LDFN"	GP+14, GP+15
>> ABMP("NOFMT"	LOOP+4, EX+2
>> ABMP("SPACES"	GP+4, GP+5
>> ABMR(80	START+1!, LOOP+4, 10+1, 20+1, 20+2, 20+3, 30+1, 30+2, 40+1, 40+2 , 50+1, 50+2, 50+4, 50+5, 60+1, 60+2, 60+3, 70+1, 70+2, 70+3 , 80+1, 80+2, 80+3, 90+1, 90+2, 100+1, 100+2, 110+1, 110+2, 120+1 , 120+2, 130+1, 130+2*, EX+4, EX+6!
>> ABMREC(80	START+1!, LOOP+4*
ABMX	EX~, EX+3, EX+4, EX+6!
ABMY	EX~, EX+6!
ABMZ	EX+6!
>> CNT	GET41+2, GET41+5, GET41+8, GET41+10*, GP+17
>> DA	GET41+3, GET41+4, GET41+6, GET41+7, GET41+9*, GP+2, GP+6, GP+7, GP+9, GP+11 , GP+16, DIQ1+2
>> DIC	DIQ1+1*
DIQ	DIQ1+1*!
DIQ(0	DIQ1+1*
>> DR	DIQ1+1*
DUZ(2	GET41+3, GET41+6, GET41+8, GET41+9
I	LOOP+1, LOOP+2, LOOP+3, LOOP+4, GET41+3~, GET41+6, GET41+8, GET41+9, GET41+11*, DIQ1+1~
U	50+1, 60+1, 70+1, 80+1, GET41+3, GET41+6, GET41+9
>> Y	EX+4*, EX+7

Customize PDF page

Package: Third Party Billing

Routine: ABMER80

Call Graph Total: 5

Caller Graph Total: 6