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

Package: Accounts Receivable

Routine: RCDPLPL4


Information

RCDPLPL4 ;ALB/SAB - Multiple Bill Link Payments ;17 Mar 16

Source Information

Source file <RCDPLPL4.m>

Entry Points

Name Comments DBIA/ICR reference
MULTIPLE(RCRECTDA,RCTRANDA,RCGECSCR,RCSTATUS) ; Process multiple bills for the same receipt transaction.
GETACCT(RCRECTDA) ; Ask the user for the account
GETAMT(RCACCT,RCAMT) ; Ask the user for the amount
GETCMT() ; Ask the user for a comment
CONTINUE(RCAMTRM) ; Ask the user to see if they wish to continue
CONQUIT() ;
COPYTRAN(RCRECTDA,RCTDATA,RCAMT,RCGECSCR) ;
; Input
; RCRECTDA - IEN of Receipt file #344
; RCPAYDA - IEN of Receipt Transaction file #344.01
; RCAMT - Amount
; RCGECSCR - null = receipt not processed
; Output
; Update Receipt file #344 and Audit log #344,71
ADJTRAMT(RCRECTDA,RCTRANDA,RCAMT,RCGECSCR,RCARRAY) ; Added RCARRAY - PRCA*4.5*326
; Input
; RCRECTDA - IEN of Receipt file #344
; RCPAYDA - IEN of Receipt Transaction file #344.01
; RCAMT - Amount
; RCGECSCR - null = receipt not processed
; RCARRAY - Array of Multi-Trans split information (OPTIONAL)
; Output
; Update Receipt file #344 and Audit log #344,71
LINKPAY(RCRECTDA,RCTRANDA,RCACCT) ;
REMCMT(RCRECTDA,RCTRANDA) ;
GETACTNM(RCACCT) ;
UPDCMT(RCRECTDA,RCTRANDA,RCCMT) ;
PROCESS(RCRECTDA,RCTRANDA,RCTDNM) ;
ENDMSG(RCSTATUS) ;
GETANS(RCIDX) ;
GETANS1() ;
PAYCHK(RCACCT,RCAMT) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MULTIPLE+26
Function Call: WRITE
  • Prompt: !,?6,"Invalid Bill Number, Please try again...."
  • Line Location: MULTIPLE+32
Function Call: WRITE
  • Prompt: !!,"*** RECEIPT HAS BEEN FULLY DISBURSED ***",!
  • Line Location: MULTIPLE+67
Function Call: WRITE
  • Prompt: !
  • Line Location: MULTIPLE+73
Function Call: WRITE
  • Prompt: !,?5,"PATIENT NAME",?36,"ACCOUNT",?50,"PAYMENT TO APPLY",!
  • Line Location: MULTIPLE+78
Function Call: WRITE
  • Prompt: ?5,RCNM,?36,RCDACNO,?50,"$",$J($FN($P(RCDATA,U,2),",",2),15),!
  • Line Location: MULTIPLE+94
Function Call: WRITE
  • Prompt: !!
  • Line Location: MULTIPLE+107
Function Call: WRITE
  • Prompt: !,"***** PAYMENT AMOUNT LEFT IN SUSPENSE = $",$J(RCTAMT,"",2)," ... done."
  • Line Location: MULTIPLE+141
Function Call: WRITE
  • Prompt: !,RCTDNM," - Updating the Linked Account with PMT = $",$J(RCTAMT,"",2)," ... done."
  • Line Location: MULTIPLE+148
Function Call: WRITE
  • Prompt: !,RCTDNM," - Receipt has not been processed. Account linked but not"
  • Line Location: MULTIPLE+153
Function Call: WRITE
  • Prompt: !,?6,"updated for the PMT = $",$J(RCTAMT,"",2)
  • Line Location: MULTIPLE+154
Function Call: WRITE
  • Prompt: !,"***** PAYMENT AMOUNT LEFT IN SUSPENSE = $",$J(RCTAMT,"",2)," ... done."
  • Line Location: MULTIPLE+168
Function Call: WRITE
  • Prompt: !,RCTDNM," - Updating the Linked Account with PMT = $",$J(RCTAMT,"",2)," ... done."
  • Line Location: MULTIPLE+178
Function Call: WRITE
  • Prompt: !,RCTDNM," - Receipt has not been processed. Account linked but not"
  • Line Location: MULTIPLE+182
Function Call: WRITE
  • Prompt: !,?6,"updated for the PMT = $",$J(RCTAMT,"",2)
  • Line Location: MULTIPLE+183
Function Call: WRITE
  • Prompt: !!
  • Line Location: MULTIPLE+188
Function Call: WRITE
  • Prompt: !,"This bill's status is currently ",RCSTAT,".",!,"Please select a different account."
  • Line Location: GETACCT+26
Function Call: WRITE
  • Prompt: !,"A comment is required when changing the status of an item in Suspense. Please",!,"try again."
  • Line Location: GETCMT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: !,"+------------------------------------------------------------------------------+"
  • Line Location: PROCESS+7
Function Call: WRITE
  • Prompt: !,"| An ERROR has occurred when processing payment ",RCTRANDA," on receipt ",$P(^RCY(344,RCRECTDA,0),"^"),".",?79,"|"
  • Line Location: PROCESS+8
Function Call: WRITE
  • Prompt: !,"| The error message returned during processing is:",?79,"|"
  • Line Location: PROCESS+9
Function Call: WRITE
  • Prompt: !,"|",?79,"|"
  • Line Location: PROCESS+10
Function Call: WRITE
  • Prompt: !,"| ",$P(RCERROR,"^",2),?79,"|"
  • Line Location: PROCESS+11
Function Call: WRITE
  • Prompt: !,"|",?79,"|"
  • Line Location: PROCESS+12
Function Call: WRITE
  • Prompt: !,"| You will need to correct the error before you can link the payment.",?79,"|"
  • Line Location: PROCESS+13
Function Call: WRITE
  • Prompt: !,"+------------------------------------------------------------------------------+"
  • Line Location: PROCESS+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PROCESS+15
Function Call: WRITE
  • Prompt: !,"Account "_RCTDNM_" was deleted and not linked."
  • Line Location: PROCESS+17
Function Call: WRITE
  • Prompt: !,"Since the FMS cash receipt document is Accepted in FMS, you need to go"
  • Line Location: ENDMSG+3
Function Call: WRITE
  • Prompt: !,"online in FMS and transfer the amount paid out of the station's suspense"
  • Line Location: ENDMSG+4
Function Call: WRITE
  • Prompt: !,"account.",!
  • Line Location: ENDMSG+5
Function Call: WRITE
  • Prompt: !,"Mail message(s) sent to RCDP PAYMENTS mail group.",!
  • Line Location: ENDMSG+6
Function Call: WRITE
  • Prompt: !,"Since the FMS cash receipt document is NOT Accepted in FMS, you can use"
  • Line Location: ENDMSG+8
Function Call: WRITE
  • Prompt: !,"the option Process Receipt located under the Receipt Processing Menu"
  • Line Location: ENDMSG+9
Function Call: WRITE
  • Prompt: !,"to regenerate the cash receipt document to FMS.",!
  • Line Location: ENDMSG+10
Function Call: WRITE
  • Prompt: !,"Enter Y or N to continue."
  • Line Location: GETANS1+7
Function Call: WRITE
  • Prompt: !,"Select to Y to review the payments, N to skip the review."
  • Line Location: GETANS1+8
Function Call: WRITE
  • Prompt: !,"Select to Y to review the payments, N to skip the review."
  • Line Location: GETANS1+12
Function Call: WRITE
  • Prompt: !,"The requested payment is greater than then amount owed please try again.",!
  • Line Location: PAYCHK+10

FileMan Files Accessed Via FileMan Db Call

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