Routine: RCDPPLB

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point for Report
ENQ	; Start here for queued report
REPORT	; Print out the report ; Set up Division Header Text and PLB Code Header Text
PLBQ	;
DETAIL(SORT,CAT,DET,ZGBL)	; Detail Report
GETDT(SORT,CAT,DT,ZND,ZGBL)	; Get detail information for this entry
DAMT(TYPE,FIRST,ZIEN,XFS,XGBL)	; Get amounts
DTCM(FIRST,ZIEN,XFS,XGBL)	; Get comment or reference number
HDR(CD)	; 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)	; 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
GETDATA(GPLB,RCPAYS,RCTYPE,GSORT,GSTART,GSTOP,GARRAY,GDIV)	;
CHECK(TYPE,ITEM,ARRAY)	; ; If all are included no need to check further
PLBC(RET)	; Get PLB Codes to limit for report or all
C1
C2
VAL(XF,CODE)	; Validate a range or list of PLB Codes ; If invalid code is found VAILD = 0 and CODE will contain the offending codes

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+60
Function Call: WRITE	Prompt: "CODE^PAYER^TIN^REP_DATE^AMOUNT",! Line Location: REPORT+18
Function Call: WRITE	Prompt: ! Line Location: REPORT+26
Function Call: WRITE	Prompt: "GRAND TOTALS FOR ALL PLB CODES & PAYERS ON REPORT",! Line Location: REPORT+27
Function Call: WRITE	Prompt: " TOTAL #ERAs: ",$J($P(DX0,U,3),6,0)," ADJ: ",PCT,"% [TOT AMT ADJUSTED / TOT AMT BILLED]",! Line Location: REPORT+28
Function Call: WRITE	Prompt: " AMT ADJUST: $",$J($P(DX0,U,1),11,2)," AMT BILLED: $",$J($P(DX0,U,5),11,2)," AMT PAID: $",$J($P(DX0,U,2),11,2),! Line Location: REPORT+29
Function Call: WRITE	Prompt: !,ZDLN,!! Line Location: REPORT+30
Function Call: WRITE	Prompt: "ADJ CODE: ",ZZ," # ERAs: ",$J($P(ZDAT,U,3),5)," ADJ: ",$S(+$P(ZDAT,U,5)>0:$J((($P(ZDAT,U,1)/$P(ZDAT,U,5))*100),3,0),1:"ERR"),"% [TOT AMT ADJUSTED / TOT AMT BILLED]",! Line Location: REPORT+35
Function Call: WRITE	Prompt: " AMT ADJUST: ",$J($P(ZDAT,U,1),8,2)," AMT BILLED: ",$J($P(ZDAT,U,5),9,2)," AMT PAID: ",$J($P(ZDAT,U,2),9,2),! Line Location: REPORT+37
Function Call: WRITE	Prompt: "ADJ CODE TEXT: ",$P(ZDAT,U,4),! Line Location: REPORT+39
Function Call: WRITE	Prompt: ZLN,! Line Location: REPORT+41
Function Call: WRITE	Prompt: ZLN2,! Line Location: REPORT+46
Function Call: WRITE	Prompt: " PAYER NAME/TIN",! Line Location: REPORT+47
Function Call: WRITE	Prompt: " ",$$PAYTIN^RCDPRU2(PY,76),! Line Location: REPORT+49
Function Call: WRITE	Prompt: " #ERAs: ",$J($P(ZPY,U,3),4)," ADJ: ",ZPPY,"% [ADJ: ",$J($P(ZPY,U,1),8,2),"/ BILLED: ",$J($P(ZPY,U,5),9,2),"] PAID: ",$J($P(ZPY,U,2),9,2),! Line Location: REPORT+52
Function Call: WRITE	Prompt: " PAYER NAME/TIN",! Line Location: REPORT+56
Function Call: WRITE	Prompt: " ",$$PAYTIN^RCDPRU2(ZZ,76),! Line Location: REPORT+58
Function Call: WRITE	Prompt: "# ERAs:",$J($P(ZDAT,U,3),5)," ADJ: ",$S(+$P(ZDAT,U,5)>0:$J((($P(ZDAT,U,1)/$P(ZDAT,U,5))*100),3,0),1:"ERR"),"% [AMT ADJ:",$J($P(ZDAT,U,1),8,2),"/ BILLED:",$J($P(ZDAT,U,5),9,2),"] PAID:",$J($P(ZDAT,U,2),9,2),! Line Location: REPORT+62
Function Call: WRITE	Prompt: ZLN,! Line Location: REPORT+64
Function Call: WRITE	Prompt: ZLN2,! Line Location: REPORT+68
Function Call: WRITE	Prompt: " ADJ CODE: ",PY," ADJ CODE TXT: ",$P(ZPY,U,4),! Line Location: REPORT+69
Function Call: WRITE	Prompt: " #ERAs: ",$J($P(ZPY,U,3),4)," ADJ: ",ZPPY,"% [ADJ: ",$J($P(ZPY,U,1),8,2),"/ BILLED: ",$J($P(ZPY,U,5),9,2),"] PAID: ",$J($P(ZPY,U,2),9,2),! Line Location: REPORT+71
Function Call: WRITE	Prompt: ZLN,! Line Location: REPORT+73
Function Call: WRITE	Prompt: ZLN1,! Line Location: DETAIL+3
Function Call: WRITE	Prompt: " #ERA DATE %ADJ ADJUST BILLED PAID CHECK#",! Line Location: DETAIL+5
Function Call: WRITE	Prompt: " TRACE#",! Line Location: DETAIL+7
Function Call: WRITE	Prompt: " REFERENCE#",! Line Location: DETAIL+10
Function Call: WRITE	Prompt: $J($P(ZDZN,U,1),9),?12,$$DATE^RCDPRU($P(ZDZN,U,4)),?23,$J(ZPCT,3,0),?29,$J(ZADJ,9,2),?42,$J(ZBIL,9,2),?54,$J(ZPD,9,2),?68,$P(ZDZN,U,13),! Line Location: DETAIL+17
Function Call: WRITE	Prompt: ?9,$P(ZDZN,U,2),! Line Location: DETAIL+19
Function Call: WRITE	Prompt: ?9,$$DTCM(CAT,$P(ZDZN,U,1),ZFS,ZGBL),! Line Location: DETAIL+21
Function Call: WRITE	Prompt: ! Line Location: HDRP+2
Function Call: WRITE	Prompt: ?(IOM-LGT\2),Z Line Location: HDRP+3
Function Call: WRITE	Prompt: ?(IOM-$L(Z1)),Z1 Condition for execution: $G(Z1)]"" Line Location: HDRP+3
Function Call: WRITE	Prompt: @IOF Line Location: NEWPG+8
Function Call: WRITE	Prompt: !,RCHR,! Line Location: NEWPG+19
Function Call: WRITE	Prompt: !!,"PLB Code: "_PLCODE_" not found, Please try again...",! Line Location: C1+8
Function Call: WRITE	Prompt: !!,"PLB Code: "_PLCODE_" not found, Please try again...",! Line Location: C1+9
Function Call: WRITE	Prompt: !!,"PLB Code: "_PLCODE_" not found, Please try again...",! Line Location: C2+7

FileNo	Call Tags
^RCY(344.4 - [#344.4]	GET1^DIQ, GETS^DIQ
^RC(345.1 - [#345.1]	FIND1^DIC, GET1^DIQ
^IBM(361.1 - [#361.1]	GET1^DIQ

Customize PDF page

Package: Accounts Receivable

Routine: RCDPPLB

Information

Source Information

Entry Points

Interaction Calls

FileMan Files Accessed Via FileMan Db Call