Routine: ABMZBDIC

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
Third Party Billing	1	PAT^ABMDUTL

Package	Total	Caller Graph
Third Party Billing	1	ABMZIPS

Entry Points

Name	Comments	DBIA/ICR reference
SELO
PAT	;PATIENT LOOKUP
BENT	;EP - for doing Bill File lookup with DIC variables
54	;get prov number
BILL	;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
PAT^ABMDUTL	PAT+6, ID+1
^DIC	BILL+10, BILL+15, PAT+2, BENT+4, SELO
^DIR	BILL+5, BILL+18, 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,$E(ABM(7,1),4,5),"/",$E(ABM(7,1),6,7),"/",$E(ABM(7,1),2,3) Line Location: ID+9
Function Call: WRITE	Prompt: ?30,$P($G(^ABMDVTYP(+ABM(7),0)),"^",1) Line Location: ID+10
Function Call: WRITE	Prompt: ?51,$P($G(^DIC(40.7,+ABM(10),0)),"^",1) Line Location: ID+11
Function Call: WRITE	Prompt: ?67,$P($G(^AUTTLOC(+ABM(3),0)),"^",2) Line Location: ID+12
Function Call: WRITE	Prompt: !,?6,$P($G(^ABMDEXP(+ABM(6),0)),"^",1) Line Location: ID+13
Function Call: WRITE	Prompt: ?18,$E(ABM(4),1,15) Line Location: ID+14
Function Call: WRITE	Prompt: ?37,$P($G(^AUTNINS(+ABM(8),0)),"^",1) Line Location: ID+15
Function Call: WRITE	Prompt: ?70,$J($FN(ABM(2,1),",",2),10) Line Location: ID+16
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: ?12,$P(^(0),U),?46,$P(^(0),U,2)," ",$E($P(^(0),U,3),4,5),"-",$E($P(^(0),U,3),5,6),"-",$E($P(^(0),U,3),2,3)," ",$P(^(0),U,9) Line Location: DICW+1
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+2
Function Call: WRITE	Prompt: ! Line Location: DICW+3
Function Call: WRITE	Prompt: ?17,"Visit: ",$E(ABM(7),4,5),"-",$E(ABM(7),6,7),"-",$E(ABM(7),2,3)," " Line Location: DICW+4
Function Call: WRITE	Prompt: $E($P($G(^ABMDVTYP($P(ABM(0),U,7),0)),U),1,14) Line Location: DICW+5
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+6
Function Call: WRITE	Prompt: !?20,"Bill: ",$P(^AUTNINS($P(ABM(0),U,8),0),U) Line Location: DICW+7
Function Call: WRITE	Prompt: ?57,$P($G(^ABMDEXP($P(ABM(0),U,6),0)),U) Line Location: DICW+8
Function Call: WRITE	Prompt: ?68,$J($FN(ABM(2),",",2),10) Line Location: DICW+9
Function Call: WRITE	Prompt: ! Line Location: DICW+11
Function Call: WRITE	Prompt: ! Line Location: MULT+1
Function Call: WRITE	Prompt: ! Line Location: MULT+2
Routine Call	DIC Line Location: BILL+10 BILL+15 PAT+2 BENT+4 SELO
Routine Call	DIR Line Location: BILL+5 BILL+18 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+8, BILL+13, NUM+3, NUM+4, NUM+5, PAT+8, PAT+9, PAT+10, ID+5, ID+6
^ABMDEXP - [#9002274.08]	ID+13, DICW+8
^ABMDVTYP - [#9002274.8]	ID+10, DICW+5
^AUPNPAT - [#9000001]	DICW+2
^AUTNINS - [#9999999.18]	ID+15, DICW+7
^AUTTLOC - [#9999999.06]	ID+12, DICW+2, DICW+6
^DD(9002274.4	BILL+21
^DIC(40.7 - [#40.7]	ID+11, DICW+6
^DPT - [#2]	PAT+4, DICW+1
^VA(200 - [#200]	54+4, 54+6

Label References

Name	Line Occurrences
BENT	BENT+7
BILL	PAT+3, PAT+14
ID	NUM+6, PAT+11
SEL	NUM+7, PAT+12, PAT+13
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+12!, BILL+20!, NUM+8!, PAT+15!, XIT!, MULT+2*, SELO
ABM(	ID+5*
ABM("="	PAT+5*
ABM("A"	54+2
ABM("C"	MULT+1*
ABM("CNT"	NUM+3, NUM+7, PAT+7, PAT+12, ID+1, ID+2, ID+3, ID+4, SEL+2, SEL+3
ABM("E"	SELO*
ABM("INPUT"	BILL+7*, NUM+1, PAT+1
ABM("P0"	PAT+4*
ABM("STATUS"	BILL+21*, ID+7
ABM("ZERO"	ID+5*
ABM(0	DICW+1, DICW+2, DICW+3, DICW+5, DICW+6, DICW+7, DICW+8, DICW+12!
ABM(1	ID+8
ABM(10	ID+11
ABM(2	ID+6*, ID+16, DICW+9
ABM(3	ID+12
ABM(4	ID+7*, ID+14
ABM(6	ID+13
ABM(7	ID+6*, ID+9, ID+10, DICW+4, DICW+12!
ABM(8	ID+15
>> ABMF(54	54+7, 54+8
>> ABMINS	PAT+10
>> ABMM(	SELO+3*
>> ABMP("BDFN"	BILL+1!, BILL+11, BILL+12, BILL+17, BILL+19!, BILL+20, NUM+3, NUM+8, PAT+8, PAT+13 , PAT+14, SEL+3, BENT+1!, BENT+7
>> ABMP("INS"	54+4
>> ABMP("PDFN"	NUM+5, PAT+4, PAT+6, PAT+8, ID+1
>> ABMP("VTYP"	54+1
>> ABMPNUM	54+4, 54+5, 54+6, 54+8
>> ABMPROV	54+2*, 54+3, 54+4, 54+6
>> AUPNLK("ALL"	PAT+1, BENT+2
DIC	BILL+1!, BILL+10, BILL+15, PAT+1, BENT+4!, MULT+1!, SELO+4!
DIC("A"	SELO*
DIC("W"	BENT+3*
DIC(0	BILL+10, BILL+15, PAT+1, MULT+1, SELO*
DIR	BILL+5!, BILL+18!, SEL+2!
DIR("?"	BILL+3*
DIR("A"	BILL+2, BILL+18, SEL+2*
DIR("B"	BILL+18*
DIR(0	BILL+5, BILL+18, SEL+2*
DIRUT	BILL+6, PAT+8, SEL+4!
>> DIW	DICW+10*
>> DTOUT	SEL+4, BENT+5, MULT+2, SELO+1
>> DUOUT	BENT+5, MULT+2, SELO+1
DUZ(2	BILL+8, BILL+13, NUM+3, NUM+4, NUM+5, PAT+8, PAT+9, PAT+10, ID+5, ID+6 , DICW+2
>> DZ	DICW+1, DICW+3, DICW+11
>> I	NUM+4, NUM+5, PAT+7, PAT+8*, PAT+9, PAT+10, ID+3, ID+5, ID+6
IOSL	SEL+1
J	NUM+3, NUM+4, ID+5~
U	DICW+1, DICW+2, DICW+3, DICW+5, DICW+6, DICW+7, DICW+8
>> X	BILL+9, BILL+14, PAT+1*, BENT+5, BENT+6, DICW+3, MULT+2, SELO+1
>> Y	BILL+7, BILL+8, BILL+9, BILL+11, BILL+13, BILL+14, BILL+16, BILL+17, BILL+19, 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: ABMZBDIC

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: