Routine: RCDPEAPQ

Package	Total	Call Graph
VA FileMan	3	$$EXTERNAL^DILFD $$GET1^DIQ ^DIR
Accounts Receivable	2	($$ISSEL,$$ISTYPE)^RCDPEU1 $$PNM4^RCDPEWL1
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Package	Total	Caller Graph
Accounts Receivable	2	RCDPEAPP RCDPENE1

Entry Points

Name	Comments	DBIA/ICR reference
SAVE(ERAIEN,RCRZ,RCTYPE,APDATE,RCSORT)	; EP - Save to ^TMP global ; Input: ERAIEN - Internal IEN into file 344.4 ; RCRZ - Internal IEN into sub-file 344.41 ; RCTYPE - 'D' for detail report, 'S' for summary ; APDATE - Internal Auto-Posting date ; RCSORT - 0 - Sort by Payer Name, 1 - Sort by Payer TIN ; STNAM - Division Name (Primary Sort) ; STNUM - Station Number ; ^TMP("RCDPEAPP2",$J,ERAIEN,RCRZ) - Array of detail lines ; Output: GTOTAL - A1^A2^A3^A4 Where: ; A1 - Total Count ; A2 - Total Original Amounts ; A3 - Total Payment Amounts ; A4 - Total Balance
ERASTA(ERAIEN,STA,STNUM,STNAM)	; EP - Get the station (Division) for this ERA ; Input: ERAIEN - ; Output: STA - Internal Division IEN ; STNUM - Division Number ; STNAME - Division Name
COMPILE	; Generate the Auto Posting report ^TMP array ; Input: GLOB - "^TMP("RCDPEAPP",$J)" ; RCDISP - 0 - Output to paper or screen, 1 - Output to Excel ; RCDIV - 1 - All divisions, 2 - Selected divisions ; RCDIVS()- Array of selected divisions if RCDIV=2 ; RCRANGE - 1^Start Date^End Date ; RCJOB - $J ; RCLAIM - "M" - Medical Claims, "P" - Pharmacy Claims, "B" - Both ; RCPAGE - Initialized to 0 ; RCPARRAY- Array of selected payers ; RCPROG - "RCDPEAPP" ; RCSORT - 0 - Sort by Payer Name, 1 - Sort by Payer TIN ; RCWHICH - 1 - Filter by Payer Name, 2 - Filter by Payer TIN ; RCTYPE - 'D' for detail report, 'S' for summary ; RCPAYMNT - 'Z' - Zero pay ERAs only, 'P' - Non-Zero ERAs only, 'A' All - PRCA4.5424 ; ^TMP("RCSELPAY",RCJOB) - Selected Payer Names or TINs ; Ouput: GTOTAL - A1^A2^A3^A4 Where: ; A1 - Total Count ; A2 - Total Original Amounts ; A3 - Total Payment Amounts ; A4 - Total Balance ; ^TMP("RCSELPAY",RCJOB,A1)=A2/A3 Where: ; A1 - CTR ; A2 - Payer Name if RCWHICH=1 else Payer TIN ; A3 - Payer TIN if RCWHICH=1 else Payer Name
BUILD(RCSCR)	; Build cross-reference of ERA detail lines to ERA scratch-pad lines ; Input: RCSCR - Internal IEN of file 344.4/344.49
PAYMNT()	; Payment Type (Zero/Payment or Both) Selection. EP from RCDPEAPP ; Input: None ; Output: None ; Returns: A - All ERAs, P - ERAs with payments, Z - Zero payment ERAs

Name	Field # of Occurrence
$$EXTERNAL^DILFD	SAVE+38, SAVE+77, ERASTA+13
$$GET1^DIQ	SAVE+17, SAVE+18, SAVE+27, SAVE+29, SAVE+30, SAVE+35, SAVE+36, SAVE+37, SAVE+40, SAVE+51 , SAVE+52, SAVE+54, SAVE+58, SAVE+59, SAVE+75, SAVE+76, SAVE+81, SAVE+82, SAVE+85, ERASTA+9 , ERASTA+10, ERASTA+11, ERASTA+14
^DIR	PAYMNT+13
$$ISSEL^RCDPEU1	COMPILE+48
$$ISTYPE^RCDPEU1	COMPILE+44
$$PNM4^RCDPEWL1	SAVE+28, SAVE+64, SAVE+89
$$FMADD^XLFDT	COMPILE+26
$$FMTE^XLFDT	SAVE+31, SAVE+32

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PAYMNT+12
Routine Call	DIR Line Location: PAYMNT+13

