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

Package: Accounts Receivable

Routine: RCDPRLIS


Information

RCDPRLIS ;WISC/RFJ - list of receipts report ;1 Jun 99

Source Information

Source file <RCDPRLIS.m>

Entry Points

Name Comments DBIA/ICR reference
DQ ; queued report starts here
; PRCA*4.5*321 Extensive changes to this subroutine for filter/sort/ListMan
RCPTTL(RCRECTDA) ; Returns the Total Amount of all of the Receipt Transactions
; PRCA*4.5*349 - Added Method
; Input: RCRECTDA - IEN of the Receipt (#344)
; Returns: Total Amount of all of the Receipt Transactions
TYPE(AREVENT) ; Returns an abbreviated type of the AR EVENT - PRCA*4.5*332 Subroutine added
; Input: AREVENT - External AR Event Type (file 344, field .04)
; Returns: 6 character (max) event type abbreviation
STATUS(STATUS) ; Returns an abbreviated status of the FMS Doc Status - PRCA*4.5*332 Subroutine added
; Input: STATUS - 2nd word of the FMS Doc Status
; Returns: 9 character (max) status
CLEAN ; Clean up ^TMP arrays
SORTSEL() ; Select sort order for report, by Date Opened, FMS Status or Payment Type
; Input: None
; Return: Sort Type D - Date, F - FMS Status, T - Payment Type
SELFILTF(RETURN) ; Ask if user want to filter by FMS status. If yes get list of status.
; Input: None
; Output: RETURN, passed by reference
; RETURN - 1=Filter by FMS Status, 0=Don't
; RETURN(STATUS) - array of FMS Status to include in the report
;
SELFILTT(RETURN) ; Ask if user want to filter by Payment Type. If yes get list of types.
; Input: None
; Output: RETURN, passed by reference
; RETURN - 1=Filter by FMS Status, 0=Don't
; RETURN(STATUS) - array of FMS Status to include in the report
;
BLDS(CODES,PICKED) ; Build DIR(0) string taking into account codes already picked.
; Input: CODES - Set of codes string in fileman format e.g. A:Apple;B:Ball;
; PICKED - Array of values already picked, subscripted by external value e.g. PICKED("Apple")=""
; Return: RETURN in DIR(0) format. Set of codes that only includes ones not picked.
; e.g "SAO^B:Ball"
;
HDR ; Compile header into ^TMP for use in ListMan or report
; Input: None
; Output: Header information in ^TMP($J,"RCDPRLIS","HDR",n) for us in report or ListMan formats
H ; header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: RCDPRLIS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: RCDPRLIS+23
Function Call: WRITE
  • Prompt: !
  • Line Location: RCDPRLIS+32
Function Call: WRITE
  • Prompt: !!,"<*> please wait <*>"
  • Line Location: RCDPRLIS+36
Function Call: WRITE
  • Prompt: !,XX
  • Line Location: DQ+89
Function Call: WRITE
  • Prompt: !?54,"*CR tied to deposit"
  • Line Location: DQ+102
Function Call: WRITE
  • Prompt: !?33,"------ -----------"
  • Line Location: DQ+103
Function Call: WRITE
  • Prompt: !?33,$J($P($G(TOTALS),"^"),6),$J($P($G(TOTALS),"^",2),13,2)
  • Line Location: DQ+104
Function Call: WRITE
  • Prompt: !!,"TOTALS BY TYPE OF PAYMENT"
  • Line Location: DQ+107
Function Call: WRITE
  • Prompt: !,"-------------------------"
  • Line Location: DQ+108
Function Call: WRITE
  • Prompt: !,TYPE,?33,$J($P(TOTALS(TYPE),"^"),6),$J($P(TOTALS(TYPE),"^",2),13,2)
  • Line Location: DQ+110
Function Call: WRITE
  • Prompt: !!,"*** END OF REPORT ***",!
  • Line Location: DQ+113
Function Call: WRITE
  • Prompt: !
  • Line Location: SORTSEL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFILTF+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFILTF+23
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFILTF+38
Function Call: WRITE
  • Prompt: !!,"No FMS Status' were selected. All FMS Status' will be shown",!
  • Line Location: SELFILTF+50
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFILTT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFILTT+23
Function Call: WRITE
  • Prompt: !
  • Line Location: SELFILTT+39
Function Call: WRITE
  • Prompt: !!,"No Payment Types were selected. Filter will not be used",!
  • Line Location: SELFILTT+52
Function Call: WRITE
  • Prompt: !,RCRJLINE
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+2
Function Call: WRITE
  • Prompt: $C(13),^TMP($J,"RCDPRLIS","HDR",1),?(80-$L(%)),%
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !,^TMP($J,"RCDPRLIS","HDR",2)
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !,^TMP($J,"RCDPRLIS","HDR",3)
  • Line Location: H+5
Function Call: WRITE
  • Prompt: !,^TMP($J,"RCDPRLIS","HDR",4)
  • Line Location: H+6
Function Call: WRITE
  • Prompt: !,^TMP($J,"RCDPRLIS","HDR",5)
  • Line Location: H+7
Function Call: WRITE
  • Prompt: !,RCRJLINE
  • Line Location: H+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GECS(2100.1 - [#2100.1] FIELD^DID
^RC(341.1 - [#341.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call