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

Package: Accounts Receivable

Routine: RCDPURET


Information

RCDPURET ;WISC/RFJ-Receipt utilities (transactions) ;1 Jun 99

Source Information

Source file <RCDPURET.m>

Entry Points

Name Comments DBIA/ICR reference
SELTRAN(DA) ; select a transaction for a receipt
; returns -1 for timeout or ^, 0 for no selection, or ien of trans
ADDTRAN(RECTDA,RCDUZ) ; add transaction for receipt (in da)
CSTRAN(RECTDA,RCPAYAMT,CSRECORD) ; add SUSPENSE transaction for receipt (in da) ;PRCA*4.5*301
EDITTRAN(RECTDA,TRANDA) ; edit a receipt transaction
; returns 1 for success, or 0 (error message)
EDITACCT(RECTDA,TRANDA) ; edit the account on a receipt
DELEACCT(RECTDA,TRANDA) ; delete the account on a receipt
EDITFMS(RECTDA,TRANDA,DEFAULT) ; edit fms document number for clearing suspense
MOVETRAN(RCOLDREC,RCOLDTRA,RCNEWREC) ; move a transactions data
CANCTRAN(RECTDA,RECTRAN) ; cancel a transaction
DELETRAN(RECTDA,TRANDA) ; delete a transaction
SETUNAPP(RECTDA,TRANDA,UNAPPNUM) ; store the unapplied deposit number
PAYDEF(DEBTOR) ; get default for payment amount (used in input templates for payments)
PENDPAY(DEBTOR) ; return pending payments for a debtor
; returns ^tmp($j,"rcdpurec","pp",rectda,tranda)=data in 344.01
; and the total pending payment dollars
TRACE(DEBTOR) ;ENTER TOP TRACE NUMBER FOR TOP RECEIPTS
TRACEQ
GETRSN() ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Amount Owed: $",$J($$PAYDEF^RCDPURET($P(^RCY(344,DA(1),1,DA,0),U,9)),0,2)
  • Line Location: CSTRAN+8
Function Call: WRITE
  • Prompt: !,"WARNING: Credit Card Number NOT entered."
  • Line Location: EDITTRAN+59
Function Call: WRITE
  • Prompt: !,"WARNING: Date of check is greater than the date of payment."
  • Line Location: EDITTRAN+60
Function Call: WRITE
  • Prompt: !,"Adding a NEW payment transaction to receipt "_$P(^RCY(344,RCNEWREC,0),"^")_": "
  • Line Location: MOVETRAN+4
Function Call: WRITE
  • Prompt: "# ",RCNEWTRA
  • Line Location: MOVETRAN+8
Function Call: WRITE
  • Prompt: !,"A comment is required when changing the status of an item in Suspense. Please",!,"try again."
  • Line Location: GETRSN+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCD(340 - [#340] Classic Fileman Calls
344.01 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call