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

Package: Integrated Billing

Routine: IBTOECT


Information

IBTOECT ;OAK/ELZ- ENHANCED CLAIMS TRACKING REPORTS ;7/15/2005

Source Information

Source file <IBTOECT.m>

Entry Points

Name Comments DBIA/ICR reference
UNREV ; Main entry for the Un-reviewed Claims for Coders Report
QUNREV ; tasman entry
ENR ; entered/not reviewed report
QENR ; tasked entry
DEV(ZTRTN,ZTDESC) ; -- ask device

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Unreviewed Claims for Coders Report from ",$$FMTE^XLFDT(IBBEG)," to ",$$FMTE^XLFDT(IBEND),?100,$$FMTE^XLFDT(DT),?115,"Page: ",IBP
  • Line Location: QUNREV+21
Function Call: WRITE
  • Prompt: !,"Patient Name",?27,"SSN",?39,"Visit Date",?58,"Location",?80,"CPTs",?87,"Mod",?91,"Insurance",?113,"Exp Date",?125,"Bill",!,IBL
  • Line Location: QUNREV+22
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X
  • Line Location: QUNREV+24
Function Call: WRITE
  • Prompt: $E(IBPNAM,1,25),?27,IBSSN,?39,$$FMTE^XLFDT(+IBOE0,2),?58,$E($P($G(^SC(+$P(IBOE0,"^",4),0)),"^"),1,20)
  • Line Location: QUNREV+24
Function Call: WRITE
  • Prompt: ?91,$E($P($G(IBR("IBBAPI","INSUR",IBC,1)),"^",2),1,20)
  • Line Location: QUNREV+37
Function Call: WRITE
  • Prompt: ?125,$P($G(IBR("IBBAPI","INSUR",IBC,16)),"^",2),!
  • Line Location: QUNREV+39
Function Call: WRITE
  • Prompt: @IOF,!,"Entered/Not Reviewed Bills Report from ",$$FMTE^XLFDT(IBBEG)," to ",$$FMTE^XLFDT(IBEND),?100,$$FMTE^XLFDT(DT),?115,"Page: ",IBP
  • Line Location: QENR+20
Function Call: WRITE
  • Prompt: !,"Bill #",?12,"Primary Insurance",?34,"Clinic",?44,"Date",?56,"Proc",?63,"Provider",?85,"RNB",?107,"Billable Findings",!,IBL
  • Line Location: QENR+21
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X
  • Line Location: QENR+25
Function Call: WRITE
  • Prompt: $P(IB0,"^"),?12,$E($P($G(^DIC(36,+^DGCR(399,IBX,"M"),0)),"^"),1,20)
  • Line Location: QENR+25
Function Call: WRITE
  • Prompt: ?34,$E($P($G(^SC(+$P(IBCP,"^",7),0)),"^"),1,7)
  • Line Location: QENR+32
Function Call: WRITE
  • Prompt: ?44,$$FMTE^XLFDT($P(IBCP,"^",2),2)
  • Line Location: QENR+33
Function Call: WRITE
  • Prompt: ?56,$$EXTERNAL^DILFD(399.0304,.01,,$P(IBCP,"^"))
  • Line Location: QENR+34
Function Call: WRITE
  • Prompt: ?63,$E($P($G(^VA(200,+$P(IBCP,"^",18),0)),"^"),1,20)
  • Line Location: QENR+35
Function Call: WRITE
  • Prompt: ?85,$E($P($G(^IBE(356.8,+$P(IBA(IBC),"^",2),0)),"^"),1,20)
  • Line Location: QENR+36
Function Call: WRITE
  • Prompt: ?107,$E($P($G(^IBT(356.85,+$P(IBA(IBC),"^",3),0)),"^"),1,20),!
  • Line Location: QENR+37
Function Call: WRITE
  • Prompt: !!,"*** Margin width of this output is 132 ***"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"*** This output should be queued ***"
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: "Task #",ZTSK
  • Line Location: DEV+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
399.0304 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call