Routine: ABMDE8H

Information

ABMDE8H ; IHS/ASDST/DMJ - Page 8 - MISC INFO ;

Package	Total	Call Graph
Third Party Billing	6	($$CPT,IHSCPTD)^ABMCVAPI (PAUSE,SUM)^ABMDE1 (H,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," HCPCS - MISC. 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+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: !,?13,"NDC: "_$P(ABM("X0"),U,19) Line Location: EOP+10
Function Call: WRITE	Prompt: ?5,$$GETREV^ABMDUTL($P(ABM("X0"),"^",2)) Line Location: EOP+12
Function Call: WRITE	Prompt: ?10,$P(ABMZ(ABM("I")),U) Line Location: EOP+13
Function Call: WRITE	Prompt: ?10 Line Location: EOP+16
Function Call: WRITE	Prompt: ABMZ("MOD")_" " Condition for execution: ABMZ("MOD")]"" Line Location: EOP+16
Function Call: WRITE	Prompt: ?17,$P($$CPT^ABMCVAPI($P(ABM("X0"),U),ABMP("VDT")),U,3) Line Location: EOP+33

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	LOOP, PC1, EOP+6, EOP+7, EOP+9
^ABMDEXP - [#9002274.08]	MS+4, MS+11
^ABMDPARM(	EOP+21
^ABMNINS(	MS+7
^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+27, EOP+28, EOP+29, EOP+30
ABM("I"	LOOP*, PC1+3, EOP+1, EOP+13
ABM("M"	EOP+15*
ABM("X"	LOOP, PC1
ABM("X0"	PC1*, PC1+1, PC1+3, EOP+2, EOP+4, EOP+5, EOP+10, EOP+12, EOP+15, EOP+17 , EOP+19, EOP+20, EOP+21, EOP+26, EOP+33
>> ABME("CONT"	LOOP+3*!
>> ABME(0	LOOP+3
ABMMODE	XIT!
ABMMODE(8	MS+4, MS+11
>> ABMP("CDFN"	LOOP, PC1, EOP+6, EOP+7, EOP+9
>> ABMP("DDL"	DISP+1
>> ABMP("INS"	MS+7
>> ABMP("LDFN"	MS+7
>> ABMP("VDT"	MS+5, PC1+3, EOP+21, EOP+26, EOP+33
>> ABMP("VTYP"	MS+7
>> ABMRPRV	EOP+6, EOP+7, EOP+8, EOP+9
ABMU	EOP+17!
ABMU("LM"	EOP+32*
ABMU("RM"	EOP+32*
ABMU("TXT"	EOP+21, EOP+24, EOP+30*, EOP+32
ABMU(1	EOP+17*
ABMU(2	EOP+18*
ABMU(3	EOP+19*
ABMZ	DISP!
ABMZ(	PC1+3*, EOP+13
ABMZ("CAT"	MS+1*
ABMZ("CHRG"	MS+6*
ABMZ("DIAG"	MS+4*
ABMZ("DIC"	MS+9*
ABMZ("DR"	MS+5, MS+7, MS+11*
ABMZ("ITEM"	MS+8*
ABMZ("LNUM"	LOOP*
ABMZ("MAX"	MS+9*
ABMZ("MOD"	LOOP+1, EOP+14, EOP+15*, EOP+16
ABMZ("NDC"	MS+10*
ABMZ("NUM"	LOOP*, LOOP+2
ABMZ("PG"	DISP*
ABMZ("SUB"	MS+2*, MS+7
ABMZ("TITL"	DISP*
ABMZ("TOTL"	MS+9, LOOP+2, EOP+20
ABMZ("UNIT"	PC1+1, PC1+2, EOP+18, EOP+19, EOP+20
ABMZ("X"	MS+9*
ABMZ(1	LOOP*
ABMZCPTD	EOP+25!
ABMZCPTD(	EOP+28, EOP+29, EOP+30
>> DIROUT	DISP+1
>> DTOUT	DISP+1
>> DUOUT	DISP+1
DUZ(2	LOOP, PC1, EOP+6, EOP+7, EOP+9, EOP+21
IOSL	DISP+1, EOP
U	MS+7, LOOP+1, PC1, PC1+1, PC1+3, EOP+5, EOP+9, EOP+10, EOP+13, EOP+15 , EOP+17, EOP+18, EOP+19, EOP+20, EOP+21, EOP+26, EOP+33