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

Package: Third Party Billing

Routine: ABMDBDIC


Information

ABMDBDIC ; IHS/ASDST/DMJ - Bill Selection ;

Source Information

Source file <ABMDBDIC.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 9

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