RCDPEDAR ;ALB/TMK - ACTIVITY REPORT ;Jun 06, 2014@19:11:19
Source file <RCDPEDAR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RPT | ; Daily Activity Rpt On Demand
|
|
| DBTONLY() | ; Allows the user to select filter to only show EFTs with debits
; PRCA*4.5*321 Added subroutine ; Input: None ; Returns: 0 - All EFTs to display ; 1 - Only EFTs with debits to be displayed ; -1 - User up-arrowed or timed out |
|
| RTYPE() | ; Allows the user to select the report type (Summary/Detail)
; Input: None ; Returns: 0 - Summary Display ; 1 - Detail Display ; -1 - User up-arrowed or timed out |
|
| DTRANGE(STDATE,ENDDATE) | ; Allows the user to select the date range to by used
; Input: None ; Output: STDATE = Internal Fileman Date to start at ; ENDDATE - Internal Fileman Date to end at ; Returns: 0 - User up-arrowed or timed out, 1 otherwise |
|
| EN(RCDET,RCDT1,RCDT2,RCLSTMGR,DONLY) | ; Entry point for report, might be queued
; Input: RCDET - 1 - Detail Report, 0 - Summary ; RCDT1 - Internal Fileman Start date ; RCDT2 - Internal Fileman End date ; RCLSTMGR - 1 display in list manager, 0 otherwise ; Optional, defaults to 0 ; DONLY - 1 only display EFTs with a debit flag of 'D' ; 0 display all EFTs ; RCPAY - A - All Payers selected ; - R - Range of Payers ; - S - Specific payers ; RCPYRSEL - Array of selected payers (Only present if A1=3 above ; VAUTD - 1 - All selected divisions OR an array of selected divisions |
|
| ENQ(INPUT) | ; Clean up
; Input: INPUT - A1^A2^A3^...^A8 Where: ; A1 - 1 if Detail report, 0 if summary report ; A2 - 1 if displaying to Listman, 0 otherwise ; A3 - 0 if NOT called from Nightly Process, 1 otherwise ; A4 - Current Page Number ; A5 - Stop Flag ; A6 - Start of Date Range ; A7 - End of Date Range ; ZTQUEUED - Defined if Joh was queued ; Output: ZTREQ - "@" Only returned if ZTQUEUED is defined |
|
| RPT1(INPUT) | ;EP from RCDPEM1 (Nightly Process)
; Output the report ; Input: INPUT - A1^A2^A3^...^An Where: ; A1 - 1 if called from Nightly Process, 0 otherwise ; A2 - 1 if displaying to Listman, 0 otherwise ; A4 - Current Page Number ; A5 - Stop Flag ; A6 - Start of Date Range ; A7 - End of Date Range ; ^TMP(B1,$J,B2,B3) = "" - Array of record IENs in 344.3 in date range ; and for selected payer(s) and division(s) ; ^TMP(B1,$J,B2,B3,"EFT",B4) = "" - Array of record IENS in 344.31 for above 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 - Current Page Number ; A5 - Stop Flag |
|
| CHKDIV(IEN,FLG,VAUTD) | ;
; IEN - ien in file 344.31 or 344.4 ; FLG - 0 if IEN contains ien in file 344.31, 1 if IEN contains ien in file 344.4 ; VAUTD - array of selected divisions from DIVISION^VAUTOMA API call ; returns 1 if division associated with an entry in 344.31 is on the list in VAUTD ; returns 0 otherwise |
|
| CHKDIVX | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344.31 - [#344.31] | GET1^DIQ |
