Routine: ABMDRPX

Package	Total	Call Graph
Third Party Billing	6	$$CPT^ABMCVAPI ^ABMDRCHK ^ABMDRDBQ ^ABMDRHD ^ABMDRSEL LOOP^ABMDRUTL
VA Fileman	1	^DIR

Name	Comments	DBIA/ICR reference
COMPUTE	;EP - Entry Point for Setting up Data ; Loop through bill file
ONE	; ; ONE CATEGORY
TL	;
XIT	;
RSEL	; ; Select exclusion parameters
SEL	; ; Ask the user what category they would like to list procedures
DATA	; ; for each bill. . . gather data (called from ABMDRUTL)
HD	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"----- PROCEDURE CATEGORIES -----",! Line Location: SEL+2
Routine Call	DIR Line Location: SEL+6

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	DATA+5, DATA+11, DATA+12, DATA+13, DATA+17, DATA+18, DATA+19, ONE+4, ONE+5, ONE+6
^AUTTADA - [#9999999.31]	ONE+8, ONE+13
^AUTTREVN - [#9999999.72]	DATA+15, DATA+20, ONE+13
^PSDRUG - [#50]	ONE+13
^TMP(	COMPUTE+3!
^TMP("ABM-PX"	ABMDRPX+10!, TL+2, TL+3, TL+4*
^TMP($J	ABMDRPX+11!, DATA+6, DATA+7*

Name	Field # of Occurrence
^(	TL+4*

Name	Field # of Occurrence
ABM	ABMDRPX+10!, SEL+9*, SEL+11, HD+1, DATA+5, DATA+11, DATA+12, DATA+13, DATA+17, DATA+18 , DATA+19, ONE+4, ONE+5, ONE+6, XIT+1!
ABM("ALL"	SEL+12*, DATA+9, ONE+25
ABM("CAT"	SEL+8*
ABM("CD"	DATA+14, DATA+15, DATA+19, DATA+20, ONE+8, ONE+9, ONE+10, ONE+13, ONE+14, ONE+24 , ONE+27*, TL+4
ABM("CL"	DATA+5*, DATA+6, DATA+7
ABM("D"	ONE+8, ONE+13
ABM("FEE"	DATA+13, DATA+18, ONE+16, ONE+17, ONE+18, ONE+19, ONE+20, ONE+21, ONE+23*, TL+3 , TL+4
ABM("HD"	HD+2*
ABM("HDCAT"	HD+1*, HD+2
ABM("NM"	DATA+15, DATA+20, ONE+13, ONE+14, ONE+26*, TL+4
ABM("PX"	ONE+3, ONE+4, ONE+5, ONE+6
ABM("SUB"	SEL+11, SEL+12, DATA+8, DATA+10, DATA+11, ONE+2, ONE+4, ONE+5, ONE+6, ONE+8 , ONE+13, ONE+14, ONE+16, ONE+17, ONE+18, ONE+19, ONE+20, ONE+21, ONE+22, ONE+27
ABM("SUBR"	COMPUTE+2*, COMPUTE+3
ABM(0	ONE+6*, ONE+8, ONE+13, ONE+16, ONE+17, ONE+18, ONE+19, ONE+20, ONE+21, ONE+23
ABMP	XIT+1!
ABMP("HIT"	DATA+2*, DATA+4
ABMP("RTN"	COMPUTE+4*
>> ABMQ("NS"	HD+7*
>> ABMQ("RC"	HD+4*
>> ABMQ("RP"	HD+5*
>> ABMQ("RX"	HD+6*
ABMY	ABMDRPX+10!, XIT+1!
ABMY("PX"	DATA+12, DATA+17, ONE+2, ONE+9, ONE+10
DIR	SEL+3!
DIR("A"	SEL+5*
DIR(0	SEL+4*
>> DIROUT	SEL+7, RSEL+3
>> DIRUT	SEL+7
>> DTOUT	RSEL+3
>> DUOUT	RSEL+3
DUZ(2	DATA+5, DATA+11, DATA+12, DATA+13, DATA+17, DATA+18, DATA+19, ONE+4, ONE+5, ONE+6
U	DATA+12, DATA+13, DATA+15, DATA+17, DATA+18, DATA+19, DATA+20, ONE+8, ONE+13, ONE+16 , ONE+17, ONE+18, ONE+19, ONE+20, ONE+21, ONE+23, TL+2, TL+3, TL+4
>> Y	SEL+9
>> Y(0	SEL+8

Information