Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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+48
Function Call: WRITE
  • Prompt: !!,"Note: This bill has NO PRINCIPAL BALANCE to decrease !"
  • Line Location: ADJBILL+52
Function Call: WRITE
  • Prompt: !,"Exiting bill adjustment."
  • Line Location: ADJBILL+64
Function Call: WRITE
  • Prompt: !!,"If you process the transaction, the bill will look like:"
  • Line Location: ADJBILL+81
Function Call: WRITE
  • Prompt: !,"Current Principal Balance: ",$J($P(RCDATA7,"^"),11,2)
  • Line Location: ADJBILL+82
Function Call: WRITE
  • Prompt: !," NEW ",RCBETYPE," Adjustment: ",$J(RCAMOUNT,11,2)
  • Line Location: ADJBILL+83
Function Call: WRITE
  • Prompt: !," -----------"
  • Line Location: ADJBILL+84
Function Call: WRITE
  • Prompt: !," NEW Principal Balance: ",$J($P(RCDATA7,"^")+RCAMOUNT,11,2)
  • Line Location: ADJBILL+85
Function Call: WRITE
  • Prompt: !," *** W A R N I N G: Adjustment NOT Processed! ***"
  • Line Location: ADDADJ+4
Function Call: WRITE
  • Prompt: !," Adjustment Transaction: ",RCTRANDA," has been added."
  • Line Location: ADDADJ+5
Function Call: WRITE
  • Prompt: !!," * * * * Transmission will be held until "_Y_" * * * *"
  • Line Location: ADDADJ+10
Function Call: WRITE
  • Prompt: !!,"Enter a comment for the ",RCBETYPE," Adjustment:"
  • Line Location: ADDADJ+13
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCA(430 - [#430] GET1^DIQ
^PRCA(430.2 - [#430.2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call