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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RCDPEAD3

Package: Accounts Receivable

Routine: RCDPEAD3


Information

RCDPEAD3 ;ALB/PJH - AUTO DECREASE ; 6/27/19 2:43pm

Source Information

Source file <RCDPEAD3.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Accounts Receivable 5 COMP^PRCAAPR  $$INCDEC^RCBEUTR1  $$ADD433^RCBEUTRA  $$SPLIT^RCDPEAD  BUILD^RCDPEAP  
Integrated Billing 2 ^IBR  ($$TYP,RELBILL)^IBRFN  
VA FileMan 2 (FILE,UPDATE,WP)^DIE  $$GET1^DIQ  
Kernel 1 ($$FMADD,$$FMTE,$$NOW)^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: 12

Package Total Caller Graph
Accounts Receivable 12 RCDPE FIRST PARTY  RCDPEAD5  RCDPEM  RCMS EDI LOCKBOX  RCMS FORM LETTER  RCMS IRS  RCMS NOTIFICATION  RCMS RATES  
RCMS REGIONAL COUNSEL  RCMS RETURN PAYMENT  RCMS SITE  RCMS SITE DEPOSIT  

Entry Points

Name Comments DBIA/ICR reference
EN(RCDAY) ; EP - EN^RCDPEM. Auto Decrease - applies to auto-posted claims only
EN2(RCERA,RCARRAY,RCLINE) ; Auto-decrease selected lines
; Input: RCERA - ERA number
; RCARRAY - Array of ERA Scratchpad lines
; RCLINE - ERA line sequence
PROCESS(IEN350,RCBILL,RCPAID,RCBAL3RD) ; Process this charge for attempted auto-decrease
; Inputs: IEN350 - Internal entry number for charge in file #350
; RCBILL - Internal entry number for third party bill from file #399
; RCPAID - Amount paid on ERA line for this third party bill
; STAT - Array of status' eligible for offset (assumed to be set in the calling subroutine)
; RCBAL3RD - Remaining balance on third party bill not yet used for auto-decrease of a copay
; Returns: 1 - quit loop after processing this record
; 0 - don't quit
AMT(RCBAL,RCPAID,RCOPAY) ; Calculate Decrease Amount
;
; INPUT
; RCBAL - 1st Party Balance
; RCPAID - Amount Paid on 3rd Party claim
; RCOPAY - Copay amount
; OUTPUT
; Amount to decrease
SHOWTYP(NAME) ; EP - Display list of IB ACTION TYPE enabled for 1st party auto-decrease
; Input - NAME, specify auto-post or manual
; Output - To screen
TRAN1(IEN350,IEN399,IEN430,AMT,RCPAID) ; File auto-decrease comment on first party AR
; Input: IEN350 - Internal entry number to IB Action (File #350)
; IEN399 - Internal entry number to Third Party Bill (Files #399 and #430)
; IEN430 - Internal entry number of First Party Bill (File #430)
; AMT - Amount of auto-decease
; RCPAID - Amount paid on third party bill
TRAN3(IEN350,IEN399,IEN430,AMT,COPAY) ; File auto-decrease comment on third party AR
; Input: IEN350 - Internal entry number to IB Action (File #350)
; IEN399 - Internal entry number to Third Party Bill (Files #399 and #430)
; IEN430 - Internal entry number of First Party Bill (File #430)
; AMT - Amount of auto-decease
; COPAY - Copay amount being decreased
COMM1(COMMENT,IEN350,IEN399,AMT,RCPAID) ; Build comment text for first party bill
; Input: IEN350 - Internal entry number to IB Action (File #350)
; IEN399 - Internal entry number to Third Party Bill (Files #399 and #430)
; AMT - Amount of auto-decease
; RCPAID - Amount paid on third party bill
; Output: COMMENT - Array passed by reference
DOS(IEN350) ; Get Date of Service for charge
; Input: IEN350 - Intenal entry number of IB Action (file #350)
RXMT(IEN350) ; Return Rx # or "MT" for transaction comment line
; Input: IEN350 - Internal entry number of IB Action (file #350)
PREPAY(IEN350) ; Check for open pre-pay
; Input: IEN350 - Internal entry number of charge from IB ACTION file #350
; Returns: 1 - Patient has an open pre-payment
; 0 - No open pre-payment
; -1 - Error
QUEUE(IEN350,IEN399,IENS41) ; Place the charge in a queue from processing at a later date
; Input: IEN350 - Internal entry number of charge from IB ACTION file #350
; IEN399 - Internal entry number of third party bill from file 399 or 430
; IENS41 - Internal entry numbers of subfile 344.41 in format nnn,nnnnnnn,
; Output: New entry in file #344.74
DEL74(IEN74) ; Delete FIRST PARTY CHARGE QUEUE entry
; Input: IEN74 - Internal entry number of file 344.74
; Output: None
DECAMT(IEN430) ; Return amount that bill has been previously auto-decreased.
; Input: IEN430 - Internal Entry number of file #430
; Returns: Total amount of previous auto-decreases
FLAG(RCERA,RCLINE) ; Flag ERA detail line as having been checked or processed for 1st party auto-decrease
; Input: RCERA - Internal entry number of file 344.4
; RCLINE - Internal entry number of subfile 344.41
TYPE(RCGROUP,RCTYPE,RCTYP3) ; Is this first party charge eligible for auto-offset - EP from RCDPEAD3 and 5
; Inputs
; RCGROUP - 1st party bill group. Set of codes from file 350.1 field .11
; RCTYPE - Name of IB ACTION TYPE from file 350.1
; RCTYP3 - 3rd party bill type as determined by $$TYP^IBRFN
; Returns 1 - Eligible, 0 - Not eligible
;

External References

Name Field # of Occurrence
FILE^DIE PROCESS+47, TRAN1+19, TRAN3+18, DEL74+5, FLAG+5
UPDATE^DIE QUEUE+12
WP^DIE TRAN1+26, TRAN3+23
$$GET1^DIQ EN+8, EN+28, EN+36, EN+37, EN+38, EN+40, EN+44, EN+49, EN+58, EN+62
, EN2+11, EN2+39, EN2+40, EN2+46, EN2+50, EN2+53, PROCESS+12, PROCESS+21, PROCESS+25, PROCESS+28
, PROCESS+30, SHOWTYP+4, TRAN1+9, TRAN1+10, TRAN1+25, TRAN3+9, TRAN3+22, COMM1+7, COMM1+11, DOS+5
, DOS+13, RXMT+5, RXMT+8, RXMT+10, PREPAY+7, PREPAY+16, PREPAY+17, PREPAY+18, DECAMT+7, DECAMT+8
, DECAMT+9
^IBR EN+59, EN2+51
$$TYP^IBRFN EN2+21
RELBILL^IBRFN EN2+31
COMP^PRCAAPR PROCESS+32
$$INCDEC^RCBEUTR1 PROCESS+42
$$ADD433^RCBEUTRA TRAN1+12, TRAN3+11
$$SPLIT^RCDPEAD EN2+24
BUILD^RCDPEAP EN+22
$$FMADD^XLFDT EN+12
$$FMTE^XLFDT DOS+14
$$NOW^XLFDT QUEUE+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Charge types enabled for 1st party auto-decrease",NAME
  • Line Location: SHOWTYP+6
Function Call: WRITE
  • Prompt: !," All Inpatient, Outpatient and Pharmacy, except ""CANCEL"" charges."
  • Line Location: SHOWTYP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOWTYP+8
Routine Call
  • DIE
  • Line Location:
    • PROCESS+47
    • TRAN1+19
    • TRAN3+18
    • DEL74+5
    • FLAG+5
Routine Call
  • DIE
  • Line Location:
    • QUEUE+12
Routine Call
  • DIE
  • Line Location:
    • TRAN1+26
    • TRAN3+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^RCD(340 - [#340] GET1^DIQ
^RC(342 - [#342] GET1^DIQ
344.41 GET1^DIQ
^RCY(344.74 - [#344.74] GET1^DIQ
^IB - [#350] GET1^DIQ
^DGCR(399 - [#399] GET1^DIQ
^PRCA(430 - [#430] GET1^DIQ
^PRCA(433 - [#433] GET1^DIQ,  WP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBM(361.1 - [#361.1] EN2+20
^PRCA(430 - [#430] EN2+27, PROCESS+14, PROCESS+16, PREPAY+14
^PRCA(433 - [#433] TRAN1+27, TRAN3+24, DECAMT+6
^RCD(340 - [#340] PREPAY+10
^RCY(344.4 - [#344.4] EN+19, EN+26, EN2+17
^RCY(344.74 - [#344.74] EN+35
^TMP("IBRBF" EN2+30!, EN2+33, EN2+38, EN2+58!
^TMP("PRCAAPR" PROCESS+33, PROCESS+34!
^TMP("RCQUEUE" EN+33!, EN+45*, EN+46, EN+66*, EN+67!

Label References

Name Line Occurrences
$$AMT PROCESS+36
$$DECAMT PROCESS+25
$$DOS TRAN1+8, TRAN3+8, COMM1+9
$$PREPAY EN+55, EN2+48
$$PROCESS EN+65, EN2+56
$$RXMT TRAN1+23, COMM1+9
$$TRAN1 PROCESS+49
$$TRAN3 PROCESS+50
$$TYPE EN2+43
COMM1 PROCESS+40
DEL74 EN+50, EN+60
EN2 EN+29
FLAG EN+30
QUEUE EN2+48

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMT EN2+6~, PROCESS+36*, PROCESS+38, PROCESS+40, PROCESS+42, PROCESS+49, PROCESS+50, PROCESS+51, TRAN1~, TRAN1+15
, TRAN1+24, TRAN3~, TRAN3+14, TRAN3+21, COMM1~, COMM1+10
BILL1 TRAN3+7~, TRAN3+9*, TRAN3+14, TRAN3+21
BILL3 TRAN1+7~, TRAN1+9*, TRAN1+15, COMM1+6~, COMM1+7*, COMM1+8
BILL430 TRAN1+7~, TRAN1+10*, TRAN1+22
COMMENT EN2+6~, PROCESS+40, PROCESS+42, TRAN1+7~, TRAN3+7~, COMM1~
COMMENT(1 TRAN1+22*, TRAN3+21*, COMM1+8*
COMMENT(2 TRAN1+23*, TRAN3+22*, COMM1+9*
COMMENT(3 TRAN1+24*, COMM1+10*
COMMENT(4 TRAN1+25*, COMM1+11*
COPAY EN2+6~, PROCESS+21*, PROCESS+23, PROCESS+25, PROCESS+36, PROCESS+50, AMT+11, TRAN3~
DEBT EN2+6~, PROCESS+28*, PROCESS+29, PROCESS+30
DFN EN+56~, EN+58*, EN2+6~, EN2+50*
DT EN+12, TRAN1+16, TRAN3+15
EOBIEN EN2+6~, EN2+17*, EN2+20
FDA EN2+6~, PROCESS+44!, TRAN1+7~, TRAN3+7~, QUEUE+6~, DEL74+3~, FLAG+3~
FDA( QUEUE+8*, QUEUE+9*, QUEUE+10*, QUEUE+11*, DEL74+4*, FLAG+4*
FDA(433 PROCESS+45*, PROCESS+46*, TRAN1+14*, TRAN1+15*, TRAN1+16*, TRAN1+17*, TRAN1+18*, TRAN3+13*, TRAN3+14*, TRAN3+15*
, TRAN3+16*, TRAN3+17*
FIELD DOS+3~, DOS+11*, DOS+12*, DOS+13
FILE DOS+3~, DOS+8*, DOS+9*, DOS+11, DOS+12*, DOS+13, RXMT+4~, RXMT+9*, RXMT+10
FLAG SHOWTYP+3~, SHOWTYP+4*, SHOWTYP+5
FROM DOS+3~, DOS+5*, DOS+7*, DOS+8, DOS+9, RXMT+4~, RXMT+8*, RXMT+9
FROM2 DOS+3~, DOS+7*, DOS+9
IBDUZ EN+56~, EN+57*, EN2+6~, EN2+49*
IBNOS EN+56~, EN+57*, EN2+6~, EN2+49*
IBSEQNO EN+56~, EN+57*, EN2+6~, EN2+49*
IEN DOS+3~, DOS+8*, DOS+9*, DOS+12*, DOS+13, RXMT+4~, RXMT+9*, RXMT+10
IEN350 EN+5~, EN+36*, EN+49, EN+55, EN+57, EN+58, EN+62, EN+65, PROCESS~, PROCESS+12
, PROCESS+25, PROCESS+40, PROCESS+49, PROCESS+50, TRAN1~, TRAN1+8, TRAN1+23, TRAN3~, TRAN3+8, COMM1~
, COMM1+9, DOS~, DOS+5, DOS+12, RXMT~, RXMT+5, RXMT+8, PREPAY~, PREPAY+7, QUEUE~
, QUEUE+8
IEN399 TRAN1~, TRAN1+9, TRAN1+10, TRAN3~, TRAN3+11, COMM1~, COMM1+7, QUEUE~, QUEUE+9
IEN430 TRAN1~, TRAN1+12, TRAN3~, TRAN3+9, DECAMT~, DECAMT+6
IEN74 DEL74~, DEL74+4
IENS TRAN1+7~, TRAN3+7~, QUEUE+6~, QUEUE+7*, QUEUE+8, QUEUE+9, QUEUE+10, QUEUE+11
IENS3441 EN+5~, EN+40*, EN+41, EN+43
IENS41 EN+5~, EN+38*, EN+41, EN+42, EN2+6~, EN2+10*, EN2+11, EN2+48, QUEUE~, QUEUE+11
J EN+5~, EN+15*
MFIELD EN+5~, EN+42*, EN+43*, EN+44
MFILE EN+5~, EN+42*, EN+43*, EN+44, EN+45, EN+46, EN+66
MIEN EN+5~, EN+42*, EN+43*, EN+44, EN+45, EN+46, EN+66
MULT EN+5~
NAME SHOWTYP~, SHOWTYP+6
PIEN PREPAY+5~, PREPAY+7*, PREPAY+8, PREPAY+9
PRCADB EN2+6~, PROCESS+30*
PRCATY EN2+6~, PROCESS+31*
QUIT EN2+6~, EN2+36*, EN2+38, EN2+56*
RC6AM EN+5~, EN+11*, EN+12
RCARRAY EN+5~, EN+21!, EN+22, EN+29, EN2~, EN2+24
RCBAL EN2+7~, PROCESS+33*, PROCESS+36, AMT~, AMT+10, AMT+11
RCBAL3RD EN+5~, EN+46*, EN+65, EN+66, EN2+7~, EN2+11*, EN2+56, PROCESS~, PROCESS+36, PROCESS+51*
, PROCESS+52
RCBILL EN+5~, EN+37*, EN+65, EN2+7~, EN2+17*, EN2+20*, EN2+21, EN2+24, EN2+27, EN2+31
, EN2+33, EN2+38, EN2+44, EN2+48, EN2+56, PROCESS~, PROCESS+40, PROCESS+45, PROCESS+49, PROCESS+50
RCCLAIM EN2+7~, PROCESS+12*, PROCESS+13, PROCESS+14
RCCOPAY EN2+7~, PROCESS+14*, PROCESS+15, PROCESS+16, PROCESS+21, PROCESS+25, PROCESS+28, PROCESS+42, PROCESS+49, PROCESS+50
RCDATA7 PREPAY+5~
RCDAY EN~, EN+9, EN+12*, EN+19, EN+26
RCDAYS EN+5~, EN+8*, EN+12
RCDEBTDA PREPAY+5~, PREPAY+10*, PREPAY+11, PREPAY+14
RCDOS TRAN1+7~, TRAN1+8*, TRAN1+15, TRAN1+23, TRAN3+7~, TRAN3+8*, TRAN3+22
RCERA EN+5~, EN+18*, EN+19*, EN+22, EN+26, EN+28, EN+29, EN+30, EN2~, EN2+10
, EN2+17, EN2+24, FLAG~, FLAG+4
RCGROUP EN2+7~, EN2+40*, EN2+41, EN2+43, RXMT+4~, RXMT+5*, RXMT+6, RXMT+7, TYPE~, TYPE+9
, TYPE+10, TYPE+11, TYPE+12
RCLINE EN+5~, EN+25*, EN+26*, EN+28, EN+29, EN+30, EN2~, EN2+10, EN2+17, EN2+24
, FLAG~, FLAG+4
RCLST EN2+7~
RCLST( EN2+44*
RCOPAY AMT~, AMT+13
RCPAID EN+5~, EN+44*, EN+45, EN+65, EN2+7~, EN2+11*, EN2+14, EN2+56, PROCESS~, PROCESS+40
, PROCESS+49, AMT~, AMT+11, AMT+13, TRAN1~, TRAN1+22, COMM1~, COMM1+8
RCPREDA PREPAY+5~, PREPAY+13*, PREPAY+14*, PREPAY+16, PREPAY+17, PREPAY+18
RCQIEN EN+5~, EN+34*, EN+35*, EN+36, EN+37, EN+38, EN+40, EN+50, EN+60
RCRTYPE EN+5~
RCSECS EN+5~, EN+10*, EN+12
RCSTATUS EN2+7~
RCSUB EN2+7~, EN2+37*, EN2+38*, EN2+39, EN2+40, EN2+44, EN2+46, EN2+48, EN2+49, EN2+50
, EN2+53, EN2+56
RCTRANDA EN2+7~, PROCESS+42*, PROCESS+45, PROCESS+46, PROCESS+49*, PROCESS+50*, TRAN1+7~, TRAN1+12*, TRAN1+14, TRAN1+15
, TRAN1+16, TRAN1+17, TRAN1+18, TRAN1+26, TRAN1+27, TRAN1+28, TRAN3+7~, TRAN3+11*, TRAN3+13, TRAN3+14
, TRAN3+15, TRAN3+16, TRAN3+17, TRAN3+23, TRAN3+24, TRAN3+25
RCTYP3 EN2+7~, EN2+21*, EN2+43, TYPE~, TYPE+10, TYPE+11, TYPE+12
RCTYPE EN2+7~, EN2+39*, EN2+41, EN2+43, TYPE~, TYPE+9
RCVPP PREPAY+5~, PREPAY+9*, PREPAY+10
RETURN PROCESS+10~, PROCESS+11*, PROCESS+52*, PROCESS+53, DOS+3~, DOS+4*, DOS+13*, DOS+14*, DOS+15, RXMT+4~
, RXMT+6*, RXMT+10*, RXMT+11, PREPAY+5~, PREPAY+6*, PREPAY+14, PREPAY+20*, PREPAY+22, DECAMT+3~, DECAMT+4*
, DECAMT+9*, DECAMT+10, TYPE+7~, TYPE+8*, TYPE+10*, TYPE+11*, TYPE+12*, TYPE+13
STAT EN+6~
STAT( EN+15*, PROCESS+18
STATUS EN+6~, EN+49*, EN+50, EN+51, EN+54, EN+62*, EN+63, EN2+7~, EN2+46*, EN2+47
, EN2+53*, EN2+54, PROCESS+16*, PROCESS+18
TRANDA DECAMT+3~, DECAMT+5*, DECAMT+6*, DECAMT+7, DECAMT+8, DECAMT+9
TYPE DECAMT+3~
U EN2+17, EN2+20, EN2+27
X EN+6~, EN+65*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All