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

Package: Accounts Receivable

Routine: RCDPUDEP


Information

RCDPUDEP ;WISC/RFJ - Deposit Utilities ;29/MAY/2008

Source Information

Source file <RCDPUDEP.m>

Entry Points

Name Comments DBIA/ICR reference
ADDDEPT(DEPOSIT,DEPDATE) ; if the deposit is not entered, add it
SELDEPT(ADDNEW) ; select a deposit
; if $g(addnew) allow adding a new deposit
; returns -1 for timeout or ^, 0 for no selection, or ien of deposit
DICW ; write identifier code for receipt lookup
LOOKUP ; special lookup on deposits, called from ^dd(344.1,.01,7.5)
; if rcdeflup flag not set, do not use special lookup
EDITDEP(DA,ASKDATE) ; edit the deposit
; if $g(askdate) ask only the deposit date
CONFIRM(DA) ; confirm the deposit
TOTAL(RCDEPTDA) ; compute total dollars for all receipts on the deposit
AUTODEP(X) ; Function returns 1 if the deposit ticket # in X is in the auto
; deposit number space 269xxx, 369xxx, 469xxx, 569xxx, or 669xxx
; and hasn't been previously entered via lockbox interface.
;
CHK ; Check if a valid input
MSG ;
PREPDEPT()
DISPOPT(RCARRAY) ; display the deposits to select from
ARYLST ;
ARYPRNT ;
PROMPT() ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?13,"by: ",$E($P($G(^VA(200,+$P(DATA,"^",6),0)),"^"),1,15)
  • Line Location: DICW+4
Function Call: WRITE
  • Prompt: ?35," on: ",$E($P(DATA,"^",7),4,5),"/",$E($P(DATA,"^",7),6,7),"/",$E($P(DATA,"^",7),2,3)
  • Line Location: DICW+7
Function Call: WRITE
  • Prompt: ?50," amt: $",$J($P(DATA,"^",4),9,2)
  • Line Location: DICW+9
Function Call: WRITE
  • Prompt: ?69," ",$P("N/A^OPEN^DEPOSITED^CONFIRMED^PROCESSED^VOID","^",+$P(DATA,"^",12)+1)
  • Line Location: DICW+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISPOPT+14
Function Call: WRITE
  • Prompt: RCCT,?3,$P(RCDATA,U)
  • Line Location: DISPOPT+20
Function Call: WRITE
  • Prompt: ?13,"by: ",$E($P($G(^VA(200,+$P(RCDATA,"^",6),0)),"^"),1,15)
  • Line Location: DISPOPT+21
Function Call: WRITE
  • Prompt: ?35," on: ",$E($P(RCDATA,"^",7),4,5),"/",$E($P(RCDATA,"^",7),6,7),"/",$E($P(RCDATA,"^",7),2,3)
  • Line Location: DISPOPT+23
Function Call: WRITE
  • Prompt: ?50," amt: $",$J($P(RCDATA,"^",4),9,2)
  • Line Location: DISPOPT+24
Function Call: WRITE
  • Prompt: ?69," ",$P("N/A^OPEN^DEPOSITED^CONFIRMED^PROCESSED^VOID","^",+$P(RCDATA,"^",12)+1),!
  • Line Location: DISPOPT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: DISPOPT+33
Function Call: WRITE
  • Prompt: !!,?3,"Choose from:",!
  • Line Location: ARYPRNT+4
Function Call: WRITE
  • Prompt: ?3,I
  • Line Location: ARYPRNT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ARYPRNT+12
Function Call: WRITE
  • Prompt: !!,?5,"You may enter a new AR DEPOSIT, if you wish",!
  • Line Location: ARYPRNT+20
Function Call: WRITE
  • Prompt: ?5,"Answer must be 7 characters in length. 9 digits can only be entered",!
  • Line Location: ARYPRNT+21
Function Call: WRITE
  • Prompt: ?5,"by automated payments.",!!
  • Line Location: ARYPRNT+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.1 - [#344.1] Classic Fileman Calls,  FIND^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call