Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls