Routine: RCDPEAC

Package	Total	Call Graph
Accounts Receivable	4	($$ASKLM,$$ENDORPRT,$$NOW,ASK,HDRLST,LMRPT,SL)^RCDPEARL $$DISPTY^RCDPEM3 INFO^RCDPEM6 ($$EOBERA,$$GETNAME,$$ISSEL,$$ISTYPE,$$PAYRNG,$$RTYPE,$$SELPAY)^RCDPEU1
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD $$FMTE^XLFDT
VA FileMan	2	$$GET1^DIQ ^DIR
Registration	1	DIVISION^VAUTOMA

Package	Total	Caller Graph
Accounts Receivable	1	RCDPE ACTIVE WITH EEOB REPORT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point for Active Bills With EEOB Report [RCDPE ACTIVE WITH EEOB REPORT]
ENQ	; Queued entry point for the report ; RCSORT and array RCINS must exist ; RCINS = "A" for all ins co, "R" for range, "S" for selected individual ; for RCINS="R" ("FR")=from payer name and ("TR")=to payer name ; for RCINS="S" ("S",INS CO IEN IN FILE 36)="" ; RCSORT = "PN" for sort by patient name followed by ;- if reverse order ; "L4" for sort by patient SSN followed by ;- if reverse order
ENOUT
OUTPUT(RCZ,RCZ0,RCSORT,RCSTOP,RCINS,RCNEW)	; Output the data ; RCZ, RCZ0 are the first 2 sort levels for the array ; RCINS = insurance co info array ; RCSTOP passed by ref - returned if user chooses to stop ; RCNEW = 1 if the header should be forced to print
INCLUDE(RCZ,EOBIEN,RCTYPE)	; PRCA4.5326 change parameters ; Function returns 1 if record should be included based on ins co ; RCINS = array containing insurance co information ; RCZ = ien of the entry in file 430
INCQ
INSNM(RCZ,EOBIEN)	; Returns the name of payer from the ERA associated with the EOB ; If that is null, return the insurance co for bill ien RCZ file 430 ; Input: RCZ = Point to bill, file #430 ; EOBIEN = Pointer to EOB file 361.1 ; Returns: NM = Free text name of Payer from ERA or insurance on bill if ERA not found.
INS(RCZ)	; Returns ien of insurance co for bill ien RCZ from file 430
NEWPG(RCINS,RCNEW,RCLINES)	; Check for new page needed, output header ; RCINS = ins co selection criteria ; RCNEW = 1 to force new page ; RCLINES = Number of lines before IOSL to force new page ; Function returns 1 if user chooses to stop output
EEOB(RCZ,RCEOB,RCZRO)	; Find all non-MRA EEOBs for bill ien RCZ ; Function returns 1 if any valid EEOBs found, 0 if none ; RCEOB(eob ien)=date posted returned for valid EEOBs found - ; pass by reference
SL1(RCSORT,RCZ)	; Function returns 1st sort level data from ien RCZ in file 430 ; RCSORT = "PN" for patient name sort = "L4" for SSN last 4 sort
SELECT(RCINS,RCSORT,RCZRO,RCTYPE)	; Select insurance co, sort criteria, Zero Payment, Bill type (Med/RX) and if output for EXCEL format is selected ; Function returns values selected for RCSORT and RCINS - passed by ref
SELQ	;
LIST(DIR,RCINS)	; Sets up help array for ins co selected in DIR("?")
HDRBLD	; create the report header ; returns RCHDR,RCPGNUM,RCSTOP ; RCHDR(0) = header text line count ; RCHDR("PGNUM") = page number ; RCHDR("XECUTE") = M code for page number ; RCHDR("RUNDATE") = date/time report generated ; RCPGNUM - page counter ; RCSTOP - flag to stop listing ; INPUT: ; RCDTRNG - date range filter value to be printed as part of the header ; RCPAY - Payer filter value(s) ; RCLSTMGR
HDRLM	; create the list manager version of the report header ; returns RCHDR,RCPGNUM,RCSTOP ; RCHDR(0) = header text line count ; RCHDR("PGNUM") = page number ; RCHDR("XECUTE") = M code for page number ; RCHDR("RUNDATE") = date/time report generated ; RCPGNUM - page counter ; RCSTOP - flag to stop listing
HDRNM()

