Routine: ABMDBDIC

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
Third Party Billing	1	($$HDT,$$SDT,PAT)^ABMDUTL

Package	Total	Caller Graph
Third Party Billing	8	ABMDECAN ABMDFRDO ABMDPAY ABMDREEX ABMDTINQ ABMPSTRD ABMRSUBN ABMURREC
Phoenix Devel Center	1	AZXDFRDO

Entry Points

Name	Comments	DBIA/ICR reference
SELO
PAT	;PATIENT LOOKUP
BENT	;EP - for doing Bill File lookup with DIC variables
BILL	;EP - SELECT BILL
NUM	;NUMBER LOOKUP
XIT
DICW	;EP - for displaying bill identifiers
SEL	;SELECT
ID	;BILL IDENTIFIERS
MULT	;EP for Selecting Multiple Bills

External References

Name	Field # of Occurrence
$$HDT^ABMDUTL	DICW+4, DICW+8
$$SDT^ABMDUTL	ID+9
PAT^ABMDUTL	PAT+6, ID+1
^DIC	BILL+10, BILL+14, BILL+19, PAT+2, BENT+4, SELO
^DIR	BILL+5, BILL+24, SEL+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BILL+4
Function Call: WRITE	Prompt: !!,"(",ABM("CNT"),")" Line Location: ID+4
Function Call: WRITE	Prompt: ?5,"Bill# ",ABM(1) Line Location: ID+8
Function Call: WRITE	Prompt: ?20,$$SDT^ABMDUTL(ABM(7,1)) Line Location: ID+9
Function Call: WRITE	Prompt: ?32,$E($P($G(^ABMDVTYP(+ABM(7),0)),U),1,17) Line Location: ID+11
Function Call: WRITE	Prompt: ?51,$E($P($G(^DIC(40.7,+ABM(10),0)),U),1,13) Line Location: ID+13
Function Call: WRITE	Prompt: ?67,$P($G(^AUTTLOC(+ABM(3),0)),"^",2) Line Location: ID+14
Function Call: WRITE	Prompt: !,?6,$P($G(^ABMDEXP(+ABM(6),0)),"^",1) Line Location: ID+15
Function Call: WRITE	Prompt: ?22,$E(ABM(4),1,15) Line Location: ID+17
Function Call: WRITE	Prompt: ?37,$P($G(^AUTNINS(+ABM(8),0)),"^",1) Line Location: ID+18
Function Call: WRITE	Prompt: ?70,$J($FN(ABM(2,1),",",2),10) Line Location: ID+19
Function Call: WRITE	Prompt: ! Line Location: SEL+1
Function Call: WRITE	Prompt: !!,"Enter either the Bill Number or a Patient Identifier (Name, HRN, SSN, DOB)" Line Location: BENT+6
Function Call: WRITE	Prompt: ?68,$P($G(^AUTTLOC(DUZ(2),0)),U,7)," ",$P(^AUPNPAT($P(ABM(0),U,5),41,DUZ(2),0),U,2) Line Location: DICW+6
Function Call: WRITE	Prompt: ! Line Location: DICW+7
Function Call: WRITE	Prompt: ?17,"Visit: ",$$HDT^ABMDUTL(ABM(7))," " Line Location: DICW+8
Function Call: WRITE	Prompt: $E($P($G(^ABMDVTYP($P(ABM(0),U,7),0)),U),1,14) Line Location: DICW+9
Function Call: WRITE	Prompt: ?49,$E($P($G(^DIC(40.7,$P(ABM(0),U,10),0)),U),1,17),?68,$E($P($G(^AUTTLOC($P(ABM(0),U,3),0)),U,2),1,12) Line Location: DICW+10
Function Call: WRITE	Prompt: !?20,"Bill: ",$P(^AUTNINS($P(ABM(0),U,8),0),U) Line Location: DICW+11
Function Call: WRITE	Prompt: ?57,$P($G(^ABMDEXP($P(ABM(0),U,6),0)),U) Line Location: DICW+12
Function Call: WRITE	Prompt: ?68,$J($FN(ABM(2),",",2),10) Line Location: DICW+13
Function Call: WRITE	Prompt: ! Line Location: DICW+15
Function Call: WRITE	Prompt: ! Line Location: MULT+1
Function Call: WRITE	Prompt: ! Line Location: MULT+2
Routine Call	DIC Line Location: BILL+10 BILL+14 BILL+19 PAT+2 BENT+4 SELO
Routine Call	DIR Line Location: BILL+5 BILL+24 SEL+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	BILL+12, BILL+17, NUM+5, NUM+6, NUM+7, PAT+7, ID+5, ID+6
^ABMDEXP - [#9002274.08]	ID+15, DICW+12
^ABMDVTYP - [#9002274.8]	ID+11, DICW+9
^AUPNPAT - [#9000001]	DICW+6
^AUTNINS - [#9999999.18]	ID+18, DICW+11
^AUTTLOC - [#9999999.06]	ID+14, DICW+6, DICW+10
^DD(9002274.4	BILL+27
^DIC(40.7 - [#40.7]	ID+13, DICW+10
^DPT - [#2]	PAT+4, DICW+1

Label References

Name	Line Occurrences
BENT	BENT+7
BILL	PAT+3, PAT+9
ID	NUM+8, PAT+7
SEL	NUM+9, PAT+8, ID+20
SELO	SELO+2
XIT	BENT+5, BENT+8, SELO+5

Naked Globals

Name	Field # of Occurrence
^(0	DICW+1
^(2	ID+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%P	BILL+1!
ABM	BILL+1!, BILL+16!, BILL+26!, NUM+10!, PAT+10!, XIT!, MULT+2*, SELO
ABM(	ID+5*
ABM("="	PAT+5*
ABM("C"	MULT+1*
ABM("CNT"	NUM+4, NUM+9, PAT+7, PAT+8, ID+1, ID+2, ID+3, ID+4, ID+20, SEL+2 , SEL+3
ABM("E"	SELO*
ABM("INPUT"	BILL+7*, NUM+1, NUM+5, PAT+1
ABM("P0"	PAT+4*
ABM("STATUS"	BILL+27*, ID+7
ABM("ZERO"	ID+5*
ABM(0	DICW+1, DICW+6, DICW+7, DICW+9, DICW+10, DICW+11, DICW+12, DICW+16!
ABM(1	ID+8
ABM(10	ID+13
ABM(2	ID+6*, ID+19, DICW+13
ABM(3	ID+14
ABM(4	ID+7*, ID+17
ABM(6	ID+15
ABM(7	ID+6*, ID+9, ID+11, DICW+8, DICW+16!
ABM(8	ID+18
>> ABMDPT	DICW+1*, DICW+2, DICW+3, DICW+4, DICW+5
>> ABMM(	SELO+3*
>> ABMP("BDFN"	BILL+1!, BILL+11, BILL+15, BILL+16, BILL+21, BILL+25!, BILL+26, NUM+5, NUM+10, PAT+7 , PAT+9, SEL+3, BENT+1!, BENT+7*
>> ABMP("PDFN"	NUM+7, PAT+4, PAT+6, PAT+7, ID+1
>> AUPNLK("ALL"	PAT+1, BENT+2
DA	BILL+22!
DIC	BILL+1!, BILL+9, BILL+14, BILL+19, BILL+22!, PAT+1, BENT+4!, MULT+1!*, SELO+4!
DIC("A"	SELO*
DIC("W"	BENT+3*
DIC(0	BILL+9, BILL+14, BILL+19, PAT+1, MULT+1, SELO
DIE	BILL+22!
DIR	BILL+5!, BILL+22!, BILL+24!, SEL+2!
DIR("?"	BILL+3*
DIR("A"	BILL+2, BILL+24, SEL+2*
DIR("B"	BILL+24*
DIR(0	BILL+5, BILL+23, SEL+2*
DIRUT	BILL+6, PAT+7, SEL+4!
>> DIW	DICW+14*
>> DTOUT	SEL+4, BENT+5, MULT+2, SELO+1
>> DUOUT	BENT+5, MULT+2, SELO+1
DUZ(2	BILL+12, BILL+17, NUM+5, NUM+6, NUM+7, PAT+7, ID+5, ID+6, DICW+6
>> DZ	DICW+1, DICW+7, DICW+15
>> I	NUM+6, NUM+7, PAT+7, ID+3, ID+5, ID+6
IOSL	SEL+1
J	NUM+3, NUM+5, NUM+6, ID+5~*
U	ID+11, ID+13, DICW+1, DICW+2, DICW+3, DICW+4, DICW+5, DICW+6, DICW+7, DICW+9 , DICW+10, DICW+11, DICW+12
X	BILL+9, BILL+13, BILL+18, BILL+22!, PAT+1, BENT+5, BENT+6, DICW+7, MULT+2, SELO+1
Y	BILL+7, BILL+8, BILL+9, BILL+10, BILL+11, BILL+12, BILL+13, BILL+15, BILL+17, BILL+18 , BILL+20, BILL+21, BILL+22!, BILL+25, NUM+1*, NUM+2, NUM+3, PAT+3, PAT+4, SEL+3 , SEL+4, BENT+7, SELO+2, SELO+3

Customize PDF page

Package: Third Party Billing

Routine: ABMDBDIC

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: