Routine: ABMDE6

Package	Total	Call Graph
Third Party Billing	6	(PAUSE,SUM)^ABMDE1 ^ABMDE6X DX^ABMDEMLC SEL^ABMDEOPT ^ABMDERR $$ONE^ABMFEAPI
VA Fileman	5	^DIC FILE^DICN ^DIE ^DIK ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;PAGE DISPLAY
A	;ADD LINE ITEM
E	;EDIT LINE ITEM
PROV	;EP
PC1
V1
EOP
OPT9
HD	;
XIT
LOOP	;LOOP THROUGH LINE ITEMS
E2	;

External References

Name	Field # of Occurrence
PAUSE^ABMDE1	DISP+4, EOP
SUM^ABMDE1	DISP+5, V1
^ABMDE6X	DISP+7
DX^ABMDEMLC	E2+16
SEL^ABMDEOPT	OPT9+3
^ABMDERR	LOOP+9, V1+1
$$ONE^ABMFEAPI	E2+5
^DIC	A+4, PROV+18
FILE^DICN	A+9
^DIE	E2+9, E2+10, E2+14, E2+16, E2+17, E2+18, E2+19, PROV+27
^DIK	E+21
^DIR	E+5, E+14, E+28

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: OPT9+3
Function Call: WRITE	Prompt: !?4,"VISIT",?56,"ORAL",?61,"OPER" Line Location: HD+1
Function Call: WRITE	Prompt: !?4,"DATE",?11," DENTAL SERVICE",?56,"CAV",?61,"SITE",?66,"SURF",?73,"CHARGE" Line Location: HD+2
Function Call: WRITE	Prompt: !?4,"=====",?11,"============================================",?56,"====",?61,"====",?66,"=====",?73,"======" Line Location: HD+3
Function Call: WRITE	Prompt: !?72,"=======",!?70,$J(("$"_$FN(ABM("TOTL"),",",2)),9) Line Location: LOOP+8
Function Call: WRITE	Prompt: !,"[",ABMZ("NUM"),"]" Line Location: EOP+1
Function Call: WRITE	Prompt: ?4,$E($P(ABM("X0"),U,7),4,5)_"/"_$E($P(ABM("X0"),U,7),6,7) Line Location: EOP+2
Function Call: WRITE	Prompt: ?11,$P(^AUTTADA(+ABM("X0"),0),U)," ",$E($P(^(0),U,2),1,39) Line Location: EOP+3
Function Call: WRITE	Prompt: ?57,$P($G(ABM("X0")),U,11) Line Location: EOP+4
Function Call: WRITE	Prompt: ?62 Line Location: EOP+5
Function Call: WRITE	Prompt: $S($P(ABM("X0"),U,5)="":"",$D(^ADEOPS($P(ABM("X0"),U,5),88)):$P(^(88),U),1:"") Line Location: EOP+5
Function Call: WRITE	Prompt: ?66,$J($P(ABM("X0"),U,6),4) Line Location: EOP+6
Function Call: WRITE	Prompt: ?73,$J($FN(ABM("ITMTOTL"),",",2),6) Line Location: EOP+9
Routine Call	DIE Line Location: E2+9 E2+10 E2+14 E2+16 E2+17 E2+18 E2+19 PROV+27
Routine Call	DIC Line Location: A+4 PROV+18
Routine Call	DIR Line Location: E+5 E+14 E+28

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABMDCLM - [#9002274.3]	Classic Fileman Calls
^AUTTADA - [#9999999.31]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDCLM - [#9002274.3]	LOOP+3, LOOP+5, LOOP+6!, PC1, E2+2, PROV+1, PROV+4, PROV+5, PROV+6, PROV+17
^ABMDEXP - [#9002274.08]	E2+7
^ADEOPS - [#9002010.03]	EOP+5
^AUTTADA - [#9999999.31]	PC1+2, EOP+3, E2+3, E2+11
^DD(	PROV+14
^DD(9002274.3	A+6
^VA(200 - [#200]	PROV+5

Label References

Name	Line Occurrences
@(	OPT9+7
DISP	OPT9+2
HD	DISP+9, EOP
LOOP	DISP+9
OPT9	OPT9+8
PC1	LOOP+7
PROV	E2+20
XIT	OPT9+4, OPT9+5, DISP+4, LOOP+10, E+29, E2+1

Naked Globals

Name	Field # of Occurrence
^(0	EOP+3
^(88	EOP+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	OPT9!, LOOP+1, LOOP+3, LOOP+5, LOOP+6, XIT!, E+10, E+11, E+12, E+17 , E+19
ABM("ACTION"	OPT9+3*, A+2, E+1, E+23
ABM("DO"	OPT9+6*, OPT9+7
ABM("I"	E+10, E+17
ABM("ITMTOTL"	EOP+7, EOP+8, EOP+9, EOP+10
ABM("TOTL"	OPT9+1, LOOP+8, EOP+10
ABM("X"	LOOP+4, LOOP+5, LOOP+6, PC1, PC1+2
ABM("X0"	PC1*, PC1+2, EOP+2, EOP+3, EOP+4, EOP+5, EOP+6, EOP+7, EOP+8
ABME	OPT9!
ABME("CONT"	LOOP+9*!
ABME(0	LOOP+9
>> ABMFLNM	PROV+13*, PROV+14
>> ABMIEN	PROV+3, PROV+4, PROV+5, PROV+6
>> ABMP("CDFN"	LOOP+3, LOOP+5, LOOP+6, PC1, A+1, E+18, PROV+1, PROV+4, PROV+5, PROV+6 , PROV+9, PROV+17, PROV+22
>> ABMP("DDL"	OPT9+4, DISP+4
>> ABMP("EXP"	E2+7
>> ABMP("FEE"	E2+5
>> ABMP("OPT"	OPT9+3*
>> ABMP("PAGE"	OPT9+4
>> ABMP("QUIT"	OPT9+4*
>> ABMP("VDT"	E2+5
>> ABMP("VISTDT"	E2+10
>> ABMX("ANS"	E+11, E+12, E+13
>> ABMXANS	A+9, E+7, E+9, E+10, E+17, E+25, E+31, PROV+10, PROV+23
ABMZ	DISP+1!
ABMZ(	PC1+2*, E+11, E+12, E+19, E+31
ABMZ("ADACODE"	E2+2*, E2+3, E2+11
ABMZ("CHRG"	E2+5*, E2+18
ABMZ("DCD"	E2+3*, E2+5
ABMZ("ITEM"	DISP+3*, E+3, E+27
ABMZ("LNUM"	LOOP+1*
ABMZ("NUM"	LOOP+2, PC1+1, PC1+2, EOP+1, E+2, E+25, E+26
ABMZ("OPSITE"	E2+11*, E2+12
ABMZ("PG"	DISP+2*
ABMZ("SUB"	DISP+8*, PROV+1, PROV+4, PROV+5, PROV+6, PROV+11, PROV+13, PROV+17, PROV+24
ABMZ("TITL"	DISP+2, V1
ABMZ(1	LOOP+1*, E+25
DA	OPT9+7!, A+1!, A+9, E+19, E+25, E+31, E2+2, PROV+1, PROV+4, PROV+5 , PROV+6, PROV+8!, PROV+19!, PROV+21!, PROV+25*
DA(1	A+1, E+18, E+20, E2+2, E2+6, PROV+10, PROV+11, PROV+17, PROV+23, PROV+24
DA(2	PROV+9, PROV+11, PROV+22, PROV+24
DD	A+9!
DIC	A+3, A+7, PROV+8!, PROV+11*, PROV+19!
DIC("DR"	PROV+16, PROV+17
DIC("P"	A+6, PROV+14, PROV+15
DIC(0	A+3, PROV+12
DIE	E2+6, PROV+8!, PROV+19!, PROV+21!, PROV+24
>> DIK	E+20*
DIR	E+2!, E+5!, E+13!, E+14!, E+26!, E+28!
DIR("?"	E+3, E+27
DIR("A"	E+4, E+13, E+27*
DIR(0	E+2, E+13, E+26*
>> DIROUT	OPT9+5, DISP+4, E+9, E+15, E+29, E2+1
>> DIRUT	E+9
DO	A+9!
DR	E2+9, E2+10, E2+13, E2+16, E2+17, E2+18, E2+19, PROV+8!, PROV+19!, PROV+21! , PROV+26
>> DTOUT	OPT9+5, DISP+4, E+9, E+15, E+29, E2+1
>> DUOUT	OPT9+5, DISP+4, E+9, E+15, E+29, E2+1
DUZ(2	LOOP+3, LOOP+5, LOOP+6, PC1, E2+2, PROV+1, PROV+4, PROV+5, PROV+6, PROV+17
IOSL	DISP+4, EOP
U	PC1+2, EOP+2, EOP+3, EOP+4, EOP+5, EOP+6, EOP+7, EOP+8, A+5, A+6 , E+11, E+12, E+19, E+25, E+31, E2+2, E2+3, E2+5, PROV+5, PROV+6 , PROV+14, PROV+20
>> X	A+5*
>> Y	OPT9+3, OPT9+4, OPT9+6, A+4, A+5, A+9, E+7, E+16, E+25*, E+29 , E+31, E2+1, E2+7, E2+10, E2+12, E2+16, E2+17, E2+18, PROV+20, PROV+25
>> Y(0	E2+16

Customize PDF page

Package: Third Party Billing

Routine: ABMDE6

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: