Routine: ABMDE8E

Information

ABMDE8E ; IHS/ASDST/DMJ - Page 8 - LABORATORY ;

Package	Total	Call Graph
Third Party Billing	6	($$CPT,IHSCPTD)^ABMCVAPI (PAUSE,SUM)^ABMDE1 (E,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 - LABORATORY 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+3
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+12
Function Call: WRITE	Prompt: ABMZ("MOD") Condition for execution: ABMZ("MOD")]"" Line Location: EOP+12

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

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