Routine: ABMDPAY

Package	Total	Call Graph
Third Party Billing	5	^ABMDBDIC DISP^ABMDPAYV SEL^ABMDPOPT ($$HDT,$$HRN)^ABMDUTL $$EN^ABMVDF
VA Fileman	2	^DIE ^DIR
IHS Accounts Receivable	1	TPB^BARUP

Entry Points

External References

Name	Field # of Occurrence
^ABMDBDIC	SEL+6
DISP^ABMDPAYV	BL+9
SEL^ABMDPOPT	BL+22
$$HDT^ABMDUTL	DISP+4, DISP+6
$$HRN^ABMDUTL	DISP+3
$$EN^ABMVDF	ABMDPAY+4, DISP
TPB^BARUP	ABMDPAY+3
^DIE	SEL+16, BL+16
^DIR	ABMDPAY+7, SEL+4, SEL+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SEL+1
Function Call: WRITE	Prompt: *7,!!,"Record is in USE by another User, try Later!" Line Location: SEL+7
Function Call: WRITE	Prompt: *7,!!,"Payment can't be Posted for BENEFICIARY PATIENT Bills!" Line Location: SEL+8
Function Call: WRITE	Prompt: *7,!!,"Payment can only be Posted for Bills that have been Printed!" Line Location: SEL+11
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: DISP+0
Function Call: WRITE	Prompt: !,ABMP," PAYMENT POSTING ",ABMP Line Location: DISP+2
Function Call: WRITE	Prompt: !,"Patient: ",$P(^DPT(ABMP("PDFN"),0),U,1)," ",$$HRN^ABMDUTL(ABMP("PDFN")) Line Location: DISP+3
Function Call: WRITE	Prompt: ?55,$P(^DPT(ABMP("PDFN"),0),U,2),?59,$$HDT^ABMDUTL($P(^(0),U,3)),?70,$P(^(0),U,9) Line Location: DISP+4
Function Call: WRITE	Prompt: !,ABMP Line Location: DISP+5
Function Call: WRITE	Prompt: !,"Visit: ",$$HDT^ABMDUTL(ABMP("VDT")) Line Location: DISP+6
Function Call: WRITE	Prompt: ?17,$E($P(^DIC(4,ABMP("LDFN"),0),U),1,30) Line Location: DISP+7
Function Call: WRITE	Prompt: ?50,$E($P(^ABMDVTYP(ABMP("VTYP"),0),U),1,14) Line Location: DISP+8
Function Call: WRITE	Prompt: ?66,$J($E($P(^DIC(40.7,$P(ABMP("B0"),U,10),0),U),1,14),13) Line Location: DISP+9
Function Call: WRITE	Prompt: !," Bill: ",ABMP("BILL"),?17,$E($P(^AUTNINS(ABMP("INS"),0),U),1,30),?50,$E(ABM("Y0"),1,15),?68,$J("$"_$FN(ABM("BL"),",",2),11) Line Location: BL+3
Function Call: WRITE	Prompt: !,ABMP Line Location: BL+4
Function Call: WRITE	Prompt: !!?7,"Amount",?17,"Payment",?41,"Deduct",?51,"Write Off-" Line Location: BL+5
Function Call: WRITE	Prompt: !?7,"Billed",?19,"Date",?28,"Payment",?41,"Co-Ins",?51,"Adjustment",?64,"Balance" Line Location: BL+6
Function Call: WRITE	Prompt: !?5,"========== ======== ========== ========== ========== ==========" Line Location: BL+7
Function Call: WRITE	Prompt: ?(ABM*12+15),$J($FN($P(ABM("TOT"),U,ABM),",",2),10) Line Location: BL+13
Function Call: WRITE	Prompt: ! Line Location: BL+14
Function Call: WRITE	Prompt: ?5,$J(($FN(ABM("BL"),",",2)),10) Line Location: BL+17
Function Call: WRITE	Prompt: !,ABM Line Location: BL+18
Function Call: WRITE	Prompt: !,"NOTE: A Sister Bill (",$P(ABMP("SIS"),U),") exists with a balance of $",$FN($P(ABMP("SIS"),U,2),",",2),!,ABM Line Location: BL+19
Function Call: WRITE	Prompt: ! Line Location: BL+24
Routine Call	DIE Line Location: SEL+16 BL+16
Routine Call	DIR Line Location: ABMDPAY+7 SEL+4 SEL+8

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	SEL+7, SEL+8, SEL+10, SEL+11, SEL+15, SEL+16, SEL+19, BL, BL+16, XIT+1
^ABMDCLM - [#9002274.3]	SEL+18, SEL+19
^ABMDVTYP - [#9002274.8]	DISP+8
^AUTNINS - [#9999999.18]	SEL+8, SEL+11, BL+3
^DD(9002274.4	BL+2
^DIC(4 - [#4]	DISP+7
^DIC(40.7 - [#40.7]	DISP+9
^DPT - [#2]	DISP+3, DISP+4

Name	Field # of Occurrence
^(0	SEL+15, SEL+19, DISP+4, BL
^(2	SEL+19
^(6	SEL+15
^(7	SEL+15

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABM	SEL+18, SEL+19, DISP!, BL+13, BL+18*, BL+19, XIT+2!
ABM("BL"	BL*, BL+1, BL+3, BL+12, BL+15, BL+17
ABM("DFLT"	BL+20*
ABM("I"	BL+8*, BL+10, BL+17, BL+21
ABM("OB"	BL+15*, BL+16
ABM("OBL"	BL+1*
ABM("OPT"	BL+21*
ABM("ST"	BL*, BL+2, BL+20, BL+21
ABM("TOT"	BL+8*, BL+13, BL+15
ABM("Y0"	BL+2*, BL+3
ABMP	SEL!, DISP+1, DISP+2, DISP+5, BL+4*, XIT+2!
ABMP("B0"	SEL+15, SEL+16, SEL+17, DISP+9
ABMP("BDFN"	SEL+6!, SEL+7, SEL+8, SEL+10, SEL+11, SEL+15, SEL+16, SEL+19, BL, BL+16 , XIT+1
ABMP("BILL"	SEL+15*, SEL+18, SEL+19, BL+3
ABMP("I"	SEL, DISP+1, BL+20
ABMP("INS"	SEL+17*, BL+3
ABMP("LDFN"	SEL+17*, DISP+7
ABMP("PAYM"	BL+25
ABMP("PDFN"	SEL+17*, DISP+3, DISP+4
ABMP("SIS"	SEL+18, SEL+19, BL+19
ABMP("SPAY"	SEL+9, SEL+10, SEL+12
ABMP("VDT"	SEL+15*, DISP+6
ABMP("VTYP"	SEL+17*, DISP+8
>> DA	SEL+16, BL+16
DIC	SEL!
>> DIE	SEL+16, BL+16
DIR	ABMDPAY+7!, SEL+1!, SEL+4!, SEL+8!
DIR("?"	SEL+3*
DIR("A"	ABMDPAY+7, SEL+2
DIR("B"	ABMDPAY+7, SEL+1
DIR(0	ABMDPAY+7, SEL+1, SEL+8*
>> DIROUT	SEL+5, BL+23
>> DIRUT	SEL+5, BL+23
>> DR	SEL+16, BL+16
>> DTOUT	BL+23, BL+25
>> DUOUT	BL+23, BL+25
DUZ(2	SEL+7, SEL+8, SEL+10, SEL+11, SEL+15, SEL+16, SEL+18, SEL+19, BL, BL+16 , XIT+1
U	SEL*, SEL+8, SEL+10, SEL+11, SEL+15, SEL+16, SEL+17, SEL+19, DISP+3, DISP+4 , DISP+7, DISP+8, DISP+9, BL, BL+2, BL+3, BL+13, BL+15, BL+16, BL+19
>> Y	ABMDPAY+3*, BL+23, BL+24

Customize PDF page

Package: Third Party Billing

Routine: ABMDPAY

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Line Occurrences
@(	BL+24
DISP	BL+25
SEL	SEL+10, BL+23, BL+25
XIT	SEL+5, SEL+6, SEL+7, SEL+8, BL+23, BL+25

Name	Comments	DBIA/ICR reference
DISP
BL
SEL
XIT	;CLEAN UP AND QUIT