Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: ABMDPAY

Package: Third Party Billing

Routine: ABMDPAY


Information

ABMDPAY ; IHS/ASDST/DMJ - Payment of Bill ;

Source Information

Source file <ABMDPAY.m>

Call Graph

Call Graph Total: 8

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

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

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> 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

Marked Items

Name Field # of Occurrence
$T(TPB^BARUP ABMDPAY+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All