Routine: RCDPESP7

Package	Total	Call Graph
Accounts Receivable	5	($$VAL,GETCODES)^RCDPCRR ($$COUNT,AUDIT,PAUSE)^RCDPESP ($$CARCDSP,$$GETREASN,ADDDATA,PRTCARC,UPDDATA)^RCDPESP5 ($$GETAMT,$$GETCARC,$$PADPRMPT)^RCDPESPB $$ACT^RCDPRU
VA FileMan	5	$$FIND1^DIC $$GET1^DID FILE^DIE $$GET1^DIQ ^DIR
Kernel	1	$$DT^XLFDT

Package	Total	Caller Graph
Accounts Receivable	1	RCDPESPC

Entry Points

Name	Comments	DBIA/ICR reference
PAID(PARMTYP)	;function, Paid claim auto-decrease parameters, PRCA4.5345 added PARMTYP ; Input: PARMTYP - 2 - Paid TRICARE Auto-Decrease parameters ; 1 - Paid Rx Auto-Decrease parameters ; 0 - Paid Medical Auto-Decrease parameters ; Optional, defaults to 0 ; Returns: 0 - "OK" ; 1 - "ABORT" ; 2 - "SKIP"
ADAMT	; BEGIN - PRCA4.5326
NOPAY(CLMTYP)	; function, No-payment claim auto-decrease parameters ; PRCA4.5345- Added CLMTYP ; Input CLMTYP - 0: Medical Claims, 1:Pharmacy, 2 - TRICARE ; Returns: 0: no issues, 1: ABORT, 2: SKIP
CARC(RCQUIT,PAID,RCARCTYP)	; Update the CARC/RARC inclusion table ; PRCA4.5349 - Subroutine moved from RCDPESP5 for size. ; PRCA4.5345 - Added RCARCTYP for Rx Auto-Decrease CARC/RARC inclusion table ; Input: RCQUIT - Added RCQUIT as input parameter - PRCA4.5321 ; PAID - 1 - Payment lines 0 = no-payment lines - PRCA4.5326 ; RCARCTYP - 2 - TRICARE, 1 - Pharmacy, 0 - Medical ; Optional defaults to 0
CONFIRM(RCIDX,PAID,RCARCTYP)	; Ask user to change or disable an enabled CARC auto-decrement ; Added PAID - PRCA4.5326 ; PRCA4.5349 - Subroutine moved from RCDPESP5 for size. ; PRCA4.5345 - Added RCARCTYP parameter ; Input: RCIDX: 1 - Enable Auto-Decrease CARC ; 2 - Confirm Enable of Auto-Decrease CARC, ; 3 - Confirm disable of Auto-Decrease CARC ; 4 - Disable Auto-Decrease CARC ; PAID: 1 - Auto-Decrease CARCs for paid claims ; 0 - Auto-Decrease CARCs for no-pay claims ; RCARCTYP: 0 - Medical Auto-Decrease CARCs ; 1 - Rx Auto-Decrease CARCs ; 2 - TRICARE CARCs ; Optional, defaults to 0

External References

Name	Field # of Occurrence
$$FIND1^DIC	CARC+114
$$GET1^DID	PAID+20, ADAMT+5, ADAMT+7, ADAMT+54, ADAMT+55, NOPAY+17, NOPAY+52, NOPAY+53
FILE^DIE	PAID+29, ADAMT+25, ADAMT+44, ADAMT+62, NOPAY+24, NOPAY+42, NOPAY+60
$$GET1^DIQ	PAID+15, ADAMT+2, ADAMT+36, ADAMT+38, ADAMT+51, NOPAY+8, NOPAY+11, NOPAY+35, NOPAY+49, CARC+63 , CARC+64, CARC+66, CARC+67
^DIR	PAID+21, ADAMT+8, ADAMT+56, NOPAY+19, NOPAY+54, CONFIRM+51
$$VAL^RCDPCRR	CARC+39
GETCODES^RCDPCRR	CARC+46, CARC+48
$$COUNT^RCDPESP	ADAMT+36, NOPAY+36
AUDIT^RCDPESP	PAID+29, ADAMT+26, ADAMT+44, ADAMT+63, NOPAY+24, NOPAY+42, NOPAY+61, CARC+84, CARC+108, CARC+119
PAUSE^RCDPESP	ADAMT+46, NOPAY+44
$$CARCDSP^RCDPESP5	ADAMT+15
$$GETREASN^RCDPESP5	CARC+76, CARC+95
ADDDATA^RCDPESP5	CARC+111
PRTCARC^RCDPESP5	CARC+32
UPDDATA^RCDPESP5	CARC+81, CARC+104
$$GETAMT^RCDPESPB	CARC+91
$$GETCARC^RCDPESPB	CARC+35
$$PADPRMPT^RCDPESPB	ADAMT+7, ADAMT+55, NOPAY+53
$$ACT^RCDPRU	CARC+40
$$DT^XLFDT	CARC+46, CARC+48

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PAID+21
Function Call: WRITE	Prompt: ! Line Location: ADAMT+30
Function Call: WRITE	Prompt: ! Line Location: ADAMT+32
Function Call: WRITE	Prompt: !,"*** The "_MSGTXT_".",! Line Location: ADAMT+45
Function Call: WRITE	Prompt: ! Line Location: NOPAY+18
Function Call: WRITE	Prompt: ! Line Location: NOPAY+30
Function Call: WRITE	Prompt: ! Line Location: NOPAY+33
Function Call: WRITE	Prompt: !,"*** The "_MSGTXT,! Line Location: NOPAY+43
Function Call: WRITE	Prompt: !,"AUTO-DECREASE "_RCTXT Line Location: CARC+21
Function Call: WRITE	Prompt: $S(RCARCTYP=0:"MEDICAL",RCARCTYP=1:"PHARMACY",1:"TRICARE") Line Location: CARC+24
Function Call: WRITE	Prompt: " CLAIMS FOR THE FOLLOWING CARC/AMOUNTS ONLY:",! Line Location: CARC+25
Function Call: WRITE	Prompt: ! Line Location: CARC+31
Function Call: WRITE	Prompt: !! Line Location: CARC+33
Function Call: WRITE	Prompt: !,"The CARC code you have entered is not a valid CARC code. Please try again" Line Location: CARC+43
Function Call: WRITE	Prompt: !,?3," "_RCDESC,! Line Location: CARC+53
Function Call: WRITE	Prompt: " *** WARNING: CARC code "_RCCARC_" is no longer active.",! Line Location: CARC+54
Function Call: WRITE	Prompt: !,"NOT SAVED",! Line Location: CARC+100
Routine Call	DIC Line Location: CARC+114
Routine Call	DIE Line Location: PAID+29 ADAMT+25 ADAMT+44 ADAMT+62 NOPAY+24 NOPAY+42 NOPAY+60
Routine Call	DIR Line Location: PAID+21 ADAMT+8 ADAMT+56 NOPAY+19 NOPAY+54 CONFIRM+51

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^RCY(344.61 - [#344.61]	GET1^DID, GET1^DIQ
^RCY(344.62 - [#344.62]	FIND1^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RCY(344.62 - [#344.62]	CARC+57

Label References

Name	Line Occurrences
$$CONFIRM	CARC+73, CARC+79, CARC+87, CARC+99
ADAMT	ADAMT+21
CARC	ADAMT+31, NOPAY+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADAMT	PAID+10~, ADAMT+2*, ADAMT+4, ADAMT+10, ADAMT+11
ADMC	PAID+10~, PAID+15, PAID+17, PAID+26, PAID+28, ADAMT+38, ADAMT+40, ADAMT+43, NOPAY+5~, NOPAY+11* , NOPAY+12, NOPAY+22, NOPAY+23, NOPAY+35*, NOPAY+36, NOPAY+41
ADMT	ADAMT+51, ADAMT+53, ADAMT+58, ADAMT+60, NOPAY+5~, NOPAY+49, NOPAY+51, NOPAY+56, NOPAY+58
ADNAMT	PAID+10~, ADAMT+12*, ADAMT+15
CLMTYP	PAID+10~, PAID+11, PAID+12, PAID+13*, PAID+19, NOPAY~, NOPAY+7, NOPAY+10, NOPAY+14, NOPAY+16 , NOPAY+32, NOPAY+36, NOPAY+39, NOPAY+48
DA	CONFIRM+15~
DIR	PAID+10~, PAID+16!, ADAMT+3!, ADAMT+52!, NOPAY+5~, NOPAY+50!, CONFIRM+15~, CONFIRM+52!
DIR("?"	PAID+20, ADAMT+5, ADAMT+54, NOPAY+17, NOPAY+52, CONFIRM+22, CONFIRM+32, CONFIRM+37, CONFIRM+43*
DIR("A"	PAID+19, ADAMT+7, ADAMT+55, NOPAY+15, NOPAY+53, CONFIRM+28, CONFIRM+33, CONFIRM+38, CONFIRM+48*
DIR("B"	PAID+17, ADAMT+4, ADAMT+53, NOPAY+12, NOPAY+51*
DIR("S"	CONFIRM+50*
DIR(0	PAID+17, ADAMT+6, ADAMT+54, NOPAY+12, NOPAY+52, CONFIRM+50
DIROUT	CONFIRM+15~
DIRUT	CONFIRM+15~
DT	CARC+40
DTOUT	PAID+10~, PAID+22, ADAMT+9, ADAMT+57, NOPAY+5~, NOPAY+20, NOPAY+55, CONFIRM+15~, CONFIRM+53
DUOUT	PAID+10~, PAID+22, ADAMT+9, ADAMT+57, NOPAY+5~, NOPAY+20, NOPAY+55, CONFIRM+15~, CONFIRM+53
F1	CARC+7~, CARC+14, CARC+17, CARC+63, CARC+66, CARC+83, CARC+106, CARC+117
F2	CARC+7~, CARC+15, CARC+18, CARC+64, CARC+67, CARC+107, CARC+118
FDAEDI	PAID+10~, PAID+29, ADAMT+25, ADAMT+27!, ADAMT+37~, NOPAY+5~, NOPAY+37!
FDAEDI(	PAID+27, ADAMT+11, ADAMT+21!, ADAMT+39, ADAMT+59, NOPAY+23, NOPAY+38, NOPAY+57*
FLD	PAID+10~, PAID+14, PAID+15, PAID+20, PAID+25, PAID+27, PAID+28, ADAMT+1, ADAMT+2, ADAMT+5 , ADAMT+7, ADAMT+11, ADAMT+21, ADAMT+33, ADAMT+36, ADAMT+38, ADAMT+39, ADAMT+40, ADAMT+43, ADAMT+50* , ADAMT+51, ADAMT+54, ADAMT+55, ADAMT+59, ADAMT+60, NOPAY+5~, NOPAY+7, NOPAY+8, NOPAY+10, NOPAY+11 , NOPAY+16, NOPAY+17, NOPAY+23, NOPAY+35, NOPAY+38, NOPAY+41, NOPAY+48, NOPAY+49, NOPAY+52, NOPAY+53 , NOPAY+57, NOPAY+58
MSGTXT	ADAMT+37~, ADAMT+42, ADAMT+43, ADAMT+45, NOPAY+5~, NOPAY+37!, NOPAY+40, NOPAY+41, NOPAY+43
PAID	CARC~, CARC+10, CARC+13, CARC+32, CARC+62, CARC+65, CARC+73, CARC+79, CARC+81, CARC+87 , CARC+99, CARC+104, CARC+111, CONFIRM~, CONFIRM+17
PARMTYP	PAID~, PAID+11*, PAID+12, PAID+13, PAID+14, PAID+25, ADAMT+1, ADAMT+15, ADAMT+31, ADAMT+33 , ADAMT+36, ADAMT+41, ADAMT+50
RCACTV	CARC+8~, CARC+40*, CARC+54
RCAMT	CARC+8~, CARC+58, CARC+64, CARC+67*, CARC+81, CARC+107
RCANS	CARC+7~, CARC+28, CARC+29, CARC+36, CARC+37*
RCARCTYP	CARC~, CARC+9, CARC+14, CARC+15, CARC+17, CARC+18, CARC+24, CARC+32, CARC+73, CARC+79 , CARC+81, CARC+87, CARC+91, CARC+99, CARC+104, CARC+111, CONFIRM~, CONFIRM+16, CONFIRM+26, CONFIRM+47
RCAUDARY	CARC+7~, CARC+84, CARC+108, CARC+119
RCAUDARY(1	CARC+83, CARC+106, CARC+117*
RCAUDARY(2	CARC+107, CARC+118
RCAUDVAL	PAID+10~, PAID+29, PAID+30!, ADAMT+26, ADAMT+27!, ADAMT+37~, ADAMT+44, ADAMT+63, ADAMT+64!, NOPAY+5~ , NOPAY+24, NOPAY+25!, NOPAY+37!, NOPAY+42, NOPAY+61, NOPAY+62!
RCAUDVAL(1	PAID+28, ADAMT+40, ADAMT+43, NOPAY+23, NOPAY+41*
RCAUDVAL(2	ADAMT+11, ADAMT+21!, ADAMT+60, NOPAY+58*
RCCARC	CARC+7~, CARC+35*, CARC+36, CARC+37, CARC+39, CARC+40, CARC+46, CARC+47, CARC+48, CARC+49 , CARC+50, CARC+54, CARC+57, CARC+76, CARC+95, CARC+111, CARC+114
RCCARCDS	CARC+8~, CARC+45*
RCCARCDS("CARC"	CARC+47, CARC+49, CARC+50
RCCDATA	CARC+7~
RCCHG	CARC+7~
RCCIEN	CARC+7~, CARC+49, CARC+50, CARC+57, CARC+59, CARC+63, CARC+64, CARC+66, CARC+67, CARC+70 , CARC+81, CARC+83, CARC+103, CARC+104, CARC+106, CARC+107, CARC+114, CARC+115, CARC+117, CARC+118
RCDESC	CARC+7~, CARC+50, CARC+52, CARC+53
RCIDX	CONFIRM~, CONFIRM+20, CONFIRM+31, CONFIRM+36, CONFIRM+41
RCNAMT	CARC+8~, CARC+71, CARC+91, CARC+92, CARC+104, CARC+107, CARC+111, CARC+118
RCOK	PAID+10~, ADAMT+15*, ADAMT+18, ADAMT+21
RCQUIT	PAID+10~, ADAMT+31, ADAMT+47, NOPAY+5~, NOPAY+31, NOPAY+32, NOPAY+45, CARC~, CARC+36*
RCRSN	CARC+7~, CARC+71, CARC+76, CARC+77, CARC+81, CARC+83, CARC+95*, CARC+96, CARC+104, CARC+106 , CARC+107, CARC+111, CARC+117, CARC+118
RCSTAT	CARC+7~, CARC+58, CARC+63, CARC+66*, CARC+70
RCTXT	CARC+8~, CARC+10, CARC+21, CONFIRM+15~, CONFIRM+17, CONFIRM+23, CONFIRM+44
RCVAL	CARC+8~, CARC+39*, CARC+42
RCYN	CARC+8~, CARC+73, CARC+74, CARC+79, CARC+80, CARC+87, CARC+88, CARC+99, CARC+100
U	PAID+28, ADAMT+11, ADAMT+40, ADAMT+43, ADAMT+60, NOPAY+23, NOPAY+41, NOPAY+58, CARC+50
X	PAID+10~, NOPAY+5~, CONFIRM+15~
XX	PAID+10~, ADAMT+41, ADAMT+42, NOPAY+5~, NOPAY+14, NOPAY+15, NOPAY+39, NOPAY+40, CARC+8~, CONFIRM+15~ , CONFIRM+21, CONFIRM+22, CONFIRM+23, CONFIRM+26, CONFIRM+27, CONFIRM+28, CONFIRM+42, CONFIRM+43, CONFIRM+44, CONFIRM+47 , CONFIRM+48
Y	PAID+10~, PAID+26, PAID+27, PAID+28, PAID+31, ADAMT+10, ADAMT+11, ADAMT+12, ADAMT+58, ADAMT+59 , ADAMT+60, NOPAY+5~, NOPAY+22, NOPAY+23, NOPAY+27, NOPAY+56, NOPAY+57, NOPAY+58, CONFIRM+15~, CONFIRM+53* , CONFIRM+54*, CONFIRM+55

Customize PDF page

Package: Accounts Receivable

Routine: RCDPESP7

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

Local Variables

Legend: