Routine: ABMDE9A

Information

ABMDE9A ; IHS/ASDST/DMJ - Page 9 - UB-82 CODES-Cont ;

Package	Total	Call Graph
Third Party Billing	2	(PAUSE,SUM)^ABMDE1 ^ABMDERR

Package	Total	Caller Graph
Third Party Billing	1	ABMDE9

Name	Comments	DBIA/ICR reference
XIT
HD4
HD3
VALU1
COND	; Condition codes
LOOP3
COND1
DISP3	;EP - Entry Point for Condition Codes
DISP4	;EP - Entry Point for Value Codes
VALU	; Value codes
LOOP4

Name	Line Occurrences
Function Call: WRITE	Prompt: !?6,"COND" Line Location: HD3+0
Function Call: WRITE	Prompt: !?6,"CODE",?14," CONDITION CODE DESCRIPTION" Line Location: HD3+1
Function Call: WRITE	Prompt: !?6,"====",?14,"============================================================" Line Location: HD3+2
Function Call: WRITE	Prompt: !,"[",ABM("I"),"]",?7,$P(ABMZ(ABM("I")),U),?14,$P(^ABMDCODE(ABM("X"),0),U,3) Line Location: COND1+3
Function Call: WRITE	Prompt: !?6,"VALU" Line Location: HD4+0
Function Call: WRITE	Prompt: !?6,"CODE",?14," VALUE CODE DESCRIPTION",?67,"AMOUNT" Line Location: HD4+1
Function Call: WRITE	Prompt: !?6,"====",?14,"==================================================",?66,"========" Line Location: HD4+2
Function Call: WRITE	Prompt: !,"[",ABM("I"),"]",?7,$P(ABMZ(ABM("I")),U) Line Location: VALU1+3
Function Call: WRITE	Prompt: ?14,$P(^ABMDCODE(ABM("X"),0),U,3) Line Location: VALU1+4
Function Call: WRITE	Prompt: ?66,$S("A0^32^80^82^83"[$P(ABMZ(ABM("I")),U):$P(ABM("X0"),U,2),1:$J($P(ABM("X0"),U,2),8,2)) Line Location: VALU1+6

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	LOOP3, COND1, LOOP4, VALU1
^ABMDCODE - [#9002274.03]	COND1+1, COND1+3, VALU1+1, VALU1+4

Name	Field # of Occurrence
^(0	COND1, COND1+1, VALU1, VALU1+1

Name	Field # of Occurrence
>> ABM	LOOP3, COND1+1, LOOP4, VALU1+1
>> ABM("I"	LOOP3, COND1+1, COND1+3, LOOP4, VALU1+1, VALU1+3, VALU1+6
>> ABM("X"	LOOP3, COND1, COND1+1, COND1+3, LOOP4, VALU1, VALU1+1, VALU1+4
>> ABM("X0"	COND1, COND1+1, VALU1, VALU1+1, VALU1+6
>> ABME("CONT"	LOOP3+1!, LOOP4+1!
>> ABME(0	LOOP3+1, LOOP4+1
>> ABMP("CDFN"	LOOP3, COND1, LOOP4, VALU1
>> ABMP("DDL"	DISP3+2, DISP4+2
ABMZ	DISP3+1!, DISP4+1!
ABMZ(	COND1+1, COND1+3, VALU1+1, VALU1+3, VALU1+6
ABMZ("DIC"	COND+1, VALU+4
ABMZ("DR"	COND+1, VALU+2
ABMZ("ITEM"	COND+1, VALU+3
ABMZ("LNUM"	LOOP3, LOOP4
ABMZ("MAX"	COND+1, VALU+6
ABMZ("NUM"	LOOP3, LOOP4
ABMZ("PG"	DISP3+1, DISP4+1
ABMZ("SUB"	COND+1, VALU+1
ABMZ("TITL"	DISP3+1, DISP4+1
ABMZ("X"	COND+1, VALU+5
ABMZ(1	LOOP3, LOOP4
>> DIROUT	DISP3+2, COND1+2, DISP4+2, VALU1+2
>> DTOUT	DISP3+2, COND1+2, DISP4+2, VALU1+2
>> DUOUT	DISP3+2, COND1+2, DISP4+2, VALU1+2
DUZ(2	LOOP3, COND1, LOOP4, VALU1
IOSL	DISP3+2, COND1+2, DISP4+2, VALU1+2
U	COND1, COND1+1, COND1+3, VALU1, VALU1+1, VALU1+3, VALU1+4, VALU1+6