Routine: ABMESTAT

Package	Total	Call Graph
Third Party Billing	5	BILL^ABMDRCHK ^ABMDRDBQ (,WHD)^ABMDRHD ^ABMDRSEL PAZ^ABMDRUTL
VA Fileman	2	$$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
SUB
HDB
EXP
PRINT	;
DATA	;
HD
SLOOP
TXT	;
C	;;OTHER
COMPUTE	;EP - Entry Point for Setting up Data
D	;;MEDICAID
G	;;OTHER
F	;;PRIVATE
I	;;OTHER
H	;;PRIVATE
K	;;MEDICAID
M	;;PRIVATE
N	;;OTHER
P	;;PRIVATE
R	;;MEDICARE
T	;;OTHER
W	;;OTHER
V	;;VMBP
MD	;;MEDICARE
SEL	;
MH	;;MEDICARE

External References

Name	Field # of Occurrence
BILL^ABMDRCHK	DATA+1
^ABMDRDBQ	SEL+8
^ABMDRHD	SEL+3
WHD^ABMDRHD	HDB
^ABMDRSEL	SEL+1
PAZ^ABMDRUTL	HD
$$GET1^DIQ	DATA+5
^DIR	ABMESTAT+11
^XBFMK	ABMESTAT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " (cont)" Line Location: PRINT+14
Function Call: WRITE	Prompt: !!?40,"======",?64,"============" Line Location: PRINT+25
Function Call: WRITE	Prompt: !?20,"Total:",?40,$J(ABM("TCNT"),"6R"),?64,$J($FN(ABM("TAMT"),",",2),"12R") Line Location: PRINT+26
Function Call: WRITE	Prompt: !?40,"Number" Line Location: HDB+1
Function Call: WRITE	Prompt: !?10,$S(ABM("SRT")="I":"Insurer",ABM("SRT")="A":"Allowance Category",1:"Insurer Type") Line Location: HDB+2
Function Call: WRITE	Prompt: ?40,"Bills",?53,"Percent",?68,"Total" Line Location: HDB+3
Function Call: WRITE	Prompt: !,ABM("LINE") Line Location: HDB+4
Function Call: WRITE	Prompt: !!?3,"Export Mode: "_$S(+$P(ABM("TXT"),U,2):$P($G(^ABMDEXP($P(ABM("TXT"),U,2),0)),U),1:$P(ABM("TXT"),U,2)) Line Location: EXP+0
Function Call: WRITE	Prompt: !?40,"------",?64,"------------" Line Location: SUB+1
Function Call: WRITE	Prompt: !?20,"Subtotal:",?40,$J(ABM("SUBCNT"),"6R"),?55,$J((ABM("SUBCNT")/ABM("TCNT")*100),".",1),?64,$J($FN(ABM("SUBAMT"),",",2),"12R") Line Location: SUB+2
Routine Call	DIR Line Location: ABMESTAT+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTNINS - [#9999999.18]	GET1^DIQ
^AUTTINTY - [#9999999.181]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	SLOOP+4, SLOOP+5, SLOOP+8, SLOOP+11, SLOOP+13, SLOOP+16, SLOOP+19, DATA+9, DATA+13
^ABMDEXP - [#9002274.08]	EXP
^ABMDTXST - [#9002274.6]	SLOOP+14
^AUPNVSIT - [#9000010]	SLOOP+9
^AUTNINS - [#9999999.18]	DATA+2
^DIC(4 - [#4]	DATA+8
^TMP("ABM-ES"	COMPUTE+1!, DATA+11, DATA+12, DATA+13*

Label References

Name	Line Occurrences
DATA	SLOOP+5, SLOOP+11, SLOOP+16, SLOOP+19
EXP	PRINT+14, PRINT+16
HD	PRINT+14
HDB	PRINT+3
SUB	PRINT+16, PRINT+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	ABMESTAT+4!, SLOOP+5, SLOOP+11, SLOOP+16, SLOOP+18, SLOOP+19, DATA+9, DATA+13, PRINT+7, PRINT+9* , PRINT+10, PRINT+12, PRINT+13, PRINT+15
ABM("A"	PRINT+6*, PRINT+7, PRINT+9, PRINT+12, PRINT+13
ABM("DT"	ABMESTAT+13, ABMESTAT+14, ABMESTAT+15*
ABM("EXP"	DATA+9, DATA+10, DATA+11, DATA+12, DATA+13, PRINT+4, PRINT+16, PRINT+17
ABM("HD"	SEL+2*
ABM("I"	DATA+2, DATA+5
ABM("L"	DATA+8*, DATA+11, DATA+12, DATA+13
ABM("LINE"	HDB+4*!
ABM("NODX"	ABMESTAT+5*
ABM("PG"	COMPUTE+1, PRINT+2, HDB*
ABM("RD"	SLOOP+1, SLOOP+4, SLOOP+5
ABM("SORT"	DATA+2, DATA+5, DATA+7*, DATA+11, DATA+12, DATA+13
ABM("SRT"	ABMESTAT+12*, DATA+2, DATA+3, DATA+7, HDB+2
ABM("SUBAMT"	PRINT+4, PRINT+22, SUB+2, SUB+3*
ABM("SUBCNT"	PRINT+4, PRINT+21, SUB, SUB+2, SUB+3*
ABM("SUBR"	COMPUTE+1*
ABM("TAMT"	PRINT+5, PRINT+22, PRINT+26
ABM("TCNT"	PRINT+5, PRINT+10, PRINT+26, SUB+2
ABM("TXT"	PRINT+1, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, EXP
ABM("V"	PRINT+4, PRINT+16
>> ABMP("HIT"	DATA+1*
>> ABMQ("NS"	SEL+6*
>> ABMQ("RC"	SEL+4*
>> ABMQ("RP"	SEL+7*
>> ABMQ("RX"	SEL+5*
>> ABMVDFN	SLOOP+7, SLOOP+8, SLOOP+9, SLOOP+11
>> ABMVDT	SLOOP+9*, SLOOP+10
>> ABMXDT	SLOOP+14*, SLOOP+15
>> ABMXMT	SLOOP+12, SLOOP+13, SLOOP+14, SLOOP+16
ABMY	ABMESTAT+4!
ABMY("DT"	SLOOP, SLOOP+1, SLOOP+2*, SLOOP+3, SLOOP+4, SLOOP+6, SLOOP+10, SLOOP+15
DIR	ABMESTAT+11!
DIR("A"	ABMESTAT+9*
DIR("B"	ABMESTAT+10*
DIR(0	ABMESTAT+8*
>> DIROUT	SEL+1, PRINT+9, PRINT+13, PRINT+14, PRINT+23, HD
DT	ABMESTAT+15
>> DTOUT	SEL+1, PRINT+9, PRINT+13, PRINT+14, PRINT+23, HD
>> DUOUT	SEL+1, PRINT+9, PRINT+13, PRINT+14, PRINT+23, HD
DUZ(2	SLOOP+4, SLOOP+5, SLOOP+8, SLOOP+11, SLOOP+13, SLOOP+14, SLOOP+16, SLOOP+19, DATA+9, DATA+13
IOSL	PRINT+14
U	SLOOP+9, SLOOP+14, DATA+2, DATA+8, DATA+9, DATA+11, DATA+12, DATA+13, PRINT+10, PRINT+16 , PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, EXP
>> Y	ABMESTAT+12

Marked Items

Customize PDF page

Package: Third Party Billing

Routine: ABMESTAT

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items