Routine: ABMER70

Package	Total	Call Graph
Third Party Billing	3	($$CPT,$$DX,$$ICDOP)^ABMCVAPI ^ABMER70A ($$FMT,DFMT,S90,SET)^ABMERUTL
VA Fileman	1	EN^DIQ1

Package

Total

Call Graph

Third Party Billing

($$CPT,$$DX,$$ICDOP)^ABMCVAPI ^ABMER70A ($$FMT,DFMT,S90,SET)^ABMERUTL

VA Fileman

EN^DIQ1

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

Package

Total

Caller Graph

Local Area Programs

AZAXSND

Third Party Billing

ABMEF10

Entry Points

Name	Comments	DBIA/ICR reference
150	;Other Surgical Procedure Code #1 (SOURCE: FILE=9002274.4) ; form locator #81
210	;Other Surgical Procedure Code #4 (SOURCE: FILE=9002274.4) ; form locator #81
EX(ABMX,ABMY)	;EXTRINSIC FUNCTION HERE
190	;Other Surgical Procedure Code #3 (SOURCE: FILE=9002274.4) ; form locator #81
270	;Procedure Coding Method Used (SOURCE: FILE=9999999.18, FIELD=) ; form locator #79
POA(ABMDX)	;EP
130	;Principle Surgical Procedure Code (SOURCE: FILE=9002274.4 FIELD=) ; form locator #80
250	;Admitting Diagnosis (SOURCE: FILE=9002274.4, FIELD=.59) ; form locator #76
230	;Other Surgical Procedure Code #5 (SOURCE: FILE=9002274.4) ; form locator #81
170	;Other Surgical Procedure Code #2 (SOURCE: FILE=9002274.4) ; form locator #81
180	;Other Surgical Procedure Date #2 (SOURCE: FILE=9002274.4) ; form locator #81
SCODE	;SURGICAL PROCEDURE CODES
280	;Filler
200	;Other Surgical Procedure Date #3 (SOURCE: FILE=9002274.4) ; form locator #81
140	;Principle Surgical Procedure Date (SOURCE: FILE=9002274.4 FIELD=) ; form locator #80
300	;External Cause of Injury (3) (SOURCE: FILE=9002274.4, FIELD=) ; form locator #77
START	;START HERE
260	;External Cause of Injury (SOURCE: FILE=9002274.4, FIELD=) ; form locator #77
240	;Other Surgical Procedure Date #5 (SOURCE: FILE=9002274.4) ; form locator #81
160	;Other Surgical Procedure Date #1 (SOURCE: FILE=9002274.4) ; form locator #81
220	;Other Surgical Procedure Date #4 (SOURCE: FILE=9002274.4) ; form locator #81
DIQ1	;GET INFO FROM FILE 9002274.4
LOOP	;LOOP HERE
290	;External Cause of Injury (2) (SOURCE: FILE=9002274.4, FIELD=) ; form locator #77

External References

