Routine: RCDPENR2

Information

RCDPENR2 ;ALB/SAB - EPay National Reports - ERA/EFT Trending Report ; 7/1/19 2:02pm

Package	Total	Call Graph
Accounts Receivable	11	ASK^RCDPEADP $$NMORTIN^RCDPEAPP $$ENDORPRT^RCDPEARL ($$DIVTXT,$$INITARCH,SAVEDATA)^RCDPENR1 (COMPILE,GETEFT)^RCDPENR3 ($$ASKPUZ,$$GETDIV,$$GETEDATE,$$GETRATE,$$GETSDATE,DIV,GETERA,PAYSUM)^RCDPENR4 ($$ASKSORT,$$GETRPT,$$GRAND,$$MAINAMT,$$PRINTHDR)^RCDPENR5 $$XM^RCDPENRU ($$ASKAUTO,$$CLOSEDC,$$PAYRNG,$$RTYPE,$$SELPAY)^RCDPEU1 ($$DISPTY,INFO)^RCDPRU $$PAYTIN^RCDPRU2
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$FMTH,$$NOW)^XLFDT
VA FileMan	1	$$GET1^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Accounts Receivable	6	RCDPE EFT-ERA TRENDING REPORT RCDPENR1 RCDPENR3 RCDPENR4 RCDPENR5 RCDPENRU

Entry Points

Name	Comments	DBIA/ICR reference
EFTERA()
AUTO(RCDISP,RCBGDT,RCENDDT,RCPYRLST,RCRQDIV,RCRPT,RCEXCEL,RCRATE,RCDIV,RCAUTO,RCPUZ)	;
REPORT
PRINT(RCSUMFLG,RCPUZ)	;Print the results
HEADER	;Print the results
MAIN(RCPUZ)	; ; *** IMPORTANT *** If this section needs to be modified, also check MAINAMT^RCDPENR5
SUMMARY(RCPUZ)	;Print the Payer Summary portion of the report
GRAND(RCPUZ)	; ; PRCA4.5446 - Moved to RCDPENR5 for size
PRINTINS(RCINS)	; Print the insurance header line ; Input: RCINS - Payer Name/TIN to be displayed ; RCLINE - line of dashes used for separation ; Returns 1 - User quit out of report, 0 otherwise
PRINTHDR(RCTITLE,RCLL)	; ; PRCA4.5446 - Moved to RCDPENR5 for size
GETDIV(RCDIV)	; Retrieve the Division ; PRCA4.5349 - Moved to RCDPENR4 for size
GETRPT(RCMNFLG)	; ; PRCA4.5446 - Moved to RCDPENR5 for size
GETARPYR(RCTIN,RCPAY)	; Retrieve the Payer IEN from the RCDPE AUTO-PAY EXCLUSION file (#344.6) ; Input: RCTIN - Payer ID ; RCPAY - Payer Name (optional) ; Return: Payer IEN (#344.6)
INSCHK(RCINS)	;
DIV(RCDIV)	; build the list of divisions to report on. ; PRCA4.5349 - Moved to RCDPENR4 for size
TINTXT()	;
COLHEAD	;
REPRINT(RCIEN)	;
RPTHDR(RCIEN,PAGE)	; Reprint the header
GETSDATE()	;PRCA4.5446 moved subroutine to RCDPENR4
GETEDATE()	;PRCA4.5446 moved subroutine to RCDPENR4

External References

Name	Field # of Occurrence
^%ZIS	AUTO+27
HOME^%ZIS	AUTO+38
^%ZISC	PRINT+57
^%ZTLOAD	AUTO+35
$$GET1^DIQ	MAIN+58, GETARPYR+15, TINTXT+10
ASK^RCDPEADP	PRINT+32, PRINT+52, MAIN+50, PRINTINS+9, REPRINT+13
$$NMORTIN^RCDPEAPP	EFTERA+19
$$ENDORPRT^RCDPEARL	PRINT+53
$$DIVTXT^RCDPENR1	HEADER+6
$$INITARCH^RCDPENR1	PRINT+20
SAVEDATA^RCDPENR1	HEADER+18, HEADER+20, HEADER+22, HEADER+23
COMPILE^RCDPENR3	REPORT+22
GETEFT^RCDPENR3	REPORT+14
$$ASKPUZ^RCDPENR4	EFTERA+16
$$GETDIV^RCDPENR4	EFTERA+11, GETDIV+2
$$GETEDATE^RCDPENR4	EFTERA+55, GETEDATE+1
$$GETRATE^RCDPENR4	EFTERA+33
$$GETSDATE^RCDPENR4	EFTERA+51, GETSDATE+1
DIV^RCDPENR4	REPORT+10, DIV+2
GETERA^RCDPENR4	REPORT+15
PAYSUM^RCDPENR4	SUMMARY+10
$$ASKSORT^RCDPENR5	EFTERA+47
$$GETRPT^RCDPENR5	GETRPT+2
$$GRAND^RCDPENR5	GRAND+3
$$MAINAMT^RCDPENR5	PRINT+26
$$PRINTHDR^RCDPENR5	MAIN+44, PRINTHDR+2
$$XM^RCDPENRU	PRINT+49
$$ASKAUTO^RCDPEU1	EFTERA+14
$$CLOSEDC^RCDPEU1	EFTERA+37
$$PAYRNG^RCDPEU1	EFTERA+21
$$RTYPE^RCDPEU1	EFTERA+18
$$SELPAY^RCDPEU1	EFTERA+30
$$DISPTY^RCDPRU	EFTERA+60
INFO^RCDPRU	EFTERA+61
$$PAYTIN^RCDPRU2	PRINTINS+14
$$FMTE^XLFDT	PRINT+14, HEADER+21, HEADER+29, HEADER+36, MAIN+66, MAIN+67, MAIN+73, MAIN+74
$$FMTH^XLFDT	MAIN+59, MAIN+60, MAIN+61, MAIN+62, MAIN+63
$$NOW^XLFDT	PRINT+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report requires 132 columns.",!! Line Location: EFTERA+62
Function Call: WRITE	Prompt: ! Line Location: AUTO+19
Function Call: WRITE	Prompt: !!,"Task number "_ZTSK_" has been queued." Line Location: AUTO+36
Function Call: WRITE	Prompt: !!,"Unable to queue this job." Line Location: AUTO+37
Function Call: WRITE	Prompt: !!,"There was no data available for the requested report. Please try again." Line Location: REPORT+19
Function Call: WRITE	Prompt: !,$$ENDORPRT^RCDPEARL Line Location: PRINT+53
Function Call: WRITE	Prompt: ! Line Location: PRINT+54
Function Call: WRITE	Prompt: @IOF,"EFT/ERA TRENDING REPORT" Line Location: HEADER+24
Function Call: WRITE	Prompt: ?122,"PAGE ",$J(RCPAGE,5),! Line Location: HEADER+26
Function Call: WRITE	Prompt: " "_$E(RCDIVTXT,1,23),?25,$E(RCPYRTXT,1,20),?46,$E(RCTYPTXT,1,43) Line Location: HEADER+27
Function Call: WRITE	Prompt: ?90,RCAUTOT,?118,RCCLMTXT,! Line Location: HEADER+28
Function Call: WRITE	Prompt: ?5,"DATE RANGE: ",$$FMTE^XLFDT(RCBGDT,2)," - ",$$FMTE^XLFDT(RCENDDT,2) Line Location: HEADER+29
Function Call: WRITE	Prompt: ?51,"RUN DATE: ",RCRUNDT,?90,RCPUZT,! Line Location: HEADER+30
Function Call: WRITE	Prompt: RCLINE,! Line Location: HEADER+32
Function Call: WRITE	Prompt: "^PAGE ",$J(RCPAGE,5) Line Location: HEADER+34
Function Call: WRITE	Prompt: "^",RCDIVTXT,"^",RCPYRTXT,"^",RCTYPTXT Line Location: HEADER+35
Function Call: WRITE	Prompt: "^","DATE RANGE: ",$$FMTE^XLFDT(RCBGDT,2)," - ",$$FMTE^XLFDT(RCENDDT,2) Line Location: HEADER+36
Function Call: WRITE	Prompt: "^","RUN DATE: ",RCRUNDT Line Location: HEADER+37
Function Call: WRITE	Prompt: "^",RCAUTOT,"^",RCCLMTXT,! Line Location: HEADER+38
Function Call: WRITE	Prompt: "No data captured for this section during the specified time period.",! Line Location: MAIN+47
Function Call: WRITE	Prompt: !,"No data captured for this section during the specified time period.",! Line Location: MAIN+54
Function Call: WRITE	Prompt: RCTMP,! Line Location: MAIN+71
Function Call: WRITE	Prompt: RCBILL,?21,$$FMTE^XLFDT($P(RCDATA,U,5),2),?30,$J($P(RCDATA,U,6),10,2),?41,$J($P(RCDATA,U,7),10,2),?52,$$FMTE^XLFDT($P(RCDATA,U,8),2) Line Location: MAIN+73
Function Call: WRITE	Prompt: ?61,$$FMTE^XLFDT($P(RCDATA,U,9),2),?75,$$FMTE^XLFDT($P(RCDATA,U,10),2),?89,$$FMTE^XLFDT($P(RCDATA,U,11),2),?98,$P(RCDATA,U,12),?109,$P(RCDATA,U,13),! Line Location: MAIN+74
Function Call: WRITE	Prompt: ?5,$P(RCDATA,U,14),?17,$P(RCDATA,U,2),?28,$J($P(RCDATA,U,15),6),?39,$P(RCDATA,U,3),?50,$J(RCBEDY,8) Line Location: MAIN+75
Function Call: WRITE	Prompt: ?67,$J(RCEEDY,8),?83,$J(RCEPDY,8),?106,$J(RCBPDY,8),! Line Location: MAIN+76
Function Call: WRITE	Prompt: RCLINE,! Line Location: MAIN+77
Function Call: WRITE	Prompt: ! Condition for execution: (RCPAGE>1) Line Location: PRINTINS+13
Function Call: WRITE	Prompt: RCLINE,! Line Location: PRINTINS+13
Function Call: WRITE	Prompt: " ",$$PAYTIN^RCDPRU2(RCINS,78),! Line Location: PRINTINS+14
Function Call: WRITE	Prompt: RCLINE,! Line Location: PRINTINS+15
Function Call: WRITE	Prompt: RCTMP,! Line Location: COLHEAD+9
Function Call: WRITE	Prompt: "CLAIM#",?21,"DOS",?30,"AMT BILLED",?41,"AMT PAID",?52,"BILLED",?61,"ERA/EOB REC'D",?75,"EFT/PMT REC'D",?89,"POSTED",?98,"TRACE #",?109,"AUTOPOST/MANUAL",! Line Location: COLHEAD+11
Function Call: WRITE	Prompt: ?5,"ETRANS TYPE",?17,"ERA#",?28,"#EEOBS",?39,"EFT#",?50,"#DAYS:(BILL/ERA)",?67,"#DAYS:(ERA/EFT)",?83,"#DAYS:(ERA+EFT/POSTED)",?106,"TOTAL #DAYS(BILL/POSTED)",! Line Location: COLHEAD+12
Function Call: WRITE	Prompt: RCLINE,! Line Location: COLHEAD+14
Function Call: WRITE	Prompt: $P(RCDATA,U) Line Location: REPRINT+18
Function Call: WRITE	Prompt: ?65,$P(RCDATA,U,2) Line Location: REPRINT+19
Function Call: WRITE	Prompt: ! Line Location: REPRINT+20
Function Call: WRITE	Prompt: @IOF Line Location: RPTHDR+4
Function Call: WRITE	Prompt: ?15,$P(RCDATA,U),?70,PAGE,! Line Location: RPTHDR+9
Function Call: WRITE	Prompt: ?5,$P(RCDATA,U,2),! Line Location: RPTHDR+10
Function Call: WRITE	Prompt: ?5,$P(RCDATA,U,2),?45,$P(RCDATA,U,3),! Line Location: RPTHDR+11
Routine Call	%ZIS Line Location: AUTO+27
Routine Call	%ZIS Line Location: AUTO+38

FileNo	Call Tags
^RCY(344.6 - [#344.6]	GET1^DIQ
^DGCR(399 - [#399]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RCDM(344.91 - [#344.91]	REPRINT+9, REPRINT+10, RPTHDR+7
^RCY(344.6 - [#344.6]	GETARPYR+14, GETARPYR+18
^TMP("RCDPEADP"	REPORT+7!, TINTXT+4, TINTXT+9
^TMP("RCDPENR2"	REPORT+7!, REPORT+18, REPORT+28!, MAIN+11, MAIN+13, MAIN+46, MAIN+49, MAIN+51, SUMMARY+9, INSCHK+3 , INSCHK+6
^TMP("RCDPEU1"	REPORT+29!

Label References

Name	Line Occurrences
$$GETRPT	EFTERA+41
$$GRAND	PRINT+43
$$MAIN	PRINT+27
$$PRINTINS	MAIN+28
$$SUMMARY	PRINT+38
AUTO	EFTERA+63
COLHEAD	HEADER+44, HEADER+45
HEADER	PRINT+22, PRINT+34, PRINT+52, MAIN+50, PRINTINS+11
PRINT	REPORT+25
REPORT	AUTO+41
RPTHDR	REPRINT+6, REPRINT+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	AUTO+27*
DIROUT	EFTERA+2~
DIRUT	EFTERA+2~
DTOUT	EFTERA+2~
DUOUT	EFTERA+2~
I	MAIN+5~, MAIN+31, MAIN+33, MAIN+34, MAIN+35, MAIN+36, MAIN+37, MAIN+42, MAIN+43, MAIN+46 , MAIN+49, MAIN+51, MAIN+64, MAIN+70, REPRINT+2~, REPRINT+8, REPRINT+9, REPRINT+10, RPTHDR+2~, RPTHDR+6 , RPTHDR+7, RPTHDR+9, RPTHDR+10, RPTHDR+11
I1	MAIN+5~, MAIN+21, MAIN+22, MAIN+23*, MAIN+31
I2	MAIN+5~, MAIN+21*, MAIN+31
I3	MAIN+5~, MAIN+21, MAIN+22, MAIN+23, MAIN+24, MAIN+25*, MAIN+31
IO	PRINT+17
IO("Q"	AUTO+29, AUTO+38!
IOF	HEADER+24, RPTHDR+4
IOM	PRINT+7
IOSL	PRINT+52, MAIN+50, PRINTINS+8, REPRINT+12
J	REPRINT+2~
PAGE	REPRINT+2~, REPRINT+5, REPRINT+6, REPRINT+15, REPRINT+16, RPTHDR~, RPTHDR+9
POP	EFTERA+2~, AUTO+27
QUIT	GETARPYR+5~, GETARPYR+13*
RCAMTBL	MAIN+6~
RCAMTPD	MAIN+6~
RCATPST	MAIN+6~
RCAUTO	EFTERA+3~, EFTERA+14, EFTERA+63, AUTO~, AUTO+22, PRINT+26, HEADER+11, MAIN+14
RCAUTOT	HEADER+4~, HEADER+11*, HEADER+28, HEADER+38
RCBATCH	REPORT+2~
RCBEDY	MAIN+7~, MAIN+57, MAIN+59, MAIN+69, MAIN+75
RCBGDT	EFTERA+3~, EFTERA+51*, EFTERA+52, EFTERA+55, EFTERA+63, AUTO~, REPORT+14, REPORT+15, PRINT+49, HEADER+21 , HEADER+29, HEADER+36, GETEDATE+1
RCBILL	MAIN+5~, MAIN+58*, MAIN+66, MAIN+73
RCBILLDT	MAIN+6~
RCBILLNO	REPORT+2~
RCBPDY	MAIN+7~, MAIN+57, MAIN+63, MAIN+64*, MAIN+69, MAIN+76
RCCLAIM	MAIN+5~, MAIN+52*, MAIN+58
RCCLAIM2	MAIN+5~, MAIN+48, MAIN+49, MAIN+51, MAIN+52
RCCLM	EFTERA+4~, EFTERA+37, EFTERA+38, AUTO+23, REPORT+14, REPORT+15, HEADER+12
RCCLMTXT	HEADER+4~, HEADER+12*, HEADER+28, HEADER+38
RCDATA	EFTERA+3~, REPORT+2~, MAIN+5~, MAIN+51, MAIN+53, MAIN+59, MAIN+60, MAIN+61, MAIN+62, MAIN+63 , MAIN+66, MAIN+67, MAIN+68, MAIN+73, MAIN+74, MAIN+75, REPRINT+2~, REPRINT+10, REPRINT+18, REPRINT+19 , RPTHDR+2~, RPTHDR+7*, RPTHDR+9, RPTHDR+10, RPTHDR+11
RCDATE	EFTERA+3~
RCDISP	EFTERA+3~, EFTERA+8*, AUTO~, AUTO+27, AUTO+29, PRINT+17, PRINT+19, PRINT+47, PRINT+52, PRINT+53 , HEADER+16
RCDIV	EFTERA+4~, EFTERA+11, EFTERA+63, AUTO~, REPORT+10, GETDIV~, GETDIV+2, DIV~, DIV+2
RCDIVTXT	HEADER+4~, HEADER+6*, HEADER+19, HEADER+27, HEADER+35
RCDTLDT	REPORT+2~
RCDTLIEN	REPORT+2~
RCEDT	EFTERA+3~
RCEEDY	MAIN+7~, MAIN+57, MAIN+60, MAIN+64*, MAIN+69, MAIN+76
RCEFT	MAIN+5~, MAIN+40*, MAIN+41
RCEFTDT	MAIN+6~
RCEFTNO	MAIN+7~
RCEFTTXT	MAIN+5~, MAIN+38*, MAIN+40
RCENDDT	EFTERA+3~, EFTERA+55*, EFTERA+56, EFTERA+63, AUTO~, REPORT+14, REPORT+15, PRINT+49, HEADER+21, HEADER+29 , HEADER+36
RCEOB	REPORT+2~, MAIN+7~
RCEPDY	MAIN+7~, MAIN+57, MAIN+62, MAIN+64*, MAIN+69, MAIN+76
RCERA	MAIN+5~, MAIN+7~
RCERADT	MAIN+6~
RCERATXT	MAIN+5~, MAIN+39*, MAIN+41
RCERATYP	MAIN+5~, MAIN+36*, MAIN+38, MAIN+39
RCETRAN	MAIN+7~
RCEX	EFTERA+4~
RCEXCEL	EFTERA+4~, EFTERA+59, EFTERA+60, EFTERA+61, EFTERA+62, EFTERA+63, AUTO~, PRINT+26, PRINT+31, PRINT+53 , HEADER+9, HEADER+25, HEADER+33, HEADER+44, HEADER+45, MAIN+46, MAIN+65, MAIN+72, SUMMARY+3, PRINTINS+4 , COLHEAD+5, COLHEAD+10
RCIDX	MAIN+6~, MAIN+7~, MAIN+61*, MAIN+62
RCIEN	REPORT+2~, GETARPYR+5~, GETARPYR+9, GETARPYR+14, GETARPYR+15, GETARPYR+17, GETARPYR+18*, GETARPYR+20, REPRINT~, REPRINT+6 , REPRINT+9, REPRINT+10, REPRINT+16, RPTHDR~, RPTHDR+7
RCINS	REPORT+2~, PRINTINS~, PRINTINS+14, INSCHK~, INSCHK+6
RCINSTIN	MAIN+5~, MAIN+10, MAIN+11, MAIN+13, MAIN+28, MAIN+46, MAIN+49, MAIN+51, SUMMARY+5~, SUMMARY+8* , SUMMARY+9*, SUMMARY+10
RCLINE	PRINT+4~, PRINT+7*, HEADER+23, HEADER+32, PRINTINS+13, PRINTINS+15, COLHEAD+14
RCLL	PRINTHDR~, PRINTHDR+2
RCMETHOD	MAIN+7~, MAIN+12, MAIN+13, MAIN+14, MAIN+16, MAIN+17, MAIN+18, MAIN+25, MAIN+33, MAIN+34 , MAIN+35, MAIN+41, MAIN+46, MAIN+49, MAIN+51
RCMNFLG	GETRPT~, GETRPT+2
RCPAGE	PRINT+4~, PRINT+11, HEADER+15, HEADER+17, HEADER+26, HEADER+34, HEADER+45, PRINTINS+13
RCPAID	MAIN+6~
RCPAR	EFTERA+4~, EFTERA+30
RCPAR("DICA"	EFTERA+29*
RCPAR("FILE"	EFTERA+28*
RCPAR("SELC"	EFTERA+21*, EFTERA+22, EFTERA+23, EFTERA+25
RCPAR("SRCH"	EFTERA+27*
RCPAR("TYPE"	EFTERA+26*
RCPAY	EFTERA+4~, EFTERA+23, AUTO+24, HEADER+7, GETARPYR~, GETARPYR+6*, GETARPYR+12, GETARPYR+15
RCPAYR	EFTERA+4~
RCPHARM	REPORT+2~
RCPOSTDT	MAIN+6~
RCPUZ	EFTERA+4~, EFTERA+16, EFTERA+63, AUTO~, AUTO+20, REPORT+14, REPORT+15, REPORT+25, PRINT~, PRINT+26 , PRINT+27, PRINT+38, PRINT+43, HEADER+13, MAIN~, MAIN+3, MAIN+16, MAIN+17, MAIN+18, MAIN+22 , MAIN+23, MAIN+24, MAIN+25, SUMMARY~, SUMMARY+2, SUMMARY+10, GRAND~, GRAND+2*, GRAND+3
RCPUZT	HEADER+4~, HEADER+13*, HEADER+21, HEADER+30
RCPYALL	REPORT+2~
RCPYRLST	EFTERA+3~, EFTERA+63, AUTO~
RCPYRS	REPORT+2~
RCPYRTXT	HEADER+4~, HEADER+7, HEADER+8, HEADER+19, HEADER+27, HEADER+35
RCRATE	EFTERA+5~, EFTERA+33*, EFTERA+34, EFTERA+63, AUTO~, REPORT+14, REPORT+15
RCRPIEN	PRINT+4~, PRINT+19, PRINT+20*, PRINT+49, HEADER+18, HEADER+20, HEADER+22, HEADER+23
RCRPT	EFTERA+3~, EFTERA+41*, EFTERA+42, EFTERA+47, EFTERA+60, EFTERA+62, EFTERA+63, AUTO~, REPORT+25
RCRQDIV	EFTERA+3~, EFTERA+11*, EFTERA+12, EFTERA+63, AUTO~
RCRUNDT	PRINT+4~, PRINT+14*, HEADER+21, HEADER+30, HEADER+37
RCSDT	EFTERA+3~
>> RCSORT	EFTERA+46, EFTERA+47, EFTERA+48, AUTO+21*, REPORT+14, REPORT+15, PRINT+26, PRINT+27, HEADER+31, COLHEAD+13
RCSTOP	PRINT+4~, PRINT+11, PRINT+26, PRINT+27, PRINT+28, PRINT+32, PRINT+33, PRINT+35, PRINT+38, PRINT+39 , PRINT+43, PRINT+44, PRINT+52, MAIN+7~, MAIN+10, MAIN+11, MAIN+13, MAIN+28, MAIN+29, MAIN+31 , MAIN+44, MAIN+45, MAIN+49, MAIN+50, MAIN+79, MAIN+82, SUMMARY+4~, SUMMARY+8, SUMMARY+9, SUMMARY+11 , PRINTINS+5~, PRINTINS+7, PRINTINS+9, PRINTINS+10, PRINTINS+12, PRINTINS+16, REPRINT+2~, REPRINT+8*, REPRINT+9, REPRINT+12 , REPRINT+13, REPRINT+14
RCSTR	HEADER+4~, HEADER+17, HEADER+18, HEADER+19, HEADER+20, HEADER+21*, HEADER+22
RCSTRING	MAIN+5~, MAIN+41, MAIN+43, MAIN+44
RCSUBJ	PRINT+4~, PRINT+48*, PRINT+49
RCSUMFLG	PRINT~, PRINT+8, PRINT+25, PRINT+31, PRINT+38
RCTIN	EFTERA+4~, GETARPYR~, GETARPYR+14, GETARPYR+18, TINTXT+2~, TINTXT+8, TINTXT+9, TINTXT+10
RCTINALL	REPORT+2~
RCTINR	EFTERA+4~
RCTITLE	PRINTHDR~, PRINTHDR+2
RCTMP	MAIN+7~, MAIN+66, MAIN+67, MAIN+68, MAIN+69, MAIN+70, MAIN+71, COLHEAD+2~, COLHEAD+6, COLHEAD+7* , COLHEAD+8*, COLHEAD+9
RCTNTXT	TINTXT+2~, TINTXT+10*, TINTXT+11
RCTOTDY	MAIN+7~
RCTRACE	MAIN+6~
RCTXT	TINTXT+2~, TINTXT+8, TINTXT+11, TINTXT+14*, TINTXT+17
RCTYPE	EFTERA+5~, EFTERA+18, EFTERA+26, AUTO+25, HEADER+10
RCTYPTXT	HEADER+4~, HEADER+9, HEADER+10, HEADER+19, HEADER+27, HEADER+35
RCWHICH	EFTERA+5~, EFTERA+19, EFTERA+21, EFTERA+27, EFTERA+29, AUTO+26, HEADER+8
RCXMZ	PRINT+4~, PRINT+49*
SECTION	PRINT+4~, PRINT+8, PRINT+30, PRINT+42*, HEADER+44
U	MAIN+28, MAIN+59, MAIN+60, MAIN+61, MAIN+62, MAIN+63, MAIN+66, MAIN+67, MAIN+68, MAIN+73 , MAIN+74, MAIN+75, REPRINT+18, REPRINT+19, RPTHDR+9, RPTHDR+10, RPTHDR+11
X	EFTERA+2~
XX	EFTERA+2~, EFTERA+25, EFTERA+30*, PRINTINS+5~
Y	EFTERA+2~
YY	PRINTINS+5~
ZTDESC	AUTO+30~, AUTO+32*
ZTQUEUED	AUTO+30~, PRINT+57, PRINT+58
>> ZTREQ	PRINT+58*
ZTRTN	AUTO+30~, AUTO+31*
ZTSAVE	AUTO+30~
ZTSAVE("RC*"	AUTO+33*
ZTSAVE("^TMP(""RCDPEU1"",$J,"	AUTO+34*
ZTSK	AUTO+30~, AUTO+36, AUTO+38!
ZZ	PRINTINS+5~, GETARPYR+5~, GETARPYR+13, GETARPYR+14, GETARPYR+15

Customize PDF page

Package: Accounts Receivable