Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 2 COMMA^%DTC  DT^DIQ  
Integrated Billing 1 SITE^IBAUTL  
Kernel 1 $$S^%ZTLOAD  
List Manager 1 PAUSE^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Integrated Billing 3 IBTOSUM  IBTOSUM1  IBTOUR1  

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

External References

Name Field # of Occurrence
COMMA^%DTC MAIN+18, MAIN+22, PENAL+7, PENAL+8, PENAL+9, DENIAL+7, APPROV+7
$$S^%ZTLOAD CHK+1
DT^DIQ HDR+7, HDR+8
SITE^IBAUTL HDR+4
PAUSE^VALM1 MAIN+14, CNT+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] HDR+4
^DIC(45.7 - [#45.7] DENIAL+5, APPROV+5
^IBE(356.8 - [#356.8] RNB+5

Label References

Name Line Occurrences
APPROV PRINT+4
CNT RNB+1, DENIAL+1, APPROV+1
DENIAL PRINT+5
HDR PRINT+2, CHK+1, CNT+4
MAIN PRINT+2
PENAL PRINT+2
RNB PRINT+3

Naked Globals

Name Field # of Occurrence
^(0 HDR+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DIRUT MAIN+14, CNT+3
>> I RNB+4*, RNB+5, RNB+6, RNB+7, DENIAL+4*, DENIAL+5, DENIAL+6, DENIAL+7, APPROV+4*, APPROV+5
, APPROV+6, APPROV+7, CNT+2*
>> IBBDT HDR+7
>> IBC CNT+2*, CNT+3, CNT+4
>> IBCNT( CNT+2
>> IBCNT(1 MAIN+1, MAIN+2, MAIN+3, MAIN+4, MAIN+5, MAIN+6
>> IBCNT(10 PRINT+4, MAIN+17, APPROV+4, APPROV+6
>> IBCNT(11 MAIN+18, APPROV+7
>> IBCNT(13 MAIN+5, MAIN+12
>> IBCNT(2 MAIN+1, MAIN+7
>> IBCNT(20 PRINT+5, MAIN+21, DENIAL+4, DENIAL+6
>> IBCNT(21 MAIN+22, DENIAL+7
>> IBCNT(3 PRINT+3, MAIN+2, MAIN+8, RNB+4, RNB+6, RNB+7, RNB+10
>> IBCNT(31 PENAL+7
>> IBCNT(32 PENAL+8
>> IBCNT(33 PENAL+9
>> IBCNT(4 MAIN+3, MAIN+10
>> IBCNT(5 MAIN+16
>> IBCNT(80 MAIN+25
>> IBCNT(81 MAIN+26
>> IBCNT(82 MAIN+27
>> IBCNT(99 MAIN+4, MAIN+11
>> IBEDT HDR+8
>> IBFAC HDR+4
>> IBHDT HDR+9
>> IBPAG HDR+1, HDR+10*
>> IBPER(1 MAIN+1*, MAIN+7
>> IBPER(2 MAIN+2*, MAIN+8
>> IBPER(3 MAIN+3*, MAIN+10
>> IBPER(4 MAIN+4*, MAIN+11
>> IBPER(5 MAIN+5*, MAIN+12
>> IBQUIT CNT+3*
>> IBSITE HDR+5
>> IBSNM HDR+4*, HDR+5
>> IBSORT MAIN+6, MAIN+7, MAIN+8, MAIN+10, MAIN+11, MAIN+12, HDR+6
IOF MAIN+14, HDR+1, CNT+3
IOM MAIN+6, MAIN+7, MAIN+8, MAIN+10, MAIN+11, MAIN+12, MAIN+16, MAIN+17, MAIN+19, MAIN+21
, MAIN+23, MAIN+25, MAIN+26, MAIN+27, PENAL+5, PENAL+6, PENAL+7, PENAL+8, PENAL+9, RNB+2
, RNB+3, RNB+5, RNB+6, RNB+9, RNB+10, DENIAL+2, DENIAL+3, DENIAL+5, DENIAL+6, DENIAL+8
, APPROV+2, APPROV+3, APPROV+5, APPROV+6, APPROV+8, HDR+2, HDR+3, HDR+5, HDR+6, HDR+7
, HDR+8, HDR+9, HDR+10, HDR+11
IOSL CNT+3, CNT+4
IOST MAIN+14, HDR+1, CNT+3
N CNT~, CNT+1, CNT+2
U PENAL+7, PENAL+8, PENAL+9, RNB+5, DENIAL+5, APPROV+5, HDR+4
X PRINT+1!, MAIN+18*, MAIN+19, MAIN+22*, MAIN+23, PENAL+7*, PENAL+8*, PENAL+9*, DENIAL+7*, DENIAL+8
, APPROV+7*, APPROV+8
X2 PRINT+1!, MAIN+18*, MAIN+22*, PENAL+7*, PENAL+8*, PENAL+9*, DENIAL+7*, APPROV+7*
X3 PRINT+1!, PENAL+7*, PENAL+8*, PENAL+9*
>> Y HDR+7*, HDR+8*
>> ZTQUEUED CHK+1
>> ZTSTOP CHK+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All