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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ABMDIPS

Package: Third Party Billing

Routine: ABMDIPS


Information

ABMDIPS ; IHS/ASDST/DMJ - GENERATE BILLS FOR PHYSICIAN IP SVCS. ;

Source Information

Source file <ABMDIPS.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Third Party Billing 6 $$CPT^ABMCVAPI  $$ADD^ABMDBAD1  ^ABMDBLK  ($$SDT,EOP)^ABMDUTL  $$ONE^ABMFEAPI  $$EN^ABMVDF  
VA Fileman 6 ^%DT  (,NOW)^%DTC  ^DIC  ^DIE  IX1^DIK  ^DIR  

Entry Points

Name Comments DBIA/ICR reference
MED ;file entry under misc svcs
CODE ;enter procedure code
BFILE ;file in 3P TX STATUS file
PAY ;enter payer
NB ;enter new batch in file 9002274.6
REV ;revenue code
PHY ;enter physician
ONE ;process one bill
DUP ;check for duplicate bill
START ;START
RATE ;get rate
SET ;set some variables
NBILL ;create bill in bill file
UNIT ;enter units
EXP ;mode of export
ASK ;ask look-up method
IND ;process one at a time
BY ;bypass with different ien
LOOP ;LOOP HERE
HDR ;screen header

External References

Name Field # of Occurrence
^%DT LOOP+5
^%DTC UNIT+1
NOW^%DTC NB+4
$$CPT^ABMCVAPI CODE+2
$$ADD^ABMDBAD1 NBILL+23
^ABMDBLK IND+2
$$SDT^ABMDUTL ONE+4, ONE+5
EOP^ABMDUTL PAY+13, ASK+9
$$ONE^ABMFEAPI RATE+5
$$EN^ABMVDF START+2, START+5, HDR+1
^DIC PAY+4, CODE+7, EXP+5, REV+7, PHY+9, NB+5, BFILE+7
^DIE NB+12
IX1^DIK MED+4
^DIR RATE+8, ASK+4, BY+8, UNIT+4, NBILL+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$EN^ABMVDF("IOF")
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!,"This option will generate 3P Bills"
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !,"for inpatient physician services.",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !,$$EN^ABMVDF("RVN"),"NOTE:",$$EN^ABMVDF("RVF"),"To use this option an inpatient bill must already exist"
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,"in 3P Bill File.",!!
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !!,"Begin Loop",!
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !,$P(ABMZERO,U),?10,$P(^DPT(ABMPAT,0),U)
  • Line Location: ONE+3
Function Call: WRITE
  • Prompt: ?40,$$SDT^ABMDUTL($P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),7)),U))
  • Line Location: ONE+4
Function Call: WRITE
  • Prompt: ?55,$$SDT^ABMDUTL($P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),7)),"^",2))
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PHY+1
Function Call: WRITE
  • Prompt: !!,"Bill NOT created."
  • Line Location: NBILL+24
Function Call: WRITE
  • Prompt: !!,"Bill # ",ABMBNAME," created"
  • Line Location: NBILL+26
Function Call: WRITE
  • Prompt: !!,*7,"Bill NOT added to 3P TX STATUS FILE",!
  • Line Location: BFILE+8
Function Call: WRITE
  • Prompt: " - added to batch # ",ABMBATCH,!
  • Line Location: BFILE+9
Function Call: WRITE
  • Prompt: $$EN^ABMVDF("IOF")
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"BILL #"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?10,"PATIENT"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?40,"ADMIT DATE"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?55,"DISCHARGE DATE"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,ABM("EQ"),!
  • Line Location: HDR+7
Routine Call
  • DIE
  • Line Location:
    • NB+12
Routine Call
  • DIC
  • Line Location:
    • PAY+4
    • CODE+7
    • EXP+5
    • REV+7
    • PHY+9
    • NB+5
    • BFILE+7
Routine Call
  • DIR
  • Line Location:
    • RATE+8
    • ASK+4
    • BY+8
    • UNIT+4
    • NBILL+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^ICPT - [#81] Classic Fileman Calls
^ABMDEXP - [#9002274.08] Classic Fileman Calls
^ABMDTXST - [#9002274.6] Classic Fileman Calls
^AUTNINS - [#9999999.18] Classic Fileman Calls
^AUTTREVN - [#9999999.72] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( BY+1, BY+2, ONE+4, ONE+5, PHY+3, PHY+4, PHY+5, NBILL+25, NBILL+28, NBILL+29*
, NBILL+30*, NBILL+31*, MED+1*, MED+2*, MED+3*, SET+1, SET+3, DUP+2, DUP+3, DUP+4
, DUP+5, DUP+7
^ABMDEXP - [#9002274.08] EXP+7, NB+11
^ABMDFEE(1 RATE+2
^ABMDTMP("IPSVC" LOOP+7, BY+6*
^ABMDTXST - [#9002274.6] BFILE+6
^ABMNINS( PAY+9
^AUTNINS - [#9999999.18] PAY+6, PAY+7
^DPT - [#2] ONE+3
^VA(200 - [#200] PHY+6

Label References

Name Line Occurrences
@( ASK+8
BFILE ONE+13
DUP NBILL+2
HDR ONE+2
NB ONE+10
NBILL ONE+11
ONE BY+5, IND+5
PHY ONE+8
SET BY+3, IND+4
UNIT ONE+9

Naked Globals

Name Field # of Occurrence
^(0 BFILE+6*
^(7 SET+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % NB+4
>> %DT LOOP+4*
>> %DT("A" LOOP+2*
>> %DT("B" LOOP+3*
ABM ASK+10!
ABM( ASK+8
ABM("EQ" HDR+2*, HDR+7
ABM(1 ASK+6*
ABM(2 ASK+7*
>> ABM1 NBILL+23
>> ABM1( NBILL+9*, NBILL+10*, NBILL+11*, NBILL+12*, NBILL+13*, NBILL+14*, NBILL+15*, NBILL+16*, NBILL+17*, NBILL+18*
, NBILL+19*, NBILL+20*, NBILL+21*, NBILL+22*
>> ABMAPOK MED+3*
ABMBATCH ASK+10!, ONE+10, NB+7*, NB+8, NBILL+20, BFILE+4, BFILE+9
>> ABMBDFN NBILL+23*
ABMBNAME ASK+10!, NBILL+25*, NBILL+26, BFILE+3
>> ABMCNT ONE+1*, ONE+7*, PHY+3, PHY+4
ABMCODE CODE+1*, CODE+2*, CODE+6, CODE+8*, RATE+2, ASK+10!, MED+2
>> ABMDA RATE+2*, RATE+3, RATE+5
ABMDICSV ASK+10!
>> ABMDPV DUP+5*, DUP+6
ABMDTF ASK+10!, UNIT+1, SET+3*, DUP+4
ABMDTT ASK+10!, UNIT+1, SET+3*
ABMDUP ASK+10!, NBILL+2, DUP+1!, DUP+8*
>> ABMI RATE+1*, RATE+2, RATE+5
ABMI0 PAY+9*, PAY+10, CODE+1, EXP+1, REV+2, ASK+10!
>> ABMINAME PAY+7*, PAY+11, LOOP+7, BY+6
ABMINS PAY+5*, PAY+6, PAY+7, PAY+9, ASK+10!, BY+1, NB+10, NBILL+14, DUP+7
>> ABMITYP PAY+6*, NB+10
ABMMOE EXP+1*, EXP+2, EXP+5*, EXP+6, EXP+7, ASK+10!, NB+10, NB+11, NBILL+12
>> ABMP("BDFN" LOOP+7*, BY+1*, BY+2, BY+6, IND+1, IND+3, ONE+4, ONE+5, PHY+3, PHY+4
, PHY+5, NBILL+28, NBILL+29, SET+1, SET+3
>> ABMP("VDT" CODE+2, RATE+5
ABMPAT ASK+10!, ONE+3, SET+2*, DUP+2
ABMPHY ASK+10!, PHY+2!, PHY+3*, PHY+4*, PHY+5*, PHY+6, PHY+11*, NBILL+31, DUP+6
ABMQUIT START+1!, ASK+10!, BY+1, BY+9!, IND+6!, ONE+6, ONE+8, ONE+9, ONE+10, PHY+10*
, UNIT+6*, NB+6*
>> ABMRATE RATE+5*, RATE+7, RATE+9*, NBILL+21, NBILL+22, MED+2
ABMRVCD REV+2*, REV+3, REV+7*, ASK+10!, MED+2
>> ABMSDT LOOP+6*, BY+2
>> ABMUB EXP+7*, REV+1
ABMUNIT ASK+10!, UNIT+5*, UNIT+6, NBILL+21, NBILL+22, MED+2
>> ABMZERO BY+4, ONE+3, NBILL+10, NBILL+11, NBILL+16, SET+1*, SET+2
DA ONE+12, NB+8*, NBILL+1!, NBILL+24, NBILL+25, NBILL+29, NBILL+30, NBILL+31, MED+1, MED+2
, MED+3
DA(1 BFILE+4*, BFILE+6
DIC PAY+1!, PAY+3*, CODE+3!, CODE+4*, EXP+4!*, REV+5!*, ASK+10!, PHY+2!, PHY+7*, NB+1!
, NB+2*, NB+9, BFILE+1!, BFILE+5*
DIC("A" CODE+5*, REV+6*, PHY+8*
DIC("B" PAY+2*, CODE+6*, PHY+6*
DIC(0 PAY+3*, CODE+4*, EXP+4*, REV+5*, PHY+7*, NB+3*, BFILE+2*
>> DIE NB+9*
>> DIK MED+4*
DIR RATE+8!, ASK+4!, BY+8!, UNIT+4!, NBILL+8!
DIR("A" RATE+6*, ASK+2*, ASK+9*, BY+7*, UNIT+3*, NBILL+6*
DIR("B" RATE+7*, ASK+3*, UNIT+1*, NBILL+7*
DIR(0 RATE+8*, ASK+1*, BY+7*, UNIT+2*, NBILL+8*
>> DR NB+10*, NB+11*
DT RATE+5, NBILL+18
DUZ NB+10, NBILL+17
DUZ(2 PAY+9, BY+1, BY+2, ONE+4, ONE+5, PHY+3, PHY+4, PHY+5, NBILL+25, NBILL+28
, NBILL+29, NBILL+30, NBILL+31, MED+1, MED+2, MED+3, BFILE+6, SET+1, SET+3, DUP+2
, DUP+3, DUP+4, DUP+5, DUP+7
I NBILL+27~*, NBILL+28, NBILL+29, DUP+2~*, DUP+3, DUP+4, DUP+5, DUP+7
IOSL ONE+2
U PAY+6, PAY+7, CODE+2, RATE+5, BY+2, ONE+3, ONE+4, PHY+5, PHY+6, NBILL+25
, SET+3, DUP+4, DUP+5
>> X UNIT+1, NB+4*, BFILE+3*
>> X1 UNIT+1*
>> X2 UNIT+1*
>> Y PAY+4, PAY+5, CODE+7, CODE+8, RATE+9, EXP+5, REV+7, ASK+5, ASK+8, LOOP+6
, BY+9, PHY+10, PHY+11, UNIT+5, NB+6, NB+7, NBILL+2, BFILE+8
Info |  Source |  Call 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