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

Package: Integrated Billing

Routine: IBJDB22


Information

IBJDB22 ;ALB/RB - REASONS NOT BILLABLE REPORT (PRINT) ;19-JUN-00

Source Information

Source file <IBJDB22.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; - Entry point from IBJDB21.
ENQ
DET ; - Print detailed report.
DETQ
EXTMO(IBSM) ; Extract/transmit data to DM Extract Module
; IBSM - Array containing the summary information
SUM ; - Print summary line(s).
SUMH ; - Print summary header.
SUMT ; - Print summary totals.
HDR ; - Write the detailed report header.
WPAT ; - Write patient data.
TOT1 ; - Print episode totals.
TOT2 ; - Print sub-totals.
DASH(X) ; - Return a dashed line.
PAUSE ; - Page break.
DTE(X) ; - Format the date.
RNB ; - Reasons Not Billable

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"No entries for this episode.",!
  • Line Location: DET+2
Function Call: WRITE
  • Prompt: ?45,$$DTE(+IBN),?55,$$DTE($P(IBN,U,2))
  • Line Location: DET+11
Function Call: WRITE
  • Prompt: ?65,$$DTE($P(IBN,U,3)),?76,$E($P(IBN,U,4),1,19)
  • Line Location: DET+12
Function Call: WRITE
  • Prompt: ?65,$$DTE($P(IBN,U,2))
  • Line Location: DET+13
Function Call: WRITE
  • Prompt: ?76,"POSTMASTER"
  • Line Location: DET+13
Function Call: WRITE
  • Prompt: ?97,$E($P(IBN,U,IBU),1,25),?124,$J($P(IBN,U,8),8,2),!
  • Line Location: DET+15
Function Call: WRITE
  • Prompt: ?99,$J($P(IBN,U,8),8,2)
  • Line Location: DET+16
Function Call: WRITE
  • Prompt: ?114,$P($P(IBN,U,11),";",X)_" "
  • Line Location: DET+16
Function Call: WRITE
  • Prompt: ?99,$J($P(IBN,U,8),8,2),!
  • Line Location: DET+17
Function Call: WRITE
  • Prompt: !
  • Line Location: DET+18
Function Call: WRITE
  • Prompt: ?27,"Related Bills: "
  • Line Location: DET+20
Function Call: WRITE
  • Prompt: ?41,$P($P(IBN,U,11),";",X)_" "
  • Line Location: DET+20
Function Call: WRITE
  • Prompt: ?76,"Nx Adm:",?85,$P(IBN,U,10)
  • Line Location: DET+21
Function Call: WRITE
  • Prompt: !,?27,"Related Bills: "
  • Line Location: DET+22
Function Call: WRITE
  • Prompt: ?41,$P($P(IBN,U,11),";",X)_" "
  • Line Location: DET+22
Function Call: WRITE
  • Prompt: ?97,$E($P(IBN,U,$S("PR"[IBSORT:7,1:6)),1,25),!
  • Line Location: DET+23
Function Call: WRITE
  • Prompt: !!?14,"No statistics available."
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: !?14,$P($G(^IBE(356.8,IBRNB,0)),U),?48,$J(+IBN,5),?57,$J($P(IBN,U,2),9,2)
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: SUMH+1
Function Call: WRITE
  • Prompt: ?68,"Page: ",IBPAG
  • Line Location: SUMH+2
Function Call: WRITE
  • Prompt: !!?(80-$L(IBEPH))\2,IBEPH
  • Line Location: SUMH+4
Function Call: WRITE
  • Prompt: !?22,"Period : from ",$$DTE(IBBDT)," thru ",$$DTE(IBEDT),!
  • Line Location: SUMH+9
Function Call: WRITE
  • Prompt: !?24,"Run Date: ",IBRUN
  • Line Location: SUMH+10
Function Call: WRITE
  • Prompt: !!?46,"No. of",?61,"Total",!?14,"RNB Category",?46,"Entries"
  • Line Location: SUMH+11
Function Call: WRITE
  • Prompt: ?60,"Amount",!?14,$$DASH(52)
  • Line Location: SUMH+12
Function Call: WRITE
  • Prompt: !?47,"-------------------"
  • Line Location: SUMT+1
Function Call: WRITE
  • Prompt: !?33,"Grand Totals:",?47,$J(+GTOT,6),?56,$J($P(GTOT,U,2),10,2)
  • Line Location: SUMT+2
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: "Reasons Not Billable (RNB) Report "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?88,"Run Date: ",IBRUN,?123,"Page: ",$J(IBPAG,3)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,$E(X,1,132)
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,"Division: ",$P($G(^DG(40.8,IBDIV,0)),U)
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !!?26,"Last",?32,"Insurance",?45,"Episode Date Dte Last"
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: ?97,$S("PS"[IBSORT:"RNB Category",1:"Provider")
  • Line Location: HDR+23
Function Call: WRITE
  • Prompt: !,"Patient",?26,"4SSN",?32,"Carrier"
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: ?45,"Date Entered Edited Last Edited By"
  • Line Location: HDR+25
Function Call: WRITE
  • Prompt: ?97,$S("PR"[IBSORT:"Specialty",1:"Provider")
  • Line Location: HDR+26
Function Call: WRITE
  • Prompt: ?101,"Amount",?114,"Related Bills",!,$$DASH(IOM),!
  • Line Location: HDR+28
Function Call: WRITE
  • Prompt: ?126,"Amount",!,$$DASH(IOM),!
  • Line Location: HDR+29
Function Call: WRITE
  • Prompt: $P(IBPT,"@@"),?26,$P(IBPT,"@@",2),?32,$E($P(IBP,U),1,12)
  • Line Location: WPAT+1
Function Call: WRITE
  • Prompt: !?97,"----------",!
  • Line Location: TOT1+1
Function Call: WRITE
  • Prompt: !?122,"----------",!
  • Line Location: TOT1+2
Function Call: WRITE
  • Prompt: ?55
  • Line Location: TOT1+3
Function Call: WRITE
  • Prompt: ?80
  • Line Location: TOT1+4
Function Call: WRITE
  • Prompt: "TOTAL FOR EPISODE - Count: ",$J(ECNT,5)," Amount: ",$J(ETOT,10,2)
  • Line Location: TOT1+5
Function Call: WRITE
  • Prompt: ?98,"---------",!
  • Line Location: TOT2+1
Function Call: WRITE
  • Prompt: ?123,"---------",!
  • Line Location: TOT2+2
Function Call: WRITE
  • Prompt: ?60
  • Line Location: TOT2+3
Function Call: WRITE
  • Prompt: ?85
  • Line Location: TOT2+4
Function Call: WRITE
  • Prompt: "TOTAL EVENTS - Count: ",$J(SCNT,4)," Amount: ",$J(STOT,9,2),!
  • Line Location: TOT2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+3
Info |  Source |  Entry Points |  Interaction Calls