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

Package: Accounts Receivable

Routine: RCBEADJ


Information

RCBEADJ ;WISC/RFJ-adjustment ;Jun 06, 2014@19:11:19

Source Information

Source file <RCBEADJ.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Accounts Receivable 12 EOB^PRCADJ  $$FPS^RCAMFN01  $$OUTOFBAL^RCBDBBAL  WARN^RCBEADJ1  $$GETABILL^RCBEUBIL  $$INCDEC^RCBEUTR1  $$EXEMPT^RCBEUTR2  $$EDIT433^RCBEUTRA  
$$LDATE^RCRJR  (CSITRN,CSITRY)^RCTCSPD5  (DECADJ,INCADJ)^RCTCSPU  SHOWBILL^RCWROFF1  
VA FileMan 3 DD^%DT  $$GET1^DIQ  ^DIR  

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

Package Total Caller Graph
Accounts Receivable 6 PRCAC TR DECREASE  PRCAC TR INCREASE  PRCARFD  RCDPAPL1  RCDPEWL6  RCRCRT  

Entry Points

Name Comments DBIA/ICR reference
DECREASE ; menu option: create a decrease adjustment
INCREASE ; menu option: create an increase adjustment
ADJUST(RCBETYPE,RCEDI) ; create an adjustment
; rcbetype = INCREASE for increase or DECREASE for decrease
; rcedi = the ien of the bill selected via the EDI Worklist;ien of
; XX the ERA entry or null/undefined if bill should be selected
ADJBILL(RCBETYPE,RCBILLDA,RCEDIWL) ; adjust a bill
; RCEDIWL = ien of ERA entry if called from worklist
ADDADJ ; add adjustment
UNLOCK ; unlock bill and transaction
INTADMIN(RCBILLDA) ; ask and adjust the interest and admin
INTC35B ;Check if CS5B entry needed for exempt transaction
ASKOK(RCBETYPE) ; ask record decrease or increase transaction
ASKAUPO() ; ask record even though marked for auto post PRCA*4.5*298
ASKFIX() ; ask to fix bill's balance
ASKEXEMP() ; ask to record an exempt transaction
ASKCONT() ; ask if contract adjustment
ASKREV() ; Ask if Treasury reversal *315/DRF
ADJNUM(RCBILLDA) ; get next adjustment number for a bill
AMOUNT(RCBILLDA,RCBETYPE) ; enter the adjustment amount for a bill
ASKCM() ; ask if the action is being performed due to the claims matching process *315
THRDPRTY(RCBILLDA) ; check whether or not bill is THIRD PARTY

External References

Name Field # of Occurrence
DD^%DT ADDADJ+8, INTC35B+2
$$GET1^DIQ THRDPRTY+2, THRDPRTY+3
^DIR ASKOK+4, ASKAUPO+4, ASKFIX+5, ASKEXEMP+4, ASKCONT+4, ASKREV+4, AMOUNT+7, ASKCM+4
EOB^PRCADJ ADDADJ+23
$$FPS^RCAMFN01 ADDADJ+8, INTC35B+2
$$OUTOFBAL^RCBDBBAL ADJBILL+11
WARN^RCBEADJ1 ADJBILL+66
$$GETABILL^RCBEUBIL ADJUST+9
$$INCDEC^RCBEUTR1 ADDADJ+1
$$EXEMPT^RCBEUTR2 INTADMIN+15
$$EDIT433^RCBEUTRA ADDADJ+12
$$LDATE^RCRJR ADDADJ+8, INTC35B+2
CSITRN^RCTCSPD5 ADDADJ+5
CSITRY^RCTCSPD5 ADDADJ+7
DECADJ^RCTCSPU ADDADJ+4, INTC35B+1
INCADJ^RCTCSPU ADDADJ+6
SHOWBILL^RCWROFF1 ADJBILL+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ADJUST+13
Function Call: WRITE
  • Prompt: !,"ANOTHER USER IS CURRENTLY WORKING WITH THIS BILL."
  • Line Location: ADJBILL+4
Function Call: WRITE
  • Prompt: !!,"Checking the bill's balance ..."
  • Line Location: ADJBILL+10
Function Call: WRITE
  • Prompt: " IN Balance!"
  • Line Location: ADJBILL+12
Function Call: WRITE
  • Prompt: " OUT of Balance!"
  • Line Location: ADJBILL+19
Function Call: WRITE
  • Prompt: !!," BALANCE:",$J("Calculated",12),$J("Stored",12)
  • Line Location: ADJBILL+20
Function Call: WRITE
  • Prompt: !," ------- ",$J("------------",12),$J("------------",12)
  • Line Location: ADJBILL+21
Function Call: WRITE
  • Prompt: !," Principal Balance:",$J($P(RCBALANC,"^",1),12,2),$J($P(RCDATA7,"^",1),12,2)
  • Line Location: ADJBILL+22
Function Call: WRITE
  • Prompt: " <<-- OUT OF BALANCE"
  • Line Location: ADJBILL+23
Function Call: WRITE
  • Prompt: !," Interest Balance:",$J($P(RCBALANC,"^",2),12,2),$J($P(RCDATA7,"^",2),12,2)
  • Line Location: ADJBILL+24
Function Call: WRITE
  • Prompt: " <<-- OUT OF BALANCE"
  • Line Location: ADJBILL+25
Function Call: WRITE
  • Prompt: !," Admin Balance:",$J($P(RCBALANC,"^",3),12,2),$J($P(RCDATA7,"^",3),12,2)
  • Line Location: ADJBILL+26
Function Call: WRITE
  • Prompt: " <<-- OUT OF BALANCE"
  • Line Location: ADJBILL+27
Function Call: WRITE
  • Prompt: !," MF Balance:",$J($P(RCBALANC,"^",4),12,2),$J($P(RCDATA7,"^",4),12,2)
  • Line Location: ADJBILL+28
Function Call: WRITE
  • Prompt: " <<-- OUT OF BALANCE"
  • Line Location: ADJBILL+29
Function Call: WRITE
  • Prompt: !," CC Balance:",$J($P(RCBALANC,"^",5),12,2),$J($P(RCDATA7,"^",5),12,2)
  • Line Location: ADJBILL+30
Function Call: WRITE
  • Prompt: " <<-- OUT OF BALANCE"
  • Line Location: ADJBILL+31
Function Call: WRITE
  • Prompt: !," ------- ",$J("-------------",12),$J("-------------",12)
  • Line Location: ADJBILL+32
Function Call: WRITE
  • Prompt: !," TOTAL:",$J(TOTALCAL,12,2),$J(TOTALSTO,12,2)
  • Line Location: ADJBILL+33
Function Call: WRITE
  • Prompt: " <<-- OUT OF BALANCE"
  • Line Location: ADJBILL+34
Function Call: WRITE
  • Prompt: !," NOTE: You must fix the Balance Discrepancy before processing an adjustment!"
  • Line Location: ADJBILL+37
Function Call: WRITE
  • Prompt: !," Balance Discrepancy FIXED!"
  • Line Location: ADJBILL+47
Function Call: WRITE
  • Prompt: !!,"Note: This bill has NO PRINCIPAL BALANCE to decrease !"
  • Line Location: ADJBILL+51
Function Call: WRITE
  • Prompt: !,"Exiting bill adjustment."
  • Line Location: ADJBILL+63
Function Call: WRITE
  • Prompt: !!,"If you process the transaction, the bill will look like:"
  • Line Location: ADJBILL+80
Function Call: WRITE
  • Prompt: !,"Current Principal Balance: ",$J($P(RCDATA7,"^"),11,2)
  • Line Location: ADJBILL+81
Function Call: WRITE
  • Prompt: !," NEW ",RCBETYPE," Adjustment: ",$J(RCAMOUNT,11,2)
  • Line Location: ADJBILL+82
Function Call: WRITE
  • Prompt: !," -----------"
  • Line Location: ADJBILL+83
Function Call: WRITE
  • Prompt: !," NEW Principal Balance: ",$J($P(RCDATA7,"^")+RCAMOUNT,11,2)
  • Line Location: ADJBILL+84
Function Call: WRITE
  • Prompt: !," *** W A R N I N G: Adjustment NOT Processed! ***"
  • Line Location: ADDADJ+2
Function Call: WRITE
  • Prompt: !," Adjustment Transaction: ",RCTRANDA," has been added."
  • Line Location: ADDADJ+3
Function Call: WRITE
  • Prompt: !!," * * * * Transmission will be held until "_Y_" * * * *"
  • Line Location: ADDADJ+8
Function Call: WRITE
  • Prompt: !!,"Enter a comment for the ",RCBETYPE," Adjustment:"
  • Line Location: ADDADJ+11
Function Call: WRITE
  • Prompt: !!,"You have the option to automatically EXEMPT the interest"
  • Line Location: INTADMIN+10
Function Call: WRITE
  • Prompt: !,"and administrative charges. This will close the bill."
  • Line Location: INTADMIN+11
Function Call: WRITE
  • Prompt: !!,"Creating an EXEMPT transaction ..."
  • Line Location: INTADMIN+14
Function Call: WRITE
  • Prompt: !," *** W A R N I N G: EXEMPTION NOT Processed! ***"
  • Line Location: INTADMIN+16
Function Call: WRITE
  • Prompt: !," Exempt Transaction: ",RCTRANDA," has been added."
  • Line Location: INTADMIN+17
Function Call: WRITE
  • Prompt: !!," * * * * Transmission will be held until "_Y_" * * * *"
  • Line Location: INTC35B+2
Function Call: WRITE
  • Prompt: !," Current Bill Status: ",$P($G(^PRCA(430.3,+$P($G(^PRCA(430,RCBILLDA,0)),"^",8),0)),"^")
  • Line Location: INTC35B+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKOK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKAUPO+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKFIX+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCONT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKREV+4
Function Call: WRITE
  • Prompt: !!,"Enter the ",RCBETYPE," Adjustment AMOUNT, from .01 to ",$J(PRINBAL,0,2),"."
  • Line Location: AMOUNT+4
Routine Call
  • DIR
  • Line Location:
    • ASKOK+4
    • ASKAUPO+4
    • ASKFIX+5
    • ASKEXEMP+4
    • ASKCONT+4
    • ASKREV+4
    • AMOUNT+7
    • ASKCM+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCA(430 - [#430] GET1^DIQ
^PRCA(430.2 - [#430.2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBM(361.1 - [#361.1] ADJBILL+60
^PRCA(430 - [#430] ADJUST+11, ADJUST+14, ADJBILL+4, ADJBILL+17, ADJBILL+45*, ADJBILL+51, ADJBILL+79, ADDADJ+4, ADDADJ+6, ADDADJ+18
, UNLOCK+1, INTADMIN+4, INTC35B+1, INTC35B+4, AMOUNT+2
^PRCA(430.3 - [#430.3] INTC35B+4
^PRCA(433 - [#433] ADDADJ+22, UNLOCK+2, ADJNUM+3
^RCY(344.4 - [#344.4] ADJBILL+56, ADJBILL+58, ADJBILL+59

Label References

Name Line Occurrences
$$AMOUNT ADJBILL+69
$$ASKAUPO ADJBILL+63
$$ASKCM ADJUST+14
$$ASKCONT ADJBILL+76
$$ASKEXEMP INTADMIN+12
$$ASKFIX ADJBILL+37
$$ASKOK ADJBILL+87
$$ASKREV ADJUST+12
$$THRDPRTY ADJBILL+76
ADJBILL ADJUST+17
ADJUST DECREASE+1, INCREASE+1
INTADMIN ADJBILL+51, ADDADJ+15
UNLOCK ADJBILL+15, ADJBILL+51, ADJBILL+63, ADJBILL+70, ADJBILL+76, ADJBILL+87, ADDADJ+2, ADDADJ+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ADJUST+14*, ADJNUM+1~
ADJUST ADJNUM+1~, ADJNUM+3*, ADJNUM+4
AP ADJBILL+54~, ADJBILL+55*, ADJBILL+56, ADJBILL+58, ADJBILL+60*, ADJBILL+63
BILL ADJBILL+55~
CAT THRDPRTY+1~, THRDPRTY+2*, THRDPRTY+3
DATA1 ADJNUM+1~, ADJNUM+3*
DIQ2 ASKOK+1~, ASKAUPO+1~, ASKFIX+1~, ASKEXEMP+1~, ASKCONT+1~, ASKREV+1~, ASKCM+1~
DIR ASKOK+1~, ASKAUPO+1~, ASKFIX+1~, ASKEXEMP+1~, ASKCONT+1~, ASKREV+1~, AMOUNT+1~, ASKCM+1~
DIR("A" ASKOK+3*, ASKAUPO+3*, ASKFIX+4*, ASKEXEMP+3*, ASKCONT+3*, ASKREV+3*, AMOUNT+6*, ASKCM+3*
DIR("B" ASKOK+2*, ASKAUPO+2*, ASKFIX+2*, ASKEXEMP+2*, ASKCONT+2*, ASKREV+2*, ASKCM+2*
DIR(0 ASKOK+2*, ASKAUPO+2*, ASKFIX+2*, ASKEXEMP+2*, ASKCONT+2*, ASKREV+2*, AMOUNT+5*, ASKCM+2*
DIRUT ASKOK+1~, ASKAUPO+1~, ASKFIX+1~, ASKEXEMP+1~, ASKCONT+1~, ASKREV+1~, AMOUNT+1~, ASKCM+1~
DT ADDADJ+8, INTC35B+2
DTOUT ASKOK+1~, ASKOK+5, ASKAUPO+1~, ASKAUPO+5, ASKFIX+1~, ASKFIX+6, ASKEXEMP+1~, ASKEXEMP+5, ASKCONT+1~, ASKCONT+5
, ASKREV+1~, ASKREV+5, AMOUNT+1~, AMOUNT+8, ASKCM+1~, ASKCM+5
DUOUT ASKOK+1~, ASKOK+5, ASKAUPO+1~, ASKAUPO+5, ASKFIX+1~, ASKFIX+6, ASKEXEMP+1~, ASKEXEMP+5, ASKCONT+1~, ASKCONT+5
, ASKREV+1~, ASKREV+5, AMOUNT+1~, AMOUNT+8, ASKCM+1~, ASKCM+5
EOB ADJBILL+55~, ADJBILL+59*, ADJBILL+60
ERA ADJBILL+55~*, ADJBILL+56*, ADJBILL+58, ADJBILL+59
>> GOTBILL ADJUST+4, ADJUST+5, ADJUST+9, ASKOK+5, ASKAUPO+5, ASKFIX+6, ASKEXEMP+5, ASKCONT+5, ASKREV+5, AMOUNT+8
, ASKCM+5
I ADJBILL+2~, ADDADJ+19*
PRCABN ADDADJ+5*, ADDADJ+6*, ADDADJ+7*, ADDADJ+21~, ADDADJ+22*
PRCAEN ADDADJ+21~, ADDADJ+22*
PRCAMT ADDADJ+21~, ADDADJ+22*
PRINBAL AMOUNT+1~, AMOUNT+2*, AMOUNT+3*, AMOUNT+4, AMOUNT+5
RCAMOUNT ADJBILL+2~, ADJBILL+69*, ADJBILL+70, ADJBILL+73*, ADJBILL+82, ADJBILL+84, ADDADJ+1, INTADMIN+1~, INTADMIN+4*, INTADMIN+5
, INTADMIN+8, INTADMIN+15
RCBALANC ADJBILL+2~, ADJBILL+11*, ADJBILL+12, ADJBILL+15, ADJBILL+16, ADJBILL+22, ADJBILL+23, ADJBILL+24, ADJBILL+25, ADJBILL+26
, ADJBILL+27, ADJBILL+28, ADJBILL+29, ADJBILL+30, ADJBILL+31, ADJBILL+40, ADJBILL+41, ADJBILL+42, ADJBILL+43, ADJBILL+44
RCBETYPE ADJUST~, ADJUST+11, ADJUST+14, ADJUST+17, ADJBILL~, ADJBILL+51, ADJBILL+63, ADJBILL+66, ADJBILL+69, ADJBILL+73
, ADJBILL+76, ADJBILL+82, ADJBILL+87, ADDADJ+4, ADDADJ+6, ADDADJ+11, ADDADJ+15, INTC35B+1, ASKOK~, ASKOK+3
, AMOUNT~, AMOUNT+3, AMOUNT+4, AMOUNT+6
RCBILLDA ADJUST+4~, ADJUST+5, ADJUST+9*, ADJUST+10, ADJUST+11, ADJUST+14, ADJUST+17, ADJBILL~, ADJBILL+4, ADJBILL+7
, ADJBILL+11, ADJBILL+15, ADJBILL+17, ADJBILL+37*, ADJBILL+45, ADJBILL+51, ADJBILL+60, ADJBILL+66, ADJBILL+69, ADJBILL+76
, ADJBILL+79, ADDADJ+1, ADDADJ+4, ADDADJ+5, ADDADJ+6, ADDADJ+7, ADDADJ+15, ADDADJ+18, ADDADJ+22, UNLOCK+1
, INTADMIN~, INTADMIN+4, INTADMIN+15, INTC35B+1, INTC35B+4, ADJNUM~, ADJNUM+3, AMOUNT~, AMOUNT+2, THRDPRTY~
, THRDPRTY+2
RCDATA7 ADJBILL+2~, ADJBILL+17*, ADJBILL+18, ADJBILL+22, ADJBILL+23, ADJBILL+24, ADJBILL+25, ADJBILL+26, ADJBILL+27, ADJBILL+28
, ADJBILL+29, ADJBILL+30, ADJBILL+31, ADJBILL+40*, ADJBILL+41*, ADJBILL+42*, ADJBILL+43*, ADJBILL+44*, ADJBILL+45, ADJBILL+79*
, ADJBILL+81, ADJBILL+84, ADDADJ+18*, ADDADJ+19, ADDADJ+20
>> RCDPGQ ASKOK+5*, ASKAUPO+5*, ASKFIX+6*, ASKEXEMP+5*, ASKCONT+5*, ASKREV+5*, AMOUNT+8*, ASKCM+5*
RCEDI ADJUST~, ADJUST+5, ADJUST+9, ADJUST+17
RCEDIWL ADJBILL~, ADDADJ+4, ADDADJ+6, INTC35B+1
RCLIST ADJUST+6!, ADJBILL+2~
RCONTADJ ADJBILL+2~, ADJBILL+76*, ADDADJ+1
RCTRANDA ADJUST+6!, ADJBILL+2~, ADDADJ+1*, ADDADJ+2, ADDADJ+3, ADDADJ+4, ADDADJ+5, ADDADJ+6, ADDADJ+12, ADDADJ+22
, UNLOCK+2, INTADMIN+1~, INTADMIN+15*, INTADMIN+16, INTADMIN+17, INTC35B+1, ADJNUM+1~, ADJNUM+2*, ADJNUM+3*
RCTRREV ADJUST+6!, ADJUST+12*, ADDADJ+5, ADDADJ+6, ADDADJ+7
>> REFMS ADDADJ+8, INTC35B+2
SEQ ADJBILL+55~, ADJBILL+57*, ADJBILL+58*, ADJBILL+59
TOTALCAL ADJBILL+2~, ADJBILL+16*, ADJBILL+33, ADJBILL+34
TOTALSTO ADJBILL+2~, ADJBILL+18*, ADJBILL+33, ADJBILL+34
U ADJBILL+59, ADJBILL+60
X ADJBILL+2~, ADDADJ+18*, ADDADJ+19*, ADDADJ+20, ASKOK+1~, ASKAUPO+1~, ASKFIX+1~, ASKEXEMP+1~, ASKCONT+1~, ASKREV+1~
, AMOUNT+1~, ASKCM+1~
Y ADJBILL+2~, ADJBILL+37*, ADJBILL+63*, ADJBILL+87*, ADDADJ+8*, ADDADJ+12*, INTADMIN+1~, INTADMIN+12*, INTC35B+2*, ASKOK+1~
, ASKOK+5*, ASKOK+6, ASKAUPO+1~, ASKAUPO+5*, ASKAUPO+6, ASKFIX+1~, ASKFIX+6*, ASKFIX+7, ASKEXEMP+1~, ASKEXEMP+5*
, ASKEXEMP+6, ASKCONT+1~, ASKCONT+5*, ASKCONT+6, ASKREV+1~, ASKREV+5*, ASKREV+6, AMOUNT+1~, AMOUNT+8*, AMOUNT+9
, ASKCM+1~, ASKCM+5*, ASKCM+6
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