Routine: RCDPELA1

Package	Total	Call Graph
Accounts Receivable	2	$$ENDORPRT^RCDPEARL ($$ASKSTOP,$$COMPLETE)^RCDPELAR
Kernel	1	($$FMTE,$$NOW)^XLFDT
List Manager	1	$$SETSTR^VALM1
VA FileMan	1	$$GET1^DIQ

Package	Total	Caller Graph
Accounts Receivable	1	RCDPELAR

Entry Points

Name	Comments	DBIA/ICR reference
RPTOUT(INPUT)	; Output the report to paper/screen, listman or excel ; Input: INPUT - See REPORT for a complete description ; ^TMP($J,A1,"SEL",A2,A3,A4,A5)="" - if record passed filters Where: ; A1 - "RCDPE_LAR" ; A2 - Uppercased Payer Name (primary sort) ; A3 - Secondary Sort Value ; A4 - Internal IEN for file 344.4 ; A5 - Internal IEN for file 344.41 ; Output: ^TMP("RCDPE_LAR",$J,CTR)=Line - Array of display lines (no headers) ; for output to Listman ; Only set when A7-1
ZEROBAL(IEN3444)
ONEDLN(OUTYPE,IEN3444,IEN34441,ONEERA)	; Gather all of the ERA Detail lines to display ; one ERA record ; Input: OUTYPE - O - Output to Screen or paper ; 1 - Output to Listman ; 2 - Output to Excel ; IEN3444 - Internal IEN for file 344.4 ; IEN34441 - Internal IEN for sub file 344.41 of the ERA detail ; line being processed ; ONEERA - A1^A2^A3^A4 Where: ; A1 - Current Number of lines in the ERA display ; A2 - ERA Total for the ERA (formatted) ; A3 - Current Receipt Total for the ERA (formatted) ; A4 - 1 if ERA contains at least one detail record ; with a missing receipt. ; 0 otherwise ; ONEERA(LN)=A4- Where ; LN - Line number for ERA Display ; A4 - Actual display line ; Ouput: ONEERA - A1^A2^A3^A4 Where: ; A1 - Updated Number of lines in the ERA display ; A2 - ERA Total for the ERA (formatted) ; A3 - Updated Receipt Total for the ERA (formatted) ; A4 - 1 if ERA contains at least one detail record ; with a missing receipt. ; 0 otherwise ; ONEERA(LN)=A4- Where ; LN - Line number for ERA Display ; A4 - Actual display line
ADDERAH(OUTYPE,ONEERA,IEN3444)	; Add the header lines to ERA output array ; Input: OUTYPE - O - Output to Screen or paper ; 1 - Output to Listman ; 2 - Output to Excel ; ONEERA - A1^A2^A3^A4 Where: ; A1 - Number of lines in the ERA display ; A2 - Total Receipt amount for the ERA (formatted) ; A3 - Total Amount paid for the ERA (formatted) ; A4 - 1 if ERA contains at least one detail record ; with a missing receipt. ; 0 otherwise ; ONEERA(LN)=A4- Where ; LN - Line number for ERA Display ; A4 - Actual display line ; IEN3444 - Internal IEN for file 344.4 ; Ouput: ONEERA - Receipt Total Formatted, ERA Lines 1-4 added
OUTERA(INPUT,OUTYPE,PAYER,ONEERA,LNCNT,PAGE)	; Output the display lines for one ERA ; Input: INPUT - See REPORT for a complete description ; OUTYPE - O - Output to Screen or paper ; 1 - Output to Listman ; 2 - Output to Excel ; PAYER - Payer Name ; ONEERA - Array of lines to display for one ERA ; LNCNT - Current Line Count ; PAGE - Current Page Count ; Output: LNCNT - Updated Line Count ; PAGE - Updated Page Count ; A9 - Part of Input above ; Updated Line counter for Listman Output ; ^TMP("RCDPE_LAR",$J,CTR)=Line - Array of display lines (no headers) ; for output to Listman ; Only set when A7-1 ; Returns: 1 if user quit, 0 otherwise
HEADER(INPUT,LNCNT,PAGE)	; Display a Page Header ; Input: INPUT - See REPORT for a complete description ; LNCNT - Current Line Count ; PAGE - Current Page Count ; Output: LNCNT - Updated Line Count ; PAGE - Updated Page Count
HDRLN2(INPUT)	; Build the 2nd header line ; Input: INPUT - See REPORT for a complete description ; Returns: Text for 2nd header line
HDRLN3(INPUT)	; Build the 2nd header line ; Input: INPUT - A1^A2^A3^...^An Where: ; A1 - 1 - All divisions selected ; 2 - Selected divisions ; A2 - 1 - Filter by Auto-Post date range ; 2 - Filter by ERA Date Received date range ; A3 - B1\|B2 - Where: ; B1 - ERA Date Received Start Date if A2=2 ; Auto-Post Start Date of A2=1 ; B2 - ERA Date Received End Date if A2=2 ; Auto-Post End Date of A2=1 ; A4 - 1 - Posted/Completed Receipts ; 2 - Only ERAs with Missing Receipts ; 3 - Both Posted/Completed and Missing Receipts ; A5 - 1 - All insurance companies selected ; 2 - Selected insurance companies chosen ; A6 - 1 - Auto-Post Date/ERA Date Received Sort ; 2 - Payer sort ; 3 - Missing Receipts ; A7 - 0 - Do not display in a listman template ; 1 - Display in a listman template ; A8 - 0 - Output to paper ; 1 - Output to Excel ; A9 - Line counter for Listman output ; A10 - M/P/T/A - Medical/Pharmacy/tricare/CHAMPVA/All ; Returns: Text for 2nd header line
ERAHDR(PAYER,LNCNT,PAGE)	; Display ERA Header Lines ; Input: PAYER - Payer Name ; LNCNT - Current Line Count ; PAGE - Current Page Count ; Output: LNCNT - Updated Line Count ; PAGE - Updated Page Count
ERAHDR2()	; Build the 2nd ERA header line ; Input: None ; Returns: Text for 2nd ERA header line

Name	Field # of Occurrence
$$GET1^DIQ	RPTOUT+58, ZEROBAL+20, ZEROBAL+22, ONEDLN+34, ONEDLN+36, ONEDLN+38, ONEDLN+39, ONEDLN+40, ONEDLN+45, ONEDLN+46 , ONEDLN+47, ONEDLN+53, ADDERAH+22, ADDERAH+52
$$ENDORPRT^RCDPEARL	RPTOUT+78
$$ASKSTOP^RCDPELAR	RPTOUT+43, RPTOUT+84, OUTERA+21
$$COMPLETE^RCDPELAR	ADDERAH+20
$$SETSTR^VALM1	ONEDLN+61, ONEDLN+62, ONEDLN+63, ONEDLN+64, ONEDLN+65, ONEDLN+66, ADDERAH+35, ADDERAH+36, ADDERAH+37, ADDERAH+38 , ADDERAH+45, ADDERAH+53, HEADER+9, HEADER+11, HDRLN3+32, HDRLN3+38, ERAHDR2+5, ERAHDR2+6, ERAHDR2+7, ERAHDR2+8 , ERAHDR2+9, ERAHDR2+10
$$FMTE^XLFDT	ONEDLN+35, ONEDLN+37, HEADER+8, HDRLN2+9, HDRLN2+10
$$NOW^XLFDT	HEADER+8

