RCDPRLIS ;WISC/RFJ - list of receipts report ;1 Jun 99
Source file <RCDPRLIS.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^GECS(2100.1 - [#2100.1] | FIELD^DID |
^RC(341.1 - [#341.1] | GET1^DIQ |