Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RCDPEAD

Package: Accounts Receivable

Routine: RCDPEAD


Information

RCDPEAD ;ALB/PJH - AUTO DECREASE ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPEAD.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Accounts Receivable 6 $$INCDEC^RCBEUTR1  ($$ACTCARC,GETCARCS)^RCDPEAD2  BUILD^RCDPEAP  $$PHARM^RCDPEAP1  $$SCRPAD^RCDPEWLZ  $$PENDPAY^RCDPURET  
VA FileMan 3 $$FIND1^DIC  ^DIE  $$GET1^DIQ  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Accounts Receivable 4 RCDPEAD1  RCDPEAD3  RCDPEM  RCDPEWLZ  

Entry Points

Name Comments DBIA/ICR reference
EN ;Auto Decrease - applies to auto-posted claims only
EN1A(RCDAY,PAID,WHICH) ; Scan ERA's for auto-posted lines on RCDAY
; PRCA*4.5*345 - Added WHICH
; Input: RCDAY - Day to begin search for auto-posted but not decreased lines
; PAID - 1 - Decrease paid lines only, 2 - Decrease no-pay lines only
; WHICH - 1 - Checking for Medical Claims, 2 - Checking for Rx Claims
; Output: Auto-decreases claims (potentially)
;
; Scan F (Auto-Post) index for ERAs within date range
EN2(RCDATE,RCDAY,PAID,WHICH) ; Scans the 'F' index of the ERA file for ERA entries with an
; AUTOPOST DATE field (#4.03) matching RCDAY
; PRCA*4.5*345 - Added WHICH
; Input: RCDATE - Auto-Post Date of the ERA
; RCDAY - Day to begin search for auto-posted but not decreased lines
; PAID - 1 - Decrease paid lines, 2 - Decrease no-pay lines
; WHICH - 1 - Checking for Medical Claims, 2 - Checking for Rx Claims
; 3 - Checking for TRICARE Claims
EN3(RCDATE,RCERA,RCARRAY,PAID,WHICH) ; Scan ERA Detail lines in #344.41 for
; auto-posted Medical/Rx claims - PRCA*4.5*345 added WHICH
; Input: RCDATE - Auto-Post Date
; RCERA - IEN of the ERA (#344.4)
; RCARRAY - Array of ERA Scratchpad lines
; PAID - 1 - Decrease paid lines, 2 - Decrease no-pay lines
; WHICH - 1 - Processing Medical Claims, 2 - Processing Rx Claims
EN4(RCDATE,RCERA,RCARRAY,PAID,RCLINE,WHICH) ; Auto-decrease selected lines
; PRCA*4.5*345 - Added WHICH
; Input: RCDATE - Auto-Post Date
; RCERA - IEN of the ERA (#344.4)
; RCARRAY - Array of scratch pad lines
; PAID - 1 - Decrease paid lines
; 2 - Decrease no-pay lines
; RCLINE - IEN of the detail ilne in sub-file 344.41
; WHICH - 1 - Processing Medical Claims, 2 - Processing Rx Claims
REJ(WHICH) ; Process zero balance denial ERA's - PRCA*4.5*326
; PRCA*4.5*345 - Added WHICH
; Input: WHICH - 1 - Medical Claims
; Note: Added FLD in preparation for TRICARE auto-decrease of zero-dollar claims
SPLIT(RCSCR,RCLINE,RCBILL,RCARRAY) ;Check for SPLIT/EDIT in scratchpad
CARCLMT(RCEOB,RCZERO,WHICH,FROMADP,ADATE) ;EP from COMPILE^RCDPEADP and AUTO^RCDPEWLZ
; Checks to see if CARCs are included and eligible for auto-decrease
; PRCA*4.5*345 - Added WHICH
; Returns 0 if not, Max Amount ^ CARC if it is.
; Input: RCEOB - Internal IEN for the explanation of benefits field (361.1)
; FROMADP - 1 if being called from COMPILE^RCDPEADP, 0 otherwise
; Optional, default to 0
; ADATE - Internal Auto-Post Date (only passed if FROMADP=1)
; RCZERO - 0 = ERA Line with payment 1 = ERA Line without payment
; WHICH - 1 - Checking Auto-Decrease for Medical CARCs
; 2 - Checking Auto-Decrease for Rx CARCs
; Optional, defaults to 1 (Medical)
; Returns: A1;A2;A3;A4^B1;B2;B3;B4^...^N1;N2;N3;N4 Where:
; A1 - Auto-Decrease amount of the 1st CARC code in the EOB
; A2 - 1st CARC code in the EOB
; A3 - Deactivation Date of the 1st CARC code in the EOB if
; it has one and is less than today AND FROMADP=0
; Otherwise Quantity of the first CARC code in the EOB if
; FROMADP=1
; A4 - Reason of the 1st CARC code in the EOB
; only passed if FROMADP=1
OTHER(RCBILLDA,ORIG) ; Check if APAR/WL entries exist on other ERA for this bill
; INPUT
; RCBILLDA - IEN for claim in #430 or #399
; ORIG - IEN for current ERA
; OUTPUT
; RCPEND - 1 = Other ERA payments exist 0 - No other ERA payments exit
FIND(RCERA,RCLINE) ; Search ORIGINAL ERA SEQUENCES for this line
; Input RCERA - Scratchpad IEN
; RCLINE - ERA line to find
; Output RET - Scratchpad line number

External References

Name Field # of Occurrence
$$FIND1^DIC CARCLMT+50
^DIE EN4+92, EN4+102
$$GET1^DIQ EN+4, EN+5, EN+7, EN+10, EN+12, EN+15, EN+16, EN+18, EN+22, EN+23
EN+25, EN2+17, EN2+18, EN2+26, EN2+28, EN2+33, EN2+35, EN4+15, EN4+27, EN4+56
, EN4+57, REJ+8, REJ+16, REJ+17, REJ+18, REJ+37, CARCLMT+51, OTHER+17, OTHER+21, OTHER+26
, OTHER+28, OTHER+40, OTHER+42, FIND+10
$$INCDEC^RCBEUTR1 EN4+83
$$ACTCARC^RCDPEAD2 EN4+76, CARCLMT+44
GETCARCS^RCDPEAD2 CARCLMT+32
BUILD^RCDPEAP EN2+39, REJ+48
$$PHARM^RCDPEAP1 EN2+14, REJ+19
$$SCRPAD^RCDPEWLZ REJ+41
$$PENDPAY^RCDPURET EN4+66
$$FMADD^XLFDT EN+7, EN+12, EN+18, EN+25, EN1A+8, REJ+8, REJ+11
$$FMTE^XLFDT EN4+80

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.4 - [#344.4] Classic Fileman Calls,  GET1^DIQ
344.41 GET1^DIQ
344.491 GET1^DIQ
^RCY(344.6 - [#344.6] GET1^DIQ
^RCY(344.61 - [#344.61] GET1^DIQ
^RC(345 - [#345] FIND1^DIC,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBM(361.1 - [#361.1] EN4+35, OTHER+10
^PRCA(430 - [#430] EN4+41, EN4+44, EN4+63
^RCY(344.4 - [#344.4] EN1A+10, EN2+12, EN2+19, EN3+12, EN3+16, EN4+32, REJ+12, REJ+15, REJ+26, REJ+27
, REJ+53, OTHER+13, OTHER+24
^RCY(344.49 - [#344.49] SPLIT+10, SPLIT+12, SPLIT+14, OTHER+32, OTHER+37, OTHER+38, FIND+7, FIND+8
^RCY(344.6 - [#344.6] EN2+22, REJ+29, REJ+30
^TMP($J EN4+67!, REJ+40!, REJ+44

Label References

Name Line Occurrences
$$CARCLMT EN4+47
$$FIND OTHER+34
$$SPLIT EN4+38
EN1A EN+8, EN+13, EN+19
EN2 EN1A+15
EN3 EN2+42
EN4 EN3+19, REJ+55
REJ EN+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AD EN+3~, EN+5*, EN+6, EN+10*, EN+11, EN+16*, EN+17, EN+23*, EN+24
ADATE CARCLMT~
AP EN+3~, EN+4*, EN+6, EN+11, EN+15*, EN+17, EN+22*, EN+24
AUTOSTA OTHER+7~, OTHER+17*, OTHER+19, OTHER+21, OTHER+26
COMMENT EN4+12~, EN4+83
COMMENT(1 EN4+73*, EN4+74*, EN4+75*, EN4+76*, EN4+80*
DA EN4+90~, EN4+91*, EN4+95~, EN4+96*, FIND+5~, FIND+8*, FIND+10
DA(1 EN4+91*
DIE EN4+90~, EN4+91*, EN4+95~, EN4+96*
DR EN4+90~, EN4+91*, EN4+95~, EN4+96*, EN4+101*
DT EN+7, EN+12, EN+18, EN+25, EN4+91, EN4+96, REJ+8, CARCLMT+52
EOBIEN EN4+12~, EN4+32*, EN4+35, EN4+47
FLD REJ+4~, REJ+5*, REJ+8
FROMADP CARCLMT~, CARCLMT+23*, CARCLMT+32, CARCLMT+60, CARCLMT+63
I CARCLMT+21~, CARCLMT+35*, CARCLMT+36
IEN3446 EN2+8~, EN2+20*, EN2+22*, EN2+25, EN2+26, EN2+28, EN2+32, EN2+33, EN2+35
IENS EN3+7~, EN4+27, EN4+28*
J EN+3~, EN4+12~, EN4+52*
ORIG OTHER~, OTHER+15, FIND+5~, FIND+10*, FIND+12*, FIND+13
PAID EN1A~, EN1A+15, EN2~, EN2+42, EN3~, EN3+19, EN4~, EN4+18, EN4+21, EN4+100
, REJ+4~, REJ+11*, REJ+55
PAYID EN2+8~, EN2+17*, EN2+21, EN2+22, REJ+4~, REJ+26*, REJ+28, REJ+29
PAYNAM EN2+8~, EN2+18*, EN2+19*, EN2+21, EN2+22, REJ+4~, REJ+27*, REJ+28, REJ+29
PENDING EN4+12~, EN4+66*, EN4+68
RC3446 REJ+4~, REJ+30*, REJ+34
RCADJ EN3+7~, EN4+60*, EN4+70, EN4+87*, EN4+91
RCAMT EN4+12~, EN4+47*, EN4+48, EN4+52, CARCLMT+21~, CARCLMT+24*, CARCLMT+65*, CARCLMT+66*, CARCLMT+67
RCARRAY EN2+8~, EN2+11!, EN2+39, EN2+42, EN3~, EN3+19, EN4~, EN4+38, REJ+47~, REJ+48
, REJ+55, SPLIT~
RCARRAY( EN4+24, EN4+28, REJ+51, SPLIT+8
RCBAL EN4+12~, EN4+63*, EN4+68
RCBILL EN4+12~, EN4+32*, EN4+35*, EN4+38, EN4+41, EN4+44, EN4+63, EN4+66, EN4+83, SPLIT~
, SPLIT+14
RCBILLDA OTHER~, OTHER+10, OTHER+40
RCCAMT CARCLMT+21~, CARCLMT+38*, CARCLMT+41, CARCLMT+60, CARCLMT+64, CARCLMT+66
RCCODE CARCLMT+21~, CARCLMT+38*, CARCLMT+44, CARCLMT+50, CARCLMT+64, CARCLMT+66
RCCODES CARCLMT+21~, CARCLMT+24*, CARCLMT+32, CARCLMT+35, CARCLMT+36
RCDATA CARCLMT+21~, CARCLMT+44*, CARCLMT+47, CARCLMT+53
RCDATE EN1A+8*, EN1A+9, EN1A+10*, EN1A+11, EN1A+12, EN1A+15, EN2~, EN2+12, EN2+42, EN3~
, EN3+12, EN3+19, EN4~, REJ+11*, REJ+12*, REJ+15, REJ+55
RCDAY EN+3~, EN+7*, EN+8, EN+12*, EN+13, EN+18*, EN+19, EN+25*, EN1A~, EN1A+8
, EN1A+9, EN1A+12, EN1A+15, EN2~, REJ+4~, REJ+8*, REJ+11, REJ+12
RCEOB CARCLMT~, CARCLMT+32, OTHER+7~, OTHER+9*, OTHER+10*, OTHER+13, OTHER+24
RCERA EN2+8~, EN2+9*, EN2+10, EN2+12*, EN2+13, EN2+14, EN2+17, EN2+18, EN2+19, EN2+39
, EN2+42, EN3~, EN3+12, EN3+16, EN3+19, EN4~, EN4+15, EN4+28, EN4+32, EN4+38
, EN4+91, EN4+96, REJ+13*, REJ+15*, REJ+16, REJ+17, REJ+18, REJ+19, REJ+26, REJ+27
, REJ+37, REJ+41, REJ+48, REJ+53, REJ+55, OTHER+7~, OTHER+12*, OTHER+13*, OTHER+15, OTHER+17
, OTHER+21, OTHER+24, OTHER+26, OTHER+28, OTHER+32, OTHER+34, OTHER+37, OTHER+38, OTHER+40, OTHER+42
, FIND~, FIND+7, FIND+8, FIND+10
RCIARR EN4+12~, EN4+51!, EN4+53
RCIARR( EN4+52*, EN4+61, EN4+68, EN4+70, EN4+73, EN4+74, EN4+76, EN4+79, EN4+80, EN4+83
, EN4+87
RCITEM EN4+52*, CARCLMT+21~, CARCLMT+36*, CARCLMT+37, CARCLMT+38, CARCLMT+64
RCITEN EN4+12~
RCJ EN4+12~, EN4+60*, EN4+61*, EN4+68, EN4+70, EN4+73, EN4+74, EN4+76, EN4+79, EN4+80
, EN4+83, EN4+87
RCK EN4+12~, EN4+61*, EN4+68, EN4+70, EN4+73, EN4+74, EN4+76, EN4+79, EN4+80, EN4+83
, EN4+87
RCLINE EN3+7~, EN3+8*, EN3+11, EN3+12*, EN3+13, EN3+16, EN3+19, EN4~, EN4+15, EN4+24
, EN4+28, EN4+32, EN4+38, EN4+91, REJ+4~, REJ+50*, REJ+51*, REJ+53, REJ+55, SPLIT~
, SPLIT+8, OTHER+7~, OTHER+23*, OTHER+24*, OTHER+26, OTHER+28, OTHER+34, FIND~, FIND+13
RCMAX EN4+12~, EN4+56*, EN4+57*, EN4+70
RCPAID OTHER+7~, OTHER+28*, OTHER+30, OTHER+32
RCPARM REJ+4~, REJ+29*, REJ+30
RCPEND OTHER+7~, OTHER+9*, OTHER+10, OTHER+13, OTHER+24, OTHER+44*, OTHER+45
RCRTYPE EN2+8~, EN2+14*, EN2+15, EN2+16, REJ+19*, REJ+20, REJ+23
RCSCR REJ+41*, REJ+42, SPLIT~, SPLIT+10, SPLIT+12, SPLIT+14
RCSUB OTHER+36*, OTHER+37*, OTHER+38, FIND+5~, FIND+6*, FIND+7*, FIND+8, FIND+13
RCTAMT CARCLMT+21~, CARCLMT+53*, CARCLMT+60
RCTOT OTHER+7~, OTHER+23*, OTHER+32*, OTHER+42*, OTHER+44
RCTRANDA EN4+12~, EN4+83*, EN4+84
RCZ OTHER+7~, OTHER+38*, OTHER+40, OTHER+42
RCZERO EN4+12~, EN4+15*, EN4+18, EN4+21, EN4+24, EN4+27, EN4+47, EN4+76, EN4+100, CARCLMT~
, CARCLMT+44
RCZL OTHER+7~, OTHER+34*, OTHER+36, OTHER+37
RET FIND+5~, FIND+6*, FIND+7, FIND+13*, FIND+14
STATUS EN4+12~, EN4+44*, EN4+45
STOP EN2+8~, EN2+20*, EN2+25, EN2+27*, EN2+29*, EN2+32, EN2+34*, EN2+36*
SUB SPLIT+6~, SPLIT+8*, SPLIT+10, SPLIT+12
SUB1 SPLIT+6~, SPLIT+10*, SPLIT+12, SPLIT+14
U EN2+19, EN3+16, EN4+32, EN4+35, EN4+41, EN4+52, EN4+63, EN4+76, REJ+26, REJ+27
, REJ+34, REJ+53, SPLIT+12, SPLIT+14, CARCLMT+53, CARCLMT+66
WHICH EN1A~, EN1A+15, EN2~, EN2+15, EN2+16, EN2+25, EN2+32, EN2+42, EN3~, EN3+19
, EN4~, EN4+47, EN4+56, EN4+72, EN4+76, REJ~, REJ+23, REJ+34, REJ+55, CARCLMT~
, CARCLMT+22*, CARCLMT+44
XDT CARCLMT+21~, CARCLMT+51*, CARCLMT+52*, CARCLMT+66
XIEN CARCLMT+21~, CARCLMT+50*, CARCLMT+51
XX EN2+8~, EN2+26*, EN2+27, EN2+28*, EN2+29, EN2+33*, EN2+34, EN2+35*, EN2+36, EN4+72*
, EN4+73, CARCLMT+64*, CARCLMT+65
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All