Routine: RCDPEMAR

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$UP^XLFSTR
Accounts Receivable	4	($$ASKLM,$$ENDORPRT,ASK)^RCDPEARL $$DISPTY^RCDPEM3 INFO^RCDPEM6 $$NOW^RCDPRU
VA FileMan	2	$$GET1^DIQ ^DIR
List Manager	1	EN^VALM

Package	Total	Caller Graph
Accounts Receivable	1	RCDPE MANUAL AUD REP

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Main entry point for this report ; Ask Summary or Detail output
DISPLAY(ROW,EFTIEN,TRANS)	; Display EFT detail during user selection process ; PRCA4.5439 Modified display ; Input: ROW - Current row number ; EFTIEN - IEN for EFT (#344.31) ; TRANS - EFT transaction number e.g. 999.1
COMPILE(RCDT1,RCDT2,RCREP)	; Compile data for display ; Input: RCDT1 - Beginning date ; RCDT2 - Ending date ; RCREP - D if Detail format, S if Summary format ; Output: ^TMP("RCDPMAR",$J)
REPSUM(RCDT1,RCDT2)	; Print Summary report ; Input: RCDT1 - Start Date ; RCDT2 - End Date ; Output: Written to device
REPDET(RCDT1,RCDT2)	; Build Detailed report in TMP ; Input: RCDT1 - Start Date ; RCDT2 - End Date ; Output: Saved to ^TMP in generic RCDP ListMan report format
SPACES(DATA,COL)	; Return spaces for padding output ; INPUT DATA: String of data ; COL: Column to begin for next data piece
REPEXC	; Print Excel report
SAVE(X,LINES)	; Save a line of the report to the ^TMP global
BK	; Run report in background through task manager
PRINTDET(QUIT)	; Print line in ^TMP global to output the detail report to screen or printer
PAUSE()	; Pause at end of each page for user input ; Input: None ; Output: User response
CHKP(RCREP,RCNOW,RCPG,RCHR,RCDT1,RCDT2,RCSCR,LINES)	; Check if we need to do a page break ; Input: RCREP - D for Detail format, S for Summary format ; RCNOW - DATE/TIME in external format ; RCPG - Current page number ; RCHR - Line of "-" to margin width ; RCDT1 - Start date ; RCDT2 - End date ; RCSCR - 1 - Output is going to the users screen, 0 - to printer ; LINES - Current line count
HEADER(RCREP,RCNOW,RCPG,RCHR,RCDT1,RCDT2)	; Print Header Section ; Input: RCREP - D for Detail format, S for Summary format ; RCNOW - DATE/TIME in external format ; RCPG - Current page number ; RCHR - Line of "-" to margin width ; RCDT1 - Start date ; RCDT2 - End date ; Output: Write statements
LMHDR(RCSTOP,RCDT1,RCDT2,RCHDR)	; ; ListMan report heading ; Input: RCDT1 - Internal Start Date of date range ; RCDT2 - Internal End Date of date range ; Output: RCHDR - Array of listman header lines ; RCSTOP - 1 if user stopped
LMRPT(RCLMHDR,RCLMND,LMTMP)
PAYER(IEN399)	; Get Payer Name and TIN ; Input: IEN399 - IEN to #399 ; Output: Payer IEN ^ Payer Name ^ Payer TIN

External References

Name	Field # of Occurrence
^%ZIS	EN+58
HOME^%ZIS	EN+70
^%ZISC	REPSUM+34
^%ZTLOAD	EN+67
$$GET1^DIQ	DISPLAY+7, DISPLAY+8, DISPLAY+10, DISPLAY+15, DISPLAY+16, COMPILE+40, COMPILE+46, COMPILE+47, COMPILE+49, PAYER+8 , PAYER+9, PAYER+10, PAYER+14, PAYER+15
^DIR	EN+12, EN+21, EN+30, PAUSE+6
$$ASKLM^RCDPEARL	EN+43
$$ENDORPRT^RCDPEARL	REPSUM+36, REPDET+31
ASK^RCDPEARL	EN+84, REPEXC+9, REPEXC+19
$$DISPTY^RCDPEM3	EN+37
INFO^RCDPEM6	EN+39
$$NOW^RCDPRU	REPSUM+9, PRINTDET+8
EN^VALM	LMRPT+10
$$FMTE^XLFDT	REPSUM+23, REPDET+13, REPEXC+15, HEADER+16, LMHDR+12, LMHDR+13
$$UP^XLFSTR	REPSUM+9, PRINTDET+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+8
Function Call: WRITE	Prompt: ! Line Location: EN+17
Function Call: WRITE	Prompt: ! Line Location: EN+26
Function Call: WRITE	Prompt: ! Line Location: EN+36
Function Call: WRITE	Prompt: ! Line Location: EN+43
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Task number "_ZTSK_" was queued.",1:"Unable to queue this task.") Line Location: EN+68
Function Call: WRITE	Prompt: !,$E(ROW_". ",1,5) Line Location: DISPLAY+12
Function Call: WRITE	Prompt: $J(TRANS_SUFX,9) Line Location: DISPLAY+13
Function Call: WRITE	Prompt: " "_$E(PAYER,1,45)_$E($J("",45),1,45-$L(PAYER)) Line Location: DISPLAY+14
Function Call: WRITE	Prompt: " "_$J($$GET1^DIQ(344.31,EFTIEN_",",.07),19) Line Location: DISPLAY+15
Function Call: WRITE	Prompt: !,$J(" ",15)_$$GET1^DIQ(344.31,EFTIEN_",",.04) Line Location: DISPLAY+16
Function Call: WRITE	Prompt: !,"No data found" Line Location: REPSUM+13
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(DATE\1,"2Z"),?13,$J($P(DATA,U,2),6),?23,$J($P(DATA,U,1),6) Line Location: REPSUM+23
Function Call: WRITE	Prompt: J Line Location: REPSUM+28
Function Call: WRITE	Prompt: !,@IOF Line Location: REPSUM+32
Function Call: WRITE	Prompt: !,$$ENDORPRT^RCDPEARL() Line Location: REPSUM+36
Function Call: WRITE	Prompt: !,"DATE^BILL^RATE TYPE CODE^RATE TYPE NAME^USER^PAYER NAME^PAYER TIN^COMMENT 1^COMMENT 2^COMMENT 3^COMMENT 4" Line Location: REPEXC+4
Function Call: WRITE	Prompt: !,"No data found" Line Location: REPEXC+7
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(DATE\1,"2Z"),"^",$P(DATA,U,2),"^",$P(DATA,U,3),"^",$P(DATA,U,4),"^",$P(DATA,U,6),"^",$P(DATA,U,8),"^",$P(DATA,U,9) Line Location: REPEXC+15
Function Call: WRITE	Prompt: "^",X Line Location: REPEXC+16
Function Call: WRITE	Prompt: !,"* END OF REPORT *",! Line Location: REPEXC+17
Function Call: WRITE	Prompt: !,^TMP($J,RCTMPND,LINE) Line Location: PRINTDET+20
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+11
Function Call: WRITE	Prompt: "MANUAL AUDIT REPORT - ",$S(RCREP="D":"DETAIL",1:"SUMMARY") Line Location: HEADER+13
Function Call: WRITE	Prompt: ?(IOM-$L(LINE)),LINE Line Location: HEADER+15
Function Call: WRITE	Prompt: !,"MANUAL AUDIT DATE RANGE: ",$$FMTE^XLFDT(RCDT1\1,"2Z")," - ",$$FMTE^XLFDT(RCDT2,"2Z"),! Line Location: HEADER+16
Function Call: WRITE	Prompt: !,"DATE",?10,"BILL",?23,"RATE TYPE",?48,"USER",!,?2,"PAYER/TIN",!,?3,"COMMENTS" Line Location: HEADER+20
Function Call: WRITE	Prompt: !,?14,"MANUAL",?24,"AUTO",!,"DATE",?13,"# BILLS",?22,"# BILLS" Line Location: HEADER+24
Function Call: WRITE	Prompt: !,RCHR Line Location: HEADER+27
Routine Call	%ZIS Line Location: EN+58
Routine Call	%ZIS Line Location: EN+70
Routine Call	DIR Line Location: EN+12 EN+21 EN+30 PAUSE+6
Routine Call	VALM Line Location: LMRPT+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RCY(344.31 - [#344.31]	GET1^DIQ
^IBM(361.1 - [#361.1]	GET1^DIQ
^DGCR(399 - [#399]	GET1^DIQ
^PRCA(430 - [#430]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	COMPILE+43, COMPILE+44
^IBM(361.1 - [#361.1]	PAYER+7
^PRCA(430 - [#430]	COMPILE+14, COMPILE+15, COMPILE+16, COMPILE+31, COMPILE+35, COMPILE+59, COMPILE+60
^TMP("RCDPMAR"	EN+86!, COMPILE+7!, COMPILE+56, COMPILE+60, COMPILE+63*, REPSUM+13, REPSUM+15, REPSUM+18, REPSUM+19, REPDET+8 , REPDET+10, REPDET+11, REPDET+12, REPDET+24, REPEXC+7, REPEXC+12, REPEXC+13, REPEXC+14, REPEXC+16
^TMP($J	EN+45!, EN+53, EN+54!, EN+87!, SAVE+1*, PRINTDET+13, PRINTDET+20
^VA(200 - [#200]	COMPILE+10

Label References

Name	Line Occurrences
$$PAUSE	REPSUM+37, PRINTDET+17, CHKP+11
$$PAYER	COMPILE+51
$$SPACES	REPDET+13, REPDET+15, REPDET+17, REPDET+19
CHKP	REPSUM+22
COMPILE	EN+50, EN+75, BK+1
HEADER	REPSUM+12, PRINTDET+11, PRINTDET+18, CHKP+12
LMHDR	EN+52
LMRPT	EN+53
PRINTDET	EN+81, BK+3
REPDET	EN+51, EN+80, BK+2
REPEXC	EN+79
REPSUM	EN+77
SAVE	REPDET+8, REPDET+20, REPDET+23, REPDET+25, REPDET+29, REPDET+30, REPDET+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	EN+57*
AUTODUZ	COMPILE+6~, COMPILE+10*, COMPILE+21, COMPILE+28
CNT	REPSUM+5~, REPDET+5~, REPDET+11, REPDET+12, REPDET+24, REPEXC+1~, REPEXC+13, REPEXC+14, REPEXC+16
COL	SPACES~, SPACES+9
COUNT	PRINTDET+10~, PRINTDET+12, PRINTDET+14, PRINTDET+15, PRINTDET+19*
DATA	COMPILE+6~, COMPILE+38, COMPILE+39, COMPILE+40, COMPILE+41, COMPILE+46, COMPILE+47, COMPILE+48, COMPILE+49, COMPILE+52 , COMPILE+53, COMPILE+54, COMPILE+56, REPSUM+5~, REPSUM+19, REPSUM+23, REPSUM+24, REPDET+5~, REPDET+12, REPDET+14 , REPDET+16, REPDET+18, REPDET+21, SPACES~, SPACES+8, REPEXC+1~, REPEXC+14*, REPEXC+15
DATE	REPSUM+5~, REPSUM+18, REPSUM+19, REPSUM+23, REPDET+5~, REPDET+10, REPDET+11, REPDET+12, REPDET+13, REPDET+24 , REPEXC+1~, REPEXC+12*, REPEXC+13, REPEXC+14, REPEXC+15, REPEXC+16
DIR	EN+3~, EN+18!, EN+27!, PAUSE+4~
DIR("?"	EN+20, EN+29
DIR("A"	EN+10, EN+19, EN+28*
DIR("B"	EN+11, EN+19, EN+28*
DIR(0	EN+9, EN+19, EN+28, PAUSE+5
DIROUT	EN+3~, PAUSE+4~
DIRUT	EN+3~, PAUSE+4~
DT	EN+19, EN+28
DTOUT	EN+3~, EN+13, EN+22, EN+31, EN+40, PAUSE+4~
DUOUT	EN+3~, EN+13, EN+22, EN+31, EN+40, PAUSE+4~
EFTIEN	DISPLAY~, DISPLAY+7, DISPLAY+8, DISPLAY+10, DISPLAY+15, DISPLAY+16
GTOT	REPSUM+5~, REPSUM+16, REPSUM+24, REPSUM+26, REPSUM+28, REPSUM+29
IEN3611	PAYER+4~, PAYER+6, PAYER+7, PAYER+8, PAYER+9, PAYER+10
IEN399	COMPILE+6~, COMPILE+43*, COMPILE+44, COMPILE+46, COMPILE+47, COMPILE+51, PAYER~, PAYER+7, PAYER+14, PAYER+15
IO	EN+72, REPSUM+11
IO("Q"	EN+61, EN+69!, EN+82
IOF	REPSUM+32, HEADER+11
IOM	REPSUM+9, PRINTDET+8, HEADER+15
IOSL	PRINTDET+15, CHKP+10
IOST	REPSUM+8, PRINTDET+7
J	REPSUM+5~, REPSUM+24, REPSUM+28, REPDET+5~, REPDET+24, REPEXC+16
K	REPDET+5~, REPDET+27*
LEN	SPACES+6~, SPACES+8*, SPACES+9
LINE	PRINTDET+10~, PRINTDET+12, PRINTDET+13, PRINTDET+20, HEADER+9~, HEADER+14*, HEADER+15
LINES	REPSUM+5~, REPSUM+20, REPSUM+21, REPSUM+22, REPDET+5~, REPDET+7, REPDET+8, REPDET+20, REPDET+23, REPDET+25 , REPDET+29, REPDET+30, REPDET+32, SAVE~, SAVE+1, SAVE+2, CHKP~, CHKP+10, CHKP+13*
LMTMP	LMRPT~, LMRPT+6*, LMRPT+9
NUM	SPACES+6~, SPACES+9*, SPACES+10
PAYER	DISPLAY+6~, DISPLAY+10*, DISPLAY+14
PCS	REPDET+5~, REPDET+27*
>> POP	EN+59
QUIT	EN+81~, EN+82, BK+3~, PRINTDET~, PRINTDET+4, PRINTDET+12, PRINTDET+13, PRINTDET+15, PRINTDET+16, PRINTDET+17*
RCCT	LMHDR+7~, LMHDR+8, LMHDR+14, LMHDR+15, LMHDR+17, LMHDR+19, LMHDR+21
RCDATE	COMPILE+6~, COMPILE+18*, COMPILE+20, COMPILE+21, COMPILE+22
RCDT	COMPILE+6~, COMPILE+14, COMPILE+15, COMPILE+16, COMPILE+18, COMPILE+31, COMPILE+39, COMPILE+56, COMPILE+60
RCDT1	EN+3~, EN+23*, EN+28, EN+50, EN+51, EN+52, EN+75, EN+77, EN+80, COMPILE~ , COMPILE+14, REPSUM~, REPSUM+12, REPSUM+22, REPDET~, BK+2, PRINTDET+11, PRINTDET+18, CHKP~, CHKP+12 , HEADER~, HEADER+16, LMHDR~, LMHDR+12
RCDT2	EN+3~, EN+32*, EN+50, EN+51, EN+52, EN+75, EN+77, EN+80, COMPILE~, COMPILE+15 , REPSUM~, REPSUM+12, REPSUM+22, REPDET~, BK+2, PRINTDET+11, PRINTDET+18, CHKP~, CHKP+12, HEADER~ , HEADER+16, LMHDR~, LMHDR+13
RCDUZ	COMPILE+6~, COMPILE+15, COMPILE+16, COMPILE+21, COMPILE+28, COMPILE+31, COMPILE+48
RCEXCEL	EN+3~, EN+35, EN+37, EN+39, EN+43, EN+79
RCEXSTOP	EN+3~, EN+35, EN+37, EN+40*
RCHDR	EN+49~, EN+52, EN+53, LMHDR~
RCHDR(	LMHDR+14, LMHDR+15, LMHDR+17, LMHDR+19, LMHDR+21*
RCHDR("TITLE"	LMHDR+9*
RCHR	REPSUM+5~, REPSUM+9, REPSUM+12, REPSUM+22, REPDET+5~, PRINTDET+6~, PRINTDET+8, PRINTDET+11, PRINTDET+18, CHKP~ , CHKP+12, HEADER~, HEADER+27
RCIEN	COMPILE+6~, COMPILE+31*, COMPILE+34, COMPILE+35, COMPILE+40, COMPILE+49, COMPILE+56, COMPILE+59, COMPILE+60
RCLMHDR	LMRPT~, LMRPT+5
RCLMND	LMRPT~, LMRPT+5
RCLSTMGR	EN+3~, EN+39, EN+43, EN+48
RCNOW	REPSUM+5~, REPSUM+9, REPSUM+12, REPSUM+22, REPDET+5~, PRINTDET+6~, PRINTDET+8, PRINTDET+11, PRINTDET+18, CHKP~ , CHKP+12, HEADER~, HEADER+14
RCPG	REPSUM+5~, REPSUM+9, REPSUM+12, REPSUM+18, REPSUM+22, REPSUM+37, REPDET+5~, PRINTDET+6~, PRINTDET+8, PRINTDET+11 , PRINTDET+13, PRINTDET+18, CHKP~, CHKP+11, CHKP+12, HEADER~, HEADER+12*, HEADER+14
RCREP	EN+3~, EN+14*, EN+35, EN+43, EN+50, EN+75, EN+77, EN+78, COMPILE~, COMPILE+25 , CHKP~, CHKP+12, HEADER~, HEADER+13, HEADER+19, HEADER+23
RCSCR	REPSUM+5~, REPSUM+8, REPSUM+21, REPSUM+22, REPSUM+32, REPSUM+37, REPDET+5~, PRINTDET+6~, PRINTDET+7, PRINTDET+16 , CHKP~, CHKP+11
RCSTOP	EN+49~, EN+52, LMHDR~
RCTMPND	EN+3~, EN+45*, EN+53, EN+54, EN+87, SAVE+1, PRINTDET+13, PRINTDET+20
ROW	DISPLAY~, DISPLAY+12
SPACE	SPACES+6~, SPACES+7*, SPACES+10
SPACES	SPACES+6~, SPACES+9*
STOP	REPSUM+5~, REPSUM+37, REPEXC+8~, REPEXC+9, REPEXC+18~, REPEXC+19, PAYER+4~, PAYER+6, PAYER+7, PAYER+11*
SUFX	DISPLAY+6~, DISPLAY+8, DISPLAY+9, DISPLAY+13
TOTALS	COMPILE+13!
TOTALS("TOTAL"	COMPILE+20, COMPILE+21, COMPILE+22, COMPILE+63
TRANS	DISPLAY~, DISPLAY+6~, DISPLAY+7*, DISPLAY+13
U	EN+5*, COMPILE+20, COMPILE+21, COMPILE+22, COMPILE+39, COMPILE+40, COMPILE+41, COMPILE+46, COMPILE+47, COMPILE+48 , COMPILE+49, COMPILE+52, COMPILE+53, COMPILE+54, REPSUM+23, REPSUM+24, REPSUM+26, REPSUM+28, REPSUM+29, REPDET+14 , REPDET+16, REPDET+18, REPDET+21, REPEXC+15
X	EN+3~, COMPILE+6~, COMPILE+35, COMPILE+41, COMPILE+43, COMPILE+51, COMPILE+52, COMPILE+53, COMPILE+54, COMPILE+60 , REPDET+5~, REPDET+8, REPDET+13, REPDET+15, REPDET+17, REPDET+19, REPDET+20, REPDET+21, REPDET+22, REPDET+23 , REPDET+24, REPDET+25, REPDET+27, REPDET+30, REPDET+31, REPDET+32, REPEXC+1~, REPEXC+16, SAVE~, SAVE+1 , PAUSE+4~, LMHDR+7~, PAYER+4~, PAYER+6, PAYER+8, PAYER+11, PAYER+13, PAYER+14, PAYER+18
X1	REPDET+5~, REPDET+14, REPDET+15, REPDET+16, REPDET+17, REPDET+18, REPDET+19, REPDET+27, REPDET+29
X2	REPDET+5~, REPDET+27, REPDET+28, REPDET+29
XX	EN+83, EN+84, LMHDR+7~, LMHDR+12, LMHDR+13, LMHDR+14, LMHDR+16, LMHDR+17, LMHDR+18, LMHDR+19 , LMHDR+20, LMHDR+21, LMRPT+8~, LMRPT+9*, LMRPT+10
Y	EN+3~, EN+13, EN+14, EN+22, EN+23, EN+31, EN+32, COMPILE+6~, COMPILE+20, COMPILE+21 , COMPILE+22, PAUSE+4~, PAUSE+7, LMHDR+7~, PAYER+4~, PAYER+6, PAYER+9, PAYER+15, PAYER+18
Z	LMHDR+7~, PAYER+4~, PAYER+6, PAYER+10, PAYER+16*, PAYER+18
Z0	LMHDR+7~
Z1	LMHDR+7~, LMHDR+10*
ZTDESC	EN+62~, EN+64*
>> ZTQUEUED	REPSUM+33
>> ZTREQ	REPSUM+33*
ZTRTN	EN+62~, EN+63*
ZTSAVE	EN+62~
ZTSAVE("RC*"	EN+65*
ZTSK	EN+62~, EN+68, EN+69!

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEMAR

Information

Source Information

Call Graph

Call Graph Total: 12

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

Local Variables

Legend: