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

Package: Integrated Billing

Routine: IBTOUR3


Information

IBTOUR3 ;ALB/AAS - CLAIMS TRACKING UR ACTIVITY REPORT PRINT ; 02-DEC-93

Source Information

Source file <IBTOUR3.m>

Entry Points

Name Comments DBIA/ICR reference
INS ; -- print the report
HOSP
MAIN ; -- print main body of report
RNB ; -- print reasons not billable
HDR ; -- print report header
CHK ; -- check task man stop flag
CNT(N) ; -- see if enought room on page for list
HOSPRV ; -- Hospital Review Summary

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: INS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HOSP+4
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-16),"Total Admissions: ",$J(IBCNT(1),10)
  • Line Location: MAIN+1
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-24),"Total Admissions to NHCU: ",$J(+$G(IBCNT(1,1)),10)
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-31),"Total Admissions to Domiciliary: ",$J(+$G(IBCNT(1,2)),10)
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-34),"Total Admissions Requiring Reviews: ",$J(IBCNT(4),10)
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-33),"Number of Scheduled Adm. Reviewed: ",$J(IBCNT(11),10)
  • Line Location: MAIN+5
Function Call: WRITE
  • Prompt: !!?((IOM/2+6)-31),"Total Admissions with Insurance: ",$J(IBCNT(2),10)
  • Line Location: MAIN+7
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-25),"Total Billable Admissions: ",$J(+$G(IBCNT(3,0)),10)
  • Line Location: MAIN+8
Function Call: WRITE
  • Prompt: !!?((IOM/2+6)-33),"Cases with Pre-Cert and Follow-up: ",$J(IBCNT(5),10)
  • Line Location: MAIN+12
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-32),"Cases with Pre-Cert no Follow-up: ",$J(IBCNT(6),10)
  • Line Location: MAIN+13
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-22),"Number of Closed Cases: ",$J(IBCNT(7),10)
  • Line Location: MAIN+15
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-31),"Number of Billable Closed Cases: ",$J(IBCNT(7,0),10)
  • Line Location: MAIN+16
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-33),"Number of Unbillable Closed Cases: ",$J(IBCNT(7,1),10)
  • Line Location: MAIN+17
Function Call: WRITE
  • Prompt: !!?((IOM/2+6)-30),"Number of New Cases Still Open: ",$J(IBCNT(8),10)
  • Line Location: MAIN+19
Function Call: WRITE
  • Prompt: !!?((IOM/2+6)-24),"Number of Previous Cases: ",$J(IBCNT(9),10)
  • Line Location: MAIN+20
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-44),"Number of Previous Cases Closed and Billable: ",$J(IBCNT(9,0),10)
  • Line Location: MAIN+21
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-45),"Number of Previous Cases Closed, not Billable: ",$J(IBCNT(9,1),10)
  • Line Location: MAIN+22
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-35),"Number of Previous Cases still Open: ",$J(IBCNT(9,2),10)
  • Line Location: MAIN+23
Function Call: WRITE
  • Prompt: !!?((IOM/2+6)-35),"Number of Outpatient Cases Reviewed: ",$J(IBCNT(10),10)
  • Line Location: MAIN+25
Function Call: WRITE
  • Prompt: !!!?((IOM/2+6)-26),"Reason Not Billable Report: Reason Count"
  • Line Location: RNB+2
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-26),"--------------------------- ------------------------------"
  • Line Location: RNB+3
Function Call: WRITE
  • Prompt: !?((IOM-22)/2),"UR ACTIVITY SUMMARY REPORT"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !?((IOM-18)/2),"for "_$S($D(IBHDRL):IBHDRL_" Reviews")
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?((IOM-($L(IBSNM)+6))/2),IBSNM_" ("_IBSITE_")"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!?(IOM-18/2),"From: "
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !?((IOM-16)/2),"To: "
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !!?(IOM-26/2),"Date Printed: ",IBHDT
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?(IOM-8/2),"Page: ",IBPAG
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !?(IOM-26/2),"--------------------------",!!
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !!,"....task stopped at user request."
  • Line Location: CHK+1
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-16),"Total Admissions: ",$J(IBCNT(1),10)
  • Line Location: HOSPRV+1
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-24),"Total Admissions to NHCU: ",$J(+$G(IBCNT(1,1)),10)
  • Line Location: HOSPRV+2
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-31),"Total Admissions to Domiciliary: ",$J(+$G(IBCNT(1,2)),10)
  • Line Location: HOSPRV+3
Function Call: WRITE
  • Prompt: !!?((IOM/2+6)-20),"Total Cases Reviewed: ",$J(+$G(IBCNT(40)),10)
  • Line Location: HOSPRV+4
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-29),"Number of New Case Still Open: ",$J(IBCNT(41),10)
  • Line Location: HOSPRV+5
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-24),"Number of Previous Cases: ",$J(IBCNT(42),10)
  • Line Location: HOSPRV+6
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-35),"Number of Previous Cases still Open: ",$J(IBCNT(43),10)
  • Line Location: HOSPRV+7
Function Call: WRITE
  • Prompt: !!?((IOM/2+6)-25),"Total Random Sample Cases: ",$J(IBCNT(44),10)
  • Line Location: HOSPRV+11
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-29),"Total Special Condition Cases: ",$J(+$G(IBCNT(45)),10)
  • Line Location: HOSPRV+12
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-4),"COPD: ",$J(+$G(IBCNT(45,2)),10)
  • Line Location: HOSPRV+13
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-4)," CVD: ",$J(+$G(IBCNT(45,3)),10)
  • Line Location: HOSPRV+14
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-4),"TURP: ",$J(+$G(IBCNT(45,1)),10)
  • Line Location: HOSPRV+15
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-25),"Total Locally Added Cases: ",$J(IBCNT(46),10)
  • Line Location: HOSPRV+16
Function Call: WRITE
  • Prompt: !!?((IOM/2+6)-36),"Total Cases Meeting Criteria on Adm.: ",$J(+$G(IBCNT(47)),10)
  • Line Location: HOSPRV+18
Function Call: WRITE
  • Prompt: !,?((IOM/2+6)-37),"Total Cases Not Meeting Crit. on Adm.: ",$J(+$G(IBCNT(51)),10)
  • Line Location: HOSPRV+19
Function Call: WRITE
  • Prompt: !!?((IOM/2+6)-19),"Total Days Reviewed: ",$J(+$G(IBCNT(48)),10)
  • Line Location: HOSPRV+21
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-27),"Total Days Meeting Criteria: ",$J(IBCNT(49),10)
  • Line Location: HOSPRV+22
Function Call: WRITE
  • Prompt: !?((IOM/2+6)-31),"Total Days Not Meeting Criteria: ",$J(+$G(IBCNT(50)),10)
  • Line Location: HOSPRV+23
Info |  Source |  Entry Points |  Interaction Calls