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

Package Total Call Graph
Integrated Billing 6 UTIL^IBCA3  GVAR^IBCBB  END^IBCBB1  $$PT^IBEFUNC  UTIL^IBOA32  $$DAT1^IBOUTL  
Kernel 3 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 NOW^%DTC  ^DIC  ^DIR  
Accounts Receivable 1 $$TPR^PRCAFN  

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

External References

Name Field # of Occurrence
NOW^%DTC DQ+3
^%ZIS EN+12
HOME^%ZIS EN+15
^%ZISC END+7
^%ZTLOAD EN+15
^DIC EN+5
^DIR EN+10
UTIL^IBCA3 DQ+4
GVAR^IBCBB ONE
END^IBCBB1 END+4
$$PT^IBEFUNC DQ+4
UTIL^IBOA32 DQ+4
$$DAT1^IBOUTL ONE+4, ONE+6, ONE+13
$$TPR^PRCAFN ONE+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You will need a 132 column printer for this report."
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,"No Bills On File for ",$P(IBN,"^")," SSN: ",$P(IBN,"^",2),"."
  • Line Location: DQ+5
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+4
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+5
Function Call: WRITE
  • Prompt: $S(I]"":$$DAT1^IBOUTL(I)_" ",1:" ")
  • Line Location: ONE+6
Function Call: WRITE
  • Prompt: $J($S(X<0:0,1:X),8,2)
  • Line Location: ONE+7
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+8
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+9
Function Call: WRITE
  • Prompt: !?55,$$DAT1^IBOUTL(IBOPD)
  • Line Location: ONE+13
Function Call: WRITE
  • Prompt: "List of all Bills for ",$P(IBN,"^")," SSN: ",$P(IBN,"^",2)," ",?(IOM-31),IBNOW," PAGE ",IBPAG
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,"BILL",?10,"DATE",?55,"DATE OF",?64,"STATEMENT STATEMENT AMOUNT"
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,"NO. PRINTED ACTION/RATE TYPE CLASSIFICATION CARE "
  • Line Location: HDR1+3
Function Call: WRITE
  • Prompt: $S(IBIBRX=1:" FR/FL DT TO/RL DT",1:" FROM DATE TO DATE")
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: " COLLECTED STATUS TIMEFRAME OF BILL"
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !,IBLINE
  • Line Location: HDR1+6
Routine Call
  • DIC
  • Line Location:
    • EN+5
Routine Call
  • DIR
  • Line Location:
    • EN+10
Routine Call
  • %ZIS
  • Line Location:
    • EN+12
Routine Call
  • %ZIS
  • Line Location:
    • EN+15

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+6, ONE+11, ONE+12, EEOB+8
^DGCR(399.3 - [#399.3] ONE+4
^IBM(361.1 - [#361.1] EEOB+7, EEOB+10, EEOB+11
^UTILITY($J DQ+5, DQ+8, DQ+9, END!

Label References

Name Line Occurrences
$$EEOB ONE+3
@( DQ+9
EN END+7
END EN+10, ENQ
ENQ EN+12, EN+13, DQ+5
HDR ONE+1, ONE+13
HDR1 DQ+6
PAUSE DQ+10, HDR

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DQ+3
>> %ZIS EN+12*
DFN EN+5*, DQ+4, END+5!
DIC EN+5*!
DIC(0 EN+5*
DIR EN+10!
DIR("?" EN+7*, EN+8*, EN+9*
DIR("A" EN+6*
DIR("B" EN+6*
DIR(0 EN+6*
DIRUT EN+10, END+5!
DPTNOFZY EN+4~*
DTIME PAUSE
DTOUT END+5!
DUOUT END+5!
>> I ONE+6*
>> IBAT ONE+4
>> IBBNO ONE+3, ONE+4
>> IBCL ONE+5, ONE+6
IBCNT END+5!
IBDT DQ+6*, DQ+8*, DQ+9, END+5!
>> IBEVDT ONE+6
>> IBFDT ONE+6
IBIBRX EN+10*, HDR1+4, HDR1+7, END+5!
IBIFN DQ+6*, DQ+9*, ONE+3*, ONE+6, ONE+7, ONE+11, ONE+12, END+5!, EEOB~, EEOB+6
, EEOB+7, EEOB+8, EEOB+10
IBIFN1 END+5!
IBLINE DQ+3*, HDR1+6, HDR1+7, END+5!
IBN DQ+4*, DQ+5, HDR1+1, END+5!
>> IBNDS ONE+4
IBNOW DQ+3*, HDR1+1, END+5!
IBOPD ONE+11*, ONE+12*, ONE+13, END+5!
IBPAG DQ+3*, HDR1*, HDR1+1, END+5!
IBPFLAG ONE+3*, ONE+4, EEOB+5~, EEOB+10, EEOB+12*, EEOB+13
IBQUIT DQ+4*, DQ+8, DQ+9, DQ+10, ONE+1, ONE+12, ONE+13, HDR, PAUSE*, END+5!
IBRDT END+6!
IBRF END+6!
IBRX END+6!
>> IBST ONE+8
>> IBTDT ONE+6
>> IBTF ONE+9
IBVAL EEOB+5~, EEOB+11*, EEOB+12
IBX1 PAUSE*, END+5!
IO DQ+3
IO("Q" EN+13!
IOF HDR1
IOM DQ+3, HDR1+1
IOSL ONE+1, ONE+13
IOST HDR, HDR1, PAUSE
>> POP EN+12
X ONE+7*, END+5!
Y EN+5, EN+10, DQ+3*, END+5!
Z EEOB+5~, EEOB+10*, EEOB+11
>> ZTDESC EN+14*
>> ZTQUEUED END+3
>> ZTREQ END+3*
>> ZTRTN EN+14*
>> ZTSAVE("DFN" EN+14*
>> ZTSAVE("IB*" EN+14*
ZTSK EN+15!
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