Routine: ABMDE9C

Package	Total	Call Graph
Third Party Billing	3	(PAUSE,SUM)^ABMDE1 ^ABMDERR $$HDT^ABMDUTL

Package	Total	Caller Graph
Third Party Billing	1	ABMDE9

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;EP - Entry Point for Occurance Codes
SPAN	; Occurrence Span codes
HD2
OCCR	; Occurance codes
OCCR1	;
SPAN1
HD
XIT
LOOP2
DT	;date conversion
DISP2	;EP - Entry Point for Occurance Span Codes
LOOP	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !?6,"OCCR" Line Location: HD+0
Function Call: WRITE	Prompt: !?6,"CODE",?14," OCCURRENCE DESCRIPTION",?68,"DATE" Line Location: HD+1
Function Call: WRITE	Prompt: !?6,"====",?14,"==================================================",?66,"========" Line Location: HD+2
Function Call: WRITE	Prompt: !,"[",ABM("I"),"]",?7,$P(ABMZ(ABM("I")),U),?14,$P(^ABMDCODE(ABM("X"),0),U,3),?66 Line Location: OCCR1+7
Function Call: WRITE	Prompt: ABM("DT") Line Location: OCCR1+7
Function Call: WRITE	Prompt: !?6,"SPAN" Line Location: HD2+0
Function Call: WRITE	Prompt: !?6,"CODE",?14," OCCURRENCE SPAN DESCRIPTION",?58,"FROM",?69,"TO" Line Location: HD2+1
Function Call: WRITE	Prompt: !?6,"====",?14,"========================================",?56,"========",?66,"========" Line Location: HD2+2
Function Call: WRITE	Prompt: !,"[",ABM("I"),"]",?7,$P(ABMZ(ABM("I")),U),?14,$P(^ABMDCODE(ABM("X"),0),U,3),?56 Line Location: SPAN1+4
Function Call: WRITE	Prompt: ABM("DT") Line Location: SPAN1+4
Function Call: WRITE	Prompt: ABM("DT") Line Location: SPAN1+4

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	LOOP+1, OCCR1+2, LOOP2, SPAN1
^ABMDCODE - [#9002274.03]	OCCR1+4, OCCR1+7, SPAN1+2, SPAN1+4

Name	Field # of Occurrence
^(0	OCCR1+2, SPAN1

Name	Field # of Occurrence
ABM	LOOP+1, OCCR1+4, LOOP2, SPAN1+2, XIT!
ABM("DT"	OCCR1+7, SPAN1+4, DT+1*
ABM("I"	LOOP+1, OCCR1+4, OCCR1+7, LOOP2, SPAN1+2, SPAN1+4
ABM("X"	LOOP+1, OCCR1+2, OCCR1+4, OCCR1+7, LOOP2, SPAN1, SPAN1+2, SPAN1+4
ABM("X0"	OCCR1+2, OCCR1+4, OCCR1+7, SPAN1, SPAN1+2, SPAN1+4
>> ABME("CONT"	LOOP+2!, LOOP2+1!
>> ABME(0	LOOP+2, LOOP2+1
>> ABMP("CDFN"	LOOP+1, OCCR1+2, LOOP2, SPAN1
>> ABMP("DDL"	DISP+2, DISP2+2
ABMZ	DISP+1!, DISP2+1!, XIT!
ABMZ(	OCCR1+4, OCCR1+7, SPAN1+2, SPAN1+4
ABMZ("DIC"	OCCR+2, SPAN+1
ABMZ("DR"	OCCR+2, SPAN+1
ABMZ("ITEM"	OCCR+2, SPAN+1
ABMZ("LNUM"	LOOP+1, LOOP2
ABMZ("MAX"	OCCR+2, SPAN+1
ABMZ("NUM"	LOOP+1, LOOP2
ABMZ("PG"	DISP+1, DISP2+1
ABMZ("SUB"	OCCR+2, SPAN+1
ABMZ("TITL"	DISP+1, DISP2+1
ABMZ("X"	OCCR+2, SPAN+1
ABMZ(1	LOOP+1, LOOP2
>> DIROUT	DISP+2, OCCR1+6, DISP2+2, SPAN1+3
>> DIRUT	LOOP+1, OCCR1+6
>> DTOUT	DISP+2, OCCR1+6, DISP2+2, SPAN1+3
>> DUOUT	DISP+2, OCCR1+6, DISP2+2, SPAN1+3
DUZ(2	LOOP+1, OCCR1+2, LOOP2, SPAN1
IOSL	DISP+2, OCCR1+6, DISP2+2, SPAN1+3
U	OCCR1+2, OCCR1+4, OCCR1+7, SPAN1, SPAN1+2, SPAN1+4