Name	Field # of Occurrence
$$CPT^ABMCVAPI	SCODE+32
$$DX^ABMCVAPI	260+4, 290+4, 300+4
$$ICDOP^ABMCVAPI	SCODE+9, SCODE+28
^ABMER70A	LOOP+1
$$FMT^ABMERUTL	130+4, 140+4, 150+4, 160+6, 170+4, 180+6, 190+4, 200+6, 210+4, 220+6 , 230+4, 240+6, 250+6, 260+8, 270+4, 280+2, 290+8, 300+8
DFMT^ABMERUTL	140+3, 160+4, 180+4, 200+4, 220+4, 240+4
S90^ABMERUTL	START+4
SET^ABMERUTL	START+3
EN^DIQ1	DIQ1+7

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	260+2, 270+2, 290+2, 300+2, SCODE+4, SCODE+6, SCODE+8, SCODE+20, SCODE+24, SCODE+26 , POA+4, POA+5
^ABMDEXP - [#9002274.08]	SCODE+10, SCODE+29
^ABMEXLM("AA"	LOOP+4
^ABMNINS(	270+3, SCODE+16
^ICD9 - [#80]	POA+5

Name	Line Occurrences
$$POA	260+5, 290+5, 300+5
@(	LOOP+3, LOOP+4, EX+8
DIQ1	250+2
LOOP	START+3
SCODE	130+2, 140+2, 150+2, 160+2, 170+2, 180+2, 190+2, 200+2, 210+2, 220+2 , 230+2, 240+2

Name	Field # of Occurrence
^(	LOOP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	START+5!
ABM(	250+2, 250+3
ABM("SC"	130+3, 140+3, 150+3, 160+3, 170+3, 180+3, 190+3, 200+3, 210+3, 220+3 , 230+3, 240+3, SCODE+1, SCODE+9, SCODE+11, SCODE+12, SCODE+13, SCODE+28, SCODE+30, SCODE+32 , SCODE+33*
ABM("SUB"	SCODE+16*, SCODE+20, SCODE+24, SCODE+26, SCODE+27, SCODE+32
ABM("ZERO"	SCODE+8, SCODE+9, SCODE+26, SCODE+28, SCODE+32
ABMDX	POA~, POA+5
ABME	START+5!
ABME("RTYPE"	START+2*
>> ABMP("BDFN"	250+2, 250+3, 260+2, 270+2, 290+2, 300+2, SCODE+4, SCODE+6, SCODE+8, SCODE+20 , SCODE+24, SCODE+26, DIQ1+2, POA+4, POA+5
>> ABMP("EXP"	LOOP+4, SCODE+10, SCODE+29
>> ABMP("FMT"	EX+7, EX+10
>> ABMP("INS"	LOOP+4, 270+3, SCODE+16
>> ABMP("NOFMT"	LOOP+5, EX+7
>> ABMP("VDT"	260+4, 290+4, 300+4, SCODE+9, SCODE+28, SCODE+32
>> ABMP("VTYP"	270+3, SCODE+16
>> ABMR(70	START+1!, LOOP+5, 130+3, 130+4, 140+3, 140+4, 150+3, 150+4, 160+5, 160+6 , 170+3, 170+4, 180+5, 180+6, 190+3, 190+4, 200+5, 200+6, 210+3, 210+4 , 220+5, 220+6, 230+3, 230+4, 240+5, 240+6, 250+3, 250+4, 250+6, 260+2 , 260+4, 260+5, 260+6, 260+8, 270+2, 270+3, 270+4, 280+1, 280+2, 290+2 , 290+4, 290+5, 290+6, 290+8, 300+2, 300+4, 300+5, 300+6, 300+8*, EX+9 , EX+11!
>> ABMREC(70	START+1!, LOOP+5*
>> ABMRPOA	POA+3, POA+5, POA+6
ABMX	EX~, EX+8, EX+9, EX+11!
ABMY	EX~, EX+11!
>> CNT	SCODE+3, SCODE+7, SCODE+9, SCODE+11, SCODE+18, SCODE+25, SCODE+28, SCODE+30, SCODE+32
>> DA	DIQ1+2*
>> DIC	DIQ1+6*
DIQ	DIQ1+4*, DIQ1+8!
DIQ(0	DIQ1+5*
>> DR	DIQ1+3*
DUZ(2	260+2, 270+2, 270+3, 290+2, 300+2, SCODE+4, SCODE+6, SCODE+8, SCODE+16, SCODE+20 , SCODE+24, SCODE+26, POA+4, POA+5
I	LOOP+2, LOOP+3, LOOP+4, LOOP+5, SCODE+2~, SCODE+3, SCODE+4, SCODE+6, SCODE+12, SCODE+17~ , SCODE+18, SCODE+20, SCODE+24, SCODE+33, DIQ1+1~, POA+1~, POA+2, POA+4*, POA+5
J	SCODE+5, SCODE+6, SCODE+8, SCODE+21~, SCODE+22, SCODE+24, SCODE+26
U	130+3, 150+3, 170+3, 190+3, 210+3, 230+3, 260+4, 270+3, 290+2, 290+4 , 300+2, 300+4, SCODE+9, SCODE+10, SCODE+28, SCODE+32, POA+5
>> Y	140+3, 160+3, 160+5, 180+3, 180+5, 200+3, 200+5, 220+3, 220+5, 240+3 , 240+5, EX+9*, EX+12

Customize PDF page

Package: Third Party Billing

Routine: ABMER70

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: