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

Package: Integrated Billing

Routine: IBTODD1


Information

IBTODD1 ;ALB/AAS - CLAIMS TRACKING DENIED DAYS REPORT ; 27-OCT-93

Source Information

Source file <IBTODD1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; -- print data
; -- ^tmp($j,"ibtodd",event type,primary sort,secondary sort,ibtrc)=DFN ^ attending ^ treating specialty ^ service ^ ^ billing rate
PRINTQ
ONE ; -- print one entry
; -- ^tmp($j,"ibtodd",event type,primary sort,secondary sort,ibtrc)=DFN ^ attending ^ treating specialty ^ service ^ ^ billing rate
L1
L2
ONEQ
LO ; -- print one line for non-inpatient
CNTS ; -- develop summary data
HDR ; -- Print header for billing report
HDRO ; -- Print Header for non-Inpatient denials
CDT(IBTRN) ; -- compute dates of care
APPEAL(IBTRC) ; -- Find appeals
AP(IBTRC) ; -- count days approved
CHRG(D) ; return charge for output

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Denials Found in Date Range."
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),"^"),1,19),?22,VA("BID")
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: ?28,$$DAT1^IBOUTL(+IBCDT\1)
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: " to"
  • Condition for execution: $P(IBCDT,"^",2)
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: ?40,$J($P(IBDATA,"^",2),8)
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: ?54,"ALL"
  • Line Location: L1+4
Function Call: WRITE
  • Prompt: ?54,$$DAT1^IBOUTL($P(IBTRCD,"^",15),"2P")
  • Line Location: L1+5
Function Call: WRITE
  • Prompt: " to"
  • Condition for execution: $P(IBTRCD,"^",16)
  • Line Location: L1+5
Function Call: WRITE
  • Prompt: " (",$P(IBDATA,"^",7),")"
  • Line Location: L1+6
Function Call: WRITE
  • Prompt: ?98,$S(+$P(IBAPL,"^",2):"YES",1:"NO")
  • Line Location: L1+10
Function Call: WRITE
  • Prompt: ?103,$J(+IBAPL,8)
  • Line Location: L1+11
Function Call: WRITE
  • Prompt: ?116,$E($$EXPAND^IBTRE(42.4,3,$P(IBDATA,"^",4)),1,4)
  • Line Location: L1+12
Function Call: WRITE
  • Prompt: "UNKN"
  • Condition for execution: $P(IBDATA,"^",4)=""
  • Line Location: L1+12
Function Call: WRITE
  • Prompt: ?120,$$CHRG(+$P(IBDATA,"^",6))
  • Line Location: L1+13
Function Call: WRITE
  • Prompt: !?28,$$DAT1^IBOUTL($P(IBCDT,"^",2)\1,"2P")
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: ?54,$$DAT1^IBOUTL($P(IBTRCD,"^",16),"2P")
  • Line Location: L2+1
Function Call: WRITE
  • Prompt: " (",$P(IBDATA,"^",7),")"
  • Line Location: L2+2
Function Call: WRITE
  • Prompt: ?68,$E($$EXPAND^IBTRE(356.212,.01,$G(IBC(2))),1,25)
  • Line Location: L2+3
Function Call: WRITE
  • Prompt: !?70,$E($$EXPAND^IBTRE(356.212,.01,$G(IBC(IBDEN))),1,25)
  • Line Location: L2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ONEQ+0
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),"^"),1,19),?22,VA("BID")
  • Line Location: LO+1
Function Call: WRITE
  • Prompt: ?28,$$FMTE^XLFDT(+IBCDT,2)
  • Line Location: LO+3
Function Call: WRITE
  • Prompt: ?50,$P(IBTRCD,"^",26)
  • Line Location: LO+4
Function Call: WRITE
  • Prompt: ?78,$S(+$P(IBAPL,"^",2):"YES",1:"NO")
  • Line Location: LO+5
Function Call: WRITE
  • Prompt: ?88,$S(+IBAPL:"YES",1:"NO")
  • Line Location: LO+6
Function Call: WRITE
  • Prompt: ?98,$$CHRG(+$P(IBDATA,"^",6))
  • Line Location: LO+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?(IOM-33),"Page ",IBPAG," ",IBHDT
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,?28,"Dates of",?54,"Dates",?103,"Days Approved"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"Patient",?22,"PtID",?28,"Care",?40,"Attending",?54,"Denied",?68,"Denial Reason",?94,"Appealed",?105,"on Appeal",?116,"SRVS",?125,"Amount"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !!,"Patient",?22,"PtID",?28,"Episode Date",?50,"Outpatient Treatment",?75,"Appealed",?85,"Approved",?103,"Amount"
  • Line Location: HDRO+1
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDRO+2
Info |  Source |  Entry Points |  Interaction Calls