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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ABMDBLK

Package: Third Party Billing

Routine: ABMDBLK


Information

ABMDBLK ; IHS/ASDST/DMJ - Bill Selection ;

Source Information

Source file <ABMDBLK.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Third Party Billing 3 ABMDF14D  ABMDF3D  ABMDIPS  

Entry Points

Name Comments DBIA/ICR reference
SELO
PAT ;PATIENT LOOKUP
BENT ;EP - for doing Bill File lookup with DIC variables
54 ;EP - 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
$$F54^ABMDFUTL 54+1
$$HDT^ABMDUTL DICW+4, DICW+8
$$SDT^ABMDUTL ID+9
PAT^ABMDUTL PAT+6, ID+1
^DIC BILL+10, BILL+15, PAT+2, BENT+4, SELO
^DIR BILL+5, BILL+18, SEL+2
$$NPI^XUSNPI 54+30

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: ?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: ?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+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+12
^ABMDVTYP - [#9002274.8] ID+10, DICW+9
^ABMNINS( 54+6, 54+12, 54+13
^AUPNPAT - [#9000001] DICW+6
^AUTNINS - [#9999999.18] ID+15, DICW+11, 54+7
^AUTTLOC - [#9999999.06] ID+12, DICW+6, DICW+10
^DD(9002274.4 BILL+21
^DIC(40.7 - [#40.7] ID+11, DICW+10
^DPT - [#2] PAT+4, DICW+1
^VA(200 - [#200] 54+4, 54+16

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+6, DICW+7, DICW+9, DICW+10, DICW+11, DICW+12, DICW+16!
ABM(1 ID+8
ABM(10 ID+11
ABM(2 ID+6*, ID+16, DICW+13
ABM(3 ID+12
ABM(4 ID+7*, ID+14
ABM(6 ID+13
ABM(7 ID+6*, ID+9, ID+10, DICW+8, DICW+16!
ABM(8 ID+15
>> ABMDPT DICW+1*, DICW+2, DICW+3, DICW+4, DICW+5
>> ABMF(54 54+12*, 54+13*, 54+21, 54+22*, 54+24*, 54+29*, 54+30*
>> 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("EXP" 54+12, 54+13, 54+21, 54+22, 54+29, 54+30
>> ABMP("INS" 54+4, 54+6, 54+7, 54+12, 54+13
>> ABMP("ITYPE" 54+5, 54+15
>> ABMP("PDFN" NUM+5*, PAT+4*, PAT+6, PAT+8, ID+1
>> ABMP("VTYP" 54+7
>> ABMPNUM 54+4*, 54+5, 54+6*, 54+15, 54+16*, 54+29
>> ABMPROV 54+2*, 54+3, 54+4, 54+6, 54+12, 54+16, 54+30
>> 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+14*
>> 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+6, 54+6, 54+12, 54+13
>> DZ DICW+1, DICW+7, DICW+15
>> 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+9, DICW+10, DICW+11, DICW+12
, 54+6, 54+7, 54+12, 54+13, 54+21, 54+22, 54+24, 54+29, 54+30
>> X BILL+9*, BILL+14*, PAT+1*, BENT+5, BENT+6, DICW+7, 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All