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

Package: Integrated Billing

Routine: IBJDU1


Information

IBJDU1 ;ALB/CPM - UTILIZATION WORKLOAD REPORT ; 24-DEC-96

Source Information

Source file <IBJDU1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Option entry point.
DQ ; Tasked entry point.
ENQ
ENQ1
SUM ; Print the Summary Report.
DASH(X) ; Return a dashed line.
PAUSE ; Page break

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report provides a measure of the number of Insurance Reviews"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"which are conducted in the Medical Center.",!
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"This report only requires an 80 column printer."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!," Note: This report may take a while to run."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !?10,"You should queue this report to run after normal business hours.",!
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUM+1
Function Call: WRITE
  • Prompt: !!?30,"UTILIZATION WORKLOAD"
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !?33,"SUMMARY REPORT"
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !!?22,"For Reviews from ",$$DAT1^IBOUTL(IBBDT)," - ",$$DAT1^IBOUTL(IBEDT)
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: !!?24,"Run Date: ",IBRUN
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: !?24,$$DASH(31),!!
  • Line Location: SUM+8
Function Call: WRITE
  • Prompt: ?21,"Total Number of Admissions:",?60,$J(IB(1),7)
  • Line Location: SUM+13
Function Call: WRITE
  • Prompt: !?6,"Total Number of Admissions with Insurance:",?60,$J(IB(2),7)," (",IBPERI,"%)"
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: !?39,"SC:",?60,$J(IB(3),7)," (",IBPERS,"%)"
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: !?38,"NSC:",?60,$J(IB(4),7)," (",$J(100-IBPERS,0,2),"%)"
  • Line Location: SUM+16
Function Call: WRITE
  • Prompt: !!?7,"Total Number of Admission Reviews completed"
  • Line Location: SUM+18
Function Call: WRITE
  • Prompt: !?9,"on Insurance Patients (including pre-certifications):",?65,$J(IB(5),7)
  • Line Location: SUM+19
Function Call: WRITE
  • Prompt: !?13,"Total Number of Continued Stay Reviews completed:",?65,$J(IB(6),7)
  • Line Location: SUM+20
Function Call: WRITE
  • Prompt: !?5,"Total Number of Admission Denials by Insurance Companies:",?65,$J(IB(7),7)
  • Line Location: SUM+21
Function Call: WRITE
  • Prompt: !,"Total Number of Continued Stay Denials by Insurance Companies:",?65,$J(IB(8),7)
  • Line Location: SUM+22
Function Call: WRITE
  • Prompt: !?11,"Total Number of days denied by Insurance Companies:",?65,$J(IB(9),7)
  • Line Location: SUM+23
Function Call: WRITE
  • Prompt: !?31,"Total Number of Appealed Cases:",?65,$J(IB(10),7)
  • Line Location: SUM+24
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Info |  Source |  Entry Points |  Interaction Calls