Routine: RCDPEWLP

Package	Total	Call Graph
Accounts Receivable	7	$$BN1^PRCAFN $$ISTYPE^RCDPEU1 CHECK^RCDPEUPO (HDR,SEL)^RCDPEWL PARAMS^RCDPEWL0 (HDR,INIT)^RCDPEWL7 EN^RCDPEX1
List Manager	2	EN^VALM ($$SETFLD,FULL)^VALM1
VA FileMan	2	$$GET1^DIQ ^DIR
Kernel	1	($$FMADD,$$FMDIFF,$$FMTE)^XLFDT
Outpatient Pharmacy	1	EN^PSOORDER

Package	Total	Caller Graph
Accounts Receivable	14	RCDPE AUTO EOB RECEIPT PREVIEW RCDPE ERA WORKLIST CHANGE VIEW RCDPEAA2 RCDPEAA3 RCDPEAR1 RCDPEFTL RCDPENR1 RCDPEUPO RCDPEWL0 RCDPEWL1 RCDPEWL4 RCDPEWL6 RCDPEWL7 RCDPTAR
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
AGEDEFTS(ERADA,TYPE)	;function, Search medical or pharmacy aged EFTs that have not been posted ; ENTRY point for the Select ERA action on the ERA Worklist screen ; Input: ERADA - IEN in file 344.4 ; TYPE - Medical, Pharmacy or Tricare (M,P, T) ; Returns: ; "1P" Error for aged, unposted pharmacy EFTs ; "2P" Warning for aged,unposted pharmacy EFTs ; "3P" Override exists for aged, unposted pharmacy EFTs ; "1M" Error for aged, unposted medical EFTs ; "2M" Warning for aged, unposted medical EFTs ; "3M" Override exists for aged, unposted medical EFTs ; "1T" Error for aged, unposted Tricare EFTs ; "2T" Warning for aged, unposted Tricare EFTs ; "3T" Override exists for aged, unposted Tricare EFTs ; 0 No error or warning conditions ; NOTE: may be more than one - "1P" or "2P" or "3P" or "3P^2M" or "3P^3M", etc.
AEFTSQ	; single exit for function
GETEFTS(TYPE,OPTION)	;function, EP from RCDPEUPO for Unposted EFT Override option ; Set up search criteria for unposted EFTs. If aged, unposted EFTs create warning/prevention messages ; TYPE: "M" (Medical ERA-EFT), "P" (Phamacy ERA-EFT), "T" (Tricare ERA-EFT), "A" (Medical, Pharmacy & Tricare)
CUTOFF()	; Returns EFT Cutoff date ; date is 2 months prior to install date of patch 298, ignore aged EFTS older than that
EFTDET(RECVDT,TYPE,DAYSLIMT,TRARRY)	; Gather EFT data, Only EFTs that are aged and unposted
CHKEFT(RECVDT,EFTDA,TYPE,DAYSLIMT,TRARRY)	; Check EFT for warnings/errors
PROC(EFTDA)	; Check if TR Receipt for an EFT linked to Paper EOB is processed ; Input: EFTDA - IEN for file 344.31 ; Returns: 1 if TR receipt exists and is OPEN, 0 otherwise
FTRACE(TRARRY,STR)	; both args. passed by ref. ; TRARRY - trace numbers of aged, unposted EFTs ; returns: STR - array of trace numbers separated by commas for warning or error message
WARNMSG(TYPE,STR)	; warning message when aged, unposted EFTs exist ; Input: TYPE - "M" - Medical, "P" - Pharmacy or "T" - Tricare ; STR - Array, subscripts are strings in "trace#, trace#," format
PREVMSG(TYPE,DAYS,STR)	; Display Error message when aged, unposted EFTs exist
EXCDENY	; PRCA4.5298 ; access denied message for ERAs selected off ERA Worklist with exceptions ; PRCA4.5304 - undeclared parameters (from WL^RCDPEWL7): RCERA and RCEXC
EXCWARN(ERADA)	; prca4.5298 warning msg. if exception ; Input: ERADA - IEN in file 344.4 ; Output: WARNING MESSAGE if exception exists on ERA ;
XCEPT(ERADA)	; prca4.5298, return ERA exception state ; Input: ERADA - IEN in file 344.4 ; Returns: "x" or null, "x": Exception for a claim in the ERA
PHARM(X1)	; prca4.5298, function, Pharmacy, or Medical ERA? ; X1 - IEN file 344.4 ; Returns: 1: Pharmacy ERA, 0: Non-pharmacy ERA
GETPHARM(PRCAIEN,RCARRY)	;prca4.5298 return pharmacy data to show on EEOB items in scratchpad ; Input: PRCAIEN - IEN file 430 ; Output: RCARRY - holds pharmacy data ; IA 6033 - read access file 362.4 ; ICR 1878 - EN^PSOORDER call
CV	; Change View action for ERA Worklist
NOEDIT	; no edit allowed, ERA designated for auto-posting
VR(ERADA)	; EP from RCDPEWL4, RCDPEAA3 ; handle auto-posted ERAs, Look at Receipt protocol for standard Worklist ; Input: ERADA - IEN from file 344.49 (and 344.4)
NOVIEW	; selected EEOB cannot be viewed if no receipt number
INIT(ERADA,EEOBREC)	; List Template - RCDPE AUTO EOB RECEIPT PREVIEW entry point ; Display EEOBs that have been posted (receipt exists) ; Input: ; ERADA - IEN file 344.49 (and 344.4) ; EEOBREC - Selected EEOBs receipt ; Output: ^TMP("RCDPE_AP_EOB_PREVIEW",$J)
SET(X)	;
HDR	;
FNL	;

