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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call