Routine: RCDPARC

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point for Report
ENQ	; Queue point for report.
REPORT	; Print out the report ; Set up Division Header Text and CARC Header Text
ARCQ	; Clean-up and quit
PRTREP(DATA,SUMM,SORT,CD,RA,RCSTOP)	; Print report data out of the "REPORT" subarray ; Input: DATA - Compiled report data in ^TMP("RCDPARC_REPORT",$J) ; SUM - Compiled grand totals in ^TMP("RCDPARC_REPORT",$J,"~~SUM") ; SORT - Selected Sort Option ; CD - 'D' - Detail report, 'S' - Summary report ; RA - Always 0 for now to not display CARCS on report ; Output: RCSTOP - 1 if user quit out of the display, 0 otherwise
DETAIL(DATA,L1,L2,RCSL,DSTOP)	; Print detail information for this entry
HDR(CD,RA)	; Report header
HDRP(Z,X,Z1)	; Print Header (Z=String, X=1 (line feed) X=0 (no LF), Z1 (page number right justified)
NEWPG(RCPG,RCNEW,RCSL,CD,RA)	; Check for new page needed, output header ; RCPG = Page number passwd by referece ; RCNEW = 1 to force new page ; RCSL = page length passed by reference ; Function returns 1 if user chooses to stop output
CARC	;
GETDATA(GCARC,GPAYER,GTIN,GSORT,GRARC,GSTART,GSTOP,GARRAY,GDIV)	; ; Input: GCCARC - Range of CARC codes to include ; GPAYER - Range of payers to include ; GTIN - Range of TINs to include ; GSORT - Sort order ; GRARC - Flag to display RARC codes on the report (0 = No) ; GSTART - Start date ; GSTOP - End date ; GARRAY - Root of the array in which to store the output data ; GDIV - Range of Divisions to include ; Output: @GARRAY("BILLS",IEN,0)=A1^A2^A3^A4^A5^A6^A7 ; A1=Pointer to BILL/CLAIM file (#399) ; A2=Bill Number ; A3=Pointer to patient file (#2) ; A4=Payer Name from EOB, pointer to Insurance file (#36) ; A5=TIN from EOB ; A6=Total Charges ; A7=Paid amount

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"* Note: Date Range "_$$DATE^RCDPRU(RCDT1)_" - "_$$DATE^RCDPRU(RCDT2)," *",! Line Location: EN+47
Function Call: WRITE	Prompt: "* No Records found *",! Line Location: EN+47
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Your task number"_ZTSK_" has been queued.",1:"Unable to queue this job.") Line Location: EN+55
Function Call: WRITE	Prompt: "CARC^PAYER^TIN^REP_DATE^AMOUNT",! Line Location: REPORT+17
Function Call: WRITE	Prompt: ! Line Location: PRTREP+15
Function Call: WRITE	Prompt: "GRAND TOTAL ALL CARCS / ALL PAYERS ON REPORT",! Line Location: PRTREP+16
Function Call: WRITE	Prompt: " TOTAL #CLAIMS: ",$J($P(DX0,U,1),6,0)," ADJ: ",PCT,"% [TOT AMT ADJUSTED / TOT AMT BILLED]",! Line Location: PRTREP+17
Function Call: WRITE	Prompt: " AMT ADJUST: $",$J($P(DX0,U,4),11,2)," AMT BILLED: $",$J($P(DX0,U,2),11,2)," AMT PAID: $",$J($P(DX0,U,3),11,2),! Line Location: PRTREP+18
Function Call: WRITE	Prompt: !,DLN,!! Line Location: PRTREP+19
Function Call: WRITE	Prompt: "CARC: ",$J(IX,4)," TOTAL #CLAIMS: ",$J(CL,5,0)," ADJ:",$J(PCT,3,0),"% [TOT AMT ADJUSTED / TOT AMT BILLED]",! Line Location: PRTREP+25
Function Call: WRITE	Prompt: " AMT ADJUST: ",$J(AMTA,11,2)," AMT BILLED: ",$J(AMTB,12,2)," AMT PAID: ",$J(AMTP,12,2),! Line Location: PRTREP+27
Function Call: WRITE	Prompt: LN,! Line Location: PRTREP+31
Function Call: WRITE	Prompt: LN2,! Line Location: PRTREP+35
Function Call: WRITE	Prompt: " PAYER NAME/TIN",! Line Location: PRTREP+39
Function Call: WRITE	Prompt: " ",$$PAYTIN^RCDPRU2(PYRTINS(PYZ),76),! Line Location: PRTREP+42
Function Call: WRITE	Prompt: " #CLAIMS: ",$J($P(DZ,U,1),4,0)," ADJ:",$J(PCT,3,0),"% [ADJ: ",$J($P(DZ,U,4),10,2),"/BILLED: ",$J($P(DZ,U,2),10,2),"] PAID: ",$J($P(DZ,U,3),10,2),! Line Location: PRTREP+47
Function Call: WRITE	Prompt: LN,! Line Location: PRTREP+51
Function Call: WRITE	Prompt: " PAYER NAME/TIN",! Line Location: PRTREP+57
Function Call: WRITE	Prompt: " ",$$PAYTIN^RCDPRU2(PYRTINS(PYZ),76),! Line Location: PRTREP+60
Function Call: WRITE	Prompt: "#CLAIMS: ",$J(CL,4,0)," ADJ: ",$J(PCT,3,0),"% [ADJ:",$J(AMTA,10,2),"/BILLED:",$J(AMTB,11,2),"] PAID:",$J(AMTP,11,2),! Line Location: PRTREP+65
Function Call: WRITE	Prompt: LN,!! Line Location: PRTREP+66
Function Call: WRITE	Prompt: LN2,! Line Location: PRTREP+69
Function Call: WRITE	Prompt: ?2,"CARC: ",$J(IY,4),?14,"#CLAIMS: ",$J($P(DZ,U,1),5,0),?30,"ADJ: ",$J(PCT,3,0),"% [AMT ADJUSTED / AMT BILLED]",! Line Location: PRTREP+72
Function Call: WRITE	Prompt: ?2,"AMT ADJUST: ",$J($P(DZ,U,4),11,2),?26," BILLED: ",$J($P(DZ,U,2),12,2),?56," PAID: ",$J($P(DZ,U,3),12,2),! Line Location: PRTREP+74
Function Call: WRITE	Prompt: LN,! Line Location: PRTREP+80
Function Call: WRITE	Prompt: " ------------------------------------------------------------------------------",! Line Location: DETAIL+6
Function Call: WRITE	Prompt: " CLAIM# DOS %ADJ [AMT ADJ/AMT BILLED] PAID PATIENT NAME SSN",! Line Location: DETAIL+7
Function Call: WRITE	Prompt: " ==============================================================================",! Line Location: DETAIL+8
Function Call: WRITE	Prompt: ?2,$P(DX,U,2),?10,DOS,?19,$J(PCT,3,0),?24,$J($P(DY,U,2),9,2),?34,$J($P(DX,U,6),9,2),?44,$J($P(DX,U,7),9,2),?54,$E(PAT,1,19),?74,SSN,! Line Location: DETAIL+13
Function Call: WRITE	Prompt: ! Line Location: DETAIL+19
Function Call: WRITE	Prompt: ! Line Location: HDRP+1
Function Call: WRITE	Prompt: ?(IOM-$L(Z)\2),Z Line Location: HDRP+2
Function Call: WRITE	Prompt: ?(IOM-$L(Z1)),Z1 Condition for execution: $G(Z1)]"" Line Location: HDRP+2
Function Call: WRITE	Prompt: @IOF Line Location: NEWPG+9
Function Call: WRITE	Prompt: !,RCHR,! Line Location: NEWPG+19

FileNo	Call Tags
^IBM(361.1 - [#361.1]	GET1^DIQ, GETS^DIQ
^DGCR(399 - [#399]	GET1^DIQ

Customize PDF page

Package: Accounts Receivable

Routine: RCDPARC

Information

Source Information

Entry Points

Interaction Calls

FileMan Files Accessed Via FileMan Db Call