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

Package: Integrated Billing

Routine: IBTOSUM2


Information

IBTOSUM2 ;ALB/AAS - CLAIMS TRACKING BILLING INFORMATION PRINT ; 29-OCT-93

Source Information

Source file <IBTOSUM2.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; - Print the report.
MAIN ; - Print main body of report.
PENAL ; -- penalty codes; variable; external form
; 1; IBCNT(31); NO PRE ADMISSION CERTIFICATION
; 2; IBCNT(32); UNTIMELY PRE ADMISSION CERTIFICATION
; 3; IBCNT(33); VA A NON-PROVIDER
RNB ; -- print reasons not billable
DENIAL ; -- print days denied by specialty
APPROV ; -- print days approved by specialty
HDR ; -- print report header
CHK ; -- check task man stop flag
CNT(N) ; -- see if enought room on page for list

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?((IOM/2)-16),"Total ",$S(IBSORT="A":"Admissions",1:"Discharges"),": ",$J(IBCNT(1),11)
  • Line Location: MAIN+6
Function Call: WRITE
  • Prompt: !?((IOM/2)-31),"Total ",$S(IBSORT="A":"Admissions",1:"Discharges")," with Insurance: ",$J(IBCNT(2),11)," (",IBPER(1),"%)"
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: !?((IOM/2)-25),"Total Billable ",$S(IBSORT="A":"Admissions",1:"Discharges"),": ",$J(+$G(IBCNT(3,0)),11)," (",IBPER(2),"%)"
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: !?((IOM/2)-34),"Total ",$S(IBSORT="A":"Admissions",1:"Discharges")," Requiring Reviews: ",$J(IBCNT(4),11)," (",IBPER(3),"%)"
  • Line Location: MAIN+10
Function Call: WRITE
  • Prompt: !?((IOM/2)-25),"Total ",$S(IBSORT="A":"Admissions",1:"Discharges")," Reviewed: ",$J(IBCNT(99),11)," (",IBPER(4),"%)"
  • Line Location: MAIN+11
Function Call: WRITE
  • Prompt: !?((IOM/2)-39),"Total ",$S(IBSORT="A":"Admissions",1:"Discharges")," Reviewed-Multi Carrier: ",$J(IBCNT(13),11)," (",IBPER(5),"%)"
  • Line Location: MAIN+12
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: MAIN+14
Function Call: WRITE
  • Prompt: !!?((IOM/2)-18),"Total Reviews Done: ",$J(IBCNT(5),11)
  • Line Location: MAIN+16
Function Call: WRITE
  • Prompt: !?((IOM/2)-23),"Number of Days Approved: ",$J(IBCNT(10),11)
  • Line Location: MAIN+17
Function Call: WRITE
  • Prompt: !?((IOM/2)-39),"Amount Collectible Approved for Billing: ",X
  • Line Location: MAIN+19
Function Call: WRITE
  • Prompt: !!?((IOM/2)-21),"Number of Days Denied: ",$J(IBCNT(20),11)
  • Line Location: MAIN+21
Function Call: WRITE
  • Prompt: !?((IOM/2)-25),"Amount Denied for Billing: ",X
  • Line Location: MAIN+23
Function Call: WRITE
  • Prompt: !!?((IOM/2)-20),"Total Cases Appealed: ",$J(IBCNT(80),11)
  • Line Location: MAIN+25
Function Call: WRITE
  • Prompt: !?((IOM/2)-25),"Number of Initial Appeals: ",$J(IBCNT(81),11)
  • Line Location: MAIN+26
Function Call: WRITE
  • Prompt: !?((IOM/2)-28),"Number of Subsequent Appeals: ",$J(IBCNT(82),11)
  • Line Location: MAIN+27
Function Call: WRITE
  • Prompt: !!!?((IOM/2)-14),"Penalty Report: Number of cases Dollars"
  • Line Location: PENAL+5
Function Call: WRITE
  • Prompt: !?((IOM/2)-14),"--------------- ------------------------------------"
  • Line Location: PENAL+6
Function Call: WRITE
  • Prompt: !?((IOM/2)-30),"No Pre Admission Certification: ",$J($P(IBCNT(31),U),10)," "
  • Line Location: PENAL+7
Function Call: WRITE
  • Prompt: X
  • Line Location: PENAL+7
Function Call: WRITE
  • Prompt: !?((IOM/2)-36),"Untimely Pre Admission Certification: ",$J($P(IBCNT(32),U),10)," "
  • Line Location: PENAL+8
Function Call: WRITE
  • Prompt: X
  • Line Location: PENAL+8
Function Call: WRITE
  • Prompt: !?((IOM/2)-17),"VA a Non-Provider: ",$J($P(IBCNT(33),U),10)," "
  • Line Location: PENAL+9
Function Call: WRITE
  • Prompt: X
  • Line Location: PENAL+9
Function Call: WRITE
  • Prompt: !!!?((IOM/2)-26),"Reason Not Billable Report: Reason Count"
  • Line Location: RNB+2
Function Call: WRITE
  • Prompt: !?((IOM/2)-26),"--------------------------- ------------------------------------"
  • Line Location: RNB+3
Function Call: WRITE
  • Prompt: !?((IOM/2)+23),"-------"
  • Line Location: RNB+9
Function Call: WRITE
  • Prompt: !?((IOM/2)+3),"Total:",?((IOM/2)+23),$J(IBCNT(3,"NB"),7)
  • Line Location: RNB+10
Function Call: WRITE
  • Prompt: !!!?((IOM/2)-24),"Days Denied by Specialty: Specialty No. Days Dollars"
  • Line Location: DENIAL+2
Function Call: WRITE
  • Prompt: !?((IOM/2)-24),"------------------------- ------------------------------------"
  • Line Location: DENIAL+3
Function Call: WRITE
  • Prompt: !!!?((IOM/2)-26),"Days Approved by Specialty: Specialty No. Days Dollars"
  • Line Location: APPROV+2
Function Call: WRITE
  • Prompt: !?((IOM/2)-26),"--------------------------- ------------------------------------"
  • Line Location: APPROV+3
Function Call: WRITE
  • Prompt: !?((IOM-22)/2),"MCCR/UR SUMMARY REPORT"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?((IOM-3)/2),"for"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?((IOM-($L(IBSNM)+6))/2),IBSNM_" ("_IBSITE_")"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!?((IOM-14)/2),"for "_$S(IBSORT="A":"Admissions",1:"Discharges")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?(IOM-18/2),"From: "
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !?((IOM-16)/2)," To: "
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!?(IOM-26/2),"Date Printed: ",IBHDT
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !?(IOM-8/2),"Page: ",IBPAG
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !?(IOM-26/2),"--------------------------",!!
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !!,"....task stopped at user request."
  • Line Location: CHK+1
Info |  Source |  Entry Points |  Interaction Calls