Routine: RCDPEAR1

Package	Total	Call Graph
Accounts Receivable	11	RPTOUT2^RCDPEAR4 ($$ASKLM,$$ENDORPRT,$$NOW,ASK,HDRLST,LMRPT,SL)^RCDPEARL $$DISPTY^RCDPEM3 ($$DTRNG,ERASTA)^RCDPEM4 INFO^RCDPEM6 DISP^RCDPESR0 DISPADJ^RCDPESR8 ($$ADJ,$$HACERA)^RCDPEU ($$ISSEL,$$ISTYPE,$$PAYRNG,$$RTYPE,$$SELPAY)^RCDPEU1 $$XCEPT^RCDPEWLP $$PAYTIN^RCDPRU2
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMDIFF,$$FMTE)^XLFDT
List Manager	1	$$SETSTR^VALM1
Registration	1	DIVISION^VAUTOMA
VA FileMan	1	^DIR

Package	Total	Caller Graph
Accounts Receivable	2	RCDPE ERA AGING REPORT RCDPEAR

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; entry point - ERA Unmatched Aging Report [RCDPE ERA AGING REPORT] ; data from ELECTRONIC REMITTANCE ADVICE file (#344.4)
EN1Q	; exit and clean up
RPTOUT	; Entry point for listing report ; Input: RCTMPND - Name of the subscript for ^TMP to use to return all lines ; (for bulletin). If undefined or null, output is printed ; Returns: Global if RCTMPND not null: ^TMP($J,RCTMPND,line#)=line text
EXIT	; Exit the report ; PRCA4.5298, added ListMan check
HDRBLD	; Create the report header ; Input: RCADJ - 1 - Display Adjustment/Code information, 0 otherwise ;PRCA4.5409 Added RCADJ ; RCDISPTY - 1 - Output to excel, 0 otherwise ; RCDTRNG - Date range selected ; RCXCLUDE - TRICARE /CHAMPVA flags ; VAUTD - Divisions to include in report (if listed in VAUTD array) ; Output: RCHDR(0) - Header text line count ; RCHDR(1) - Excel column data (only set If DISPTY=1) ; RCHDR("XECUTE") - M code for page number ; RCHDR("RUNDATE")- Date/time report generated, external format ; RCPGNUM - Page counter ; RCSTOP - Flag to exit
HDRLM	; Create the list manager version of the report header ; Input: RCDADJ - 1 - Display Adjustment/Code info 0 otherwise ;PRCA4.5409 Added RCDADJ ; RCDTRNG - Date range filter value to be printed as part of the ; header ; RCPAY - 1 - All Payers ; 2 - Selected Payers ; RCPAY() - Array of selected Payers if RCPAY=2 ; RCLSTMGR - ; VAUTD - 1 - All divisions ; 2 - Selected divisions ; VAUTD() - Array of selected divisions (if VAUTD=2) ; Output: RCHDR(0) - Header text line count
HDRNM()	; Extrinsic variable, name for header PRCA4.5298
EXCEL	; Print report to screen, one record per line for export to MS Excel.
LSTXCEL	; Display repeat info line before each EEOB detail section. ; First detail line does not need it
PRTQ2
ZROBAL()	; Get Zero Payment Filter ; Returns: 1 for yes, zero for no, -1 on '^' or timeout
DADJCDE()	; Get Adjustment/Code Filter ;PRCA4.5409 Added method ; Returns: 1 for yes, zero for no, -1 on '^' or timeout

Name	Field # of Occurrence
^%ZIS	EN1+77
HOME^%ZIS	EN1+87
^%ZISC	EN1Q+2, RPTOUT+50, EXIT+4, PRTQ2+2
^%ZTLOAD	EN1+84
$$S^%ZTLOAD	RPTOUT+80, EXCEL+9
^DIR	ZROBAL+4, DADJCDE+4
RPTOUT2^RCDPEAR4	RPTOUT+107
$$ASKLM^RCDPEARL	EN1+59
$$ENDORPRT^RCDPEARL	RPTOUT+110, EXCEL+49
$$NOW^RCDPEARL	HDRBLD+15
ASK^RCDPEARL	EXIT+3, PRTQ2
HDRLST^RCDPEARL	RPTOUT+65, RPTOUT+82, EXCEL+4
LMRPT^RCDPEARL	EN1+72
SL^RCDPEARL	RPTOUT+69, RPTOUT+71, RPTOUT+76, RPTOUT+77, RPTOUT+81, RPTOUT+87, RPTOUT+89, RPTOUT+103, RPTOUT+110
$$DISPTY^RCDPEM3	EN1+50
$$DTRNG^RCDPEM4	EN1+26
ERASTA^RCDPEM4	RPTOUT+31
INFO^RCDPEM6	EN1+54
DISP^RCDPESR0	EXCEL+42
DISPADJ^RCDPESR8	EXCEL+31
$$ADJ^RCDPEU	EXCEL+28
$$HACERA^RCDPEU	RPTOUT+98
$$ISSEL^RCDPEU1	RPTOUT+34
$$ISTYPE^RCDPEU1	RPTOUT+36
$$PAYRNG^RCDPEU1	EN1+34
$$RTYPE^RCDPEU1	EN1+31
$$SELPAY^RCDPEU1	EN1+41
$$XCEPT^RCDPEWLP	RPTOUT+84, EXCEL+11
$$PAYTIN^RCDPRU2	RPTOUT+88
$$SETSTR^VALM1	RPTOUT+85, RPTOUT+86, RPTOUT+88, RPTOUT+90, RPTOUT+91, RPTOUT+95, RPTOUT+98, RPTOUT+102
DIVISION^VAUTOMA	EN1+22
$$FMDIFF^XLFDT	RPTOUT+40
$$FMTE^XLFDT	RPTOUT+90, RPTOUT+102, HDRBLD+55, HDRLM+15, HDRLM+16, EXCEL+15

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$HDRNM Line Location: EN1+21
Function Call: WRITE	Prompt: !!,$S($G(ZTSK):"Task number "_ZTSK_" has been queued.",1:"Unable to queue this task.") Line Location: EN1+85
Function Call: WRITE	Prompt: !,Z Line Location: EXCEL+22
Function Call: WRITE	Prompt: "^ CLAIM LEVEL ADJUSTMENTS EXIST FOR THIS ERA *" Line Location: EXCEL+28
Function Call: WRITE	Prompt: "^ GENERAL ADJUSTMENT DATA EXISTS FOR ERA " Line Location: EXCEL+32
Function Call: WRITE	Prompt: "^"_$G(^TMP($J,"RCERA_ADJ",Q)) Line Location: EXCEL+33
Function Call: WRITE	Prompt: "^",D Line Location: EXCEL+40
Function Call: WRITE	Prompt: "^NO DETAIL FOUND" Line Location: EXCEL+43
Function Call: WRITE	Prompt: "^*"_RCOUT(Z) Line Location: EXCEL+45
Function Call: WRITE	Prompt: !!,$$ENDORPRT^RCDPEARL Line Location: EXCEL+49
Function Call: WRITE	Prompt: !,RCLN Line Location: LSTXCEL+2
Routine Call	%ZIS Line Location: EN1+77
Routine Call	%ZIS Line Location: EN1+87
Routine Call	DIR Line Location: ZROBAL+4 DADJCDE+4

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	EXCEL+39
^IBM(361.1 - [#361.1]	EXCEL+39
^RCY(344.4 - [#344.4]	RPTOUT+19, RPTOUT+21, RPTOUT+60, RPTOUT+83, EXCEL+10, EXCEL+29, EXCEL+35, EXCEL+38
^TMP("RCDPEU1"	EN1Q+1!, EXIT+7!
^TMP("RCPAYER"	EN1Q+1!
^TMP("RCSELPAY"	EN1Q+1!, EXIT+7!
^TMP($J	EN1+20!, EN1+63!, EN1+69, EN1+72, RPTOUT+16!, RPTOUT+17!, RPTOUT+40, RPTOUT+42, RPTOUT+56, RPTOUT+59 , RPTOUT+62, RPTOUT+68, RPTOUT+70, RPTOUT+75, RPTOUT+79, EXIT+7!, EXCEL+6, EXCEL+8, EXCEL+32, EXCEL+33 , PRTQ2+3!

Name	Line Occurrences
$$DADJCDE	EN1+46
$$HDRNM	EN1+21, EN1+66
$$ZROBAL	EN1+43
EN1Q	EN1+23, EN1+27, EN1+32, EN1+35, EN1+44, EN1+47, EN1+51, EN1+55, EN1+59, EN1+73 , EN1+78, EN1+88
EXCEL	RPTOUT+50
EXIT	RPTOUT+50, RPTOUT+79, RPTOUT+111
HDRBLD	RPTOUT+45
HDRLM	RPTOUT+47
LSTXCEL	EXCEL+28, EXCEL+32, EXCEL+33, EXCEL+40, EXCEL+43, EXCEL+45
PRTQ2	EXCEL+8
RPTOUT	EN1+64, EN1+92

Name	Field # of Occurrence
^(	EXCEL+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN1+76~*
CHATRI	HDRBLD+13~
D	EXCEL+1~, EXCEL+36~, EXCEL+38, EXCEL+39, EXCEL+40
DATE	HDRLM+12~
DIR	ZROBAL+2~, DADJCDE+2~
DIR("A"	ZROBAL+3, DADJCDE+3
DIR("B"	ZROBAL+3, DADJCDE+3
DIR(0	ZROBAL+3, DADJCDE+3
DIRUT	ZROBAL+2~, ZROBAL+5, DADJCDE+2~, DADJCDE+5
DIV	HDRBLD+13~, HDRLM+12~
DT	RPTOUT+40
DTOUT	EN1+55, ZROBAL+2~, ZROBAL+5, DADJCDE+2~, DADJCDE+5
DUOUT	EN1+55, ZROBAL+2~, ZROBAL+5, DADJCDE+2~, DADJCDE+5
ERADT	RPTOUT+4~, RPTOUT+23*, RPTOUT+24, RPTOUT+27, RPTOUT+40
H	EN1+65~, EN1+67, EN1+69
HCNT	HDRBLD+13~, HDRBLD+30, HDRBLD+31, HDRBLD+32, HDRBLD+36, HDRBLD+42, HDRBLD+45, HDRBLD+52, HDRBLD+57, HDRBLD+59 , HDRBLD+61, HDRBLD+63, HDRBLD+65, HDRBLD+74, HDRBLD+75, HDRBLD+76, HDRLM+12~, HDRLM+17, HDRLM+20, HDRLM+26 , HDRLM+29, HDRLM+36, HDRLM+39, HDRLM+41, HDRLM+43, HDRLM+51, HDRLM+52
HDR	EN1+65~, EN1+72
HDR(	EN1+67*
HDR("TITLE"	EN1+66*
IO	EN1+90
IO("Q"	EN1+79, EN1+86!
IOSL	RPTOUT+82
J	RPTOUT+4~, RPTOUT+74*, RPTOUT+75
L	EN1+65~, EN1+67, EN1+68, EN1+69
LNECNT	RPTOUT+4~, RPTOUT+14, RPTOUT+69, RPTOUT+71, RPTOUT+76, RPTOUT+77, RPTOUT+81, RPTOUT+87, RPTOUT+89, RPTOUT+103*
MSG	HDRLM+12~
N	EN1+69~*
POP	EN1+2~, EN1+78
PYMNTFRM	RPTOUT+4~
Q	EXCEL+30~, EXCEL+33*
RC0	RPTOUT+4~, RPTOUT+60, RPTOUT+83, RPTOUT+86, RPTOUT+88, RPTOUT+90, RPTOUT+91, RPTOUT+95, RPTOUT+98, RPTOUT+102 , EXCEL+10*, EXCEL+12, EXCEL+15, EXCEL+19, EXCEL+21
RC1ST	EXCEL+1~, EXCEL+23, LSTXCEL+2, LSTXCEL+3
RCDADJ	EN1+2~, EN1+46*, EN1+47, RPTOUT+94, RPTOUT+98, RPTOUT+102, RPTOUT+104, HDRBLD+21, HDRBLD+70, HDRLM+47 , EXCEL+18, EXCEL+24
RCDISPTY	EN1+2~, EN1+50*, EN1+51, EN1+54, RPTOUT+50, HDRBLD+16
RCDT	EN1+2~
RCDT("BEG"	EN1+28*, RPTOUT+27
RCDT("END"	EN1+28*, RPTOUT+27
RCDTRNG	EN1+2~, EN1+26*, EN1+27, EN1+28, HDRBLD+54, HDRLM+15, HDRLM+16
RCEDT	RPTOUT+4~
RCEXCEP	RPTOUT+4~, RPTOUT+84, RPTOUT+85, EXCEL+1~, EXCEL+11, EXCEL+12
RCFLIEN	RPTOUT+4~, RPTOUT+18, RPTOUT+19, RPTOUT+21, RPTOUT+31, RPTOUT+34, RPTOUT+36, RPTOUT+40, RPTOUT+58, RPTOUT+59 , RPTOUT+60, RPTOUT+79, RPTOUT+83, RPTOUT+84, RPTOUT+98, EXCEL+1~, EXCEL+7, EXCEL+8*, EXCEL+10, EXCEL+11 , EXCEL+28, EXCEL+29, EXCEL+31, EXCEL+35, EXCEL+38, EXCEL+42
RCHDR	EN1+2~, RPTOUT+65, RPTOUT+82, HDRBLD+14!, HDRLM+13!, EXCEL+4
RCHDR(	EN1+67, EN1+68, EN1+69, HDRBLD+32, HDRBLD+36, HDRBLD+42, HDRBLD+45, HDRBLD+52, HDRBLD+57, HDRBLD+59* , HDRBLD+61, HDRBLD+63, HDRBLD+65, HDRBLD+74, HDRBLD+75, HDRLM+20, HDRLM+26, HDRLM+29, HDRLM+36, HDRLM+39 , HDRLM+41, HDRLM+43, HDRLM+51*
RCHDR("RUNDATE"	HDRBLD+15*, HDRBLD+31
RCHDR("XECUTE"	HDRBLD+17, HDRBLD+29
RCHDR(0	HDRBLD+17, HDRBLD+76, HDRLM+52*
RCHDR(1	HDRBLD+25, HDRLM+15, HDRLM+16*
RCITM	RPTOUT+4~, RPTOUT+20!, RPTOUT+21*
RCITM(0	RPTOUT+23, RPTOUT+39
RCITM(6	RPTOUT+22
RCJOB	EN1+2~, EN1+56*
RCLN	EXCEL+1~, EXCEL+23*, LSTXCEL+2
RCLNCNT	EN1+2~, RPTOUT+64*, RPTOUT+69, RPTOUT+71, RPTOUT+76, RPTOUT+77, RPTOUT+81, RPTOUT+87, RPTOUT+89, RPTOUT+103 , RPTOUT+110
RCLSTMGR	EN1+2~, EN1+24, EN1+54, EN1+59*, EN1+62, EN1Q+2, RPTOUT+45, RPTOUT+47, RPTOUT+65, RPTOUT+82 , EXIT+2
RCNT	RPTOUT+4~, RPTOUT+18, RPTOUT+40, RPTOUT+42
RCOUT	EN1+2~, EXCEL+37!
RCOUT(	EXCEL+44, EXCEL+45
RCOUT(0	EXCEL+43
RCPAR	EN1+3~, EN1+41
RCPAR("DICA"	EN1+40*
RCPAR("SELC"	EN1+34*, EN1+35, EN1+36, EN1+38
RCPAR("TYPE"	EN1+39*
RCPAY	EN1+3~, EN1+36*, RPTOUT+33, HDRBLD+49, HDRLM+33
RCPGNUM	EN1+3~, RPTOUT+80, RPTOUT+81, RPTOUT+82, EXIT+3, HDRBLD+15, HDRBLD+17, HDRLM+14*, EXCEL+9, PRTQ2
RCPYRLST	EN1+3~
RCSF0	RPTOUT+4~, EXCEL+1~, EXCEL+35*, EXCEL+38, EXCEL+39, EXCEL+41
RCSFIEN	EXCEL+1~, EXCEL+35*, EXCEL+38, EXCEL+42
RCSTOP	EN1+3~, RPTOUT+46, RPTOUT+65, RPTOUT+79, RPTOUT+80, RPTOUT+82, RPTOUT+110, EXIT+3, HDRBLD+15, HDRLM+14 , EXCEL+4, EXCEL+8, EXCEL+9*, EXCEL+35, EXCEL+44, PRTQ2
RCTMPND	EN1+3~, EN1+63, EN1+69, EN1+72, EN1+91, RPTOUT+15*, RPTOUT+16, RPTOUT+69, RPTOUT+71, RPTOUT+76 , RPTOUT+77, RPTOUT+80, RPTOUT+81, RPTOUT+87, RPTOUT+89, RPTOUT+103, RPTOUT+110, EXIT+3, EXCEL+9, PRTQ2
RCTYPE	EN1+3~, EN1+31*, EN1+32, EN1+39, RPTOUT+35, RPTOUT+36, HDRBLD+51, HDRLM+35
RCXCLUDE	EN1+3~
RCXCLUDE(	RPTOUT+74
RCXCLUDE("CHAMPVA"	EN1+25*
RCXCLUDE("TRICARE"	EN1+25*
RCZ	RPTOUT+4~, RPTOUT+54, RPTOUT+55, RPTOUT+56, RPTOUT+57, RPTOUT+59, RPTOUT+79, RPTOUT+85, EXCEL+1~, EXCEL+5 , EXCEL+6*, EXCEL+8, EXCEL+12
RCZROBAL	EN1+3~, EN1+43*, EN1+44, RPTOUT+39
S	HDRBLD+38~, HDRBLD+39, HDRBLD+40, HDRLM+22~, HDRLM+23, HDRLM+24, HDRLM+25
STA	RPTOUT+5~, RPTOUT+31
STNAM	RPTOUT+5~, RPTOUT+31
STNUM	RPTOUT+5~, RPTOUT+31
T	RPTOUT+53~, RPTOUT+60, RPTOUT+62
U	EN1+28, RPTOUT+22, RPTOUT+23, RPTOUT+39, RPTOUT+60, RPTOUT+86, RPTOUT+88, RPTOUT+90, RPTOUT+91, RPTOUT+95 , RPTOUT+98, RPTOUT+102, HDRBLD+54, HDRLM+15, HDRLM+16, EXCEL+12, EXCEL+15, EXCEL+19, EXCEL+21, EXCEL+38 , EXCEL+39, EXCEL+41
VAUTD	EN1+3~, EN1+23, RPTOUT+31, HDRBLD+36, HDRBLD+37, HDRLM+20, HDRLM+21
VAUTD(	RPTOUT+31, HDRBLD+39, HDRBLD+40, HDRLM+24, HDRLM+25
X	RPTOUT+5~, HDRBLD+38~, HDRBLD+40, HDRBLD+41, HDRBLD+43, HDRLM+22~, HDRLM+25, HDRLM+26, HDRLM+27, ZROBAL+2~ , DADJCDE+2~
XX	EN1+3~, EN1+38, EN1+41, RPTOUT+5~, RPTOUT+33, RPTOUT+34, RPTOUT+35, RPTOUT+36, HDRBLD+13~, HDRBLD+18 , HDRBLD+22, HDRBLD+24, HDRBLD+25, HDRBLD+27, HDRBLD+28, HDRBLD+29
Y	EN1+3~, RPTOUT+5~, RPTOUT+68, RPTOUT+69, RPTOUT+70, RPTOUT+71, RPTOUT+75, RPTOUT+76, HDRBLD+13~, HDRBLD+31 , HDRBLD+32, HDRBLD+35, HDRBLD+36, HDRBLD+41, HDRBLD+42, HDRBLD+43, HDRBLD+45, HDRBLD+48, HDRBLD+49, HDRBLD+50* , HDRBLD+51, HDRBLD+52, HDRBLD+55, HDRBLD+56, HDRBLD+57, HDRBLD+60, HDRBLD+61, HDRBLD+62, HDRBLD+63, HDRBLD+64 , HDRBLD+65, HDRBLD+71, HDRBLD+73, HDRBLD+74, HDRBLD+75, HDRLM+12~, HDRLM+19, HDRLM+20, HDRLM+26, HDRLM+27* , HDRLM+29, HDRLM+32, HDRLM+33, HDRLM+34, HDRLM+35, HDRLM+36, HDRLM+38, HDRLM+39, HDRLM+40, HDRLM+41 , HDRLM+42, HDRLM+43, HDRLM+48, HDRLM+50, HDRLM+51, ZROBAL+2~, ZROBAL+5, ZROBAL+6, DADJCDE+2~, DADJCDE+5* , DADJCDE+6
Y(	HDRBLD+55*
Y("1ST"	HDRBLD+54*, HDRBLD+56
Y("LST"	HDRBLD+54*, HDRBLD+56
Z	RPTOUT+5~, RPTOUT+85, RPTOUT+86, RPTOUT+87, RPTOUT+88, RPTOUT+89, RPTOUT+90, RPTOUT+91, RPTOUT+95, RPTOUT+98* , RPTOUT+102, RPTOUT+103, EXCEL+1~, EXCEL+12, EXCEL+15, EXCEL+19, EXCEL+21, EXCEL+22, EXCEL+23, EXCEL+27! , EXCEL+44, EXCEL+45
Z0	RPTOUT+5~, HDRLM+12~, HDRLM+14*
ZTDESC	EN1+80~, EN1+81*
ZTQUEUED	EN1+80~, RPTOUT+80, EXIT+2, EXIT+6, EXCEL+9, PRTQ2, PRTQ2+1, PRTQ2+2
ZTREQ	RPTOUT+80!, EXIT+6, EXCEL+9!, PRTQ2+1
ZTRTN	EN1+80~, EN1+81*
ZTSAVE	EN1+80~
ZTSAVE("RC*"	EN1+82*
ZTSAVE("VAUTD"	EN1+82*
ZTSAVE("^TMP(""RCDPEU1"",$J,"	EN1+83*
ZTSK	EN1+80~, EN1+85, EN1+86!
ZTSTOP	EN1+80~, RPTOUT+80, EXCEL+9

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEAR1

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items