Routine: ABME570

Information

ABME570 ; IHS/ASDST/DMJ - UB92 V5 EMC RECORD 70-1 (Medical) ;

Source Information

Source file <ABME570.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Third Party Billing	4	($$CPT,$$DX,$$ICDOP)^ABMCVAPI $$Y2KD2^ABMDUTL ^ABME570A ($$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	;Other Surgical Procedure Code #1, 94-100 (SOURCE: FILE=9002274.4) ; form locator #81
210	;Other Surgical Procedure Code #4, 139-145 (SOURCE: FILE=9002274.4) ; form locator #81
140	;Principle Surgical Procedure Date, 86-93 (SOURCE: FILE=9002274.4 FIELD=) ; form locator #80
200	;Other Surgical Procedure Date #3, 131-138 (SOURCE: FILE=9002274.4) ; form locator #81
230	;Other Surgical Procedure Code #5, 154-160 (SOURCE: FILE=9002274.4) ; form locator #81
260	;External Cause of Injury, 175-180 (SOURCE: FILE=9002274.4, FIELD=) ; form locator #77
SCODE	;SURGICAL PROCEDURE CODES
190	;Other Surgical Procedure Code #3, 124-130 (SOURCE: FILE=9002274.4) ; form locator #81
DIQ1	;GET INFO FROM FILE 9002274.4
270	;Procedure Coding Method Used, 181-181 (SOURCE: FILE=9999999.18, FIELD=) ; form locator #79
START	;START HERE
180	;Other Surgical Procedure Date #2, 116-123 (SOURCE: FILE=9002274.4) ; form locator #81
130	;Principle Surgical Procedure Code, 79-85 (SOURCE: FILE=9002274.4 FIELD=) ; form locator #80
240	;Other Surgical Procedure Date #5, 161-168 (SOURCE: FILE=9002274.4) ; form locator #81
280	;Filler (National Use), 182-192
250	;Admitting Diagnosis, 169-174 (SOURCE: FILE=9002274.4, FIELD=.59) ; form locator #76
220	;Other Surgical Procedure Date #4, 146-153 (SOURCE: FILE=9002274.4) ; form locator #81
160	;Other Surgical Procedure Date #1, 101-108 (SOURCE: FILE=9002274.4) ; form locator #81
EX(ABMX,ABMY)	;EXTRINSIC FUNCTION HERE
LOOP	;LOOP HERE
170	;Other Surgical Procedure Code #2, 109-115 (SOURCE: FILE=9002274.4) ; form locator #81

External References

Name	Field # of Occurrence
$$CPT^ABMCVAPI	SCODE+20
$$DX^ABMCVAPI	260+7
$$ICDOP^ABMCVAPI	SCODE+16
$$Y2KD2^ABMDUTL	140+4, 160+4, 180+4, 200+4, 220+4, 240+4
^ABME570A	LOOP+1
$$FMT^ABMERUTL	130+4, 140+5, 150+4, 160+5, 170+4, 180+5, 190+4, 200+5, 210+4, 220+5 , 230+4, 240+5, 250+5, 260+9, 270+3, 280+2
S90^ABMERUTL	START+4
SET^ABMERUTL	START+3
EN^DIQ1	DIQ1+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	260+4, SCODE+8, SCODE+12, SCODE+14
^ABMDEXP - [#9002274.08]	SCODE+17
^ABMEXLM("AA"	LOOP+4
^ABMNINS(	270+2, SCODE+4

Label References

Name	Line Occurrences
@(	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

Naked Globals

Name	Field # of Occurrence
^(	LOOP+4

Local Variables

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+16, SCODE+18, SCODE+20, SCODE+21
ABM("SUB"	SCODE+4*, SCODE+8, SCODE+12, SCODE+14, SCODE+15, SCODE+20
ABM("ZERO"	SCODE+14*, SCODE+16, SCODE+20
ABME	START+5!
ABME("RTYPE"	START+2*
>> ABMP("BDFN"	250+2, 250+3, 260+4, SCODE+8, SCODE+12, SCODE+14, DIQ1+2
>> ABMP("EXP"	LOOP+4, SCODE+17
>> ABMP("FMT"	EX+7, EX+10
>> ABMP("INS"	LOOP+4, 270+2, SCODE+4
>> ABMP("NOFMT"	LOOP+5, EX+7
>> ABMP("VDT"	260+7, SCODE+16, SCODE+20
>> ABMP("VTYP"	270+2, SCODE+4
>> ABMR(70	START+1!, LOOP+5, 130+3, 130+4, 140+4, 140+5, 150+3, 150+4, 160+4, 160+5 , 170+3, 170+4, 180+4, 180+5, 190+3, 190+4, 200+4, 200+5, 210+3, 210+4 , 220+4, 220+5, 230+3, 230+4, 240+4, 240+5, 250+3, 250+4, 250+5, 260+5 , 260+7, 260+8, 260+9, 270+2, 270+3, 280+1, 280+2, EX+9, EX+11!
>> ABMREC(70	START+1!, LOOP+5*
ABMX	EX~, EX+8, EX+9, EX+11!
ABMY	EX~, EX+11!
>> CNT	SCODE+6, SCODE+13, SCODE+16, SCODE+18, SCODE+20
>> DA	DIQ1+2*
>> DIC	DIQ1+6*
DIQ	DIQ1+4*, DIQ1+8!
DIQ(0	DIQ1+5*
>> DR	DIQ1+3*
DUZ(2	260+4, 270+2, SCODE+4, SCODE+8, SCODE+12, SCODE+14
I	LOOP+2, LOOP+3, LOOP+4, LOOP+5, 260+2~, 260+3, 260+4, 260+7, SCODE+5~, SCODE+6 , SCODE+8, SCODE+12, SCODE+21, DIQ1+1~
J	SCODE+9~, SCODE+10, SCODE+12, SCODE+14
U	130+3, 150+3, 170+3, 190+3, 210+3, 230+3, 260+7, SCODE+16, SCODE+20
>> Y	140+3, 140+4, 160+3, 160+4, 180+3, 180+4, 200+3, 200+4, 220+3, 220+4 , 240+3, 240+4, EX+9*, EX+12

Customize PDF page

Package: Third Party Billing

Routine: ABME570

Information

Source Information

Call Graph

Call Graph Total: 5

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