Routine: IBCNSMR0

Package	Total	Call Graph
Integrated Billing	3	$$STOP^IBCNSMR BULL^IBCNSMR1 RPRT^IBCNSMRA
VA FileMan	2	COMMA^%DTC $$EXTERNAL^DILFD
Accounts Receivable	1	$$TPR^PRCAFN
Kernel	1	($$FMTE,$$HTE)^XLFDT
List Manager	1	PAUSE^VALM1
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Integrated Billing	1	IBCNSMR

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

Name	Field # of Occurrence
COMMA^%DTC	FORMAT+6
$$EXTERNAL^DILFD	LINE+2
$$STOP^IBCNSMR	SORT+9
BULL^IBCNSMR1	PRINT+5
RPRT^IBCNSMRA	%
$$TPR^PRCAFN	DLINE+6
DEM^VADPT	DLINE+4
PAUSE^VALM1	SORTQ, DETQ, HDR+3
$$FMTE^XLFDT	DLINE+8, DLINE+9
$$HTE^XLFDT	PRINT+2

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

FileNo	Call Tags
^DGCR(399 - [#399]	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	DLINE+5, DLINE+8, DLINE+9
^DIC(36 - [#36]	SUBHDR+3
^PRCA(430.3 - [#430.3]	ARSTAT+2, ARSTAT+3
^TMP("IB-MRA"	DETAIL+3, DETAIL+6, DETAIL+8, DETAIL+10, DETAIL+13, DETAIL+15, DETAIL+17, DETAIL+21
^TMP("IB-MRA-CNT"	SORT+3, SORT+6, SORT+8, SORT+11, SORT+14, SORT+16, SORT+18

Name	Line Occurrences
$$FORMAT	TOTALS+1, TOTALS+2, TOTALS+3, TOTALS+8, TOTALS+10, TOTALS+11, TOTALS+12, TOTALS+13, TOTALS+15, TOTALS+16 , TOTALS+17, TOTALS+18, TOTALS+19, TOTALS+20, TOTALS+21, TOTALS+24, TOTALS+25, TOTALS+26, TOTALS+27, LINE+2 , DLINE+10
DETAIL	PRINT+3
DETQ	DETAIL+3
DLINE	DETAIL+21
HDR	PRINT+3, PRINT+4, SUBHDR+2, LINE+1, DLINE+2
LINE	SORT+18
SORT	PRINT+3, PRINT+4
SORTQ	SORT+3
SUBHDR	SORT+12, DETAIL+11
TOTALS	PRINT+3, PRINT+4

Name	Field # of Occurrence
^(	SORT+18, DETAIL+21
^("U"	DLINE+8
^(1	SORT+18
^(2	SORT+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	TOTALS+1
>> CNT("B"	TOTALS+10
>> CNT("C"	TOTALS+15
>> CNT("D"	TOTALS+11
>> CNT("F"	TOTALS+16
>> CNT("IN"	TOTALS+3
>> CNT("M"	TOTALS+24, TOTALS+25, TOTALS+26, TOTALS+27
>> CNT("N"	TOTALS+13
>> CNT("OP"	TOTALS+2
>> CNT("P"	TOTALS+12
>> CNT("R"	TOTALS+17
>> CNT("T"	TOTALS+19
>> CNT("W"	TOTALS+18
>> CNT("X"	TOTALS+20
>> CNT("Z"	TOTALS+21
>> CNT(0	TOTALS+1
>> CNT(1	TOTALS+1
>> CNT(2	TOTALS+1
>> CNT(3	TOTALS+7, TOTALS+8
DFN	DLINE+1~, DLINE+3*
DIR	HDR+1~
DIRUT	SORTQ, DETQ, HDR+1~, HDR+3
FROM	DLINE+1~
I	SORT+1~, SORT+5, SORT+6, SORT+8, SORT+11, SORT+14, SORT+16, SORT+18, SUBHDR+3, DETAIL+1~ , DETAIL+5, DETAIL+6, DETAIL+8, DETAIL+10, DETAIL+13, DETAIL+15, DETAIL+17, DETAIL+21, DLINE+1~, HDR+1~
IBHDT	PRINT+1~, PRINT+2*, HDR+6
IBIFN	DETAIL+1~, DETAIL+20, DETAIL+21, DLINE+5, DLINE+6, DLINE+8, DLINE+9
>> IBNM	TOTALS+6, TOTALS+7, TOTALS+8
IBPAG	PRINT+1~, PRINT+2, HDR+3, HDR+4, HDR+5, HDR+6
>> IBPRNT	PRINT+3, PRINT+4, SORTQ
IBQUIT	PRINT+1~, PRINT+2, PRINT+3, PRINT+4, SORT+6, SORT+8, SORT+9, SORT+11, SORT+14, SORT+16 , SORT+18, SORTQ, SUBHDR+2, LINE+1, DETAIL+6, DETAIL+8, DETAIL+10, DETAIL+13, DETAIL+15, DETAIL+17 , DETAIL+21, DETQ, DLINE+2, HDR+2, HDR+3*
>> IBSNDRPT	PRINT+5
IBXX	DETAIL+1~, DETAIL+21*, DLINE+3, DLINE+7
IEN	ARSTAT+1~, ARSTAT+2*, ARSTAT+3
IO	PRINT+3, PRINT+4
IOF	HDR+4
IOM	HDR+6, HDR+13
IOSL	SUBHDR+2, LINE+1, DLINE+2
IOST	SORTQ, DETQ, HDR+3, HDR+4
J	SORT+1~, SORT+7, SORT+8, SORT+11, SORT+14, SORT+16, SORT+18, SUBHDR+4, DETAIL+1~, DETAIL+7* , DETAIL+8*, DETAIL+10, DETAIL+13, DETAIL+15, DETAIL+17, DETAIL+21, DLINE+1~, HDR+1~
K	SORT+1~, SORT+10, SORT+11, SORT+14, SORT+16, SORT+18, SUBHDR+1, SUBHDR+5, DETAIL+1~, DETAIL+9* , DETAIL+10*, DETAIL+13, DETAIL+15, DETAIL+17, DETAIL+21, DLINE+1~, HDR+1~
L	SORT+1~, SORT+13, SORT+14, SORT+16, SORT+18, DETAIL+1~, DETAIL+12, DETAIL+13, DETAIL+15, DETAIL+17 , DETAIL+21, DLINE+1~, HDR+1~
L1	HDR~, HDR+7, HDR+8, HDR+9, HDR+10, HDR+11, HDR+12
M	SORT+1~, SORT+15, SORT+16, SORT+18, LINE+2, ARSTAT~, ARSTAT+2, DETAIL+1~, DETAIL+14, DETAIL+15 , DETAIL+17, DETAIL+21, DLINE+1~, HDR+1~
N	SORT+1~, SORT+17, SORT+18, LINE+2, DETAIL+1~, DETAIL+16, DETAIL+17, DETAIL+21, DLINE+1~, HDR+1~
ORGAMNT	DLINE+1~, DLINE+5*, DLINE+10
P	SORT+1~, DETAIL+1~, HDR+1~
TO	DLINE+1~
TOTPAID	DLINE+1~, DLINE+6*, DLINE+10
VA	DLINE+11!
VA("BID"	DLINE+7
VADM	DLINE+11!
VADM(1	DLINE+7
VADM(4	DLINE+7
VAERR	DLINE+11!
X	SORT+1~, SORT+18*, LINE+2, HDR+1~, FORMAT~, FORMAT+7
X2	FORMAT~
X3	FORMAT~
Y	SORT+1~, SORT+18*, LINE+2, HDR+1~
Z	SORT+1~, SORT+18*, LINE+2, HDR+1~
ZZ	SORT+1~, SORT+18*, LINE+2, HDR+1~

Customize PDF page

Package: Integrated Billing

Routine: IBCNSMR0

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: