Routine: RCDPEAPQ

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

Package	Total	Caller Graph
Accounts Receivable	1	RCDPEAPP

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 ; ^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

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
$$ISSEL^RCDPEU1	COMPILE+43
$$ISTYPE^RCDPEU1	COMPILE+39
$$PNM4^RCDPEWL1	SAVE+28, SAVE+64, SAVE+89
$$FMADD^XLFDT	COMPILE+25
$$FMTE^XLFDT	SAVE+31, SAVE+32

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+29, COMPILE+31, COMPILE+50
^RCY(344.49 - [#344.49]	SAVE+47, SAVE+48, BUILD+4, BUILD+6, BUILD+8, BUILD+12, BUILD+15
^TMP("RCDPEAPP2"	SAVE+44, COMPILE+46, BUILD+15*

Name	Line Occurrences
BUILD	COMPILE+46
ERASTA	COMPILE+34
SAVE	COMPILE+51

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APDATE	SAVE~, SAVE+32, COMPILE+24~, COMPILE+25, COMPILE+29, COMPILE+31, COMPILE+50, COMPILE+51
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+24~, COMPILE+26, 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
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+24~, COMPILE+26*, COMPILE+29
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+24~, COMPILE+30, COMPILE+31, COMPILE+34, COMPILE+39, COMPILE+43, COMPILE+46, COMPILE+50, COMPILE+51
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+24~
OKAY	COMPILE+24~, COMPILE+38, COMPILE+39, COMPILE+42, COMPILE+43
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
>> RCDIV	COMPILE+35
>> RCDIVS(	COMPILE+35
RCECME	COMPILE+24~
>> RCLAIM	COMPILE+38, COMPILE+39
>> RCPAY	COMPILE+38, COMPILE+42
>> RCRANGE	COMPILE+25, COMPILE+26
RCRZ	SAVE~, SAVE+28, SAVE+37, SAVE+44, SAVE+64, SAVE+75, SAVE+82, SAVE+89, COMPILE+24~, COMPILE+49* , COMPILE+50*, COMPILE+51
RCSCR	BUILD~, BUILD+3, BUILD+4, BUILD+6, BUILD+8, BUILD+12, BUILD+15
RCSORT	SAVE~, SAVE+19, SAVE+20, SAVE+67, COMPILE+51
RCTYPE	SAVE~, SAVE+26, SAVE+63, SAVE+88, COMPILE+51
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+24~, COMPILE+34, COMPILE+35
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+24~, COMPILE+34
STNUM	SAVE+22, SAVE+67, SAVE+92, ERASTA~, ERASTA+7, ERASTA+14, COMPILE+24~, COMPILE+34
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+25, COMPILE+26, BUILD+12
XX	SAVE+16~, SAVE+37, SAVE+38, SAVE+67, SAVE+68, SAVE+69, SAVE+70, SAVE+92, SAVE+93, SAVE+94

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEAPQ

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: