Routine: ABMDE8K

Information

ABMDE8K ; IHS/SD/SDR - Page 8 - AMBULANCE INFO ;

Package	Total	Call Graph
Third Party Billing	6	($$CPT,IHSCPTD)^ABMCVAPI (PAUSE,SUM)^ABMDE1 (K,MODE)^ABMDE8X ^ABMDERR ($$CDT,$$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," HCPCS - AMBULANCE 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: ?6,$P(ABM("X0"),"^",2) Line Location: EOP+9
Function Call: WRITE	Prompt: ?10,$P(ABMZ(ABM("I")),U) Line Location: EOP+10
Function Call: WRITE	Prompt: ?10 Line Location: EOP+13
Function Call: WRITE	Prompt: ABMZ("MOD")_" " Condition for execution: ABMZ("MOD")]"" Line Location: EOP+13
Function Call: WRITE	Prompt: ?17,$P(^ICPT($P(ABM("X0"),U),0),U,2) Line Location: EOP+31

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	LOOP, PC1
^ABMDEXP - [#9002274.08]	AMB+4, AMB+9
^ABMDPARM(	EOP+18
^ICPT - [#81]	EOP+31
^VA(200 - [#200]	EOP+7

Name	Field # of Occurrence
^(0	PC1

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