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

Package: Integrated Billing

Routine: IBJDB13


Information

IBJDB13 ;ALB/CPM - BILLING LAG TIME REPORT (INPT PRINT) ; 02-JAN-97

Source Information

Source file <IBJDB13.m>

Entry Points

Name Comments DBIA/ICR reference
INP ; - Print the inpatient report.
INPQ
WPATI ; - Write inpatient patient data.
INPH ; - Write the inpatient detail report header.
AVG ; - Write total days and average line.
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: INP+5
Function Call: WRITE
  • Prompt: !,$E($P(IBX1,"@@"),1,25),?27,$$SSN($P(IBX1,"@@",2))
  • Line Location: WPATI+1
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: INPH+1
Function Call: WRITE
  • Prompt: !,"Inpatient Billing Lag Time Report"
  • Line Location: INPH+2
Function Call: WRITE
  • Prompt: ?48,IBRUN,?72,"Page ",$J(IBPAG,3)
  • Line Location: INPH+3
Function Call: WRITE
  • Prompt: !,$$TITLE^IBJDB1(+IBX,0)
  • Line Location: INPH+4
Function Call: WRITE
  • Prompt: " (Late Insurance)"
  • Line Location: INPH+4
Function Call: WRITE
  • Prompt: !,"Claims w/activity from ",$$DTE(IBBDT)," to ",$$DTE(IBEDT)
  • Line Location: INPH+5
Function Call: WRITE
  • Prompt: " (*=Insurance found after trmt)"
  • Line Location: INPH+6
Function Call: WRITE
  • Prompt: !,"Division: ",$P($G(^DG(40.8,IBDIV,0)),U)
  • Condition for execution: IBDIV
  • Line Location: INPH+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: INPH+7
Function Call: WRITE
  • Prompt: ?76,"# of",!,"Patient",?27,"SSN",?40,"Bill #"
  • Line Location: INPH+12
Function Call: WRITE
  • Prompt: ?64,"Activated"
  • Condition for execution: IBX=9
  • Line Location: INPH+18
Function Call: WRITE
  • Prompt: ?76,"Days",!,$$DASH(80)
  • Line Location: INPH+18
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: !
  • Line Location: PAUSE+3
Info |  Source |  Entry Points |  Interaction Calls