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
Print Page as PDF
Routine: RCXFMSW1

Package: Accounts Receivable

Routine: RCXFMSW1


Information

RCXFMSW1 ;WISC/RFJ-fms writeoff (wr) code sheet generator for a transaction ;1 Feb 2000

Source Information

Source file <RCXFMSW1.m>

Entry Points

Name Comments DBIA/ICR reference
REGENWR ; regenerate write off document (menu option)
BUILDWR(RCTRANDA) ; this entry point is called to generate a wr document to fms for a single transaction
FMSSTAT(RCTRANDA) ; return the fms wr document ^ status ^ file 347 ien
SHOWTRAN(RCTRANDA) ; show data for transaction
ASKOK() ; ask to regenerate write off document

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: REGENWR+3
Function Call: WRITE
  • Prompt: !,"Another user is working with this transaction. Try again later."
  • Line Location: REGENWR+4
Function Call: WRITE
  • Prompt: !,"You can only send a WRITE OFF document for transactions that write off a bill."
  • Line Location: REGENWR+6
Function Call: WRITE
  • Prompt: !,"This transaction was NOT processed."
  • Line Location: REGENWR+8
Function Call: WRITE
  • Prompt: !,"ACCRUED bills do not get sent in detail to FMS."
  • Line Location: REGENWR+10
Function Call: WRITE
  • Prompt: !,"Previously sent in WR FMS document: ",$S($P(FMSDOC,"^")="":"NOT FOUND",1:$P(FMSDOC,"^"))," Status: ",$E($P(FMSDOC,"^",2),1,16)
  • Line Location: REGENWR+13
Function Call: WRITE
  • Prompt: !,"The FMS document has been ",$P(FMSDOC,"^",2)," and cannot be regenerated."
  • Line Location: REGENWR+14
Function Call: WRITE
  • Prompt: !,"The principal amount needs to be greater than ZERO."
  • Line Location: REGENWR+16
Function Call: WRITE
  • Prompt: !,"WR Document regenerated and retransmitted to FMS."
  • Line Location: REGENWR+20
Function Call: WRITE
  • Prompt: !,"Unable to regenerate document. ",$P(Y,"^",2)
  • Line Location: REGENWR+21
Function Call: WRITE
  • Prompt: !!,RCWRLINE
  • Line Location: SHOWTRAN+6
Function Call: WRITE
  • Prompt: !,"TRANSACTION NUMBER: ",RCTRANDA
  • Line Location: SHOWTRAN+7
Function Call: WRITE
  • Prompt: ?40,"WAIVED AMOUNT: ",$J($P(DATA1,"^",5),0,2)
  • Line Location: SHOWTRAN+8
Function Call: WRITE
  • Prompt: !,"BILL NUMBER: ",$P($G(^PRCA(430,+$P(DATA0,"^",2),0)),"^")
  • Line Location: SHOWTRAN+9
Function Call: WRITE
  • Prompt: ?42,"WAIVED DATE: ",Y
  • Line Location: SHOWTRAN+11
Function Call: WRITE
  • Prompt: !?8,"Principal Waived: ",$J($P(DATA8,"^"),9,2)
  • Line Location: SHOWTRAN+12
Function Call: WRITE
  • Prompt: !?8," Interest Waived: ",$J($P(DATA8,"^",2),9,2)
  • Line Location: SHOWTRAN+13
Function Call: WRITE
  • Prompt: !?8," Admin Waived: ",$J($P(DATA8,"^",3)+$P(DATA8,"^",4)+$P(DATA8,"^",5),9,2)
  • Line Location: SHOWTRAN+14
Function Call: WRITE
  • Prompt: !?26,"---------"
  • Line Location: SHOWTRAN+15
Function Call: WRITE
  • Prompt: !?8," TOTAL Waived: ",$J($P(DATA8,"^")+$P(DATA8,"^",2)+$P(DATA8,"^",3)+$P(DATA8,"^",4)+$P(DATA8,"^",5),9,2)
  • Line Location: SHOWTRAN+16
Function Call: WRITE
  • Prompt: !!,RCWRLINE
  • Line Location: SHOWTRAN+17
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKOK+4
Info |  Source |  Entry Points |  Interaction Calls