FileNo	Call Tags
^RCY(344.3 - [#344.3]	GET1^DIQ
^RCY(344.31 - [#344.31]	GET1^DIQ
^RCY(344.4 - [#344.4]	GET1^DIQ
344.41	EXTERNAL^DILFD, GET1^DIQ
344.491	GET1^DIQ
^IBM(361.1 - [#361.1]	GET1^DIQ
^DGCR(399 - [#399]	EXTERNAL^DILFD, GET1^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^PRCA(430 - [#430]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^RCY(344.31 - [#344.31]	SAVE+33
^RCY(344.4 - [#344.4]	COMPILE+30, COMPILE+32, COMPILE+39, COMPILE+55
^RCY(344.49 - [#344.49]	SAVE+47, SAVE+48, BUILD+4, BUILD+6, BUILD+8, BUILD+12, BUILD+15
^TMP("RCDPEAPP2"	SAVE+44, COMPILE+51, BUILD+15*

Name	Line Occurrences
BUILD	COMPILE+51
ERASTA	COMPILE+35
SAVE	COMPILE+56

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APDATE	SAVE~, SAVE+32, COMPILE+25~, COMPILE+26, COMPILE+30, COMPILE+32, COMPILE+55, COMPILE+56
BALANCE	SAVE+14~, SAVE+50, SAVE+59, SAVE+62, SAVE+69
BAMT	SAVE+14~, SAVE+50, SAVE+58, SAVE+62, SAVE+65, SAVE+69
BILL	SAVE+14~, SAVE+52, SAVE+53, SAVE+69, SAVE+77*, SAVE+93
CLAIMIEN	SAVE+14~, SAVE+51, SAVE+57, SAVE+58, SAVE+59, SAVE+64, SAVE+74, SAVE+76*, SAVE+80, SAVE+81 , SAVE+85, SAVE+89
CNT	SAVE+66, SAVE+70, SAVE+91, SAVE+94, COMPILE+25~, COMPILE+27, BUILD+2~, BUILD+13, BUILD+14
COLLECT	SAVE+14~, SAVE+50, SAVE+65, SAVE+69, SAVE+74, SAVE+90, SAVE+93
DATE	SAVE+14~, SAVE+32*, SAVE+68, SAVE+92
DEPNO	SAVE+14~, SAVE+39, SAVE+40, SAVE+69, SAVE+93
DIR	PAYMNT+4~, PAYMNT+5!
DIR("?"	PAYMNT+8, PAYMNT+9, PAYMNT+10*
DIR("A"	PAYMNT+6*
DIR("B"	PAYMNT+7, PAYMNT+11
DIR(0	PAYMNT+5*
DTOUT	PAYMNT+4~, PAYMNT+14
DUOUT	PAYMNT+4~, PAYMNT+14
EFTIEN	SAVE+14~, SAVE+34, SAVE+35, SAVE+40
EFTNUM	SAVE+14~, SAVE+33, SAVE+34, SAVE+35, SAVE+36, SAVE+68, SAVE+92
END	COMPILE+25~, COMPILE+27*, COMPILE+30
EOBIEN	SAVE+14~, SAVE+75*, SAVE+76, SAVE+77
ERABILL	ERASTA+5~, ERASTA+6, ERASTA+10, ERASTA+11
ERADATE	SAVE+14~, SAVE+30, SAVE+31, SAVE+68, SAVE+92
ERADET	BUILD+2~, BUILD+14*, BUILD+15
ERAEOB	ERASTA+5~, ERASTA+6, ERASTA+9, ERASTA+10
ERAIEN	SAVE~, SAVE+17, SAVE+18, SAVE+27, SAVE+28, SAVE+29, SAVE+30, SAVE+37, SAVE+44, SAVE+47 , SAVE+48, SAVE+51, SAVE+52, SAVE+54, SAVE+64, SAVE+75, SAVE+82, SAVE+89, ERASTA~, ERASTA+9 , COMPILE+25~, COMPILE+31, COMPILE+32, COMPILE+35, COMPILE+39, COMPILE+44, COMPILE+48, COMPILE+51, COMPILE+55, COMPILE+56
ERALINE	BUILD+2~, BUILD+12*, BUILD+13, BUILD+14
ERANUM	SAVE+14~, SAVE+29*, SAVE+33, SAVE+68, SAVE+92
FOUND	ERASTA+5~, ERASTA+6*
>> GLOB	SAVE+70, SAVE+94, SAVE+97, SAVE+98, SAVE+99, SAVE+100, SAVE+103, SAVE+104, SAVE+105, SAVE+106
>> GTOTAL	SAVE+109, SAVE+110
IEN	COMPILE+25~
OKAY	COMPILE+25~, COMPILE+43, COMPILE+44, COMPILE+47, COMPILE+48
PAMT	SAVE+15~, SAVE+54*, SAVE+62, SAVE+65, SAVE+69
PAYIX1	SAVE+15~, SAVE+19, SAVE+20, SAVE+70, SAVE+94, SAVE+103, SAVE+104, SAVE+105, SAVE+106
PAYIX2	SAVE+15~, SAVE+19, SAVE+20, SAVE+70, SAVE+94, SAVE+103, SAVE+104, SAVE+105, SAVE+106
PAYNAM	SAVE+15~, SAVE+17, SAVE+19, SAVE+20, SAVE+21, SAVE+67, SAVE+92
PTNAM	SAVE+15~, SAVE+28, SAVE+64, SAVE+68, SAVE+89*, SAVE+92
RCAMT	COMPILE+25~, COMPILE+39*, COMPILE+40
>> RCDIV	COMPILE+36
>> RCDIVS(	COMPILE+36
RCECME	COMPILE+25~
>> RCLAIM	COMPILE+43, COMPILE+44
>> RCPAY	COMPILE+43, COMPILE+47
>> RCPAYMNT	COMPILE+40
>> RCRANGE	COMPILE+26, COMPILE+27
RCRZ	SAVE~, SAVE+28, SAVE+37, SAVE+44, SAVE+64, SAVE+75, SAVE+82, SAVE+89, COMPILE+25~, COMPILE+54* , COMPILE+55*, COMPILE+56
RCSCR	BUILD~, BUILD+3, BUILD+4, BUILD+6, BUILD+8, BUILD+12, BUILD+15
RCSORT	SAVE~, SAVE+19, SAVE+20, SAVE+67, COMPILE+56
RCTYPE	SAVE~, SAVE+26, SAVE+63, SAVE+88, COMPILE+56
RCTYPEDF	PAYMNT+4~
RECEIPT	SAVE+15~, SAVE+38*, SAVE+69, SAVE+93
SEQ	SAVE+15~, SAVE+44*, SAVE+45, SAVE+46, SAVE+47, SAVE+73
SEQ1	SAVE+15~, SAVE+46, SAVE+47, SAVE+48
SEQ2	SAVE+15~, SAVE+48*, SAVE+49, SAVE+51, SAVE+52, SAVE+54
STA	ERASTA~, ERASTA+7, ERASTA+12, ERASTA+13, COMPILE+25~, COMPILE+35, COMPILE+36
STAIEN	ERASTA+5~, ERASTA+11*, ERASTA+12, ERASTA+14
STIX	SAVE+15~, SAVE+22*, SAVE+70, SAVE+94, SAVE+97, SAVE+98, SAVE+99, SAVE+100, SAVE+103, SAVE+104 , SAVE+105, SAVE+106
STNAM	SAVE+22, SAVE+67, SAVE+92, ERASTA~, ERASTA+7, ERASTA+13, COMPILE+25~, COMPILE+35
STNUM	SAVE+22, SAVE+67, SAVE+92, ERASTA~, ERASTA+7, ERASTA+14, COMPILE+25~, COMPILE+35
SUB	BUILD+2~, BUILD+5, BUILD+6, BUILD+7, BUILD+8
SUB1	BUILD+2~, BUILD+8*, BUILD+9, BUILD+12, BUILD+15
TIN	SAVE+16~, SAVE+18*, SAVE+19, SAVE+20, SAVE+67
TOTBAL	SAVE+16~, SAVE+23, SAVE+62, SAVE+74, SAVE+85, SAVE+93, SAVE+100, SAVE+106, SAVE+110
TOTBAMT	SAVE+16~, SAVE+23, SAVE+62, SAVE+74, SAVE+81, SAVE+90, SAVE+93, SAVE+98, SAVE+104, SAVE+109
TOTPAMT	SAVE+16~, SAVE+23, SAVE+62, SAVE+82*, SAVE+90, SAVE+93, SAVE+99, SAVE+105, SAVE+110
TRACE	SAVE+16~, SAVE+27*, SAVE+69, SAVE+93
U	SAVE+67, SAVE+68, SAVE+69, SAVE+92, SAVE+93, SAVE+97, SAVE+98, SAVE+99, SAVE+100, SAVE+103 , SAVE+104, SAVE+105, SAVE+106, SAVE+109, SAVE+110, COMPILE+26, COMPILE+27, BUILD+12
XX	SAVE+16~, SAVE+37, SAVE+38, SAVE+67, SAVE+68, SAVE+69, SAVE+70, SAVE+92, SAVE+93, SAVE+94
>> Y	PAYMNT+15

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEAPQ

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: