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

Package: Third Party Billing

Routine: ABMZIPS


Information

ABMZIPS ;IHS/DSD/DMJ - GENERATE CLAIMS FOR AHCCCS PHYSICIAN IP SVCS. [ 05/01/98 11:11 AM ]

Source Information

Source file <ABMZIPS.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 6 ^%DT  (,NOW)^%DTC  ^DIC  ^DIE  IX1^DIK  ^DIR  
Third Party Billing 4 $$ADD^ABMDBAD1  $$SDT^ABMDUTL  $$^ABMVDF  ^ABMZBDIC  

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
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
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
$$ADD^ABMDBAD1 NBILL+24
$$SDT^ABMDUTL ONE+4, ONE+5
$$^ABMVDF START+2, START+5, HDR+1
^ABMZBDIC IND+2
^DIC PAY+4, CODE+4, PHY+9, NB+5, BFILE+7
^DIE NB+11
IX1^DIK MED+4
^DIR RATE+7, ASK+4, BY+8, UNIT+4, NBILL+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$^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: !,$$^ABMVDF("RVN"),"NOTE:",$$^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,"^",1),?10,$P(^DPT(ABMPAT,0),"^",1)
  • Line Location: ONE+3
Function Call: WRITE
  • Prompt: ?40,$$SDT^ABMDUTL($P($G(^ABMDBILL(DUZ(2),ABMP("BDFN"),7)),"^",1))
  • 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+25
Function Call: WRITE
  • Prompt: !!,"Bill # ",ABMBNAME," created"
  • Line Location: NBILL+27
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: $$^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+11
Routine Call
  • DIC
  • Line Location:
    • PAY+4
    • CODE+4
    • PHY+9
    • NB+5
    • BFILE+7
Routine Call
  • DIR
  • Line Location:
    • RATE+7
    • ASK+4
    • BY+8
    • UNIT+4
    • NBILL+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^ICPT - [#81] Classic Fileman Calls
^ABMDTXST - [#9002274.6] Classic Fileman Calls
^AUTNINS - [#9999999.18] 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+6, NBILL+26, NBILL+29
, NBILL+30*, NBILL+31, NBILL+32*, NBILL+33*, MED+1*, MED+2*, MED+3*, SET+1, SET+3, DUP+2
, DUP+3, DUP+4, DUP+5, DUP+7
^ABMDFEE(1 RATE+2, RATE+4
^ABMDTMP("IPSVC" LOOP+7, BY+6*
^ABMDTXST - [#9002274.6] BFILE+6
^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
^(8 NBILL+31*

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+9!
ABM( ASK+8
ABM("EQ" HDR+2*, HDR+7
ABM(1 ASK+6*
ABM(2 ASK+7*
>> ABM1 NBILL+24
>> ABM1( 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*, NBILL+23*
ABMBATCH ASK+9!, ONE+10, NB+7*, NB+8, NBILL+21, BFILE+4, BFILE+9
>> ABMBDFN NBILL+24*
ABMBNAME ASK+9!, NBILL+26*, NBILL+27, BFILE+3
>> ABMCNT ONE+1*, ONE+7*, PHY+3, PHY+4
ABMCODE CODE+5*, RATE+2, ASK+9!, MED+2
>> ABMDA RATE+2*, RATE+3, RATE+4
ABMDICSV ASK+9!
>> ABMDPV DUP+5*, DUP+6
ABMDTF ASK+9!, UNIT+1, SET+3*, DUP+4
ABMDTT ASK+9!, UNIT+1, SET+3*
ABMDUP ASK+9!, NBILL+2, NBILL+6, DUP+1!, DUP+2, DUP+8*
>> ABMI RATE+1*, RATE+2, RATE+4
>> ABMINAME PAY+7*, LOOP+7, BY+6
ABMINS PAY+5*, PAY+6, PAY+7, ASK+9!, BY+1, NB+10, NBILL+15, DUP+7
>> ABMITYP PAY+6*, NB+10
>> 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+29, NBILL+30, SET+1, SET+3
ABMPAT ASK+9!, ONE+3, SET+2*, DUP+2
ABMPHY ASK+9!, PHY+2!, PHY+3*, PHY+4*, PHY+5*, PHY+6, PHY+11*, NBILL+33, DUP+6
ABMQUIT START+1!, ASK+9!, BY+1, BY+9!, IND+6!, ONE+6, ONE+8, ONE+9, ONE+10, PHY+10*
, UNIT+6*, NB+6*
>> ABMRATE RATE+4*, RATE+6, RATE+8*, NBILL+22, NBILL+23, MED+2
>> ABMSDT LOOP+6*, BY+2
ABMUNIT ASK+9!, UNIT+5*, UNIT+6, NBILL+22, NBILL+23, MED+2
>> ABMZERO BY+4, ONE+3, NBILL+11, NBILL+12, NBILL+17, SET+1*, SET+2
DA ONE+12, NB+8*, NBILL+1!, NBILL+25, NBILL+26, NBILL+30, NBILL+31, NBILL+32, NBILL+33, MED+1
, MED+2, MED+3
DA(1 BFILE+4*, BFILE+6
DIC PAY+1!, PAY+3*, CODE+1!, CODE+2*, PHY+2!, PHY+7*, NB+1!, NB+2*, NB+9, BFILE+1!
, BFILE+5*
DIC("A" PHY+8*
DIC("B" PAY+2*, CODE+3*, PHY+6*
DIC(0 PAY+3*, CODE+2*, PHY+7*, NB+3*, BFILE+2*
>> DIE NB+9*
>> DIK MED+4*
DIR RATE+7!, ASK+4!, BY+8!, UNIT+4!, NBILL+9!
DIR("A" RATE+5*, ASK+2*, BY+7*, UNIT+3*, NBILL+7*
DIR("B" RATE+6*, ASK+3*, UNIT+1*, NBILL+8*
DIR(0 RATE+7*, ASK+1*, BY+7*, UNIT+2*, NBILL+9*
>> DR NB+10*
DT NBILL+19
DUZ NB+10, NBILL+18
DUZ(2 BY+1, BY+2, ONE+4, ONE+5, PHY+3, PHY+4, PHY+5, NBILL+6, NBILL+26, NBILL+29
, NBILL+30, NBILL+31, NBILL+32, NBILL+33, MED+1, MED+2, MED+3, BFILE+6, SET+1, SET+3
, DUP+2, DUP+3, DUP+4, DUP+5, DUP+7
I NBILL+28~*, NBILL+29, NBILL+30, DUP+2~*, DUP+3, DUP+4, DUP+5, DUP+7, DUP+8
IOSL ONE+2
>> X UNIT+1, NB+4*, BFILE+3*
>> X1 UNIT+1*
>> X2 UNIT+1*
>> Y PAY+4, PAY+5, CODE+4, CODE+5, RATE+8, 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