RCDPTAR ;ALB/TJB - EFT TRANSACTION AUDIT REPORT ;1/02/15
Source file <RCDPTAR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Main entry point for this report
; Ask Summary or Detail output |
|
| ASKSUM2() | ; Ask the user if they want to display the summary report by Deposit Date
; or by Deposit Number ; Input: None ; Returns: -1 - User quit or timed out ; 1 - Display Summary report by Deposit Date ; 2 - Display Summary report by Deposit Number |
|
| DET | ; Entry point for detailed report
; Input: variable RCREP defined and equal to "D" ; Output: Written to device |
|
| DET1 | ; Prompt for user selection criteria
|
|
| SHOWONE(STOP) | ; Prompt for device and output data for one EFT
; Input: STOP - Initially set to 0 ; Output: STOP - 1 user entered '^', 0 otherwise |
|
| RUN(RCDATA) | ; Compile and output the report
; Input: RCDATA - see subroutine EFTDA for delimited list of fields ; Output: none |
|
| DN(RCDATA) | ; Lookup by Deposit Number
; Input: RCDATA - null on entry ; Output: RCDATA - passed by refence - see subroutine EFTDATA for delimited list of fields ; Note variable RCDEFLUP is needed by LOOKUP^RCDPUDEP, which is called by the .01 field |
|
| DN2 | ; Lookup Deposit Number ;PRCA*4.5*371 Added looping Tag
|
|
| DT(RCDATA) | ; Deposit Date
; Input: RCDATA - null on entry ; Output: RCDATA - passed by refence - see subroutine EFTDATA for delimited list of fields |
|
| DT1 | ; Ask the user for the Deposit Date
|
|
| DT2 | ; Multiple entries found so prompt for the one that is wanted ;PRCA*4.5*371 Added looping Tag
|
|
| TR(RCDATA) | ; Lookup by Trace Number
; Input: RCDATA - null on entry ; Output: RCDATA - passed by refence - see subroutine EFTDATA for delimited list of fields |
|
| TR2 | ; Use "F" index in EDI EFT Detail file ;PRCA*4.5*371 Added looping Tag
|
|
| EFT(LOCKIEN) | ; Select a single EFT Number
; Input: LOCKIEN - IEN for LOCKBOX DEPOSIT (#344.3) ; Return: LIST(Y) - Delimiter list of information as returned by suboutine EFTDATA |
|
| EFT1 | ;
|
|
| EFTDATA(EFTIEN) | ; Get associated records for this EFT
; Input: EFTIEN - IEN for EFT [344.31] ; Returns: A1^A2^A3^A4^45 ; where A1=ERAIEN - IEN for ERA (#344.4) ; A2=LOCKIEN - IEN for LOCKBOX DEPOSIT (#344.3) ; A3=EFTIEN - IEN for EFT (#344.31) ; A4=DEPIEN - IEN for AR DEPOSIT (#344.1) ; A5=BATCHIEN - IEN for AR BATCH PAYMENT (#344) |
|
| DISPLAY(EFTIEN,LOCKIEN) | ; Display EFT detail during user selection process
; Input: EFTIEN - IEN for EFT (#344.31) ; LOCKIEN - IEN for LOCKBOX DEPOSIT (#344.3) ; Return: X1_" "_X2_" "_X3_" "_X4_" "_X5 ; where X1=PAYER NAME ; X2=TRACE NUMBER ; X3=AMOUNT OF PAYMENT ; X4=DEPOSIT NUMBER ; X5=DEPOSIT DATE |
|
| COMPILE(RCDATA) | ; Compile data for display
; Input: RCDATA - see subroutine EFTDA for delimited list of fields ; Output: ^TMP("RCDPTAR",$J) |
|
| REPORT(RCDATA) | ; Print out the report
; Input: RCDATA - see subroutine EFTDA about for delimited list of fields ; Output: Write statements |
|
| HEADER(RCNOW,RCPG,RCHR,RCDATA) | ; Print Header Section
; Input: RCNOW - DATE/TIME in external format ; RCPG - Current page number ; RCHR - Line of "-" to margin width ; RCDATA - See subroutine EFTDA about for delimited list of fields ; Output: Write statements |
|
| PAUSE() | ; Pause at end of each page for user input
; Input: None ; Output: User response |
|
| CHKP(RCNOW,RCPG,RCHR,RCDATA,RCSCR,LINES) | ; Check if we need to do a page break
; Input: RCNOW - DATE/TIME in external format ; RCPG - Current page number ; RCHR - Line of "-" to margin width ; RCDATA - See subroutine EFTDA about for delimited list of fields ; RCSCR - 1 - Output is going to the users screen, 0 - to printer ; LINES - Current line count |
|
| AGED(EFTIEN) | ; Check if EFT is locked or stale
; Input ; EFTIEN: IEN of EDI THIRD PARTY EFT DETAIL (#344.31) ; Output ; "*" - Warning; "**" - Error; Null - Good |
| 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 |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344 - [#344] | GET1^DIQ |
| ^RCY(344.1 - [#344.1] | Classic Fileman Calls, GET1^DIQ |
| ^RCY(344.3 - [#344.3] | GET1^DIQ, GETS^DIQ |
| ^RCY(344.31 - [#344.31] | Classic Fileman Calls, GET1^DIQ |
| 344.314 | GETS^DIQ |
| ^RCY(344.4 - [#344.4] | GET1^DIQ |
| ^RCY(344.61 - [#344.61] | GET1^DIQ |
