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 |  Local Variables  | All
Print Page as PDF
Routine: IBOA31

Package: Integrated Billing

Routine: IBOA31


Information

IBOA31 ;ALB/AAS - PRINT ALL BILLS FOR A PATIENT ;04/18/90

Source Information

Source file <IBOA31.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Integrated Billing 7 UTIL^IBCA3  GVAR^IBCBB  END^IBCBB1  $$PT^IBEFUNC  UTIL^IBOA32  $$DAT1^IBOUTL  ($$GETEXCEL,PRTEXCEL)^IBUCMM  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 3 NOW^%DTC  ^DIC  ^DIR  
Accounts Receivable 1 $$TPR^PRCAFN  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IB LIST ALL BILLS FOR PAT.  IBJDF11  IBOA32  IBOTR2  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DQ ;
ENQ
ONE
HDR
HDR1
PAUSE
END
EEOB(IBIFN) ; --
; IB*2.0*451 - find an EOB payment for bill
; IBIFN is the IEN of the bill # in file #399 and must be valid
; check the EOB type in file #361.1 and exclude MRA type (Medicare). Otherwise return
; the EEOB indicator '%' if payment activity was found in file #361.1
XCELOPT ; Control routine to print the report in Excel Format
XCELONE ; print the Third Party Data in Excel Format
XCELCPY ; print the First Party Data in Excel Format

External References

Name Field # of Occurrence
NOW^%DTC EN+7, DQ+3
^%ZIS EN+44
HOME^%ZIS EN+47
^%ZISC END+7
^%ZTLOAD EN+47
^DIC EN+10
^DIR EN+15, EN+24, EN+29, EN+36
UTIL^IBCA3 DQ+7
GVAR^IBCBB ONE
END^IBCBB1 END+4
$$PT^IBEFUNC DQ+4
UTIL^IBOA32 DQ+8
$$DAT1^IBOUTL ONE+5, ONE+7, ONE+14, ONE+16, ONE+18, ONE+26, ONE+28
$$GETEXCEL^IBUCMM EN+40
PRTEXCEL^IBUCMM EN+41
$$TPR^PRCAFN ONE+8, ONE+19
DEM^VADPT DQ+6
$$FMTE^XLFDT EN+35

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You will need a 132 column printer for this report."
  • Line Location: EN+43
Function Call: WRITE
  • Prompt: !,"No Bills On File for ",$P(IBN,"^")," DOB: ",$P(VADM(3),U,2),"."
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ENQ+0
Function Call: WRITE
  • Prompt: !,$G(IBPFLAG)_IBBNO,?9,$$DAT1^IBOUTL($P(IBNDS,"^",12)),?19,$P($G(^DGCR(399.3,+IBAT,0)),"^")
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: ?38,$E($S(IBCL=1:"INPATIENT",IBCL=2:"HUMANIT. (INPT)",IBCL=3:"OUTPATIENT",IBCL=4:"HUMANIT. (OPT)",1:""),1,14),?55
  • Line Location: ONE+6
Function Call: WRITE
  • Prompt: $S(I]"":$$DAT1^IBOUTL(I)_" ",1:" ")
  • Line Location: ONE+7
Function Call: WRITE
  • Prompt: $J($S(X<0:0,1:X),8,2)
  • Line Location: ONE+8
Function Call: WRITE
  • Prompt: ?95,$S(IBST=1:"ENTERED/NOT REV.",IBST=2:"REVIEWED",IBST=3:"AUTHORIZED",IBST=4:"PRINTED",IBST=7:"CANCELLED",1:"")
  • Line Location: ONE+9
Function Call: WRITE
  • Prompt: ?112,$P("NON-PAYMENT/ZERO^ADMIT - DISCHARGE^INTERIM - FIRST^INTERIM - CONTINUING^INTERIM - LAST^LATE CHARGE(S) ONLY^ADJUSTMENT OF PRIOR^REPLACEMENT OF PRIOR","^",(IBTF+1))
  • Line Location: ONE+10
Function Call: WRITE
  • Prompt: !?55,$$DAT1^IBOUTL(IBOPD)
  • Line Location: ONE+14
Function Call: WRITE
  • Prompt: !,$G(IBPFLAG)_IBBNO,U,$$DAT1^IBOUTL($P(IBNDS,"^",12)),U,$P($G(^DGCR(399.3,+IBAT,0)),"^")
  • Line Location: ONE+16
Function Call: WRITE
  • Prompt: U,$E($S(IBCL=1:"INPATIENT",IBCL=2:"HUMANIT. (INPT)",IBCL=3:"OUTPATIENT",IBCL=4:"HUMANIT. (OPT)",1:""),1,14),U
  • Line Location: ONE+17
Function Call: WRITE
  • Prompt: $S(I]"":$$DAT1^IBOUTL(I)_"^",1:"^")
  • Line Location: ONE+18
Function Call: WRITE
  • Prompt: X
  • Line Location: ONE+19
Function Call: WRITE
  • Prompt: U,$S(IBST=1:"ENTERED/NOT REV.",IBST=2:"REVIEWED",IBST=3:"AUTHORIZED",IBST=4:"PRINTED",IBST=7:"CANCELLED",1:"")
  • Line Location: ONE+20
Function Call: WRITE
  • Prompt: U,$P("NON-PAYMENT/ZERO^ADMIT - DISCHARGE^INTERIM - FIRST^INTERIM - CONTINUING^INTERIM - LAST^LATE CHARGE(S) ONLY^ADJUSTMENT OF PRIOR^REPLACEMENT OF PRIOR","^",(IBTF+1))
  • Line Location: ONE+21
Function Call: WRITE
  • Prompt: !,$G(IBPFLAG)_IBBNO,U,$$DAT1^IBOUTL($P(IBNDS,"^",12)),U,$P($G(^DGCR(399.3,+IBAT,0)),"^")
  • Line Location: ONE+26
Function Call: WRITE
  • Prompt: U,$E($S(IBCL=1:"INPATIENT",IBCL=2:"HUMANIT. (INPT)",IBCL=3:"OUTPATIENT",IBCL=4:"HUMANIT. (OPT)",1:""),1,14),U
  • Line Location: ONE+27
Function Call: WRITE
  • Prompt: $$DAT1^IBOUTL(IBOPD)
  • Line Location: ONE+28
Function Call: WRITE
  • Prompt: "List of all Bills for ",$P(IBN,"^")," DOB: ",$P(VADM(3),U,2)," ",?(IOM-31),IBNOW," PAGE ",IBPAG
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: !,"BILL",?10,"DATE",?55,"DATE OF",?64,"STATEMENT STATEMENT AMOUNT"
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !,"NO. PRINTED ACTION/RATE TYPE CLASSIFICATION CARE "
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: $S(IBIBRX=1:" FR/FL DT TO/RL DT",1:" FROM DATE TO DATE")
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: " COLLECTED STATUS TIMEFRAME OF BILL"
  • Line Location: HDR1+7
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: HDR1+8
Function Call: WRITE
  • Prompt: "List of all Bills for ",$P(IBN,"^")," DOB: ",$P(VADM(3),U,2),U,IBNOW,U,"PAGE ",IBPAG
  • Line Location: HDR1+11
Function Call: WRITE
  • Prompt: !,"BILL NO.",U,"DATE PRINTED",U,"ACTION/RATE TYPE",U,"CLASSIFICATION",U,"DATE OF CARE"
  • Line Location: HDR1+12
Function Call: WRITE
  • Prompt: U,"AMOUNT COLLECTED",U,"STATUS",U,"TIMEFRAME OF BILL"
  • Line Location: HDR1+15
Routine Call
  • DIC
  • Line Location:
    • EN+10
Routine Call
  • DIR
  • Line Location:
    • EN+15
    • EN+24
    • EN+29
    • EN+36
Routine Call
  • %ZIS
  • Line Location:
    • EN+44
Routine Call
  • %ZIS
  • Line Location:
    • EN+47

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DQ+3
^DGCR(399 - [#399] ONE+3, ONE+7, ONE+12, ONE+13, ONE+18, ONE+23, ONE+24, EEOB+8
^DGCR(399.3 - [#399.3] ONE+5, ONE+16, ONE+26
^IBM(361.1 - [#361.1] EEOB+7, EEOB+10, EEOB+11
^UTILITY($J DQ+9, DQ+12, DQ+16, END!

Label References

Name Line Occurrences
$$EEOB ONE+3
@( DQ+18, XCELOPT+2
EN END+7
END EN+15, EN+24, EN+29, EN+36, EN+40, ENQ
ENQ EN+44, EN+45, DQ+9
HDR ONE+1, ONE+14, ONE+25
HDR1 DQ+10
PAUSE DQ+19, HDR

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+7, DQ+3
>> %ZIS EN+44*
DFN EN+10*, DQ+4, END+5!
DIC EN+10*!
DIC(0 EN+10*
DIR EN+15!, EN+24!, EN+29!, EN+36!
DIR("?" EN+12*, EN+13*, EN+14*, EN+20*, EN+21*, EN+22*, EN+23*
DIR("A" EN+11*, EN+19*, EN+28*, EN+34*
DIR("B" EN+11*, EN+19*, EN+35*
DIR(0 EN+11*, EN+19*, EN+28*, EN+33*
DIRUT EN+15, EN+24, EN+29, EN+36, END+5!
DPTNOFZY EN+4~, EN+9*
DTIME PAUSE
DTOUT END+5!
DUOUT END+5!
>> I ONE+7*, ONE+18*
>> IBAT ONE+5, ONE+16, ONE+26
>> IBBNO ONE+3, ONE+5, ONE+16, ONE+26
>> IBCL ONE+6, ONE+7, ONE+17, ONE+18, ONE+27
IBCNT END+5!
IBDT DQ+10*, DQ+12*, DQ+14, DQ+16, END+5!
IBENDDT EN+4~, EN+36*, DQ+15, END+6!
>> IBEVDT ONE+7, ONE+18
IBEXCEL EN+4~, EN+40*, EN+41, EN+43, ONE+1, ONE+4, ONE+15, HDR1+2, END+6!
>> IBFDT ONE+7, ONE+18
IBFTP EN+4~, EN+24*, DQ+7, DQ+8, END+6!
IBIBRX EN+15*, HDR1+6, HDR1+9, HDR1+13, HDR1+14, HDR1+16, END+5!
IBIFN DQ+10*, DQ+16*, DQ+18, ONE+3*, ONE+7, ONE+8, ONE+12, ONE+13, ONE+18, ONE+19
, ONE+23, ONE+24, END+5!, EEOB~, EEOB+6, EEOB+7, EEOB+8, EEOB+10, XCELOPT+2
IBIFN1 END+5!
IBIVDT EN+4~, DQ+14*, DQ+15, END+6!
IBLINE DQ+3*, HDR1+8, HDR1+9, END+5!
IBN DQ+4*, DQ+9, HDR1+3, HDR1+11, END+5!
>> IBNDS ONE+5, ONE+16, ONE+26
IBNOW DQ+3*, HDR1+3, HDR1+11, END+5!
IBOPD ONE+12*, ONE+13*, ONE+14, ONE+23*, ONE+24*, ONE+28, END+5!
IBPAG DQ+3*, HDR1*, HDR1+3, HDR1+11, END+5!
IBPFLAG ONE+3*, ONE+5, ONE+16, ONE+26, EEOB+5~, EEOB+10, EEOB+12*, EEOB+13
IBQUIT DQ+4*, DQ+12, DQ+16, DQ+19, ONE+1, ONE+13, ONE+14, ONE+24, ONE+25, HDR
, PAUSE*, END+5!
IBRDT END+6!
IBRF END+6!
IBRX END+6!
>> IBST ONE+9, ONE+20
IBSTDT EN+4~, EN+29*, EN+33, DQ+15, END+6!
>> IBTDT ONE+7, ONE+18
>> IBTF ONE+10, ONE+21
IBTODAY EN+4~, EN+7*, EN+33, EN+35, END+6!
IBVAL EEOB+5~, EEOB+11*, EEOB+12
IBX1 PAUSE*, END+5!
IO DQ+3
IO("Q" EN+45!
IOF HDR1
IOM DQ+3, HDR1+3
IOSL ONE+1, ONE+14, ONE+25
IOST HDR, HDR1, PAUSE
>> POP EN+44
U DQ+9, ONE+16, ONE+17, ONE+20, ONE+21, ONE+26, ONE+27, HDR1+3, HDR1+11, HDR1+12
, HDR1+13, HDR1+14, HDR1+15
VADM DQ+5!
VADM(3 DQ+9, HDR1+3, HDR1+11
X ONE+8*, ONE+19*, END+5!
Y EN+10, EN+15, EN+18!, EN+24, EN+27!, EN+29, EN+32!, EN+36, EN+37!, DQ+3*
, END+5!
Z EEOB+5~, EEOB+10*, EEOB+11
>> ZTDESC EN+46*
>> ZTQUEUED END+3
>> ZTREQ END+3*
>> ZTRTN EN+46*
>> ZTSAVE("DFN" EN+46*
>> ZTSAVE("IB*" EN+46*
ZTSK EN+47!
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 |  Local Variables  | All