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

Package Total Caller Graph
Accounts Receivable 1 RCDPEM  

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
; 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() ; EP - Display list of IB ACTION TYPE enabled for 1st party auto-decrease
; Input - None
; 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

External References

Name Field # of Occurrence
FILE^DIE PROCESS+45, TRAN1+19, TRAN3+18, DEL74+5, FLAG+5
UPDATE^DIE QUEUE+12
WP^DIE TRAN1+25, TRAN3+23
$$GET1^DIQ EN+7, EN+27, EN+34, EN+35, EN+36, EN+37, EN+39, EN+47, EN+51, EN2+11
, EN2+39, EN2+40, EN2+47, EN2+51, EN2+54, PROCESS+10, PROCESS+19, PROCESS+23, PROCESS+26, PROCESS+28
, SHOWTYP+5, SHOWTYP+9, SHOWTYP+12, TRAN1+9, TRAN1+10, TRAN1+24, TRAN3+9, TRAN3+22, COMM1+7, COMM1+11
, DOS+5, DOS+10, RXMT+5, RXMT+7, PREPAY+7, PREPAY+16, PREPAY+17, PREPAY+18, DECAMT+7, DECAMT+8
, DECAMT+9
^IBR EN+48, EN2+52
$$TYP^IBRFN EN2+21
RELBILL^IBRFN EN2+31
COMP^PRCAAPR PROCESS+30
$$INCDEC^RCBEUTR1 PROCESS+40
$$ADD433^RCBEUTRA TRAN1+12, TRAN3+11
$$SPLIT^RCDPEAD EN2+24
BUILD^RCDPEAP EN+21
$$FMADD^XLFDT EN+11
$$FMTE^XLFDT DOS+11
$$NOW^XLFDT QUEUE+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Charge types enabled for 1st party auto-decrease:"
  • Line Location: SHOWTYP+11
Function Call: WRITE
  • Prompt: !," "_$$GET1^DIQ(342.014,IEN2_",1,",.01,"E")
  • Line Location: SHOWTYP+12
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOWTYP+14
Routine Call
  • DIE
  • Line Location:
    • PROCESS+45
    • TRAN1+19
    • TRAN3+18
    • DEL74+5
    • FLAG+5
Routine Call
  • DIE
  • Line Location:
    • QUEUE+12
Routine Call
  • DIE
  • Line Location:
    • TRAN1+25
    • 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
342.014 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+12, PROCESS+14, PREPAY+14
^PRCA(433 - [#433] TRAN1+26, TRAN3+24, DECAMT+6
^RC(342 - [#342] EN2+42, SHOWTYP+8
^RCD(340 - [#340] PREPAY+10
^RCY(344.4 - [#344.4] EN+18, EN+25, EN2+17
^RCY(344.74 - [#344.74] EN+33
^TMP("IBRBF" EN2+30!, EN2+33, EN2+38, EN2+59!
^TMP("PRCAAPR" PROCESS+31, PROCESS+32!

Label References

Name Line Occurrences
$$AMT PROCESS+34
$$DECAMT PROCESS+23
$$DOS TRAN1+8, TRAN3+8, COMM1+9
$$PREPAY EN+45, EN2+49
$$PROCESS EN+54, EN2+57
$$RXMT TRAN1+22, COMM1+9
$$TRAN1 PROCESS+47
$$TRAN3 PROCESS+48
COMM1 PROCESS+38
DEL74 EN+40, EN+49
EN2 EN+28
FLAG EN+29
QUEUE EN2+49

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMT EN2+6~, PROCESS+34*, PROCESS+36, PROCESS+38, PROCESS+40, PROCESS+47, PROCESS+48, PROCESS+49, TRAN1~, TRAN1+15
, TRAN1+23, TRAN3~, TRAN3+14, TRAN3+20, COMM1~, COMM1+10
BILL1 TRAN3+7~, TRAN3+9*, TRAN3+14, TRAN3+20
BILL3 TRAN1+7~, TRAN1+9*, TRAN1+15, COMM1+6~, COMM1+7*, COMM1+8
BILL430 TRAN1+7~, TRAN1+10*, TRAN1+21
COMMENT EN2+6~, PROCESS+38, PROCESS+40, TRAN1+7~, TRAN3+7~, COMM1~
COMMENT(1 TRAN1+21*, TRAN3+20*, COMM1+8*
COMMENT(2 TRAN1+22*, TRAN3+21*, COMM1+9*
COMMENT(3 TRAN1+23*, TRAN3+22*, COMM1+10*
COMMENT(4 TRAN1+24*, COMM1+11*
COPAY EN2+6~, PROCESS+19*, PROCESS+21, PROCESS+23, PROCESS+34, PROCESS+48, AMT+11, TRAN3~
COUNT SHOWTYP+3~, SHOWTYP+4*, SHOWTYP+11, SHOWTYP+13*
DEBT EN2+6~, PROCESS+26*, PROCESS+27, PROCESS+28
DFN EN+47*, EN2+6~, EN2+51*
DT EN+11, TRAN1+16, TRAN3+15
EOBIEN EN2+6~, EN2+17*, EN2+20
FDA EN2+6~, PROCESS+42!, 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+43*, PROCESS+44*, TRAN1+14*, TRAN1+15*, TRAN1+16*, TRAN1+17*, TRAN1+18*, TRAN3+13*, TRAN3+14*, TRAN3+15*
, TRAN3+16*, TRAN3+17*
FIELD DOS+3~, DOS+8*, DOS+9*, DOS+10
FILE DOS+3~, DOS+6*, DOS+8, DOS+9*, DOS+10, RXMT+6*, RXMT+7
FLAG SHOWTYP+3~, SHOWTYP+5*, SHOWTYP+6, SHOWTYP+9*, SHOWTYP+10
FROM DOS+3~, DOS+5*, DOS+6, RXMT+3~, RXMT+5*, RXMT+6
IBDUZ EN+46*, EN2+6~, EN2+50*
IBNOS EN+46*, EN2+6~, EN2+50*
IBSEQNO EN+46*, EN2+6~, EN2+50*
IEN DOS+3~, DOS+6*, DOS+9*, DOS+10, RXMT+6*, RXMT+7
IEN2 SHOWTYP+3~, SHOWTYP+7*, SHOWTYP+8*, SHOWTYP+9, SHOWTYP+12
IEN350 EN+5~, EN+34*, EN+39, EN+45, EN+46, EN+47, EN+51, EN+54, PROCESS~, PROCESS+10
, PROCESS+23, PROCESS+38, PROCESS+47, PROCESS+48, TRAN1~, TRAN1+8, TRAN1+22, TRAN3~, TRAN3+8, COMM1~
, COMM1+9, DOS~, DOS+5, DOS+9, RXMT~, RXMT+5, 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
IENS41 EN+5~, EN+36*, EN+37, EN2+10*, EN2+11, EN2+49, QUEUE~, QUEUE+11
J EN+5~, EN+14*
PIEN PREPAY+5~, PREPAY+7*, PREPAY+8, PREPAY+9
PRCADB EN2+6~, PROCESS+28*
PRCATY EN2+6~, PROCESS+29*
QUIT EN2+6~, EN2+36*, EN2+38, EN2+57*
RC6AM EN+5~, EN+10*, EN+11
RCARRAY EN+5~, EN+20!, EN+21, EN+28, EN2~, EN2+24
RCBAL EN2+7~, PROCESS+31*, PROCESS+34, AMT~, AMT+10, AMT+11
RCBAL3RD EN+5~, EN+37*, EN+54, EN2+11*, EN2+57, PROCESS~, PROCESS+34, PROCESS+49*, PROCESS+50
RCBILL EN+5~, EN+35*, EN+54, EN2+7~, EN2+17*, EN2+20*, EN2+21, EN2+24, EN2+27, EN2+31
, EN2+33, EN2+38, EN2+45, EN2+49, EN2+57, PROCESS~, PROCESS+38, PROCESS+43, PROCESS+47, PROCESS+48
RCCLAIM EN2+7~, PROCESS+10*, PROCESS+11, PROCESS+12
RCCOPAY EN2+7~, PROCESS+12*, PROCESS+13, PROCESS+14, PROCESS+19, PROCESS+23, PROCESS+26, PROCESS+40, PROCESS+47, PROCESS+48
RCDATA7 PREPAY+5~
RCDAY EN~, EN+8, EN+11*, EN+18, EN+25
RCDAYS EN+5~, EN+7*, EN+11
RCDEBTDA PREPAY+5~, PREPAY+10*, PREPAY+11, PREPAY+14
RCDOS TRAN1+7~, TRAN1+8*, TRAN1+15, TRAN1+22, TRAN3+7~, TRAN3+8*, TRAN3+21
RCERA EN+5~, EN+17*, EN+18*, EN+21, EN+25, EN+27, EN+28, EN+29, EN2~, EN2+10
, EN2+17, EN2+24, FLAG~, FLAG+4
RCGROUP EN2+7~, EN2+40*, EN2+41, EN2+43, EN2+44
RCLINE EN+5~, EN+24*, EN+25*, EN+27, EN+28, EN+29, EN2~, EN2+10, EN2+17, EN2+24
, FLAG~, FLAG+4
RCLST EN2+7~
RCLST( EN2+45*
RCOPAY AMT~, AMT+13
RCPAID EN+5~, EN+37*, EN+54, EN2+11*, EN2+14, EN2+57, PROCESS~, PROCESS+38, PROCESS+47, AMT~
, AMT+11, AMT+13, TRAN1~, TRAN1+21, COMM1~, COMM1+8
RCPREDA PREPAY+5~, PREPAY+13*, PREPAY+14*, PREPAY+16, PREPAY+17, PREPAY+18
RCQIEN EN+5~, EN+32*, EN+33*, EN+34, EN+35, EN+36, EN+40, EN+49
RCRTYPE EN+5~
RCSECS EN+5~, EN+9*, EN+11
RCSTATUS EN2+7~
RCSUB EN2+7~, EN2+37*, EN2+38*, EN2+39, EN2+40, EN2+45, EN2+47, EN2+49, EN2+50, EN2+51
, EN2+54, EN2+57
RCTRANDA EN2+7~, PROCESS+40*, PROCESS+43, PROCESS+44, PROCESS+47*, PROCESS+48*, TRAN1+12*, TRAN1+14, TRAN1+15, TRAN1+16
, TRAN1+17, TRAN1+18, TRAN1+25, TRAN1+26, TRAN1+27, 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, EN2+44
RCTYPE EN2+7~, EN2+39*, EN2+41, EN2+42
RCVPP PREPAY+5~, PREPAY+9*, PREPAY+10
RETURN PROCESS+9*, PROCESS+50*, PROCESS+51, DOS+3~, DOS+4*, DOS+10*, DOS+11*, DOS+12, RXMT+3~, RXMT+4*
, RXMT+7*, RXMT+8, PREPAY+5~, PREPAY+6*, PREPAY+14, PREPAY+20*, PREPAY+22, DECAMT+3~, DECAMT+4*, DECAMT+9*
, DECAMT+10
STAT EN+5~
STAT( EN+14*, PROCESS+16
STATUS EN+5~, EN+39*, EN+40, EN+41, EN+44, EN+51*, EN+52, EN2+7~, EN2+47*, EN2+48
, EN2+54*, EN2+55, PROCESS+14*, PROCESS+16
TRANDA DECAMT+3~, DECAMT+5*, DECAMT+6*, DECAMT+7, DECAMT+8, DECAMT+9
TYPE SHOWTYP+3~, DECAMT+3~
U EN2+17, EN2+20, EN2+27
X EN+5~, EN+54*, SHOWTYP+3~
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