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: 9

Package Total Call Graph
Accounts Receivable 5 $$INCDEC^RCBEUTR1  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: 3

Package Total Caller Graph
Accounts Receivable 3 RCDPEAD1  RCDPEM  RCDPEWLZ  

Entry Points

Name Comments DBIA/ICR reference
EN ;Auto Decrease - applies to auto-posted claims only
EN1A(RCDAY,PAID) ; Scan ERA's for auto-posted lines on RCDAY
; INPUT RCDAY - Day to search for auto-posted but not decreased lines
; PAID - 1 = decrease paid lines only, 2 = decrease no-pay lines only
; OUTPUT - Auto-decreases claims
;
; PRCA*4.5*304 - removed generic auto-decrease amount. Now auto-decrease is by CARC
; Allow for a range of dates in future - currently only checks for RCDAY
EN2(RCDATE,RCDAY,PAID) ; Scans the 'F' index of the ERA file for ERA entries with an - PRCA*4.5*326
; AUTOPOST DATE field (#4.03) matching RCDAY
; Input: RCDATE - Current date being search
; RCDAY - AUTO DECREASES MED DAYS DEFAULT (File 344.61, field .04)
; PAID - 1 = decrease paid lines, 2 = decrease no-pay lines
EN3(RCDATE,RCERA,RCARRAY,PAID) ; Scan ERA DETAIL entries in #344.41 for auto-posted medical claims - PRCA*4.5*326 added PAID
; Input: RCDATE - Current date being search
; RCERA - ERA number
; RCARRAY - Array of ERA Scratchpad lines
; PAID - 1 = decrease paid lines, 2 = decrease no-pay lines
EN4(RCDATE,RCERA,RCARRAY,PAID,RCLINE) ; Auto-decrease selected lines
; 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
REJ ; Process zero balance denial ERA's - PRCA*4.5*326
SPLIT(RCSCR,RCLINE,RCBILL,RCARRAY) ;Check for SPLIT/EDIT in scratchpad
CARCLMT(RCEOB,RCZERO,FROMADP,ADATE) ;EP from COMPILE^RCDPEADP
; PRCA*4.5*304 - Check to see if CARC are included and are eligible
; for auto-decrease. Return 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
; 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
GETCARCS(RCEOB,RCCODES,FROMADP) ; Extract the CARCs from an EOB at claim and line levels
; Input: RCEOB - Internal IEN for the explanation of benefits field (361.1)
; FROMADP - 1 if being called from COMPILE^RCDPEAD1, 0 otherwise
; Optional, default to 0
; Output: RCCODES - ^ delimitted string of CARC code information from the
; claim and claim ine levels for the specified EOB
; ^A1;A2;A3;A4^A1;A2;A3;A4^... Where
; A1 - CARC code
; A2 - Auto Decrease Amount
; A3 - Quantity (only returned if FROMADP=1)
; A4 - REASON (only returned if FROMADP=1)
ACTCARC(CODE,RCZERO) ; Is this CARC an active code for auto-decrease
; Input: CODE - CARC code being checked
; RCZERO - O = Claim line with payment, 1 = Claim line with no payment
; Returns: '0^NOT ACTIVE' if not active
; '1^{amount}' if active and the second piece is the decrease amount
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+45
^DIE EN4+81, EN4+90
$$GET1^DIQ EN+6, EN+9, EN+13, EN+19, EN+22, EN4+12, EN4+23, EN4+56, REJ+3, REJ+11
REJ+13, REJ+15, REJ+28, CARCLMT+46, GETCARCS+24, GETCARCS+26, GETCARCS+28, GETCARCS+29, GETCARCS+47, GETCARCS+49
, GETCARCS+51, GETCARCS+52, ACTCARC+11, ACTCARC+13, OTHER+17, OTHER+21, OTHER+26, OTHER+28, OTHER+40, OTHER+42
, FIND+10
$$INCDEC^RCBEUTR1 EN4+77
BUILD^RCDPEAP EN2+27, REJ+39
$$PHARM^RCDPEAP1 EN2+11, REJ+17
$$SCRPAD^RCDPEWLZ REJ+32
$$PENDPAY^RCDPURET EN4+66
$$FMADD^XLFDT EN+13, EN+22, EN1A+9, REJ+3, REJ+5
$$FMTE^XLFDT EN4+75

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.61 - [#344.61] GET1^DIQ
^RCY(344.62 - [#344.62] GET1^DIQ
^RC(345 - [#345] FIND1^DIC,  GET1^DIQ
361.111 GET1^DIQ
361.11511 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBM(361.1 - [#361.1] EN4+31, GETCARCS+17, GETCARCS+21, GETCARCS+36, GETCARCS+40, GETCARCS+44, OTHER+10
^PRCA(430 - [#430] EN4+40, EN4+44, EN4+62
^RCY(344.4 - [#344.4] EN1A+10, EN2+7, EN2+15, EN2+16, EN3+10, EN3+12, EN3+20, EN4+28, REJ+6, REJ+9
REJ+20, REJ+21, REJ+44, 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+18, EN2+19, REJ+23, REJ+24
^RCY(344.62 - [#344.62] ACTCARC+7
^TMP($J EN4+67!, REJ+31!, REJ+35

Label References

Name Line Occurrences
$$ACTCARC EN4+73, CARCLMT+39
$$CARCLMT EN4+47
$$FIND OTHER+34
$$SPLIT EN4+37
EN1A EN+16, EN+24
EN2 EN1A+13
EN3 EN2+30
EN4 EN3+14, EN3+22, REJ+46
GETCARCS CARCLMT+27
REJ EN+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADATE CARCLMT~
AIEN ACTCARC+5~, ACTCARC+7*, ACTCARC+8, ACTCARC+11, ACTCARC+13
AUTOSTA OTHER+7~, OTHER+17*, OTHER+19, OTHER+21, OTHER+26
CODE ACTCARC~, ACTCARC+6, ACTCARC+7
COMMENT EN4+10~, EN4+77
COMMENT(1 EN4+72*, EN4+73*, EN4+75*
DA EN4+81~*, EN4+83~, EN4+84*, FIND+5~, FIND+8*, FIND+10
DA(1 EN4+81*
DIE EN4+81~*, EN4+83~, EN4+84*
DR EN4+81~*, EN4+83~, EN4+84*, EN4+89*
DT EN+13, EN+22, EN4+81, EN4+84, REJ+3, CARCLMT+47
EOBIEN EN4+10~, EN4+28*, EN4+31, EN4+47
FIELD ACTCARC+5~, ACTCARC+10*, ACTCARC+11, ACTCARC+12*, ACTCARC+13
FROMADP CARCLMT~, CARCLMT+18*, CARCLMT+27, CARCLMT+58, GETCARCS~, GETCARCS+12*, GETCARCS+27, GETCARCS+50
I CARCLMT+17~, CARCLMT+30*, CARCLMT+31
IENS EN3+5~, EN4+23, EN4+24*, GETCARCS+11~, GETCARCS+23*, GETCARCS+24, GETCARCS+26, GETCARCS+28, GETCARCS+29, GETCARCS+46*
, GETCARCS+47, GETCARCS+49, GETCARCS+51, GETCARCS+52
J EN+2~, EN4+52*
ORIG OTHER~, OTHER+15, FIND+5~, FIND+10*, FIND+12*, FIND+13
PAID EN1A~, EN1A+13, EN2~, EN2+30, EN3~, EN3+9, EN3+14, EN3+17, EN3+22, EN4~
, EN4+15, EN4+17, EN4+88, REJ+1~, REJ+5*, REJ+46
PAYID EN2+5~, EN2+15*, EN2+17, EN2+18, REJ+1~, REJ+20*, REJ+22, REJ+23
PAYNAM EN2+5~, EN2+16*, EN2+17, EN2+18, REJ+1~, REJ+21*, REJ+22, REJ+23
PENDING EN4+65~, EN4+66*, EN4+68
QUANT GETCARCS+11~, GETCARCS+28*, GETCARCS+31, GETCARCS+51*, GETCARCS+54
RC3446 EN2+8~, EN2+19*, EN2+23, REJ+1~, REJ+24*, REJ+26
RC344610 EN+2~
RCADJ EN3+5~, EN4+59*, EN4+70, EN4+79*, EN4+81
RCAMT EN+1~, EN4+47*, EN4+48, EN4+52, CARCLMT+17~, CARCLMT+19*, CARCLMT+60*, CARCLMT+61*, CARCLMT+62, GETCARCS+11~
, GETCARCS+26*, GETCARCS+27, GETCARCS+31, GETCARCS+49*, GETCARCS+50, GETCARCS+54
RCARRAY EN2+26~, EN2+27, EN2+30, EN3~, EN3+14, EN3+22, EN4~, EN4+37, REJ+38~, REJ+39
REJ+46, SPLIT~
RCARRAY( EN3+18, EN4+20, EN4+24, REJ+42, SPLIT+8
RCBAL EN4+10~, EN4+62*, EN4+68
RCBILL EN4+10~, EN4+28*, EN4+31*, EN4+37, EN4+40, EN4+44, EN4+62, EN4+66, EN4+77, SPLIT~
, SPLIT+14
RCBILLDA OTHER~, OTHER+10, OTHER+40
RCCAMT CARCLMT+17~, CARCLMT+33*, CARCLMT+36, CARCLMT+55, CARCLMT+59, CARCLMT+61
RCCODE CARCLMT+17~, CARCLMT+33*, CARCLMT+39, CARCLMT+45, CARCLMT+59, CARCLMT+61, GETCARCS+11~, GETCARCS+24*, GETCARCS+25, GETCARCS+27
, GETCARCS+31, GETCARCS+47*, GETCARCS+48, GETCARCS+50, GETCARCS+54
RCCODES CARCLMT+17~, CARCLMT+19*, CARCLMT+27, CARCLMT+30, CARCLMT+31, GETCARCS~, GETCARCS+13*, GETCARCS+27*, GETCARCS+31*, GETCARCS+50*
, GETCARCS+54*
RCDATA CARCLMT+17~, CARCLMT+39*, CARCLMT+42, CARCLMT+48
RCDATE EN+1~, EN1A+9*, EN1A+10*, EN1A+13, EN2~, EN2+7, EN2+30, EN3~, EN3+10, EN3+14
, EN3+22, EN4~, REJ+5*, REJ+6*, REJ+9, REJ+46
RCDAY EN+1~, EN+13*, EN+16, EN+22*, EN+24, EN1A~, EN1A+9, EN1A+10, EN1A+13, EN2~
REJ+1~, REJ+3*, REJ+5, REJ+6
RCEOB CARCLMT~, CARCLMT+27, GETCARCS~, GETCARCS+17, GETCARCS+21, GETCARCS+23, GETCARCS+36, GETCARCS+40, GETCARCS+44, GETCARCS+46
, OTHER+7~, OTHER+9*, OTHER+10*, OTHER+13, OTHER+24
RCERA EN2+5~, EN2+6*, EN2+7*, EN2+11, EN2+15, EN2+16, EN2+27, EN2+30, EN3~, EN3+10
, EN3+12, EN3+14, EN3+20, EN3+22, EN4~, EN4+12, EN4+24, EN4+28, EN4+37, EN4+81
, EN4+84, REJ+7*, REJ+9*, REJ+11, REJ+13, REJ+15, REJ+17, REJ+20, REJ+21, REJ+28
REJ+32, REJ+39, REJ+44, REJ+46, 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
RCI GETCARCS+11~, GETCARCS+13*, GETCARCS+16, GETCARCS+17*, GETCARCS+18, GETCARCS+21, GETCARCS+23, GETCARCS+38*, GETCARCS+39, GETCARCS+40*
, GETCARCS+41, GETCARCS+44, GETCARCS+46
RCIARR EN+2~, EN4+51!, EN4+53
RCIARR( EN4+52*, EN4+60, EN4+68, EN4+70, EN4+72, EN4+73, EN4+75, EN4+77, EN4+79
RCITEM EN+1~, EN4+52*, CARCLMT+17~, CARCLMT+31*, CARCLMT+32, CARCLMT+33, CARCLMT+59
RCJ EN+2~, EN4+59*, EN4+60*, EN4+68, EN4+70, EN4+72, EN4+73, EN4+75, EN4+77, EN4+79
, GETCARCS+11~, GETCARCS+19*, GETCARCS+20, GETCARCS+21*, GETCARCS+22, GETCARCS+23, GETCARCS+42*, GETCARCS+43, GETCARCS+44*, GETCARCS+45
, GETCARCS+46
RCK EN+2~, EN4+60*, EN4+68, EN4+70, EN4+72, EN4+73, EN4+75, EN4+77, EN4+79
RCL GETCARCS+11~, GETCARCS+34*, GETCARCS+35, GETCARCS+36*, GETCARCS+37, GETCARCS+40, GETCARCS+44, GETCARCS+46
RCLINE EN3+5~, EN3+6*, EN3+10*, EN3+12, EN3+14, EN3+18*, EN3+20, EN3+22, EN4~, EN4+12
, EN4+20, EN4+24, EN4+28, EN4+37, EN4+81, REJ+1~, REJ+41*, REJ+42*, REJ+44, REJ+46
, SPLIT~, SPLIT+8, OTHER+7~, OTHER+23*, OTHER+24*, OTHER+26, OTHER+28, OTHER+34, FIND~, FIND+13
RCMAX EN4+10~, EN4+56*, EN4+70
RCMDAD EN+2~
RCMDAP EN+2~
RCPAID OTHER+7~, OTHER+28*, OTHER+30, OTHER+32
RCPARM EN2+8~, EN2+18*, EN2+19, REJ+1~, REJ+23*, REJ+24
RCPEND OTHER+7~, OTHER+9*, OTHER+10, OTHER+13, OTHER+24, OTHER+44*, OTHER+45
RCRTYPE EN2+5~, EN2+11*, EN2+12, REJ+17*, REJ+18
RCSCR REJ+32*, REJ+33, SPLIT~, SPLIT+10, SPLIT+12, SPLIT+14
RCSTART EN+1~
RCSUB OTHER+36*, OTHER+37*, OTHER+38, FIND+5~, FIND+6*, FIND+7*, FIND+8, FIND+13
RCTAMT CARCLMT+17~, CARCLMT+48*, CARCLMT+55
RCTOT OTHER+7~, OTHER+23*, OTHER+32*, OTHER+42*, OTHER+44
RCTRANDA EN4+10~, EN4+77*
RCZ OTHER+7~, OTHER+38*, OTHER+40, OTHER+42
RCZERO EN4+10~, EN4+12*, EN4+15, EN4+17, EN4+20, EN4+23, EN4+47, EN4+73, EN4+88, CARCLMT~
, CARCLMT+39, ACTCARC~, ACTCARC+10, ACTCARC+12
RCZL OTHER+7~, OTHER+34*, OTHER+36, OTHER+37
REASON GETCARCS+11~, GETCARCS+29*, GETCARCS+30*, GETCARCS+31, GETCARCS+52*, GETCARCS+53*, GETCARCS+54
RET FIND+5~, FIND+6*, FIND+7, FIND+13*, FIND+14
STATUS EN4+43~, EN4+44*, EN4+45
SUB SPLIT+6~, SPLIT+8*, SPLIT+10, SPLIT+12
SUB1 SPLIT+6~, SPLIT+10*, SPLIT+12, SPLIT+14
U EN2+15, EN2+16, EN2+23, EN3+12, EN3+20, EN4+28, EN4+31, EN4+40, EN4+52, EN4+62
, EN4+73, REJ+20, REJ+21, REJ+26, REJ+44, SPLIT+12, SPLIT+14, CARCLMT+48, CARCLMT+61
XDT CARCLMT+17~, CARCLMT+46*, CARCLMT+47*, CARCLMT+61
XIEN CARCLMT+17~, CARCLMT+45*, CARCLMT+46
XX CARCLMT+59*, CARCLMT+60, ACTCARC+5~, ACTCARC+11*, ACTCARC+13
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