Routine: ABMDE8B1

Information

ABMDE8B1 ; IHS/ASDST/DMJ - Edit Page 8 - SURG PROC ;

Package	Total	Call Graph
Third Party Billing	5	($$CPT,IHSCPTD)^ABMCVAPI PAUSE^ABMDE1 MODE^ABMDE8X ^ABMDERR ^ABMDWRAP
VA Fileman	2	FILE^DICN $$GET1^DIQ

Package	Total	Caller Graph
Third Party Billing	1	ABMDE8B

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"BIL",?4,"SERV" Line Location: HD+0
Function Call: WRITE	Prompt: ?11,$S($P(^ABMDEXP(ABMP("EXP"),0),"^",1)["UB":"REVN",1:"CORR"),?17," CPT",?29,"CPT",?52,"PROVIDER'S" Line Location: HD+1
Function Call: WRITE	Prompt: !,"SEQ",?4,"DATE" Line Location: HD+2
Function Call: WRITE	Prompt: ?11,$S($P(^ABMDEXP(ABMP("EXP"),0),"^",1)["UB":"CODE",1:"DIAG") Line Location: HD+3
Function Call: WRITE	Prompt: ?17," CODE DESCRIPTION",?52,"NARRATIVE",?72,"CHARGE" Line Location: HD+4
Function Call: WRITE	Prompt: !,"===",?4,"=====",?10,"======",?17,"===========================" Line Location: HD+5
Function Call: WRITE	Prompt: ?46,"=======================",?71,"========" Line Location: HD+6
Function Call: WRITE	Prompt: !?70,"=========",!?68,$J(("$"_$FN(ABM("TOTL"),",",2)),11) Line Location: TOTL+0
Function Call: WRITE	Prompt: !,$J(ABM("I"),2) Line Location: EOP+5
Function Call: WRITE	Prompt: ?4,$E($P(ABM("X0"),U,5),4,5),"/",$E($P(ABM("X0"),U,5),6,7) Line Location: EOP+6
Function Call: WRITE	Prompt: ?11,$S($P(ABM("X0"),U,3)="":"*",$D(^AUTTREVN($P(ABM("X0"),U,3),0)):$P(^(0),U),1:"*") Line Location: EOP+7
Function Call: WRITE	Prompt: ?10,$P(ABM("X0"),U,4) Line Location: EOP+8
Function Call: WRITE	Prompt: ?17,$P(ABMZ(ABM("I")),U) Line Location: EOP+9
Function Call: WRITE	Prompt: ABMZ("MOD") Line Location: EOP+9

FileNo	Call Tags
9002274.3021	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	LOOP+1, MS1!, MS1+1, ICD+1, ICD+4
^ABMDEXP - [#9002274.08]	ABMDE8B1+10, HD+1, HD+3, EOP+7
^ABMDPARM(	EOP+10
^AUTTREVN - [#9999999.72]	EOP+7
^DD(9002274.3	ICD+5
^ICPT - [#81]	ICD

Name	Field # of Occurrence
ABM	LOOP, LOOP+1, MS1, XIT+1!
ABM("CP"	EOP+15, EOP+16, EOP+17
ABM("I"	LOOP+1*, ICD+8, EOP+5, EOP+9
ABM("ICD"	ICD, ICD+1, ICD+2, ICD+3, ICD+4*
ABM("ICD0"	ICD!, ICD+2, ICD+3, ICD+4, ICD+5
ABM("L"	LOOP+2*
ABM("LITMTOTAL"	EOP+1, EOP+2, EOP+3, EOP+4
ABM("M"	ICD+7*
ABM("TOTL"	TOTL, EOP+4*
ABM("X"	LOOP+1*, MS1, MS1+1, ICD+8, EOP+21
ABM("X0"	MS1+1*, MS1+2, ICD, ICD+3, ICD+7, ICD+8, EOP+1, EOP+2, EOP+6, EOP+7 , EOP+8, EOP+10, EOP+14, EOP+22
ABM("X1"	MS1+1*, ICD+7
>> ABME("CONT"	XIT*!
>> ABME(0	XIT
ABMMODE	XIT+1!
ABMMODE(2	ABMDE8B1+10
>> ABMP("CDFN"	LOOP+1, MS1, MS1+1, ICD+1, ICD+3, ICD+4, EOP+21
>> ABMP("EXP"	HD+1, HD+3, EOP+7
>> ABMP("VDT"	ICD+8, EOP+10, EOP+14
ABMU	EOP+3!
ABMU("2LM"	EOP+22*
ABMU("2RM"	EOP+22*
ABMU("2TAB"	EOP+22*
ABMU("2TXT"	EOP+22*
ABMU("LM"	EOP+19*
ABMU("RM"	EOP+19*
ABMU("TAB"	EOP+19*
ABMU("TXT"	EOP+10, EOP+13, EOP+17*
ABMU(1	EOP+3*
>> ABMZ(	ICD+8*, EOP+9
>> ABMZ("DR"	ABMDE8B1+10*
>> ABMZ("DR2"	LOOP+2*
>> ABMZ("LNUM"	LOOP, LOOP+2, MS1+2
>> ABMZ("MOD"	LOOP+3, ICD+6, ICD+7*, EOP+2, EOP+9, EOP+19
>> ABMZ("NUM"	LOOP, LOOP+1
>> ABMZ(1	LOOP*
>> ABMZCPTD	EOP+14
>> ABMZCPTD(	EOP+16, EOP+17
>> DA(1	ICD+3*
DD	ICD+5!
>> DIC	ICD+3*
>> DIC("DR"	ICD+3, ICD+5
>> DIC("P"	ICD+5*
>> DIC(0	ICD+5*
>> DINUM	ICD+3*
DO	ICD+5!
DUZ(2	LOOP+1, MS1, MS1+1, ICD+1, ICD+4, EOP+10
>> IENS	EOP+21*, EOP+22
IOSL	EOP
U	LOOP+3, MS1+2, ICD+3, ICD+5, ICD+7, ICD+8, EOP+3, EOP+6, EOP+7, EOP+8 , EOP+9, EOP+10, EOP+14, EOP+22
>> X	ICD+3*