Name	Field # of Occurrence
^%ZIS	EN+18
HOME^%ZIS	EN+25
^%ZISC	ENOUT+1
^%ZTLOAD	EN+23
$$S^%ZTLOAD	OUTPUT+7
$$GET1^DIQ	OUTPUT+14
^DIR	SELECT+21, SELECT+25, SELECT+28, SELECT+35, SELECT+41
$$ASKLM^RCDPEARL	SELECT+51
$$ENDORPRT^RCDPEARL	ENQ+46
$$NOW^RCDPEARL	HDRBLD+15
ASK^RCDPEARL	ENQ+48
HDRLST^RCDPEARL	ENQ+18, NEWPG+7
LMRPT^RCDPEARL	EN+14
SL^RCDPEARL	ENQ+45, ENQ+46, OUTPUT+20, OUTPUT+27, OUTPUT+37, OUTPUT+38
$$DISPTY^RCDPEM3	SELECT+47
INFO^RCDPEM6	SELECT+48
$$EOBERA^RCDPEU1	INSNM+8
$$GETNAME^RCDPEU1	INSNM+9
$$ISSEL^RCDPEU1	INCLUDE+12
$$ISTYPE^RCDPEU1	INCLUDE+14
$$PAYRNG^RCDPEU1	SELECT+8
$$RTYPE^RCDPEU1	SELECT+5
$$SELPAY^RCDPEU1	SELECT+15
DIVISION^VAUTOMA	EN+4
$$FMTE^XLFDT	OUTPUT+34, OUTPUT+36, HDRBLD+36, HDRLM+19

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+17
Function Call: WRITE	Prompt: !!,"*TASK STOPPED BY USER*" Line Location: OUTPUT+7
Function Call: WRITE	Prompt: !,RCEX_"^"_$P(RC0,U,7)_"^"_$$FMTE^XLFDT($P(RC0,U,5),"2D")_"^"_$S(RCZ1:$$FMTE^XLFDT(+RCZ1,"2D"),1:"")_"^"_RCEPD Line Location: OUTPUT+34
Function Call: WRITE	Prompt: ! Line Location: SELECT+21
Function Call: WRITE	Prompt: ! Line Location: SELECT+25
Routine Call	%ZIS Line Location: EN+18
Routine Call	%ZIS Line Location: EN+25
Routine Call	DIR Line Location: SELECT+21 SELECT+25 SELECT+28 SELECT+35 SELECT+41

