Routine: RCDPEADP

Package	Total	Call Graph
Accounts Receivable	7	(CARCS,COMPILE,HDR,LMAN,LMOUT,TOTALD,TOTALG)^RCDPEAD1 ($$CLAIM,$$LINE,EXCEL)^RCDPEAD2 ($$ASKLM,$$ENDORPRT)^RCDPEARL $$ASKSTOP^RCDPELAR INFO^RCDPEM6 $$RTYPE^RCDPEU1 $$PNM4^RCDPEWL1
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
VA FileMan	2	$$GET1^DIQ ^DIR
Registration	1	DIVISION^VAUTOMA

Package	Total	Caller Graph
Accounts Receivable	8	RCDPE AUTO-DECREASE REPORT RCDPEAD1 RCDPEFA2 RCDPEFA3 RCDPENR1 RCDPENR2 RCDPENR3 RCDPENR4

Entry Points

Name	Comments	DBIA/ICR reference
RPT	; entry point for Auto-Decrease Adjustment report [RCDPE AUTO-DECREASE REPORT]
STADIV(RCVAUTD)	; Division/Station Filter ; Input: None ; Output: RCVAUTD() - Array of selected Divisions/Stations if 2 is returned ; Returns: 1 - All Divisions/Stations selected ; 2 - Specified Divisions/Stations selected ; 0 - "^" or timeout
ASKSORT()	; Select the sort criteria ; Input: None ; Returns: C - Sort by Claim ; P - Sort by Payer ; N - Sort by Patient Name ; 0 - User entered '^' or timed out
SORTORD(SORT)	; Select the sort order ; Input: SORT - 'C' - Sort by Claim Number ; 'P' - Sort by Payer ; 'N' - Sort by Patient Name ; Returns: F - First to Last ; L - Last to First ; 0 - User entered '^' or timed out
DTRNG()	; Get the date range for the report ; Input: None ; Returns: A1\|A2\|A3 - Where: ; A1 - 0 - User up-arrowed or timed out, 1 otherwise ; A2 - Auto-Post Start Date ; A3 - Auto-Post End Date
DATES(BDATE,EDATE)	; Get a date range. ; Input: None ; Output: BDATE - Internal Auto-Post Start Date ; EDATE - Internal Auto-Post End Date
D1	; looping tag
DISPTY()	; Get display/output type ; Input: None ; Returns: 1 - Output to Excel ; 0 - Output to paper
DEVICE(EXCEL,IO)	; Select the output device ; Input: EXCEL - 1 - Output to Excel, 0 otherwise ; Output: ; IO - Array of selected output info ; Returns: 0 - No device selected, 1 Otherwise
REPORT(INPUTS,RCVAUTD,IO)	; EP Compile and print report ; Input: INPUTS - A1^A2^A3^...^An Where: ; A1 - 1 - All divisions selected ; 2 - Selected divisions ; A2 - C - Sort by Claim ; P - Sort by Payer ; N - Sort by Patient Name ; A3 - F - First to Last Sort Order ; L - Last to First Sort Order ; A4 - B1\|B2 ; B1 - Auto-Post Start Date ; B2 - Auto-Post End Date ; A5 - 1 - Output to Excel ; 0 - Otherwise ; A6 - 1 - Output to List Manager ; 0 - Otherwise ; A7 - M/P/T/A = Medical/Pharmacy/Tricare/All
SAVE(ADDATE,ERAIEN,RCRZ,EXCEL,RCSORT,CARCS,RCTR,STNAM,STNUM)	; Put the data into the ^TMP global ; Input: ADDATE - Current Internal Date being processed ; ERAIEN - Internal IEN of the ERA record ; RCRZ - ERA line number ; EXCEL - 1 output to Excel, 0 otherwise ; RCSORT - C - Sort by Claim ; P - Sort by Payer ; N - Sort by Patient Name ; CARCS - ^ delimited string of CARC information found ; on the EOB record pointed to by the ERA detail record ; A1;A2;A3;A4^B1;B2;B3;B4^...^N1;N2;N3;N4 Where: ; A1 - Auto-Decrease amount of the 1st CARC code ; A2 - 1st CARC code ; A3 - Quantity of the first CARC code ; A4 - Truncated Reason text of the 1st CARC ; DTOTAL() - Current Array of totals by Auto-Post Date ; GTOTAL - Current Grand totals ; RCTR - Current Record Counter ; STNAM - Station name ; STNUM - Station number ; ^TMP("RCDPEADP",$J) - Current report data ; See DISP for a full description ; Output: DTOTAL() - Updated Array of totals by Auto-Post Date ; GTOTAL - Updated Grand totals ; RCTR - Updated Record Counter ; ^TMP("RCDPEADP",$J,A1,A2,A3) - B1^B2^B3^...^Bn Where: ; - A1 - "EXCEL" if exporting to excel ; Internal fileman date if not exporting to excel ; A2 - Excel Line Counter if exporting to excel ; External Claim number is sorting by claim ; External Payer Name if sorting by Payer ; External Patient Name if sorting by Patient Name ; A3 - Record Counter ; B1 - External Station Name ; B2 - External Station Number ; B3 - External Claim Number ; B4 - External Patient Name ; B5 - External Payer Name ; B6 - Auto-Decrease Amount ; B7 - Auto-Decrease Date ; ^TMP("RCDPEADP",$J,A1,A2,A3,A4) - C1^C2^C3^C4 Where: ; - A1 - "EXCEL" if exporting to excel ; Internal fileman date if not exporting to excel ; A2 - Excel Line Counter if exporting to excel ; External Claim number is sorting by claim ; External Payer Name if sorting by Payer ; External Patient Name if sorting by Patient Name ; A3 - Record Counter ; A4 - CARC Counter ; C1 - CARC Code (file 361.111, field .01) ; C2 - Decrease Amount (file 361.111, field .02) ; C3 - Quantity (file 361.111, field .03) ; C4 - Reason (file 361.111, field .04)
DISP(INPUTS,DTOTAL,GTOTAL)	; Format the display for screen/printer or MS Excel ; Input: INPUTS - A1^A2^A3^...^An Where: ; A1 - 1 - All divisions selected ; 2 - Selected divisions ; A2 - C - Sort by Claim ; P - Sort by Payer ; N - Sort by Patient Name ; A3 - F - First to Last Sort Order ; L - Last to First Sort Order ; A4 - B1\|B2 ; B1 - Auto-Post Start Date ; B2 - Auto-Post End Date ; A5 - 1 - Output to Excel ; 0 - Otherwise ; A6 - 1 - Output to List Manager ; 0 - Otherwise ; A7 - C/M/P/T/A = CHAMPVA/Medical/Pharmacy/Tricare/All
DCARCS(A1,A2,A3,EXCEL,HDRINFO,PAGE,STOP)	; Display detailes CARC information - added as part of PRCA4.5318 re-write ; Input: A1 - "EXCEL" if exporting to excel ; Internal fileman date if not exporting to excel ; A2 - Excel Line Counter if exporting to excel ; External Claim number is sorting by claim ; External Payer Name if sorting by Payer ; External Patient Name if sorting by Patient Name ; A3 - Record Counter ; EXCEL - 1 if exporting to Excel, 0 otherwise ; HDRINFO() - Array of header information ; PAGE - Current Page number ; ^TMP("RCDPEADP",$J) - Array of report data. See SAVE for details ; Output: PAGE - Updated Page number ; STOP - 1 if user aborts display, 0 otherwise
ASK(STOP,TYP)	; Ask to continue, if TYP=1 then prompt to finish ; Input: TYP - 1 - Prompt to finish, 0 Otherwise ; IOST - Device Type ; Output: STOP - 1 to abort print, 0 otherwise

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+7
HOME^%ZIS	RPT+33
^%ZISC	REPORT+28, DISP+98
^%ZTLOAD	RPT+29
$$GET1^DIQ	SAVE+54, SAVE+56, SAVE+58
^DIR	ASKSORT+12, SORTORD+13, D1+5, D1+13, DISPTY+8, ASK+9
CARCS^RCDPEAD1	SAVE+77
COMPILE^RCDPEAD1	REPORT+25
HDR^RCDPEAD1	DISP+50, DISP+67, DISP+87, DCARCS+24
LMAN^RCDPEAD1	DISP+63
LMOUT^RCDPEAD1	RPT+17
TOTALD^RCDPEAD1	DISP+55
TOTALG^RCDPEAD1	DISP+80
$$CLAIM^RCDPEAD2	SAVE+59
$$LINE^RCDPEAD2	DISP+42
EXCEL^RCDPEAD2	DISP+62
$$ASKLM^RCDPEARL	RPT+14
$$ENDORPRT^RCDPEARL	DISP+82, DISP+89, DISP+96
$$ASKSTOP^RCDPELAR	DISP+90
INFO^RCDPEM6	RPT+20
$$RTYPE^RCDPEU1	RPT+12
$$PNM4^RCDPEWL1	SAVE+60
DIVISION^VAUTOMA	STADIV+10
$$FMTE^XLFDT	SAVE+55, DISP+28, DISP+29, DISP+30
$$NOW^XLFDT	DISP+30

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Task number "_ZTSK_" has been queued." Line Location: RPT+30
Function Call: WRITE	Prompt: !!,"Unable to queue this job." Line Location: RPT+31
Function Call: WRITE	Prompt: !,Y Line Location: DISP+73
Function Call: WRITE	Prompt: !,$$ENDORPRT^RCDPEARL,! Line Location: DISP+82
Function Call: WRITE	Prompt: !!,?26,"* No Records to Print *",! Line Location: DISP+88
Function Call: WRITE	Prompt: !,$$ENDORPRT^RCDPEARL Line Location: DISP+89
Function Call: WRITE	Prompt: !!,"CARC^Decrease Amt^Quantity^Reason" Line Location: DCARCS+28
Function Call: WRITE	Prompt: !!," CARC Decrease Amt # Reason" Line Location: DCARCS+29
Function Call: WRITE	Prompt: !," -------------------- ------------- ---- -----------------------------" Line Location: DCARCS+30
Function Call: WRITE	Prompt: !,XX Line Location: DCARCS+35
Function Call: WRITE	Prompt: ! Line Location: ASK+8
Routine Call	%ZIS Line Location: DEVICE+7
Routine Call	%ZIS Line Location: RPT+33
Routine Call	DIR Line Location: ASKSORT+12 SORTORD+13 D1+5 D1+13 DISPTY+8 ASK+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RCY(344.4 - [#344.4]	GET1^DIQ
344.41	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("RCDPEADP"	REPORT+24!, REPORT+27!, SAVE+66, SAVE+67, SAVE+76, DISP+47, DISP+54, DISP+59, DISP+61, DCARCS+17 , DCARCS+19
^TMP("RCDPE_ADP"	REPORT+24!, DISP+94, DISP+95, DISP+96*
^TMP("RCSELPAY"	REPORT+27!

Label References

Name	Line Occurrences
$$ASKSORT	RPT+4
$$DEVICE	RPT+21
$$DISPTY	RPT+18
$$DTRNG	RPT+8
$$SORTORD	RPT+6
$$STADIV	RPT+2
ASK	DISP+49, DISP+65, DISP+83, DCARCS+21
DATES	DTRNG+7
DCARCS	DISP+74
DISP	REPORT+26
REPORT	RPT+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+5~, DEVICE+6*
A1	SAVE+53~, SAVE+66, SAVE+67, SAVE+71, SAVE+76, SAVE+77, DISP+22~, DISP+44, DISP+46, DISP+47 , DISP+48, DISP+54, DISP+55, DISP+59, DISP+61, DISP+62, DISP+63, DISP+74, DCARCS~, DCARCS+17 , DCARCS+19
A2	SAVE+53~, SAVE+66, SAVE+67, SAVE+72, SAVE+76, SAVE+77, DISP+22~, DISP+52, DISP+53, DISP+54 , DISP+55, DISP+56, DISP+59, DISP+61, DISP+62, DISP+63, DISP+74, DCARCS~, DCARCS+17, DCARCS+19
A3	DISP+22~, DISP+57, DISP+58, DISP+59, DISP+60, DISP+61, DISP+62, DISP+63, DISP+74, DCARCS~ , DCARCS+17, DCARCS+19
A4	DCARCS+14~, DCARCS+15, DCARCS+16, DCARCS+17, DCARCS+18, DCARCS+19
ADDATE	SAVE~, SAVE+55, SAVE+71, SAVE+80, SAVE+81
AMOUNT	SAVE+53~, SAVE+56*, SAVE+57, SAVE+75, SAVE+81, SAVE+84
BDATE	DATES~, D1+1, D1+7, D1+8, D1+11, D1+15
CARC	SAVE+53~
CARCS	SAVE~, SAVE+77
CLAIM	SAVE+53~, SAVE+59*, SAVE+72, SAVE+75
DATA	DISP+22~, DISP+61, DISP+62, DISP+63, DISP+68, DISP+69, DISP+70, DISP+71, DISP+72, DCARCS+14~ , DCARCS+19, DCARCS+31, DCARCS+32, DCARCS+33, DCARCS+34
DATE	SAVE+53~, SAVE+55*, SAVE+75
DIR	STADIV+6~, ASKSORT+6~, SORTORD+7~, DTRNG+6~, D1+6!, D1+14!, DISPTY+4~, ASK+4~
DIR("?"	ASKSORT+9, ASKSORT+10, D1+2, D1+9
DIR("A"	ASKSORT+8, SORTORD+10, D1+4, D1+12, DISPTY+6, ASK+6
DIR("B"	ASKSORT+11, SORTORD+12, D1+10, DISPTY+7
DIR(0	ASKSORT+7, SORTORD+11, D1+3, D1+11, DISPTY+5, ASK+7
DIROUT	STADIV+6~, ASKSORT+6~, SORTORD+7~, DTRNG+6~, DISPTY+4~, ASK+4~
DIRUT	ASKSORT+6~, SORTORD+7~, DTRNG+6~, DISPTY+4~, ASK+4~, ASK+10
DT	D1+3, D1+11
DTOTAL	REPORT+22~, REPORT+25, REPORT+26, DISP~, DISP+55
DTOTAL(	SAVE+80, SAVE+81
DTOUT	STADIV+6~, ASKSORT+6~, ASKSORT+13, SORTORD+7~, SORTORD+14, DTRNG+6~, D1+7, D1+15, DISPTY+4~, ASK+4~
DUOUT	STADIV+6~, ASKSORT+6~, ASKSORT+13, SORTORD+7~, SORTORD+14, DTRNG+6~, D1+7, D1+15, DISPTY+4~, DISPTY+9 , ASK+4~, ASK+10
EDATE	DATES~, D1+1, D1+16
EOBIEN	SAVE+53~, SAVE+58*, SAVE+59
ERAIEN	SAVE~, SAVE+54, SAVE+56, SAVE+58, SAVE+60
EXCEL	DEVICE~, SAVE~, SAVE+65, SAVE+70, DISP+22~, DISP+24*, DISP+50, DISP+55, DISP+62, DISP+67 , DISP+74, DISP+75, DISP+79, DISP+80, DISP+87, DCARCS~, DCARCS+20, DCARCS+24, DCARCS+27
FIRST	DCARCS+14~, DCARCS+15, DCARCS+23, DCARCS+25, DCARCS+26*
GTOTAL	REPORT+22~, REPORT+25, REPORT+26, SAVE+84*, DISP~, DISP+78, DISP+80, DISP+86
HDRINFO	DISP+22~, DISP+50, DISP+55, DISP+67, DISP+74, DISP+80, DISP+87, DCARCS~, DCARCS+24
HDRINFO("DIVISIONS"	DISP+42*
HDRINFO("END"	DISP+29*
HDRINFO("RUNDATE"	DISP+30*
HDRINFO("SORT"	DISP+32, DISP+34
HDRINFO("START"	DISP+28*
HDRINFO("TYPE"	DISP+37, DISP+38
INPUT	RPT+1~, RPT+2, RPT+3, RPT+4, RPT+5, RPT+6, RPT+7, RPT+8, RPT+9, RPT+10* , RPT+12, RPT+13, RPT+14, RPT+15, RPT+16, RPT+17, RPT+18*, RPT+19, RPT+20, RPT+21 , RPT+24, RPT+35
INPUTS	REPORT~, REPORT+25, REPORT+26, DISP~, DISP+24, DISP+27, DISP+31, DISP+33, DISP+36, DISP+41 , DISP+45
IO	RPT+17, RPT+21, RPT+35, DEVICE~, REPORT~, REPORT+23, DISP+23
IO("Q"	RPT+24, RPT+32!
IOSL	DISP+64, DCARCS+20
IOST	ASK+5
LCNT	DISP+22~, DISP+44, DISP+63, DISP+94, DISP+95*, DISP+96
LMAN	DISP+22~, DISP+24*, DISP+50, DISP+55, DISP+63, DISP+78, DISP+86, DISP+93
MODE	DISP+22~, DISP+45*, DISP+54
PAGE	DISP+22~, DISP+44*, DISP+49, DISP+50, DISP+55, DISP+67, DISP+74, DISP+80, DISP+87, DCARCS~ , DCARCS+24
PAYNAM	SAVE+53~, SAVE+54*, SAVE+72, SAVE+75
POP	DEVICE+5~, DEVICE+8
PTNAM	SAVE+53~, SAVE+60, SAVE+61, SAVE+72, SAVE+75
RCEND	DTRNG+6~, DTRNG+7, DTRNG+9
RCRDNUM	DISP+22~
RCRZ	SAVE~, SAVE+56, SAVE+58, SAVE+60
RCSORT	SAVE~, SAVE+72
RCSTART	DTRNG+6~, DTRNG+7, DTRNG+8, DTRNG+9, DTRNG+10
RCTR	SAVE~, SAVE+62*, SAVE+76, SAVE+77
RCVAUTD	RPT+1~, RPT+2, RPT+17, RPT+35, STADIV~, STADIV+13*, REPORT~, REPORT+25, DISP+42
RNGFLG	DTRNG+6~
SORT	SORTORD~, SORTORD+9
STNAM	SAVE~, SAVE+75
STNUM	SAVE~, SAVE+75
STOP	DISP+22~, DISP+44, DISP+46, DISP+49, DISP+53, DISP+55, DISP+58, DISP+64, DISP+65, DISP+66 , DISP+74, DISP+79, DISP+80, DISP+81, DISP+83, DCARCS~, DCARCS+16, DCARCS+20, DCARCS+21, DCARCS+22 , ASK~, ASK+10
TYP	ASK~, ASK+6
U	SAVE+75, SAVE+80, SAVE+81, SAVE+84, DISP+24, DISP+68, DISP+69, DISP+70, DISP+71, DISP+72 , DCARCS+31, DCARCS+32, DCARCS+33, DCARCS+34
VAUTD	STADIV+6~, STADIV+12, STADIV+13
X	DTRNG+6~, DISP+90*
XX	ASKSORT+6~, SORTORD+7~, SORTORD+8, SORTORD+10, REPORT+22~, SAVE+53~, SAVE+75, SAVE+76, DISP+27, DISP+28 , DISP+29, DISP+31, DISP+32, DISP+33, DISP+34, DISP+36, DISP+38, DISP+41, DISP+42, DCARCS+14~ , DCARCS+31, DCARCS+32, DCARCS+33, DCARCS+34*, DCARCS+35
Y	STADIV+6~, STADIV+11, ASKSORT+14, SORTORD+15, DTRNG+6~, D1+7, D1+8, D1+15, D1+16, DISPTY+4~ , DISPTY+10, SAVE+53~, DISP+22~, DISP+68, DISP+69, DISP+70, DISP+71, DISP+72*, DISP+73
Y(0	D1+10
YY	SORTORD+7~, SORTORD+9*, SORTORD+10
ZTDESC	RPT+25~, RPT+27*
ZTQUEUED	RPT+25~, DISP+90, DISP+98, DISP+99
ZTREQ	REPORT+22~, DISP+99*
ZTRTN	RPT+25~, RPT+26*
ZTSAVE	RPT+25~
ZTSAVE("INPUT"	RPT+28*
ZTSAVE("IO*"	RPT+28*
ZTSAVE("RC*"	RPT+28*
ZTSK	RPT+25~, RPT+30, RPT+32!

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEADP

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: