Routine: ABMDE8A

Information

ABMDE8A ; IHS/ASDST/DMJ - Page 8 - MEDICAL CARE ;

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

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

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	PC+6, PC+7, LOOP+2, PC1+1, EOP+7, EOP+8, EOP+10
^ABMDEXP - [#9002274.08]	PC+15, PC+18
^ABMDPARM(	EOP+19
^ICPT - [#81]	EOP+20
^VA(200 - [#200]	EOP+10

Name	Field # of Occurrence
^(	EOP+20
^(0	PC1+1, EOP+20

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