Routine: RCDPESPB

Information

RCDPESPB ;ALB/SAB, OI&T/hrubovcak - ePayment Lockbox Site Parameters Definition - Files 344.71 ;29 Jan 2019 18:00:14

Package	Total	Call Graph
Accounts Receivable	3	AUDIT^RCDPESP UPDDATA^RCDPESP5 $$CHKTYPE^RCDPEU1
VA FileMan	2	$$GET1^DIQ ^DIR
Kernel	1	($$FMTE,$$NOW)^XLFDT
Registration	1	$$SITE^VASITE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Accounts Receivable	4	RCDPESP RCDPESP5 RCDPESP7 RCDPESPC

Entry Points

Name	Comments	DBIA/ICR reference
GETCARC()	; function, Retrieve the next CARC code to enable/disable ; Returns: CARC IEN or, -1 - User '^' out, or 0 - User didn't select a CARC
GETAMT(RCARCTYP)	; Ask user the maximum amount to allow for auto-decrease ; PRCA45345 - Added RCARCTYP ; Input: RCARCTYP - 0 - Medical, 1 - Pharmacy, 2 - TRICARE
CHECK(RCMAX,RCPAID,RCDSP,RCCNT,RCARCTYP)	; Display/Reset any CARC maximum values which exceed upper limit ; PRCA4.5345 - Added RCARCTYP ; Input: RCMAX - Maximum allowed $ decrease per claim (from #344.61, #.05) ; RCPAID - 1 - CARCs for paid claims, 0 - CARCs for NO-PAY claims ; RCDSP - 1 - Display only, 0 - Update only ; RCCNT - 1 - Cumulative count of pay and no-pay records found ; RCARCTYP - 0 - Medical CARCs, 1 - Rx CARCs, 2 - TRICARE CARCs ; Output: Updates #344.62 - RCDPE CARC-RARC AUTO DEC ; Updates #344.7 - RCDPE PARAMETER AUDIT
XMSGBODY(TXT)	; create Mail message body, TXT passed by ref. ; TXT=line count
PADPRMPT(P)	; add space to prompt if needed
SCREEN(IEN)	; Screen out payers that don't have an associated ERA - PRCA4.5326 ; Input: IEN - Internal entry number from file 344.6 ; Returns: 1 - Payer has an associated ERA, otherwise 0.
PAYTYP(TYP,FLD)	; Check if payer is eligible to be selected for a give exclusion type ; Input: TYP - 1 or 2=Medical, 3 or 4=Rx, 5 or 6=TRICARE ; FLD - Field number from file 344.6 representing the Auto-Post or Auto-Decrease excusion for TYP. ; Note variable Y is the IEN of file 344.6, set by FileMan for screen check

External References

Name	Field # of Occurrence
$$GET1^DIQ	GETAMT+4, CHECK+34, CHECK+36, CHECK+52, CHECK+60, SCREEN+4, SCREEN+5, PAYTYP+6
^DIR	GETCARC+7, GETAMT+10
AUDIT^RCDPESP	CHECK+67
UPDDATA^RCDPESP5	CHECK+63
$$CHKTYPE^RCDPEU1	PAYTYP+9
$$SITE^VASITE	XMSGBODY+3
$$FMTE^XLFDT	XMSGBODY+8
$$NOW^XLFDT	XMSGBODY+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: PYMNTS Line Location: CHECK+16
Function Call: WRITE	Prompt: !!,"Warning:" Line Location: CHECK+44
Function Call: WRITE	Prompt: !," The following "_RCTXT_"CARC codes' max. amt will be changed to the new limit $"_RCMAX Line Location: CHECK+45
Function Call: WRITE	Prompt: !," "_RCCODE,?9,$E(RCDESC,1,55),?63,$J(RCAMT,10,0) Line Location: CHECK+56
Routine Call	DIR Line Location: GETCARC+7 GETAMT+10

FileNo	Call Tags
^RCY(344.6 - [#344.6]	GET1^DIQ
^RCY(344.61 - [#344.61]	GET1^DIQ
^RCY(344.62 - [#344.62]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RC(345 - [#345]	CHECK+53, CHECK+54
^RCY(344.4 - [#344.4]	SCREEN+7
^RCY(344.62 - [#344.62]	CHECK+33
^VA(200 - [#200]	XMSGBODY+9
^XMB("NETNAME"	XMSGBODY+7

Label References

Name	Line Occurrences
$$SCREEN	PAYTYP+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	GETCARC+2~, GETAMT+3~
DIR	GETCARC+2~, GETAMT+3~, GETAMT+11!
DIR("?"	GETCARC+3, GETAMT+5
DIR("??"	GETCARC+5*
DIR("A"	GETCARC+6, GETAMT+9
DIR(0	GETCARC+4, GETAMT+6
DIROUT	GETCARC+2~, GETAMT+3~
DIRUT	GETCARC+2~, GETAMT+3~
DTOUT	GETCARC+2~, GETCARC+8, GETAMT+3~
DUOUT	GETCARC+2~, GETCARC+8, GETAMT+3~, GETAMT+12
DUZ	XMSGBODY+9
FLD	PAYTYP~, PAYTYP+6
ID	SCREEN+3~, SCREEN+5*, SCREEN+6, SCREEN+7
IEN	SCREEN~, SCREEN+4, SCREEN+5
NAME	SCREEN+3~, SCREEN+4*, SCREEN+6, SCREEN+7
P	PADPRMPT~, PADPRMPT+1, PADPRMPT+2*
RCACT	CHECK+10~, CHECK+34*, CHECK+35
RCAMT	CHECK+10~, CHECK+36, CHECK+37, CHECK+39, CHECK+49, CHECK+56, CHECK+66
RCARCTYP	GETAMT~, GETAMT+4, GETAMT+8, CHECK~, CHECK+14, CHECK+15, CHECK+16, CHECK+18, CHECK+19, CHECK+23 , CHECK+24, CHECK+25, CHECK+28, CHECK+29, CHECK+63
RCARR	CHECK+10~, CHECK+32, CHECK+39, CHECK+40
RCARR(	CHECK+39*, CHECK+47, CHECK+48, CHECK+49
RCAUDARY	CHECK+59~, CHECK+67
RCAUDARY(1	CHECK+66*
RCCIEN	CHECK+10~, CHECK+53*, CHECK+54
RCCNT	CHECK~, CHECK+39*
RCCODE	CHECK+10~, CHECK+52*, CHECK+53, CHECK+56
RCCT	CHECK+10~
RCDESC	CHECK+10~, CHECK+54, CHECK+55, CHECK+56
RCDSP	CHECK~, CHECK+42, CHECK+51, CHECK+58
RCFLD	CHECK+10~, CHECK+23, CHECK+24, CHECK+25, CHECK+28, CHECK+29*, CHECK+34, CHECK+60, CHECK+66
RCFLDA	CHECK+10~, CHECK+14, CHECK+15, CHECK+16, CHECK+18, CHECK+19*, CHECK+36
RCI	CHECK+10~, CHECK+32, CHECK+33, CHECK+34, CHECK+36, CHECK+39, CHECK+48*, CHECK+52, CHECK+60, CHECK+63 , CHECK+66
RCMAX	GETAMT+3~, GETAMT+4*, GETAMT+5, GETAMT+6, GETAMT+9, CHECK~, CHECK+37, CHECK+45, CHECK+63, CHECK+66
RCPAID	CHECK~, CHECK+13, CHECK+17, CHECK+22, CHECK+27, CHECK+43, CHECK+63
RCSTAT	CHECK+10~, CHECK+59~, CHECK+60*, CHECK+63
RCSUB	CHECK+10~, CHECK+46, CHECK+47, CHECK+48, CHECK+49
RCTXT	CHECK+10~, CHECK+43, CHECK+45, CHECK+59~, CHECK+61, CHECK+63, CHECK+64*, CHECK+66
RCTYP	PAYTYP+5~, PAYTYP+8*, PAYTYP+9
SITE	XMSGBODY+2~, XMSGBODY+3*, XMSGBODY+5, XMSGBODY+6
TXT	XMSGBODY~, XMSGBODY+2!, XMSGBODY+3*
TXT(1	XMSGBODY+4*
TXT(2	XMSGBODY+5*
TXT(3	XMSGBODY+6*
TXT(4	XMSGBODY+7*
TXT(5	XMSGBODY+8*
TXT(6	XMSGBODY+9*
TXT(7	XMSGBODY+10*
TYP	PAYTYP~, PAYTYP+8
U	CHECK+39, CHECK+48, CHECK+49, XMSGBODY+5, XMSGBODY+6, XMSGBODY+9
X	GETCARC+2~, GETAMT+3~, GETAMT+8*, GETAMT+9
Y	GETCARC+2~, GETCARC+9, GETCARC+10, GETAMT+3~, GETAMT+12*, GETAMT+13, PAYTYP+6, PAYTYP+7, PAYTYP+9

Customize PDF page

Package: Accounts Receivable