Name	Field # of Occurrence
$$GET1^DIQ	GETEFTS+11, GETEFTS+12, GETEFTS+13, GETEFTS+15, CHKEFT+10, CHKEFT+13, CHKEFT+14, CHKEFT+15, CHKEFT+18, CHKEFT+19 , CHKEFT+21, PROC+6
^DIR	WARNMSG+14, PREVMSG+18, EXCDENY+13, EXCWARN+14, NOEDIT+4, NOVIEW+5
$$BN1^PRCAFN	INIT+32
EN^PSOORDER	GETPHARM+14
$$ISTYPE^RCDPEU1	CHKEFT+25, CHKEFT+26, CHKEFT+27
CHECK^RCDPEUPO	GETEFTS+23
HDR^RCDPEWL	HDR+1
SEL^RCDPEWL	VR+4
PARAMS^RCDPEWL0	CV+2
HDR^RCDPEWL7	CV+3
INIT^RCDPEWL7	CV+3
EN^RCDPEX1	EXCDENY+17
EN^VALM	VR+11, VR+12
$$SETFLD^VALM1	INIT+31, INIT+32, INIT+33
FULL^VALM1	CV+1
$$FMADD^XLFDT	CUTOFF+5
$$FMDIFF^XLFDT	AGEDEFTS+55, AGEDEFTS+59, AGEDEFTS+63, CHKEFT+20
$$FMTE^XLFDT	GETPHARM+11

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: WARNMSG+13
Function Call: WRITE	Prompt: ! Line Location: PREVMSG+17
Function Call: WRITE	Prompt: ! Line Location: EXCDENY+13
Function Call: WRITE	Prompt: ! Line Location: EXCWARN+13
Function Call: WRITE	Prompt: ! Line Location: NOEDIT+4
Function Call: WRITE	Prompt: ! Line Location: NOEDIT+4
Function Call: WRITE	Prompt: ! Line Location: NOVIEW+5
Function Call: WRITE	Prompt: ! Line Location: NOVIEW+5
Routine Call	DIR Line Location: WARNMSG+14 PREVMSG+18 EXCDENY+13 EXCWARN+14 NOEDIT+4 NOVIEW+5
Routine Call	VALM Line Location: VR+11 VR+12

FileNo	Call Tags
^RCY(344 - [#344]	GET1^DIQ
^RCY(344.31 - [#344.31]	GET1^DIQ
^RCY(344.4 - [#344.4]	GET1^DIQ
^RCY(344.61 - [#344.61]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^IBA(362.4 - [#362.4]	GETPHARM+9, GETPHARM+10
^PRCA(430 - [#430]	GETPHARM+8
^RCY(344 - [#344]	PROC+5
^RCY(344.31 - [#344.31]	AGEDEFTS+43, AGEDEFTS+44, EFTDET+9, EFTDET+10, CHKEFT+9
^RCY(344.4 - [#344.4]	AGEDEFTS+41, XCEPT+4, PHARM+3, VR+8, INIT+12
^RCY(344.49 - [#344.49]	VR+7, INIT+9, INIT+10, INIT+19, INIT+20
^TMP("PSOR"	GETPHARM+16, GETPHARM+17, GETPHARM+19, GETPHARM+21
^TMP("RCDPE_AP_EOB_PREVIEW"	INIT+7!, SET+1*, FNL+1!
^XUSEC("RCDPEPP"	VR+10

Name	Line Occurrences
$$CUTOFF	GETEFTS+16
$$GETEFTS	AGEDEFTS+56, AGEDEFTS+60, AGEDEFTS+64
$$PHARM	CHKEFT+26, EXCWARN+4
$$PROC	CHKEFT+18
$$XCEPT	EXCWARN+5
AEFTSQ	AGEDEFTS+42, AGEDEFTS+45, AGEDEFTS+48, AGEDEFTS+54, AGEDEFTS+58, AGEDEFTS+62
CHKEFT	EFTDET+11
EFTDET	GETEFTS+17
FTRACE	GETEFTS+31, GETEFTS+40
NOVIEW	VR+9
PREVMSG	GETEFTS+31
SET	INIT+26, INIT+27, INIT+28, INIT+34, INIT+36, INIT+37
WARNMSG	GETEFTS+40

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGED	CHKEFT+8~, CHKEFT+20*, CHKEFT+31, CHKEFT+33, CHKEFT+37, CHKEFT+39, CHKEFT+42, CHKEFT+44
ARRAY	GETEFTS+8~, GETEFTS+30, GETEFTS+31, GETEFTS+32!, GETEFTS+39, GETEFTS+40, GETEFTS+41!
CTR	FTRACE+3~, FTRACE+4, FTRACE+6, FTRACE+7, FTRACE+8
DATE	AGEDEFTS+39~
DAYS	PREVMSG~
DAYS(	PREVMSG+9
DAYSLIMT	GETEFTS+8~, GETEFTS+17, GETEFTS+31, EFTDET~, EFTDET+11, CHKEFT~
DAYSLIMT(	GETEFTS+15*
DAYSLIMT("M"	GETEFTS+11*, CHKEFT+42
DAYSLIMT("P"	GETEFTS+12*, CHKEFT+31
DAYSLIMT("T"	GETEFTS+13*, CHKEFT+37
DIR	WARNMSG+3~, PREVMSG+6~, EXCDENY+3~, EXCWARN+6~, NOEDIT+1~, NOVIEW+1~
DIR("A"	WARNMSG+5, WARNMSG+6, WARNMSG+7, WARNMSG+8, WARNMSG+9, WARNMSG+10, WARNMSG+11, WARNMSG+12, PREVMSG+8, PREVMSG+9 , PREVMSG+10, PREVMSG+11, PREVMSG+12, PREVMSG+13, PREVMSG+14, PREVMSG+15, PREVMSG+16, EXCDENY+5, EXCDENY+6, EXCDENY+7 , EXCDENY+8, EXCDENY+9, EXCDENY+11, EXCWARN+8, EXCWARN+9, EXCWARN+10, EXCWARN+11, EXCWARN+12, NOEDIT+2, NOEDIT+3 , NOVIEW+3, NOVIEW+4
DIR("B"	EXCDENY+12*
DIR(0	WARNMSG+4, PREVMSG+7, EXCDENY+4, EXCWARN+7, NOEDIT+2, NOVIEW+2
DIROUT	EXCDENY+3~
DIRUT	EXCDENY+3~
DT	AGEDEFTS+55, AGEDEFTS+59, AGEDEFTS+63, CUTOFF+5, CHKEFT+20
DTARRY	GETEFTS+8~
DTOUT	EXCDENY+3~
DUOUT	EXCDENY+3~
DUZ	VR+10
EEOBREC	VR+3~, VR+8*, VR+9, INIT~, INIT+13
EFT0	AGEDEFTS+39~
EFTDA	AGEDEFTS+39~, AGEDEFTS+43, AGEDEFTS+44, AGEDEFTS+45, AGEDEFTS+48, AGEDEFTS+52, EFTDET+8~, EFTDET+10, EFTDET+11, CHKEFT~ , CHKEFT+9, CHKEFT+10, CHKEFT+13, CHKEFT+14, CHKEFT+18, CHKEFT+19, CHKEFT+21, CHKEFT+25, CHKEFT+26, CHKEFT+27 , PROC~, PROC+5
EFTTYPE	CHKEFT+8~
ERADA	AGEDEFTS~, AGEDEFTS+41, AGEDEFTS+43, EXCWARN~, EXCWARN+4, EXCWARN+5, XCEPT~, XCEPT+4, VR~, VR+7 , VR+8, INIT~, INIT+9, INIT+10, INIT+12, INIT+19, INIT+20
ERAREC	CHKEFT+8~, CHKEFT+14*, CHKEFT+15, CHKEFT+18, CHKEFT+25, CHKEFT+26, CHKEFT+27, CHKEFT+31, CHKEFT+33, CHKEFT+37 , CHKEFT+39, CHKEFT+42, CHKEFT+44
IEN344	PROC+3~, PROC+5*, PROC+6
LEN	FTRACE+3~
LN	WARNMSG+3~, WARNMSG+10, WARNMSG+11, PREVMSG+6~, PREVMSG+14, PREVMSG+15
MSTATUS	CHKEFT+8~, CHKEFT+19*, CHKEFT+31, CHKEFT+33, CHKEFT+37, CHKEFT+39, CHKEFT+42, CHKEFT+44
OPTION	GETEFTS~, GETEFTS+9*, GETEFTS+28, GETEFTS+37
OUTCOME	GETEFTS+8~, GETEFTS+24, GETEFTS+25, GETEFTS+36, GETEFTS+43, GETEFTS+45
OVERRIDE	GETEFTS+8~, GETEFTS+23, GETEFTS+24, GETEFTS+28
PRCAIEN	GETPHARM~, GETPHARM+7, GETPHARM+8, GETPHARM+9
RC0	GETPHARM+5~, GETPHARM+9*, GETPHARM+10
RC34431	AGEDEFTS+39~, AGEDEFTS+44*, AGEDEFTS+52
RC3444	AGEDEFTS+39~, AGEDEFTS+41*, AGEDEFTS+42, AGEDEFTS+45, AGEDEFTS+48, AGEDEFTS+52
RCARRY	GETPHARM~, GETPHARM+6!
RCARRY("DOS"	GETPHARM+11*
RCARRY("FILL"	GETPHARM+12*, GETPHARM+18, GETPHARM+20, GETPHARM+21
RCARRY("RELEA	SED STATUS" , GETPHARM+19, GETPHARM+21, GETPHARM+24*
RCARRY("RX"	GETPHARM+17, GETPHARM+23
RCDA	VR+3~, VR+4
RCDA(	VR+5
RCDA(0	VR+5
RCDFN	GETPHARM+5~, GETPHARM+8*, GETPHARM+14
RCDWLIEN	EXCDENY+3~, EXCDENY+16, EXCDENY+17*
>> RCERA	EXCDENY+16*, EXCDENY+17
>> RCEXC	EXCDENY+16*
RCMBG	EXCDENY+16!, EXCDENY+17*
RCMED	CHKEFT+8~, CHKEFT+25*, CHKEFT+41
RCPHARM	CHKEFT+8~, CHKEFT+26*, CHKEFT+29, CHKEFT+41
RCPT	INIT+6~, INIT+12*, INIT+18!
RCPT(	INIT+12*, INIT+13
RCTRIC	CHKEFT+8~, CHKEFT+27*, CHKEFT+35
RCZ	VR+3~, VR+5, VR+6, VR+7, INIT+6~, INIT+16, INIT+17, INIT+22, INIT+23, INIT+25* , INIT+26, INIT+27, INIT+28, INIT+29, INIT+30, INIT+32, INIT+35, INIT+36, INIT+37
RCZ(	INIT+17, INIT+22, INIT+23*, INIT+25, INIT+29, INIT+30, INIT+35, INIT+36, INIT+37
RCZ0	VR+3~, VR+7*, VR+8
RECVDT	EFTDET~, EFTDET+9*, EFTDET+10, EFTDET+11, CHKEFT~, CHKEFT+20
RES	XCEPT+3~, XCEPT+4*, XCEPT+5
RET	PROC+3~, PROC+6, PROC+7
RXDATA	GETPHARM+5~, GETPHARM+10*, GETPHARM+11, GETPHARM+12, GETPHARM+13
RXFILL	GETPHARM+5~
RXIEN	GETPHARM+5~, GETPHARM+13*, GETPHARM+14, GETPHARM+16, GETPHARM+17, GETPHARM+19, GETPHARM+21
SELERADT	AGEDEFTS+39~, AGEDEFTS+52*, AGEDEFTS+55, AGEDEFTS+59, AGEDEFTS+63
SEQ	INIT+6~
SEQ(	INIT+9, INIT+10, INIT+11, INIT+12, INIT+13, INIT+14, INIT+16, INIT+17, INIT+19, INIT+20* , INIT+21, INIT+22, INIT+23
SEQ("claim#"	INIT+11*, INIT+14
STARTDT	GETEFTS+8~, GETEFTS+16*, GETEFTS+17
STR	GETEFTS+8~, GETEFTS+31, GETEFTS+40, FTRACE~, FTRACE+4!, WARNMSG~, PREVMSG~
STR(	FTRACE+6, FTRACE+7, FTRACE+8*, WARNMSG+10, PREVMSG+14
TRACE	CHKEFT+8~, CHKEFT+21, CHKEFT+22, CHKEFT+31, CHKEFT+33, CHKEFT+37, CHKEFT+39, CHKEFT+42, CHKEFT+44, FTRACE+3~ , FTRACE+4, FTRACE+5, FTRACE+7, FTRACE+8
TRARRY	GETEFTS+8~, GETEFTS+17, EFTDET~, EFTDET+11, CHKEFT~, FTRACE~
TRARRY(	FTRACE+5
TRARRY("ERROR"	GETEFTS+22, GETEFTS+30, CHKEFT+31, CHKEFT+33, CHKEFT+37, CHKEFT+39, CHKEFT+42*, CHKEFT+44
TRARRY("WARNING"	GETEFTS+27!, GETEFTS+35, GETEFTS+39, CHKEFT+33, CHKEFT+39, CHKEFT+44*
TYPE	AGEDEFTS~, AGEDEFTS+54, AGEDEFTS+56, AGEDEFTS+58, AGEDEFTS+60, AGEDEFTS+62, AGEDEFTS+64, GETEFTS~, GETEFTS+10, GETEFTS+15 , GETEFTS+17, GETEFTS+29, GETEFTS+38, EFTDET~, EFTDET+11, CHKEFT~, CHKEFT+29, CHKEFT+35, CHKEFT+41, WARNMSG~ , WARNMSG+5, WARNMSG+6, PREVMSG~, PREVMSG+8, PREVMSG+9
U	AGEDEFTS+42, AGEDEFTS+45, AGEDEFTS+48, AGEDEFTS+52, GETEFTS+24, GETEFTS+25, GETEFTS+36, CHKEFT+31, CHKEFT+33, CHKEFT+37 , CHKEFT+39, CHKEFT+42, CHKEFT+44, GETPHARM+8, GETPHARM+11, GETPHARM+12, GETPHARM+13, GETPHARM+17, GETPHARM+19, GETPHARM+21 , VR+8, INIT+11, INIT+12, INIT+13, INIT+14, INIT+16, INIT+21, INIT+22, INIT+23, INIT+31 , INIT+32, INIT+33
UNPOST	AGEDEFTS+39~, AGEDEFTS+40, AGEDEFTS+55, AGEDEFTS+56, AGEDEFTS+59, AGEDEFTS+60, AGEDEFTS+63, AGEDEFTS+64*, AEFTSQ+1
>> VALMBCK	CV+4*
>> VALMBG	EXCDENY+16, EXCDENY+17, CV+4, INIT+8*
>> VALMCNT	INIT+8, INIT+27, INIT+28, SET+1
X	AGEDEFTS+39~, GETEFTS+8~, GETEFTS+21, GETEFTS+22, GETEFTS+23, GETEFTS+24, GETEFTS+25, GETEFTS+27, GETEFTS+29, GETEFTS+30 , GETEFTS+31, GETEFTS+34, GETEFTS+35, GETEFTS+36, GETEFTS+38, GETEFTS+39, GETEFTS+40, FTRACE+3~, WARNMSG+3~, WARNMSG+10* , PREVMSG+6~, PREVMSG+14, EXCDENY+3~, INIT+30, INIT+31, INIT+32, INIT+33*, INIT+34, SET~, SET+1
X1	PHARM~, PHARM+3
Y	WARNMSG+3~, PREVMSG+6~, EXCDENY+3~, EXCDENY+16
Z	INIT+6~, INIT+29*, INIT+30, INIT+35, INIT+36, INIT+37
Z0	INIT+6~, INIT+30*, INIT+31, INIT+32, INIT+33
Z1	INIT+6~, INIT+35*, INIT+36, INIT+37
Z2	INIT+6~, INIT+37*

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEWLP

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 15

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: