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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBOBL

Package: Integrated Billing

Routine: IBOBL


Information

IBOBL ;ALB/ARH - LIST ALL BILLS FOR AN EPISODE OF CARE ; 25-MAY-90

Source Information

Source file <IBOBL.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 4 $$GETDT^IBCRU1  $$PT^IBEFUNC  $$PB^IBJTU2  $$ARSTATA^IBJTU4  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Accounts Receivable 1 $$BILL^RCJIBFN2  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Integrated Billing 1 IB LIST BILLS FOR EPISODE  

Entry Points

Name Comments DBIA/ICR reference
EN ;get parameters then run the report
DEV ;get the device
RPT ;find, save, and print the data that satisfies the search parameters
EXIT ;clean up and quit
FIND ; compile list of all related bills
FIND1(DFN,IBEPDT) ; find all bills for a patient with a specific event date or opt visit date
FIND2 ; compile list of related bills based on Primary Bill of bills already found
PRINT ;print the report from the temp sort file to the appropriate device
PRTLN(IBIFN,IBADDCPT) ; print one bill with all it's CPTs
HDR ;print the report header
HDRLNS ; set up header lines
DATE(X) ;
LNCHK(LNS) ; check if new page is needed
PAUSE ;pause at end of screen if beeing displayed on a terminal
STOP() ;determine if user has requested the queued report to stop
CPT() ; return true if include bills CPT procedures
CANC() ; return true if include canceled bills

External References

Name Field # of Occurrence
^%ZIS DEV+2
HOME^%ZIS EN+1
^%ZISC EXIT+2
^%ZTLOAD DEV+3
$$S^%ZTLOAD STOP+1
^DIR PAUSE+2, CPT+3, CANC+3
$$GETDT^IBCRU1 EN+7
$$PT^IBEFUNC HDRLNS+5
$$PB^IBJTU2 EN+6
$$ARSTATA^IBJTU4 PRTLN+8
$$CPT^ICPTCOD PRTLN+19
$$BILL^RCJIBFN2 PRTLN+11
$$FMTE^XLFDT HDR+3
$$NOW^XLFDT HDR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Episode of Care Bill List:",!,"--------------------------"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"Enter a Bill Number to get a list of all bills that match the selected bill's",!,"event date or any of it's outpatient visit dates."
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"Enter a Patient Name and Episode Date to get a list of all bills for a patient",!,"that have either that date as the event date or as an outpatient visit date."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"This report also includes bills related as continuing episodes of care."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"Report requires 132 columns."
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,$P(IB0,U,1),?12,$P($G(^DGCR(399.3,+$P(IB0,U,7),0)),U,4)
  • Line Location: PRTLN+4
Function Call: WRITE
  • Prompt: ?24,$S(IBX=1:"INPT",IBX=2:"INPT-H",IBX=3:"OPT",IBX=4:"OPT-H",1:"")
  • Line Location: PRTLN+5
Function Call: WRITE
  • Prompt: ?32,$S(IBX=1:"INST",IBX=2:"PROF",1:"")
  • Line Location: PRTLN+6
Function Call: WRITE
  • Prompt: ?39,$$DATE(+$P(IB0,U,3)),?49,$$DATE(+IBU),?59,$$DATE(+$P(IBU,U,2))
  • Line Location: PRTLN+7
Function Call: WRITE
  • Prompt: ?70,$P($$ARSTATA^IBJTU4(IBIFN),U,2)
  • Line Location: PRTLN+8
Function Call: WRITE
  • Prompt: ?75,$S(IBX="P":"PRIM",IBX="S":"SEC",IBX="T":"TER",IBX="A":"PAT",1:"")
  • Line Location: PRTLN+9
Function Call: WRITE
  • Prompt: ?82,$E($S(IBX="i":$P($G(^DIC(36,+IBMP,0)),U,1),IBX="o":$P($G(^DIC(4,+$P(IBM,U,11),0)),U,1),IBX="p":$P($G(^DPT(+$P(IB0,U,2),0)),U,1),1:""),1,23)
  • Line Location: PRTLN+10
Function Call: WRITE
  • Prompt: ?107,$J(+$P($$BILL^RCJIBFN2(IBIFN),U,1),10,2)
  • Line Location: PRTLN+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTLN+13
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,IBHDR1,?(IOM-30),IBNOW,?(IOM-8),"PAGE ",IBPGN,!,IBHDR2
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"BILL #",?12,"RATE",?24,"CLASSIFICATION",?39,"EVENT",?49,"FROM",?59,"TO",?70,"AR",?75,"COB",?82,"PAYER",?112,"TOTAL",?120,"CPT'S",!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: IBI
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"***TASK STOPPED BY USER***"
  • Line Location: STOP+1
Routine Call
  • %ZIS
  • Line Location:
    • DEV+2
Routine Call
  • %ZIS
  • Line Location:
    • EN+1
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2
    • CPT+3
    • CANC+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] FIND+4, FIND+6, FIND+7, FIND1+4, FIND1+5, FIND1+6, FIND1+11, FIND1+12, FIND1+13, FIND2+3
, FIND2+4, PRINT+5, PRTLN+2, PRTLN+3, PRTLN+15, PRTLN+16, HDRLNS+4
^DGCR(399.3 - [#399.3] PRTLN+4
^DIC(36 - [#36] PRTLN+10
^DIC(4 - [#4] PRTLN+10
^DPT - [#2] PRTLN+10, HDRLNS+3, HDRLNS+5
^TMP($J RPT+3!, EXIT+1!, FIND1+7*, FIND1+8*, FIND1+14*, FIND1+15*, FIND2+2, FIND2+5*, PRINT+4

Label References

Name Line Occurrences
$$CANC EN+9
$$CPT EN+8
$$DATE PRTLN+7, HDRLNS+3, HDRLNS+5
$$LNCHK PRINT+4, PRTLN+18
$$STOP HDR+2
EXIT DEV+2, DEV+3, RPT+3
FIND RPT+5
FIND1 FIND+5, FIND+7, FIND+10
FIND2 FIND+12
HDR PRINT+2, LNCHK+1
HDRLNS PRINT+2
PAUSE PRINT+8, LNCHK+1
PRINT RPT+6
PRTLN PRINT+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEV+2*
>> %ZIS("A" DEV+2*
DFN FIND+1~, FIND+5*, FIND+7, FIND+10*, FIND1~, FIND1+4, FIND1+5, FIND1+13, HDRLNS+1~*, HDRLNS+3*
, HDRLNS+4*, HDRLNS+5
DIR PAUSE+1~, PAUSE+2!, CPT+1~, CPT+3!, CANC+1~, CANC+3!
DIR("?" CPT+2*, CANC+2*
DIR("A" CPT+3*, CANC+3*
DIR("B" CPT+3*, CANC+3*
DIR(0 PAUSE+2*, CPT+3*, CANC+3*
DIRUT PAUSE+1~, PAUSE+3, CPT+1~, CPT+3, CANC+1~, CANC+3
DTOUT PAUSE+1~, CPT+1~, CANC+1~
DUOUT PAUSE+1~, PAUSE+3, CPT+1~, CANC+1~
IB0 FIND+1~, FIND+4*, FIND+5, PRTLN+1~, PRTLN+2*, PRTLN+4, PRTLN+5, PRTLN+7, PRTLN+8, PRTLN+9
, PRTLN+10
IBADDCPT EN+8*, EXIT+1!, PRINT+6, PRTLN~, PRTLN+13
IBASK EN+1~, EN+6*, EN+7*, RPT+3, EXIT+1!, FIND+4, FIND+10, HDRLNS+3, HDRLNS+4
IBBILL FIND2+1~, FIND2+2*, FIND2+3
IBCANC EN+1~, EN+9*, EXIT+1!, PRINT+5
IBCPT PRTLN+1~, PRTLN+16*, PRTLN+18*, PRTLN+19
IBCPT( PRTLN+16*, PRTLN+18, PRTLN+19
IBDT FIND1+1~, FIND1+4*, FIND1+5, FIND1+11*, FIND1+12
IBEPDT FIND+1~, FIND+5*, FIND+7*, FIND+10*, FIND1~, FIND1+1*, FIND1+4, FIND1+11
IBHDR1 PRINT+1~, HDR+6, HDRLNS+2*, HDRLNS+3*, HDRLNS+4*
IBHDR2 PRINT+1~, HDR+6, HDRLNS+5*
IBI HDR+1~, HDR+8*
IBIFN FIND+1~, FIND+4*, FIND+6, FIND+7, FIND1+1~, FIND1+5*, FIND1+6, FIND1+7, FIND1+12*, FIND1+13
, FIND1+14, FIND2+1~, FIND2+3*, FIND2+4, FIND2+5, PRINT+1~, PRINT+4*, PRINT+5, PRINT+6, PRTLN~
, PRTLN+2, PRTLN+3, PRTLN+8, PRTLN+11, PRTLN+15, PRTLN+16
IBLN PRINT+1~, PRTLN+1*, PRTLN+19*, HDR+2*, LNCHK+1
IBM PRTLN+1~, PRTLN+3*, PRTLN+10
IBMP PRTLN+1~, PRTLN+3*, PRTLN+10
IBNOW HDR+1~, HDR+3*, HDR+6
IBPGN PRINT+1~, PRINT+2*, HDR+2*, HDR+4, HDR+6, STOP+1
IBQUIT PRINT+1~, PRINT+2*, PRINT+8, HDR+2*, LNCHK+1, LNCHK+2, PAUSE+3*
IBU PRTLN+1~, PRTLN+2*, PRTLN+7
IBX EN+1~, EN+7*, EXIT+1!, FIND+1~, FIND+6*, FIND+7, FIND1+1~, FIND1+6*, FIND1+8, FIND1+13*
, FIND1+15, FIND2+1~, FIND2+4*, PRTLN+1~, PRTLN+4*, PRTLN+5*, PRTLN+6, PRTLN+8*, PRTLN+9*, PRTLN+10
, PRTLN+15*, PRTLN+16, PRTLN+19*, HDRLNS+1~, HDRLNS+4*, HDRLNS+5*, CPT+1~*, CPT+3*, CPT+4, CANC+1~*
, CANC+3*, CANC+4
IO DEV+4
IO("Q" DEV+3!
IOF HDR+4
IOM HDR+6, HDR+8
IOSL LNCHK+1
IOST HDR+4, PAUSE+1
LNS LNCHK~, LNCHK+1
>> POP DEV+2
U EN+7, FIND+4, FIND+5, FIND+10, FIND1+8, FIND1+13, FIND1+15, PRINT+5, PRTLN+4, PRTLN+5
, PRTLN+7, PRTLN+8, PRTLN+9, PRTLN+10, PRTLN+11, PRTLN+16, PRTLN+19, HDRLNS+3, HDRLNS+4, HDRLNS+5
X DATE~, DATE+1, CPT+1~, CANC+1~
Y CPT+1~, CPT+3, CANC+1~, CANC+3
>> ZTDESC DEV+3*
>> ZTQUEUED EXIT+1, STOP+1
ZTREQ STOP+1!
>> ZTRTN DEV+3*
>> ZTSAVE("IB*" DEV+3*
>> ZTSTOP STOP+1*, STOP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All