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

Package: Integrated Billing

Routine: IBTOUR4


Information

IBTOUR4 ;ALB/AAS - CLAIMS TRACKING UR ACTIVITY REPORT ; 27-OCT-93

Source Information

Source file <IBTOUR4.m>

Entry Points

Name Comments DBIA/ICR reference
INS ; -- print data
; -- ^tmp($j,"ibtour",primary sort,secondary sort,patient, ibtrc)=ibtrcd
PRINTQ
ONE ; -- print one entry
; -- ^tmp($j,"ibtour",primary sort,secondary sort,ibtrc)=^IBT(IBTRC)
L1
L2
HDR ; -- Print header for billing report
HOSP ; -- print hospital report
HOSPQ
HOSPONE ; -print one case line
HL1
HL2
HHDR ; -- hospital review header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No Insurance Reviews Found in Date Range."
  • Line Location: INS+5
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),"^"),1,22),?25,VA("PID")
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: ?38,$$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: ?50,$P($G(^IBE(356.11,+$P(IBTRCD,"^",4),0)),"^",3)
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: ?64,$$DAT1^IBOUTL(+IBTRCD)
  • Line Location: L1+4
Function Call: WRITE
  • Prompt: ?78,$E($$EXPAND^IBTRE(356.2,.08,$P(IBTRCD,"^",8)),1,20)
  • Line Location: L1+5
Function Call: WRITE
  • Prompt: ?100,$E($$EXPAND^IBTRE(356.2,.11,$P(IBTRCD,"^",11)),1,10)
  • Line Location: L1+6
Function Call: WRITE
  • Prompt: ?112,$E($$EXPAND^IBTRE(356.2,1.04,$P($G(^IBT(356.2,+IBTRC,1)),"^",4)),1,19)
  • Line Location: L1+7
Function Call: WRITE
  • Prompt: !?38,$$DAT1^IBOUTL($P(IBCDT,"^",2)\1,"2P")
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"UR Insurance Review Activity Report",?(IOM-33),"Page ",IBPAG," ",IBHDT
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"For Insurance Reviews Dated ",$$DAT1^IBOUTL(IBBDT)," to ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,?38,"Dates of",?64,"Review"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Patient",?25,"Pt. ID",?38,"Care",?50,"Review Type",?64,"Date",?78,"Ins. Co.",?100," Action",?112,"Last Reviewer"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !!,"No Hospital Reviews Found in Date Range."
  • Line Location: HOSP+3
Function Call: WRITE
  • Prompt: !,$E($P(^DPT(DFN,0),"^"),1,22),?25,VA("PID")
  • Line Location: HL1+0
Function Call: WRITE
  • Prompt: ?38,$$DAT1^IBOUTL(+IBCDT\1)
  • Line Location: HL1+2
Function Call: WRITE
  • Prompt: " to"
  • Condition for execution: $P(IBCDT,"^",2)
  • Line Location: HL1+2
Function Call: WRITE
  • Prompt: ?51,TYPE
  • Line Location: HL1+6
Function Call: WRITE
  • Prompt: ?70,$S($P(IBDATA,"^"):"YES",$P(IBDATA,"^")=0:"NO",1:"")
  • Line Location: HL1+7
Function Call: WRITE
  • Prompt: ?84,$J($P(IBDATA,"^",2),8)
  • Line Location: HL1+8
Function Call: WRITE
  • Prompt: ?98,$J($P(IBDATA,"^",3),8)
  • Line Location: HL1+9
Function Call: WRITE
  • Prompt: ?112,$E($$EXPAND^IBTRE(356,1.05,$P($G(^IBT(356,+IBTRN,1)),"^",5)),1,19)
  • Line Location: HL1+11
Function Call: WRITE
  • Prompt: !?38,$$DAT1^IBOUTL($P(IBCDT,"^",2)\1,"2P")
  • Line Location: HL2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: HL2+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HHDR+3
Function Call: WRITE
  • Prompt: !,"UR Hospital Review Activity Report",?(IOM-33),"Page ",IBPAG," ",IBHDT
  • Line Location: HHDR+5
Function Call: WRITE
  • Prompt: !,"For Hospital Reviews Dated ",$$DAT1^IBOUTL(IBBDT)," to ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: HHDR+6
Function Call: WRITE
  • Prompt: !!,?38,"Dates of",?69,"Admission",?84,"Days Met",?98,"Days Not Met"
  • Line Location: HHDR+7
Function Call: WRITE
  • Prompt: !,"Patient",?25,"Pt. ID",?38,"Care",?51,"Review Type",?69,"Met Criteria",?84,"Criteria",?98,"Criteria",?112,"Assigned Reviewer"
  • Line Location: HHDR+8
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HHDR+9
Info |  Source |  Entry Points |  Interaction Calls