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
|
|
| EN(RCDET,RCDT1,RCDT2,RCLSTMGR,DONLY,RCEXCEL,RCUNBAL) | ; 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 ; RCEXCEL - 1 display in Excel format, 0 otherwise ;PRCA*4.5*439 Add Excel ; Optional, defaults to 0 ; RCUNBAL - A - All, B - Balanced, U - Unbalanced ; PRCA*4.5*439 Add Unbalanced/Balanced selection ; Optional, defaults to All ; 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 | ;
|
|
| EXCEL(INPUT) | ; Loop to print Excel Format ;PRCA*4.5*439 Add EXCEL tag
; 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 ; Output in Excel Format |
|
| EXCEL2(IEN3443,IEN34431) | ||
| EXCELTR(IEN344,IEN34431,TRDOCS,TRSTAT) | ;Get TR #s ;PRCA*4.5*439 Add EXCELTR tag
; Input: IEN344 - Internal IEN for file 344 ; IEN34431 - Internal IEN for file 344.31 ; TRDOCS - Variable to hold list of TR document numbers |
|
| EXCELRST(IEN344,TRDOCS,TRSTAT) |
| 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 |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344 - [#344] | GET1^DIQ |
| ^RCY(344.3 - [#344.3] | GET1^DIQ |
| ^RCY(344.31 - [#344.31] | GET1^DIQ |
| ^RCY(344.4 - [#344.4] | GET1^DIQ |
| 344.48 | GET1^DIQ |