FileNo	Call Tags
^PRCA(430 - [#430]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	OUTPUT+9
^DIC(36 - [#36]	INSNM+10, LIST+5, HDRBLD+30, HDRLM+25
^DPT - [#2]	OUTPUT+16, OUTPUT+17, OUTPUT+19, SL1+3, SL1+4
^IBM(361.1 - [#361.1]	ENQ+23, ENQ+24, ENQ+25, ENQ+30, OUTPUT+32, EEOB+9
^PRCA(430 - [#430]	ENQ+27, OUTPUT+9, INS+2, SL1+3, SL1+4
^PRCA(430.3 - [#430.3]	ENQ+15
^RCD(340 - [#340]	INS+3
^RCY(344.4 - [#344.4]	EEOB+12, EEOB+14, EEOB+21
^TMP($J	EN+11!, EN+14, EN+15!, ENQ+10!, ENQ+34, ENQ+35, ENQ+39, ENQ+41, ENQ+43, ENQ+45 , ENQ+46, ENOUT+2!, OUTPUT+6, OUTPUT+22, OUTPUT+29

Name	Line Occurrences
$$EEOB	ENQ+27
$$HDRNM	HDRBLD+22, HDRLM+18
$$INCLUDE	ENQ+26
$$INS	INCLUDE+6, INSNM+10
$$INSNM	ENQ+32
$$NEWPG	OUTPUT+13, OUTPUT+30
$$SELECT	EN+7
$$SL1	ENQ+33
ENOUT	EN+10, ENQ+16
ENQ	EN+12
HDRBLD	ENQ+13
HDRLM	ENQ+14
INCQ	INCLUDE+8
OUTPUT	ENQ+41, ENQ+43
SELQ	SELECT+6, SELECT+9, SELECT+11, SELECT+22, SELECT+26, SELECT+29, SELECT+36, SELECT+42, SELECT+47, SELECT+48 , SELECT+51

Name	Field # of Occurrence
^(0	INS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	SELECT+2~
%ZIS	EN+1~, EN+18*
CHAM	EN+1~
CT	LIST+1~, LIST+2, LIST+5
DAT	SL1+2~, SL1+3, SL1+4, SL1+5
DATE	HDRBLD+21~, HDRLM+15~
DET	EEOB+4~, EEOB+11, EEOB+12, EEOB+14
DIR	SELECT+2~, SELECT+21!, SELECT+25!, SELECT+28!, SELECT+33!, SELECT+35!, SELECT+38!, SELECT+41!, LIST~
DIR("?"	SELECT+34, SELECT+39, LIST+3, LIST+4, LIST+5, LIST+6
DIR("A"	SELECT+20, SELECT+25, SELECT+28, SELECT+35, SELECT+41*
DIR("B"	SELECT+20, SELECT+25, SELECT+28, SELECT+35, SELECT+40*
DIR(0	SELECT+19, SELECT+25, SELECT+28, SELECT+35, SELECT+41*
DIV	HDRBLD+21~, HDRLM+15~
DONE	SELECT+2~, SELECT+3, SELECT+48, SELECT+53*, SELQ+1
DT	SELECT+35, SELECT+41
DTOUT	EN+1~, SELECT+22, SELECT+26, SELECT+29, SELECT+36, SELECT+42
DUOUT	EN+1~, SELECT+22, SELECT+26, SELECT+29, SELECT+36, SELECT+42
END	EN+1~, ENQ+23, SELECT+43*, HDRBLD+36, HDRLM+19
EOBIEN	INCLUDE~, INCLUDE+12, INCLUDE+14, INSNM~, INSNM+8
ERAIEN	INSNM+6~, INSNM+8*, INSNM+9
FILE	INSNM+6~
HCNT	HDRBLD+21~, HDRBLD+22, HDRBLD+25, HDRBLD+29, HDRBLD+34, HDRBLD+40, HDRBLD+42, HDRBLD+43, HDRBLD+44, HDRBLD+45* , HDRBLD+46, HDRBLD+47, HDRLM+15~, HDRLM+17, HDRLM+24, HDRLM+29, HDRLM+30, HDRLM+32, HDRLM+33, HDRLM+34 , HDRLM+35
HDR	EN+1~, EN+13*, EN+14
IO	EN+26
IO("Q"	EN+19, EN+25!
IOM	HDRBLD+46
IOSL	NEWPG+6
MSG	HDRBLD+21~, HDRLM+15~
NM	INSNM+6~, INSNM+7, INSNM+9, INSNM+10*, INSNM+11
OK	INCLUDE+4~, INCLUDE+5, INCLUDE+8, INCLUDE+12, INCLUDE+14, INCQ, EEOB+4~, EEOB+7, EEOB+21, EEOB+23
POP	EN+1~, EN+18
POSTDT	ENQ+8~
RC	INS+1~, INS+2*, INS+3
RC0	ENQ+8~, OUTPUT+32*, OUTPUT+34, OUTPUT+36
RC399	ENQ+8~, OUTPUT+9*, OUTPUT+11
RC399M1	ENQ+8~, OUTPUT+9*
RC430	ENQ+8~, OUTPUT+9*, OUTPUT+17, OUTPUT+19, OUTPUT+23, OUTPUT+26
RCACT	ENQ+8~, ENQ+15*, ENQ+16, ENQ+27
RCAINP	INCLUDE+4~
RCBILL	ENQ+8~, ENQ+19, ENQ+25, ENQ+26, ENQ+27, ENQ+32, ENQ+33, ENQ+34, ENQ+35, OUTPUT+6* , OUTPUT+9, OUTPUT+14, OUTPUT+22, OUTPUT+29
RCCT	EN+1~, ENQ+11*, ENQ+45, ENQ+46, OUTPUT+20, OUTPUT+27, OUTPUT+37, OUTPUT+38
RCDISPTY	EN+1~, OUTPUT+17, OUTPUT+23, OUTPUT+34, OUTPUT+38, NEWPG+7, SELECT+47*, SELECT+48, HDRBLD+17
RCDT	ENQ+19, ENQ+23, ENQ+24, ENOUT+2!
RCEIEN	ENQ+8~, ENQ+24*, ENQ+25, ENQ+26, ENQ+32
RCEOB	ENQ+8~, ENQ+27, ENQ+28, ENQ+29, ENQ+30, ENQ+33, ENQ+34, OUTPUT+29*, OUTPUT+32, EEOB~ , EEOB+5!
RCEOB(	ENQ+29, ENQ+33, ENQ+34, EEOB+21*
RCEOB(0	ENQ+35
RCEPD	OUTPUT+5~, OUTPUT+29*, OUTPUT+34, OUTPUT+36
RCEX	ENQ+8~, OUTPUT+17, OUTPUT+23, OUTPUT+34
RCEXT	ENQ+8~, ENQ+12*
RCHDR	EN+1~, EN+13, ENQ+18, NEWPG+7, HDRBLD+15!, HDRLM+14!
RCHDR(	HDRBLD+25, HDRBLD+29, HDRBLD+34, HDRBLD+40, HDRBLD+42, HDRBLD+43, HDRBLD+44, HDRBLD+45, HDRBLD+46, HDRLM+24 , HDRLM+29, HDRLM+30, HDRLM+32, HDRLM+33, HDRLM+34*
RCHDR("RUNDATE"	HDRBLD+15*, HDRBLD+25
RCHDR("TITLE"	HDRLM+18*
RCHDR("XECUTE"	HDRBLD+18, HDRBLD+23, HDRLM+18*
RCHDR(0	HDRBLD+18, HDRBLD+47, HDRLM+35*
RCHDR(1	HDRBLD+19, HDRBLD+22, HDRLM+19, HDRLM+20
RCI	INCLUDE+4~, INCLUDE+6*, INCLUDE+8
RCINC	ENQ+8~, ENQ+26*, ENQ+27
RCINM	INCLUDE+4~
RCINS	EN+1~, EN+7, ENQ+39, ENQ+41, ENQ+43, OUTPUT~, OUTPUT+13, OUTPUT+30, INCLUDE+11, NEWPG~ , SELECT~, SELECT+8*, SELECT+9, SELECT+11, SELECT+13, LIST~, HDRBLD+30, HDRBLD+32, HDRLM+25, HDRLM+26 , HDRLM+30
RCINS("S"	LIST+3, LIST+5, HDRBLD+30, HDRLM+25
RCKEY2	ENQ+8~, ENQ+33*, ENQ+34, ENQ+35
RCKEY4	ENQ+8~, ENQ+33*, ENQ+34
RCLINES	NEWPG~, NEWPG+5*, NEWPG+6
RCLSTMGR	EN+1~, EN+10, ENQ+13, ENQ+14, ENQ+18, ENQ+48, SELECT+3, SELECT+51
RCNEW	ENQ+8~, ENQ+38, ENQ+39, ENQ+41, ENQ+43, OUTPUT~, OUTPUT+13*, OUTPUT+30, NEWPG~, NEWPG+6
RCPAR	EN+1~, SELECT+15
RCPAR("DICA"	SELECT+14*
RCPAR("SELC"	SELECT+13*
RCPAR("TYPE"	SELECT+12*
RCPAYNAM	ENQ+9~, ENQ+32*, ENQ+34, ENQ+35
RCPGNUM	EN+1~, EN+9, ENQ+39, HDRBLD+15, HDRBLD+18, HDRLM+14
RCPT	ENQ+9~, OUTPUT+9*, OUTPUT+16, OUTPUT+17, OUTPUT+19
RCQUIT	SELECT+2~, SELECT+3*
RCSORT	EN+1~, EN+7, ENQ+33, ENQ+40, ENQ+41, ENQ+42, ENQ+43, OUTPUT~, SL1~, SL1+3 , SL1+4, SELECT~, SELECT+27, SELECT+28, SELECT+30
RCSSN	ENQ+9~, OUTPUT+16*, OUTPUT+17, OUTPUT+19
RCSTOP	EN+1~, EN+9, ENQ+9~, ENQ+38, ENQ+39, ENQ+41, ENQ+43, ENQ+46, ENQ+48, OUTPUT~ , OUTPUT+6, OUTPUT+7, OUTPUT+13, OUTPUT+29, OUTPUT+30, OUTPUT+31, NEWPG+7, NEWPG+8, HDRBLD+15, HDRLM+14*
RCTMPND	EN+1~, EN+9, EN+11, EN+14, EN+15, ENQ+45, ENQ+46, OUTPUT+20, OUTPUT+27, OUTPUT+37 , OUTPUT+38
RCTOT	ENQ+9~, ENQ+28, ENQ+30, ENQ+35
RCTYPE	EN+7, ENQ+26, INCLUDE~, INCLUDE+13, INCLUDE+14, SELECT~, SELECT+5*, SELECT+6, SELECT+12, HDRBLD+33 , HDRLM+27
RCZ	ENQ+9~, ENQ+38, ENQ+39, ENQ+41, ENQ+43, OUTPUT~, OUTPUT+6, OUTPUT+22, OUTPUT+23, OUTPUT+26 , OUTPUT+29, INCLUDE~, INCLUDE+6, INSNM~, INSNM+10, INS~, INS+2, EEOB~, EEOB+9, SL1~ , SL1+3, SL1+4
RCZ0	ENQ+9~, ENQ+41, ENQ+43, OUTPUT~, OUTPUT+6, OUTPUT+22, OUTPUT+29
RCZ1	ENQ+9~, OUTPUT+6*, OUTPUT+29, OUTPUT+34, OUTPUT+36
RCZRO	EN+1~, EN+7, ENQ+27, EEOB~, EEOB+15, EEOB+16, EEOB+17, SELECT~, SELECT+23*, HDRBLD+37 , HDRLM+20
SN	ENQ+9~, ENQ+28, ENQ+29, ENQ+33, ENQ+34, EEOB+4~, EEOB+7, EEOB+21
START	EN+2~, ENQ+19, SELECT+37*, SELECT+41, HDRBLD+36, HDRLM+19
TRIC	EN+2~
U	ENQ+25, ENQ+27, ENQ+34, OUTPUT+9, OUTPUT+11, OUTPUT+16, OUTPUT+17, OUTPUT+19, OUTPUT+23, OUTPUT+26 , OUTPUT+34, OUTPUT+36, INSNM+10, INS+2, INS+3, EEOB+9, EEOB+14, EEOB+21, SL1+3, SL1+4 , LIST+5, HDRBLD+30, HDRLM+25
VAUTD	EN+2~, EN+5, OUTPUT+11, HDRBLD+26, HDRBLD+27, HDRLM+21, HDRLM+22
VAUTD(	OUTPUT+11, HDRBLD+28, HDRLM+23
X	EN+2~, ENQ+9~, OUTPUT+14, OUTPUT+23, OUTPUT+26, SELECT+2~, HDRBLD+28, HDRLM+23*
XX	INCLUDE+4~, SELECT+11, SELECT+15*
Y	EN+2~, ENQ+9~, OUTPUT+22, OUTPUT+23, OUTPUT+26, SELECT+2~, SELECT+23, SELECT+27, SELECT+30, SELECT+36 , SELECT+37, SELECT+42, SELECT+43, HDRBLD+21~, HDRBLD+25, HDRBLD+26, HDRBLD+28, HDRBLD+29, HDRBLD+43, HDRBLD+44 , HDRBLD+45, HDRBLD+46, HDRLM+15~, HDRLM+21, HDRLM+23, HDRLM+24, HDRLM+32, HDRLM+33, HDRLM+34*
Z	ENQ+9~, ENQ+45, OUTPUT+19, OUTPUT+20, OUTPUT+26, OUTPUT+27, OUTPUT+36, OUTPUT+37, OUTPUT+38, EEOB+4~ , EEOB+7, EEOB+9, EEOB+12, EEOB+21, LIST+1~, LIST+5, HDRBLD+30, HDRLM+25
Z0	ENQ+9~, EEOB+4~, EEOB+11, EEOB+12, EEOB+14, EEOB+21, HDRBLD+13~, HDRBLD+14, HDRBLD+28, HDRBLD+30* , HDRBLD+32, HDRBLD+33, HDRBLD+34, HDRBLD+36, HDRBLD+37, HDRBLD+40, HDRLM+13~, HDRLM+23, HDRLM+25, HDRLM+26* , HDRLM+27*, HDRLM+29
Z00	EEOB+4~
ZINC	EEOB+4~, EEOB+7, EEOB+14, EEOB+15, EEOB+16, EEOB+17*, EEOB+21
ZPD	EEOB+4~, EEOB+14*, EEOB+16, EEOB+17, EEOB+21
ZTDESC	EN+20~, EN+21*
>> ZTQUEUED	ENQ+48, ENOUT, ENOUT+1, OUTPUT+7
ZTREQ	ENOUT*, OUTPUT+7!
ZTRTN	EN+20~, EN+21*
ZTSAVE	EN+20~
ZTSAVE("*"	EN+22*
ZTSK	EN+20~, EN+24
>> ZTSTOP	OUTPUT+7*
ZZ	OUTPUT+5~

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEAC

Information

Source Information

Call Graph

Call Graph Total: 11

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

Naked Globals

Local Variables

Legend:

Marked Items