Routine: ABMDE8J

Package	Total	Call Graph
Third Party Billing	7	$$CPT^ABMCVAPI (PAUSE,SUM)^ABMDE1 (J,MODE)^ABMDE8X DX^ABMDEMLC ^ABMDERR ($$CDT,$$SDT)^ABMDUTL $$ONE^ABMFEAPI
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIR

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"REVN",?75,"TOTAL" Line Location: HD+0
Function Call: WRITE	Prompt: !?5,"CODE",?31,"ITEM",?65,"QTY",?74,"CHARGE" Line Location: HD+1
Function Call: WRITE	Prompt: !,ABMZ("=") Line Location: HD+2
Function Call: WRITE	Prompt: !,?72,"========",!?5,"TOTAL",?71,$J("$"_($FN(ABMZ("TOTL"),",",2)),9) Line Location: LOOP+1
Function Call: WRITE	Prompt: !,"[",ABM("I"),"]" Line Location: EOP+1
Function Call: WRITE	Prompt: ?6,$P(ABM("X0"),"^",5) Line Location: EOP+5
Function Call: WRITE	Prompt: ?12,$E($P(^ABMCM(+ABM("X0"),0),U),1,50) Line Location: EOP+6
Function Call: WRITE	Prompt: ?65,$J(ABMZ("UNIT"),3) Line Location: EOP+7
Function Call: WRITE	Prompt: ?72,$J($FN(($P(ABM("X0"),U,4)*ABMZ("UNIT")),",",2),8) Line Location: EOP+8
Function Call: WRITE	Prompt: !! Line Location: E+29
Routine Call	DIE Line Location: E+11 E+13 E+16 E+19 E+22 E+27 E+28
Routine Call	DIC Line Location: A+4
Routine Call	DIR Line Location: E+6 E+30

FileNo	Call Tags
^ABMDCLM - [#9002274.3]	Classic Fileman Calls
^ABMCM - [#9002274.75]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ABMCM - [#9002274.75]	PC1+1, PC1+4, EOP+6, E+18, E+20
^ABMDCLM - [#9002274.3]	LOOP, PC1, A+2*, E+8, E+23
^ABMDEXP - [#9002274.08]	E+17, E+24

Name	Field # of Occurrence
ABM	LOOP*, XIT!
ABM("FEE"	DISP+9*
ABM("I"	LOOP*, PC1+4, EOP+1
ABM("X"	LOOP*, PC1, PC1+4
ABM("X0"	PC1, PC1+1, PC1+2, PC1+4, EOP+2, EOP+4, EOP+5, EOP+6, EOP+8, EOP+9 , E+23
>> ABMDCLM(	A+1
>> ABME("CONT"	LOOP+2*!
>> ABME(0	LOOP+2
ABMMODE	XIT!
ABMMODE(10	E+17, E+24
>> ABMP("CDFN"	LOOP, PC1, A+1, A+2, A+6, E+4
>> ABMP("DDL"	DISP+2
>> ABMP("FEE"	E+15
>> ABMP("VDT"	E+10, E+15, E+20
ABMZ	DISP!
ABMZ(	PC1+4*, E+7
ABMZ("="	DISP+6*, HD+2
ABMZ("DIC"	DISP+8*
ABMZ("HCPCS"	E+20*, E+21
ABMZ("ITEM"	DISP+8, A+5, E+3, E+8*, E+15, E+18, E+20
ABMZ("LNUM"	LOOP*
ABMZ("NUM"	LOOP, LOOP+1, A+10, E+2, E+5, E+6
ABMZ("PG"	DISP+1*
ABMZ("SUB"	DISP+7*
ABMZ("TITL"	DISP+1*
ABMZ("TOTL"	DISP+9, LOOP+1, EOP+9
ABMZ("UNIT"	PC1+2, PC1+3, EOP+7, EOP+8, EOP+9
ABMZ("X"	DISP+9*
ABMZ(1	LOOP*
>> DA	A+9, E+7, E+8, E+23
>> DA(1	A+6, E+4, E+8, E+23
DD	A+8!
DIC	DISP!, A+3!, A+7
DIC(0	A+3*
>> DIE	E+9*
DIR	E+6!, E+30!
DIR("A"	E+30*
DIR("B"	E+30!
DIR(0	E+6, E+30
>> DIROUT	DISP+2
DO	A+8!
>> DR	E+10, E+12, E+15, E+18, E+21, E+26, E+28*
>> DTOUT	DISP+2
>> DUOUT	DISP+2
DUZ(2	LOOP, PC1, A+1, A+2, E+8, E+23
IOSL	DISP+2, EOP
U	PC1+2, PC1+4, EOP+6, EOP+8, EOP+9, E+8, E+15, E+20
>> X	A+7*
>> Y	A+5, A+7, A+9, E+3, E+5*, E+6, E+7, E+11, E+13, E+16 , E+17, E+22
>> Y(0	E+26