RCDPEDA2 ;AITC/DW - ACTIVITY REPORT ;Feb 17, 2017@10:37:00
Source file <RCDPEDA2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RPT2(INPUT) | ;EP from RCDPEDAR
; Loop through EDI LOCKBOX DEPOSIT entries ; Input: INPUT - A1^A2^A3^...^An Where: ; A1 - 1 - Called by nightly job, 0 otherwise ; A2 - 1 - Display to list manager, 0 otherwise ; A3 - 1 - Detail report, 0 - Summary report ; A4 - Current Page Number ; A5 - Stop Flag ; A6 - Start of Date Range ; A7 - End of Date Range ; A8 - Current Line Number ; A9 - Internal Date being processed ; A10- 1 - Only Display EFTs with a debit flag of 'D' ; 0 - Display all EFTs ; ^TMP(B1,$J,B2,B3) = "" ; ^TMP(B1,$J,B2,B3,"EFT",B4) = "" Where: ; B1 - "RCDAILYACT" ; B2 - Internal Date from DATE/TIME ADDED ; (344.3, .13) ; B3 - Internal IEN for 344.3 ; B4 - Internal IEN for file 344.31 ; Output: INPUT - A1^A2^A3^...^An - The following pieces ; may be updated ; A4 - Updated Page Number ; A5 - Stop Flag ; A6 - Updated Line number ; ^TMP($J,"TOTALS","DEBIT") - Current Total # of debits for date range ; ^TMP($J,"TOTALS","DEBIT","D") - Total # of debits for Internal date (C1) ; ^TMP($J,"TOTALS","DEBITA") - Current Total Debit Amount for date range ; ^TMP($J,"TOTALS","DEBITA","D") - Total Debit Amount for Internal date (C1) ; ^TMP($J,"TOTALS","DEP",C1) - Total # of deposits by Internal date (C1) ; ^TMP($J,"TOTALS","DEPA",C1) - Total Deposit Amount by Internal date (C1) ; ^TMP($J,"TOTALS","EFT","D") - Total Deposit Amount by EFTs for date ; ^TMP($J,"TOTALS","FMS") - FMS Document Status or "NO FMS DOC" ; ^TMP($J,"TOTALS","FMS","D",-1) - Total Deposit Amount by FMS Document ; ^TMP($J,"TOTALS","FMS","D",0) - Total Amount for Error/Rejected documents ; ^TMP($J,"TOTALS","FMS","D",1") - Total Amount for 'A','M',"F' or 'T' docs ; ^TMP($J,"TOTALS","FMS","D",2") - Total Amount for queued docs ; ^TMP($J,"TOTALS","FMSTOT") - Updated Total Deposit Amount for date range ; ^TMP($J,"TOTALS","MATCH","D") - Current Total matched EFTs for date |
|
| ONEDEP(INPUT,IEN3443,TOTDEP,DLNCT) | ; Gather and display lines for one Deposit
; PRCA*4.5*321 new method to first gather all the lines before displaying them ; Input: INPUT - See RPT2 for details ; ^TMP(B1,$J,B2,B3) - See RPT2 for details ; IEN3443 - Internal IEN for file 344.3 ; TOTDEP - Total Deposit Amount (344.3, .08) ; DLNCT - Current # of deposit lines displayed ; ^TMP($J,"DEPERRS") - Current Line Count ; Note: Only passed if not in detail mode ; ^TMP($J,"DEPERRS,X) - Error line(s) ; Output: INPUT - See RPT2 for details ; DLNCT - Updated # of deposit lines displayed ; ^TMP(B1,$J,B2,B3,"EFT",B4) - See RPT2 for details ; ^TMP($J,"TOTALS","DEP",C1) - See RPT2 for details ; ^TMP($J,"DEPERRS") - Updated Line Count ; Note: Only passed if not in detail mode |
|
| NEWDHDR(INPUT,DTADD) | ; display a new deposit header for the specified date
; Input: INPUT - See RPT2 for details ; DTADD - Internal Date deposit are being displayed for |
|
| DETLN(INPUT,IEN3443,TOTDEP) | ; Display detail line
; Input: INPUT - See RPT2 for details ; IEN3443 - Internal IEN for file 344.3 ; TOTDEP - Total Deposit Amount (344.3, .08) ; ^TMP($J,"TOTALS","FMS") - FMS Document # or "NO FMS DOC" ; Output: INPUT - A1^A2^A3^...^An - The following pieces may be updated ; A5 - Updated Page Number ; A6 - Stop Flag ; A8 - Updated Line Counter |
|
| PROCEFT(INPUT,IEN3443) | ||
| EFTDTL(INPUT,IEN3443,IEN34431,RCFMS1,EFTCTR) | ||
| DUP(INPUT,IEN34431,EFTCTR) | ; Check to see if the EFT was a duplicate
; Input: IEN34431 - Internal IEN for file 344.31 ; INPUT - See RPT2 for details ; EFTCTR - Used to store lines for EFT ; ^TMP($J,ONEDEP,EFTCTE) - Current # of lines for EFT ; ^TMP($J,ONEDEP,EFTCTR,xx)- Current Deposit Lines ; Output: ^TMP($J,ONEDEP,EFTCTR) - Updated # of lines for EFT ; ^TMP($J,ONEDEP,EFTCTR,xx)- Updated EFT Lines |
| FileNo | Call Tags |
|---|---|
| ^RCY(344 - [#344] | GET1^DIQ |
| ^RCY(344.3 - [#344.3] | GET1^DIQ |
| ^RCY(344.31 - [#344.31] | EXTERNAL^DILFD, GET1^DIQ |
