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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCNSMR0

Package: Integrated Billing

Routine: IBCNSMR0


Information

IBCNSMR0 ;ALB/AAS - MEDICARE BILLS ; 02-SEPT-97

Source Information

Source file <IBCNSMR0.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;
TOTALS ; -- prepare report
SORT ; -- Run through list by insurance company
SORTQ
SUBHDR ; -- print out sub headers
LINE ; -- Write one summary line
ARSTAT(M) ; convert code to ar status
DETAIL ; -- do detail report
DETQ
DLINE ; -- print one detail line
HDR(L1) ; -- line item header
FORMAT(X,X2,X3) ; -- convert number to formatted number
; -- input x = number to be converted
; x2 = format characters (see doc for comma^%dtc)
; x3 = lenght of formated output (optional)
; output = formated character string

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," Bills Found for Selected Ins. Co.: "_$J(+$G(CNT),6)_$$FORMAT(+$G(CNT(0)),"2$",17)_$J(+$G(CNT(1)),6)_$$FORMAT(+$G(CNT(2)),"2$",14)
  • Line Location: TOTALS+1
Function Call: WRITE
  • Prompt: !," Bills for Outpatient Visits: "_$J(+$G(CNT("OP")),6)_$$FORMAT(+$G(CNT("OP",0)),"2$",17)_$J(+$G(CNT("OP",1)),6)_$$FORMAT(+$G(CNT("OP",2)),"2$",14)
  • Line Location: TOTALS+2
Function Call: WRITE
  • Prompt: !," Bills for Inpatient Visits: "_$J(+$G(CNT("IN")),6)_$$FORMAT(+$G(CNT("IN",0)),"2$",17)_$J(+$G(CNT("IN",1)),6)_$$FORMAT(+$G(CNT("IN",2)),"2$",14)
  • Line Location: TOTALS+3
Function Call: WRITE
  • Prompt: !!," Subtotals by Selected Ins. Co.: "
  • Line Location: TOTALS+5
Function Call: WRITE
  • Prompt: !!,"Bills with Procedures and Diagnosis: "_$J(+$G(CNT("B")),6)_$$FORMAT(+$G(CNT("B",0)),"2$",17)_$J(+$G(CNT("B",1)),6)_$$FORMAT(+$G(CNT("B",2)),"2$",14)
  • Line Location: TOTALS+10
Function Call: WRITE
  • Prompt: !," Bills with Diagnosis Codes Only: "_$J(+$G(CNT("D")),6)_$$FORMAT(+$G(CNT("D",0)),"2$",17)_$J(+$G(CNT("D",1)),6)_$$FORMAT(+$G(CNT("D",2)),"2$",14)
  • Line Location: TOTALS+11
Function Call: WRITE
  • Prompt: !," Bills with Procedure Codes Only: "_$J(+$G(CNT("P")),6)_$$FORMAT(+$G(CNT("P",0)),"2$",17)_$J(+$G(CNT("P",1)),6)_$$FORMAT(+$G(CNT("P",2)),"2$",14)
  • Line Location: TOTALS+12
Function Call: WRITE
  • Prompt: !," Bills with No Proc. or Diag. Codes: "_$J(+$G(CNT("N")),6)_$$FORMAT(+$G(CNT("N",0)),"2$",17)_$J(+$G(CNT("N",1)),6)_$$FORMAT(+$G(CNT("N",2)),"2$",14)
  • Line Location: TOTALS+13
Function Call: WRITE
  • Prompt: !!," Bills Canceled before Completion: "_$J(+$G(CNT("C")),6)_$$FORMAT(+$G(CNT("C",0)),"2$",17)_$J(+$G(CNT("C",1)),6)_$$FORMAT(+$G(CNT("C",2)),"2$",14)
  • Line Location: TOTALS+15
Function Call: WRITE
  • Prompt: !," Bills Never Printed: "_$J(+$G(CNT("F")),6)_$$FORMAT(+$G(CNT("F",0)),"2$",17)_$J(+$G(CNT("F",1)),6)_$$FORMAT(+$G(CNT("F",2)),"2$",14)
  • Line Location: TOTALS+16
Function Call: WRITE
  • Prompt: !," Bills with wrong Rate Type: "_$J(+$G(CNT("R")),6)_$$FORMAT(+$G(CNT("R",0)),"2$",17)_$J(+$G(CNT("R",1)),6)_$$FORMAT(+$G(CNT("R",2)),"2$",14)
  • Line Location: TOTALS+17
Function Call: WRITE
  • Prompt: !," Bills with wrong Who's Responsible: "_$J(+$G(CNT("W")),6)_$$FORMAT(+$G(CNT("W",0)),"2$",17)_$J(+$G(CNT("W",1)),6)_$$FORMAT(+$G(CNT("W",2)),"2$",14)
  • Line Location: TOTALS+18
Function Call: WRITE
  • Prompt: !," Bills w/ wrong Bill Classification: "_$J(+$G(CNT("T")),6)_$$FORMAT(+$G(CNT("T",0)),"2$",17)_$J(+$G(CNT("T",1)),6)_$$FORMAT(+$G(CNT("T",2)),"2$",14)
  • Line Location: TOTALS+19
Function Call: WRITE
  • Prompt: !," Bills for Prescriptions: "_$J(+$G(CNT("X")),6)_$$FORMAT(+$G(CNT("X",0)),"2$",17)_$J(+$G(CNT("X",1)),6)_$$FORMAT(+$G(CNT("X",2)),"2$",14)
  • Line Location: TOTALS+20
Function Call: WRITE
  • Prompt: !," Bills for Prosthetics: "_$J(+$G(CNT("Z")),6)_$$FORMAT(+$G(CNT("Z",0)),"2$",17)_$J(+$G(CNT("Z",1)),6)_$$FORMAT(+$G(CNT("Z",2)),"2$",14)
  • Line Location: TOTALS+21
Function Call: WRITE
  • Prompt: !!," Bills Meeting Criteria for MRA: "_$J(+$G(CNT("M")),6)_$$FORMAT(+$G(CNT("M",0)),"2$",17)_$J(+$G(CNT("M",1)),6)_$$FORMAT(+$G(CNT("M",2)),"2$",14)
  • Line Location: TOTALS+24
Function Call: WRITE
  • Prompt: !," Outpatient Bills Meeting Criteria: "_$J(+$G(CNT("M","OP")),6)_$$FORMAT(+$G(CNT("M","OP",0)),"2$",17)_$J(+$G(CNT("M","OP",1)),6)_$$FORMAT(+$G(CNT("M","OP",2)),"2$",14)
  • Line Location: TOTALS+25
Function Call: WRITE
  • Prompt: !," Inpatient Bills Meeting Criteria: "_$J(+$G(CNT("M","IN")),6)_$$FORMAT(+$G(CNT("M","IN",0)),"2$",17)_$J(+$G(CNT("M","IN",1)),6)_$$FORMAT(+$G(CNT("M","IN",2)),"2$",14)
  • Line Location: TOTALS+26
Function Call: WRITE
  • Prompt: !," Bill Meeting Criteria and Referred: "_$J(+$G(CNT("M",4)),6)_$$FORMAT(+$G(CNT("M",5)),"2$",17)_$J(+$G(CNT("M",6)),6)_$$FORMAT(+$G(CNT("M",7)),"2$",14)
  • Line Location: TOTALS+27
Function Call: WRITE
  • Prompt: !!,"There are no summary records to print.",!
  • Line Location: SORT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SORTQ+0
Function Call: WRITE
  • Prompt: !!,?10,"Insurance Company: ",$P($G(^DIC(36,+I,0)),"^")
  • Line Location: SUBHDR+3
Function Call: WRITE
  • Prompt: !,?15,"Calendar Year of Bill: ",J
  • Line Location: SUBHDR+4
Function Call: WRITE
  • Prompt: !,?20,"Type of Bill: ",K
  • Line Location: SUBHDR+5
Function Call: WRITE
  • Prompt: !,$E($P(M,"^",2),1,21),?23,$E($$EXTERNAL^DILFD(399,.13,"",N),1,14),?37,$J(+X,6),$$FORMAT(Y,"2$",17),$J(+Z,6),$$FORMAT(ZZ,"2$",14)
  • Line Location: LINE+2
Function Call: WRITE
  • Prompt: !!,"There are no detail records to print.",!
  • Line Location: DETAIL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DETQ+0
Function Call: WRITE
  • Prompt: !,$P(IBXX,"^"),?12,$E(VADM(1),1,20),?34,VA("BID"),?42,VADM(4)
  • Line Location: DLINE+7
Function Call: WRITE
  • Prompt: ?48,$$FMTE^XLFDT(+$G(^DGCR(399,IBIFN,"U")),2)," - ",$$FMTE^XLFDT($P($G(^("U")),"^",2),2)
  • Line Location: DLINE+8
Function Call: WRITE
  • Prompt: ?70,$$FMTE^XLFDT($P($G(^DGCR(399,IBIFN,"S")),"^",12))
  • Line Location: DLINE+9
Function Call: WRITE
  • Prompt: ?82,$$FORMAT(ORGAMNT,"2$",17),$$FORMAT(TOTPAID,"2$",17)
  • Line Location: DLINE+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"Possible Medicare Remittance Advice Claims",?(IOM-33),"Page ",IBPAG," ",IBHDT
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,$S(L1=2:"Detail Report",L1=1:"Summary Report",1:"Totals Report")
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call