Routine: ABMDE8F

Information

ABMDE8F ; IHS/ASDST/DMJ - Page 8 - RADIOLOGY ;

Package	Total	Call Graph
Third Party Billing	6	($$CPT,IHSCPTD)^ABMCVAPI (PAUSE,SUM)^ABMDE1 (F,MODE)^ABMDE8X ^ABMDERR ($$CDT,$$GETREV,$$SDT)^ABMDUTL ^ABMDWRAP

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"REVN",?60,"UNIT",?71,"TOTAL" Line Location: HD+0
Function Call: WRITE	Prompt: !?5,"CODE",?10," CPT - RADIOLOGY SERVICES",?59,"CHARGE",?66,"QTY",?71,"CHARGE" Line Location: HD+1
Function Call: WRITE	Prompt: !?5,"====",?10,"===============================================",?59,"======",?66,"===",?70,"=========" Line Location: HD+2
Function Call: WRITE	Prompt: !?69,"==========",!?69,$J("$"_($FN(ABMZ("TOTL"),",",2)),10) Line Location: LOOP+2
Function Call: WRITE	Prompt: !,"[",ABM("I"),"]" Line Location: EOP+1
Function Call: WRITE	Prompt: "-",$$CDT^ABMDUTL($P(ABM("X0"),U,12)) Line Location: EOP+5
Function Call: WRITE	Prompt: ?5,$$GETREV^ABMDUTL($P(ABM("X0"),U,2)) Line Location: EOP+11
Function Call: WRITE	Prompt: ?10,$P(ABMZ(ABM("I")),U) Line Location: EOP+14
Function Call: WRITE	Prompt: ABMZ("MOD") Condition for execution: ABMZ("MOD")]"" Line Location: EOP+14
Function Call: WRITE	Prompt: ?17,$P($$CPT^ABMCVAPI($P(ABM("X0"),U),ABMP("VDT")),U,3) Line Location: EOP+31

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	LOOP, PC1, EOP+6, EOP+7, EOP+9
^ABMDEXP - [#9002274.08]	FEE+3, FEE+6
^ABMDPARM(	EOP+19
^VA(200 - [#200]	EOP+9

Name	Field # of Occurrence
^(0	PC1

Name	Field # of Occurrence
ABM	LOOP*, PC1+3, EOP+6, EOP+7, EOP+9, XIT!
ABM("CP"	EOP+25, EOP+26, EOP+27, EOP+28
ABM("I"	LOOP*, PC1+3, EOP+1, EOP+14
ABM("M"	EOP+13*
ABM("X"	LOOP, PC1
ABM("X0"	PC1*, PC1+1, PC1+3, EOP+2, EOP+4, EOP+5, EOP+11, EOP+13, EOP+15, EOP+17 , EOP+18, EOP+19, EOP+24, EOP+31
>> ABME("CONT"	LOOP+3*!
>> ABME(0	LOOP+3
ABMMODE	XIT!
ABMMODE(6	FEE+3, FEE+6
>> ABMP("CDFN"	LOOP, PC1, EOP+6, EOP+7, EOP+9
>> ABMP("DDL"	DISP+1
>> ABMP("VDT"	FEE+4, PC1+3, EOP+19, EOP+24, EOP+31
>> ABMRPRV	EOP+6, EOP+7, EOP+8, EOP+9
ABMU	EOP+15!
ABMU("LM"	EOP+30*
ABMU("RM"	EOP+30*
ABMU("TAB"	EOP+30*
ABMU("TXT"	EOP+19, EOP+22, EOP+28*, EOP+30
ABMU(1	EOP+15*
ABMU(2	EOP+16*
ABMU(3	EOP+17*
ABMZ	DISP!
ABMZ(	PC1+3*, EOP+14
ABMZ("CAT"	FEE*
ABMZ("CHRG"	FEE+5*
ABMZ("DIAG"	FEE+3*
ABMZ("DIC"	FEE+5*
ABMZ("DR"	FEE+4*
ABMZ("ITEM"	FEE+5*
ABMZ("LNUM"	LOOP*
ABMZ("MAX"	FEE+5*
ABMZ("MOD"	LOOP+1, EOP+12, EOP+13*, EOP+14, EOP+30
ABMZ("NUM"	LOOP*, LOOP+2
ABMZ("PG"	DISP*
ABMZ("REVN"	FEE+6*
ABMZ("SUB"	FEE+1*
ABMZ("TITL"	DISP*
ABMZ("TOTL"	FEE+5, LOOP+2, EOP+18
ABMZ("UNIT"	PC1+1, PC1+2, EOP+16, EOP+17, EOP+18
ABMZ("X"	FEE+5*
ABMZ(1	LOOP*
ABMZCPTD	EOP+23!
ABMZCPTD(	EOP+26, EOP+27, EOP+28
>> DIROUT	DISP+1
>> DTOUT	DISP+1
>> DUOUT	DISP+1
DUZ(2	LOOP, PC1, EOP+6, EOP+7, EOP+9, EOP+19
IOSL	DISP+1, EOP
U	LOOP+1, PC1, PC1+1, PC1+3, EOP+5, EOP+9, EOP+11, EOP+13, EOP+14, EOP+15 , EOP+16, EOP+17, EOP+18, EOP+19, EOP+24, EOP+31