Name	Line Occurrences
Function Call: WRITE	Prompt: !,XX Line Location: RPTOUT+28
Function Call: WRITE	Prompt: !,XX Line Location: RPTOUT+83
Function Call: WRITE	Prompt: !,ONEERA(LN) Line Location: OUTERA+35
Function Call: WRITE	Prompt: @IOF,XX Line Location: HEADER+13
Function Call: WRITE	Prompt: !,XX Line Location: HEADER+17
Function Call: WRITE	Prompt: !,XX Line Location: HEADER+21
Function Call: WRITE	Prompt: ! Line Location: HEADER+24
Function Call: WRITE	Prompt: !,XX Line Location: ERAHDR+9
Function Call: WRITE	Prompt: !,XX Line Location: ERAHDR+13
Function Call: WRITE	Prompt: !,XX Line Location: ERAHDR+17
Function Call: WRITE	Prompt: !,"Payer: ",PAYER Line Location: ERAHDR+20

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^RCY(344 - [#344]	GET1^DIQ
^RCY(344.4 - [#344.4]	GET1^DIQ
344.41	GET1^DIQ
344.491	GET1^DIQ
^RCY(344.72 - [#344.72]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^RCY(344.49 - [#344.49]	ZEROBAL+15, ZEROBAL+17
^RCY(344.72 - [#344.72]	ONEDLN+44
^TMP(	RPTOUT+40, RPTOUT+82
^TMP("RCDPE_LAR"	OUTERA+34, OUTERA+41
^TMP($J	RPTOUT+31, RPTOUT+33, RPTOUT+50, RPTOUT+54, RPTOUT+63, RPTOUT+66, ZEROBAL+11!, ZEROBAL+24*

Name	Line Occurrences
$$ERAHDR2	ERAHDR+12
$$HDRLN2	HEADER+16
$$HDRLN3	HEADER+20
$$OUTERA	RPTOUT+73
ADDERAH	RPTOUT+70
ERAHDR	RPTOUT+47, RPTOUT+76, OUTERA+25
HEADER	RPTOUT+46, RPTOUT+75, OUTERA+24
ONEDLN	RPTOUT+69
ZEROBAL	RPTOUT+56

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A1	RPTOUT+17~, RPTOUT+30, RPTOUT+31, RPTOUT+33, RPTOUT+40, RPTOUT+50, RPTOUT+54, RPTOUT+63, RPTOUT+66, RPTOUT+82 , ZEROBAL+10~, ZEROBAL+13, ZEROBAL+24
A2	ZEROBAL+10~, ZEROBAL+13*, ZEROBAL+24
AMT	ONEDLN+28~, ONEDLN+47, ONEDLN+50, ONEDLN+51, ONEDLN+56, ONEDLN+65
AMTPOST	ZEROBAL+10~, ZEROBAL+20*, ZEROBAL+21
DATA	RPTOUT+17~, RPTOUT+23, RPTOUT+35, RPTOUT+74
DTPOST	ONEDLN+28~, ONEDLN+37*, ONEDLN+54, ONEDLN+62
DTREC	ONEDLN+28~, ONEDLN+35*, ONEDLN+54, ONEDLN+61
EXCEL	RPTOUT+17~, RPTOUT+21*, RPTOUT+24, RPTOUT+47, RPTOUT+74, RPTOUT+77
FIRST	RPTOUT+17~, RPTOUT+31*, RPTOUT+43
IEN3444	RPTOUT+17~, RPTOUT+52, RPTOUT+53, RPTOUT+54, RPTOUT+55, RPTOUT+56, RPTOUT+58, RPTOUT+63, RPTOUT+66, RPTOUT+69 , RPTOUT+70, ZEROBAL~, ZEROBAL+11, ZEROBAL+15, ZEROBAL+17, ZEROBAL+19, ZEROBAL+24, ONEDLN~, ONEDLN+29, ONEDLN+34 , ONEDLN+44, ONEDLN+53, ONEDLN+54, ADDERAH~, ADDERAH+20, ADDERAH+22, ADDERAH+35, ADDERAH+52
IEN34441	RPTOUT+61, RPTOUT+62, RPTOUT+63, RPTOUT+64, RPTOUT+66, RPTOUT+69, ONEDLN~, ONEDLN+29
IENS	ZEROBAL+10~, ZEROBAL+19, ZEROBAL+20, ZEROBAL+22, ONEDLN+28~, ONEDLN+29, ONEDLN+36, ONEDLN+38, ONEDLN+47
INPUT	RPTOUT~, RPTOUT+20, RPTOUT+21, RPTOUT+22, RPTOUT+38, RPTOUT+39, RPTOUT+46, RPTOUT+73, RPTOUT+75, RPTOUT+80 , RPTOUT+81, OUTERA~, OUTERA+24, OUTERA+32, OUTERA+33, OUTERA+39, OUTERA+40*, HEADER~, HEADER+16, HEADER+20 , HDRLN2~, HDRLN2+4, HDRLN2+5, HDRLN2+6, HDRLN2+8, HDRLN2+9, HDRLN2+10, HDRLN3~, HDRLN3+27, HDRLN3+33 , HDRLN3+34, HDRLN3+35
IOF	HEADER+13
IOSL	OUTERA+20
LCNT	ONEDLN+28~, ONEDLN+30*, ONEDLN+31, ONEDLN+58, ONEDLN+67
LN	ONEDLN+28~, ONEDLN+53, ONEDLN+54, ONEDLN+55, ONEDLN+56, ONEDLN+57, ONEDLN+58, ONEDLN+60, ONEDLN+61, ONEDLN+62 , ONEDLN+63, ONEDLN+64, ONEDLN+65, ONEDLN+66, ONEDLN+67, ADDERAH+16~, ADDERAH+34, ADDERAH+35, ADDERAH+36, ADDERAH+37 , ADDERAH+38, ADDERAH+41, ADDERAH+44, ADDERAH+45, ADDERAH+48, ADDERAH+51, ADDERAH+53, ADDERAH+56, OUTERA+17~, OUTERA+26 , OUTERA+27, OUTERA+28*, OUTERA+29, OUTERA+34, OUTERA+35
LNCNT	RPTOUT+17~, RPTOUT+19, RPTOUT+45, RPTOUT+46, RPTOUT+47, RPTOUT+73, RPTOUT+75, RPTOUT+76, OUTERA~, OUTERA+19 , OUTERA+23, OUTERA+24, OUTERA+25, OUTERA+30, OUTERA+36, HEADER~, HEADER+12, HEADER+15, HEADER+19, HEADER+23* , ERAHDR~, ERAHDR+7, ERAHDR+11, ERAHDR+15, ERAHDR+19
LSTMAN	RPTOUT+17~, RPTOUT+22*, RPTOUT+24, RPTOUT+74
MISSINGR	ADDERAH+16~, ADDERAH+21*, ADDERAH+31, ADDERAH+38
ONEERA	RPTOUT+18~, RPTOUT+57!, RPTOUT+60, RPTOUT+69, RPTOUT+70, RPTOUT+73, ONEDLN~, ONEDLN+30, ONEDLN+31, ONEDLN+42* , ONEDLN+49, ONEDLN+50, ADDERAH~, ADDERAH+17, ADDERAH+19, ADDERAH+30, ADDERAH+39, ADDERAH+40, ADDERAH+46, ADDERAH+47* , ADDERAH+54, ADDERAH+55*, OUTERA~, OUTERA+19
ONEERA(	ONEDLN+58, ONEDLN+67, ADDERAH+26, ADDERAH+28, ADDERAH+29, ADDERAH+30, ADDERAH+31, ADDERAH+41, ADDERAH+48, ADDERAH+56* , OUTERA+28, OUTERA+34, OUTERA+35
ORIGSEQ	ZEROBAL+10~, ZEROBAL+22*, ZEROBAL+24
OUTTYP	RPTOUT+18~
OUTYPE	RPTOUT+24*, RPTOUT+25, RPTOUT+37, RPTOUT+42, RPTOUT+69, RPTOUT+70, RPTOUT+73, RPTOUT+79, ONEDLN~, ONEDLN+52 , ADDERAH~, ADDERAH+23, OUTERA~, OUTERA+20, OUTERA+31, OUTERA+37, OUTERA+38
PAGE	RPTOUT+18~, RPTOUT+19, RPTOUT+43, RPTOUT+46, RPTOUT+47, RPTOUT+73, RPTOUT+75, RPTOUT+76, OUTERA~, OUTERA+24 , OUTERA+25, HEADER~, HEADER+7, HEADER+10, ERAHDR~
PAYER	RPTOUT+18~, RPTOUT+30, RPTOUT+32, RPTOUT+33, RPTOUT+34, RPTOUT+40, RPTOUT+43, RPTOUT+47, RPTOUT+50, RPTOUT+54 , RPTOUT+63, RPTOUT+73, RPTOUT+76, ONEDLN+28~, OUTERA~, OUTERA+25, ERAHDR~, ERAHDR+20
RCDA1	ZEROBAL+10~, ZEROBAL+17*, ZEROBAL+18, ZEROBAL+19
RCSEQ	ZEROBAL+10~, ZEROBAL+14, ZEROBAL+15, ZEROBAL+16, ZEROBAL+17
RECEIPT	ONEDLN+28~, ONEDLN+39, ONEDLN+41, ONEDLN+43, ONEDLN+48, ONEDLN+54, ONEDLN+63
STOP	RPTOUT+18~, RPTOUT+30, RPTOUT+32, RPTOUT+42, RPTOUT+43, RPTOUT+44, RPTOUT+49, RPTOUT+53, RPTOUT+62, RPTOUT+73* , RPTOUT+84, RPTOUT+85, OUTERA+17~, OUTERA+18, OUTERA+20, OUTERA+21*, OUTERA+22, OUTERA+27, OUTERA+42
SVAL	RPTOUT+18~, RPTOUT+48, RPTOUT+49, RPTOUT+50, RPTOUT+51, RPTOUT+54, RPTOUT+63
TOTERA	ADDERAH+16~, ADDERAH+19*, ADDERAH+37
TOTREC	ADDERAH+16~, ADDERAH+18*, ADDERAH+29, ADDERAH+45
TRACE	ADDERAH+16~, ADDERAH+22*, ADDERAH+28
TRDOC	ONEDLN+28~, ONEDLN+40*, ONEDLN+57, ONEDLN+66
USER	ONEDLN+28~, ONEDLN+45, ONEDLN+46, ONEDLN+55, ONEDLN+64
XX	RPTOUT+26, RPTOUT+27, RPTOUT+28, RPTOUT+38, RPTOUT+39, RPTOUT+40, RPTOUT+58, RPTOUT+59, RPTOUT+60, RPTOUT+78 , RPTOUT+82, RPTOUT+83, ZEROBAL+10~, ZEROBAL+23, ZEROBAL+24, ONEDLN+28~, ONEDLN+34, ONEDLN+35, ONEDLN+36, ONEDLN+37 , ONEDLN+38, ONEDLN+39, ONEDLN+40, ONEDLN+44, ONEDLN+45, ADDERAH+16~, ADDERAH+17, ADDERAH+18, ADDERAH+20, ADDERAH+21 , ADDERAH+24, ADDERAH+25, ADDERAH+26, ADDERAH+27, ADDERAH+28, ADDERAH+29, ADDERAH+30, ADDERAH+31, ADDERAH+39, ADDERAH+40 , ADDERAH+46, ADDERAH+47, ADDERAH+52, ADDERAH+53, ADDERAH+54, ADDERAH+55, OUTERA+17~, OUTERA+19, OUTERA+20, OUTERA+32 , OUTERA+33, OUTERA+34, OUTERA+39, OUTERA+40, OUTERA+41, HEADER+6~, HEADER+8, HEADER+9, HEADER+11, HEADER+13 , HEADER+16, HEADER+17, HEADER+20, HEADER+21, HDRLN2+3~, HDRLN2+4, HDRLN2+5, HDRLN2+7, HDRLN2+8, HDRLN2+11* , HDRLN2+12, HDRLN3+26~, HDRLN3+31, HDRLN3+32, HDRLN3+38, HDRLN3+39, ERAHDR+6~, ERAHDR+8, ERAHDR+9, ERAHDR+12* , ERAHDR+13, ERAHDR+16, ERAHDR+17, ERAHDR2+3~, ERAHDR2+4, ERAHDR2+5, ERAHDR2+6, ERAHDR2+7, ERAHDR2+8, ERAHDR2+9* , ERAHDR2+10*, ERAHDR2+11
YY	RPTOUT+80, RPTOUT+81, RPTOUT+82, ONEDLN+28~, ONEDLN+49, ONEDLN+50, HEADER+6~, HEADER+7, HEADER+9, HEADER+10 , HEADER+11, HDRLN2+3~, HDRLN2+6, HDRLN2+7, HDRLN2+9, HDRLN2+11, HDRLN3+26~, HDRLN3+27, HDRLN3+28, HDRLN3+29 , HDRLN3+30, HDRLN3+33, HDRLN3+34, HDRLN3+35, HDRLN3+36, HDRLN3+37, ERAHDR+6~
ZZ	HEADER+6~, HDRLN2+3~, HDRLN2+10, HDRLN2+11, HDRLN3+26~, HDRLN3+28, HDRLN3+29, HDRLN3+30, HDRLN3+31, HDRLN3+34* , HDRLN3+35, HDRLN3+36, HDRLN3+37*, HDRLN3+38, ERAHDR+6~

Customize PDF page

Package: Accounts Receivable

Routine: RCDPELA1

Information

Source Information

Call Graph

Call Graph Total: 5

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: