Routine: IB20P247

Entry Points

Name	Comments	DBIA/ICR reference
POST	; adding charge removal reason entries if not there
ADDCRR	; need to add charge removal reasons
ADDNBR	; need to add non billable reasons
CRR	; charge removal reasons to add in #350.3
NBR	; non-billable reasons to add in #356.8 if not there
RPT	;
COUNTIN(IBDF,IBD,IBNN)	;
PRINTREP(IBNN)	;
SETTMP(IBDFN,IBDT,IBIEN1,IBTYP,IBNUM)	;
OUTP(IBDFN,IBDT,IBDATA)	;
BILLINFO(IBDATA)	;
STRDATE(Y)	;
PATINFO(DFN)	;
HEADER	;header
FOOTER(IBNNN)	;footer
LINE	;line

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The patch DG5.3576 needs to be installed to run the report." Line Location: RPT+1
Function Call: WRITE	Prompt: !,$P(Y,"^"),?30,$P(Y,"^",2),?43,$$STRDATE(IBDT),?55,$E($$BILLINFO(IBDATA),1,18) Line Location: OUTP+3
Function Call: WRITE	Prompt: !,"...Please wait..." Line Location: HEADER+1
Function Call: WRITE	Prompt: !,?15,">> CV Billing Verification Report <<" Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"Name",?30,"SSN",?43,"Date",?55,"Bill #" Line Location: HEADER+4
Function Call: WRITE	Prompt: !,"Total: "_IBNNN_" bills/copays" Line Location: FOOTER+2
Function Call: WRITE	Prompt: !,"-----------------------------",?30,"------------",?43,"-----------",?55,"------------------" Line Location: LINE+1

FileNo	Call Tags
^IBE(350.3 - [#350.3]	Classic Fileman Calls
^IBE(356.8 - [#356.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	STRDATE+1
^DGCR(399 - [#399]	COUNTIN+3, COUNTIN+4, COUNTIN+6, BILLINFO+2
^IB - [#350]	COUNTIN+13, BILLINFO+1
^IB("C"	COUNTIN+12
^IBE(350.3 - [#350.3]	ADDCRR+2
^IBE(356.8 - [#356.8]	ADDNBR+1
^TMP("DGCVEX"	RPT+2!, RPT+6, RPT+7, RPT+9!
^TMP("IBCVEX"	RPT+2!, RPT+9!, PRINTREP+3, PRINTREP+4, PRINTREP+5, SETTMP+1*

Name	Field # of Occurrence
DFN	PATINFO~, PATINFO+1
DIC	POST+1~, ADDCRR+1~, ADDCRR+3, ADDNBR+2
DIC("DR"	ADDCRR+3*
DIC(0	ADDCRR+3, ADDNBR+2
DO	POST+1~, ADDCRR+2!, ADDNBR+1!
IB1	COUNTIN+2~, COUNTIN+4, COUNTIN+5, COUNTIN+8, COUNTIN+13, PRINTREP+1~
IBD	COUNTIN~, COUNTIN+8, COUNTIN+10, COUNTIN+14
IBDATA	OUTP~, OUTP+1, OUTP+3, BILLINFO~, BILLINFO+1, BILLINFO+2
IBDF	COUNTIN~, COUNTIN+3, COUNTIN+8, COUNTIN+10, COUNTIN+12, COUNTIN+14
IBDFN	RPT+4~, RPT+6, RPT+7, PRINTREP+1~, PRINTREP+3, PRINTREP+4, PRINTREP+5, SETTMP~, SETTMP+1, OUTP~ , OUTP+2
IBDT	RPT+4~, RPT+7, PRINTREP+1~, PRINTREP+4, PRINTREP+5, SETTMP~, SETTMP+1, OUTP~, OUTP+3
IBFR	COUNTIN+2~, COUNTIN+6, COUNTIN+8, COUNTIN+10, COUNTIN+13, COUNTIN+14
IBI	COUNTIN+2~
IBIEN	COUNTIN+2~, COUNTIN+3, COUNTIN+4, COUNTIN+6, COUNTIN+8, COUNTIN+10, COUNTIN+12, COUNTIN+13, COUNTIN+14
IBIEN1	SETTMP~, SETTMP+1
IBK	COUNTIN+2~
IBN	PRINTREP+1~, PRINTREP+5*
IBNN	COUNTIN~, COUNTIN+8, COUNTIN+10, COUNTIN+14, PRINTREP~, PRINTREP+6
IBNNN	RPT+4~, RPT+5*, RPT+7, RPT+8, FOOTER~, FOOTER+2
IBNUM	SETTMP~, SETTMP+1*
IBRVDT	COUNTIN+2~
IBT	POST+1~, ADDCRR+1~, ADDCRR+2, ADDCRR+3, ADDCRR+4, ADDNBR+1, ADDNBR+2, ADDNBR+3
IBTO	COUNTIN+2~, COUNTIN+6, COUNTIN+10, COUNTIN+13, COUNTIN+14
IBTYP	SETTMP~, SETTMP+1
IBX	POST+1~, ADDCRR+1~, ADDCRR+2, ADDNBR+1
IBY	POST+1~, ADDCRR+1~, ADDCRR+2*, ADDCRR+3
VA	PATINFO+2~
VADM	PATINFO+2~
VADM(1	PATINFO+4
VADM(2	PATINFO+4
VAERR	PATINFO+2~
X	POST+1~, ADDCRR+1~, ADDCRR+3, ADDNBR+2
Y	POST+1~, ADDCRR+1~, ADDCRR+4, ADDNBR+3, OUTP+2~*, OUTP+3, STRDATE~, STRDATE+1

Name	Field # of Occurrence
$T(CRR+IBX	ADDCRR+2
$T(NBR+IBX	ADDNBR+1