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

Package: Integrated Billing

Routine: IBJDB12


Information

IBJDB12 ;ALB/CPM - BILLING LAG TIME REPORT (OPT PRINT/SUMMARIES) ; 30-DEC-96

Source Information

Source file <IBJDB12.m>

Entry Points

Name Comments DBIA/ICR reference
OPT ; - Print the outpatient report.
OPTQ
OPTH ; - Write the outpatient detail report header.
AVG ; - Write total days and average line.
WPAT ; - Write patient data.
SUM ; - Print the summary reports.
SUMQ
OPTS ; - Print the outpatient summary report.
INPS ; - Print the inpatient summary report.
CTR(X) ; - Center and write text.
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
SSN(X) ; - Format the SSN.
DTE(X) ; - Format date (MMM DD,YYYY).

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " (Late Insurance)"
  • Line Location: OPT+5
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: OPTH+1
Function Call: WRITE
  • Prompt: !,"Outpatient Billing Lag Time Report"
  • Line Location: OPTH+2
Function Call: WRITE
  • Prompt: ?48,IBRUN,?72,"Page ",$J(IBPAG,3)
  • Line Location: OPTH+3
Function Call: WRITE
  • Prompt: !,$$TITLE^IBJDB1(+IBX,0)
  • Line Location: OPTH+4
Function Call: WRITE
  • Prompt: " (Late Insurance)"
  • Line Location: OPTH+4
Function Call: WRITE
  • Prompt: !,"Claims w/activity from ",$$DTE(IBBDT)," to ",$$DTE(IBEDT)
  • Line Location: OPTH+5
Function Call: WRITE
  • Prompt: " (*=Insurance found after trmt)"
  • Line Location: OPTH+6
Function Call: WRITE
  • Prompt: !,"Division: ",$P($G(^DG(40.8,IBDIV,0)),U)
  • Condition for execution: IBDIV
  • Line Location: OPTH+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: OPTH+7
Function Call: WRITE
  • Prompt: ?76,"# of",!,"Patient",?27,"SSN",?40,"Bill #"
  • Line Location: OPTH+10
Function Call: WRITE
  • Prompt: ?64,"Activated"
  • Condition for execution: IBX=9
  • Line Location: OPTH+16
Function Call: WRITE
  • Prompt: ?76,"Days",!,$$DASH(80)
  • Line Location: OPTH+16
Function Call: WRITE
  • Prompt: !?75,"-----",!,"Average Number of Days for",?75,$J(IBTL(IBX),5)
  • Line Location: AVG+1
Function Call: WRITE
  • Prompt: !,$$TITLE^IBJDB1(+IBX,0),$S(IBX["I":" (Late Ins)",1:""),": "
  • Line Location: AVG+2
Function Call: WRITE
  • Prompt: " (",IBCT(IBX)," claim",$S(IBCT(IBX)>1:"s",1:""),")"
  • Line Location: AVG+4
Function Call: WRITE
  • Prompt: !,$E($P(IBX1,"@@"),1,25),?27,$$SSN($P(IBX1,"@@",2))
  • Line Location: WPAT+1
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: OPTS+1
Function Call: WRITE
  • Prompt: !?32,"BILLING LAG TIME"
  • Line Location: OPTS+2
Function Call: WRITE
  • Prompt: !?12,$$DASH(55)
  • Line Location: OPTS+5
Function Call: WRITE
  • Prompt: !!?2,"Time Period",?50,"Average Number of days"
  • Line Location: OPTS+6
Function Call: WRITE
  • Prompt: !?2,"-----------",?50,"----------------------"
  • Line Location: OPTS+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: OPTS+21
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: INPS+1
Function Call: WRITE
  • Prompt: !?32,"BILLING LAG TIME"
  • Line Location: INPS+2
Function Call: WRITE
  • Prompt: !?12,$$DASH(55)
  • Line Location: INPS+6
Function Call: WRITE
  • Prompt: !!?2,"Time Period",?50,"Average Number of days"
  • Line Location: INPS+7
Function Call: WRITE
  • Prompt: !?2,"-----------",?50,"----------------------"
  • Line Location: INPS+8
Function Call: WRITE
  • Prompt: !!?2,"*LI=Late Insurance (policy identified after treatment)"
  • Line Location: INPS+19
Function Call: WRITE
  • Prompt: !?2,"+This element does not include Late Insurance claims"
  • Line Location: INPS+20
Function Call: WRITE
  • Prompt: !?(80-$L(X))\2,X
  • Line Location: CTR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Info |  Source |  Entry Points |  Interaction Calls