RCDPEM4 ;OIFO-BAYPINES/PJH - EPAYMENTS AUDIT REPORTS ;Nov 17, 2014@17:00:41
Source file <RCDPEM4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EOB | ; EEOB Move/Copy/Rmove Audit Report [RCDPE EEOB MOVE/COPY/RMOVE RPT]
|
|
| POST | ; ERAs Posted with Paper EOB Audit Report [RCDPE ERA W/PAPER EOB REPORT]
|
|
| ASKUSR | ;collect filter and device options
|
|
| RPRTCMPL | ;Compile and print report
|
|
| EXIT | ;
|
|
| CMPLERA | ;Generate the ERA posted with paper EOB report ^TMP array
; ^RCY(344.4,0) = ELECTRONIC REMITTANCE ADVICE^344.4I^ |
|
| CMPLEOB | ;Generate the EOB Moved/Copy/Remove report ^TMP array
|
|
| DISP | ; Format the display for screen/printer or MS Excel
|
|
| LINE(VAUTD) | ;List selected stations
|
|
| SELDIV(VAUTD,Z) | ;Devisions are organized as Z(1)="DIV1,DIV2,..., Z(2)="DIVN,DIVN+1,... etc.
; Input: ; VAUTD (required/pass-by-ref) - Division(s) array; result of call to DIVISION^VAUTOMA ; Output: ; Z (required/pass-by-ref) - reformatted array of divisions |
|
| HDRBLD | ; create the report header
; returns RCHDR, RCPGNUM, RCSTOP ; RCHDR(0) = header text line count ; RCHDR("XECUTE") = M code for page number ; RCHDR("RUNDATE") = date/time report generated, external format ; RCPGNUM - page counter ; RCSTOP - flag to exit ; INPUT: ; RCDISPTY - Display/print/Excel flag ; RCDTRNG - date range ; RCRTYP - Report Type (EOB or ERA) ; VAUTD |
|
| HDRLM | ; create the Listman header
; returns RCHDR ; RCHDR(0) = header text line count ; INPUT: ; RCDTRNG - date range ; VAUTD - Division filter value(s) |
|
| HDREOB() | ; extrinsic variable, header for EOB report
|
|
| HDRERA() | ; extrinsic variable, header for ERA report
|
|
| HDRXEC(TYP) | ; create xecute code for header
|
|
| DTRNG() | ; function, return date range for a report
|
|
| DATES(BDATE,EDATE) | ;Get a date range.
|
|
| STADIV | ;Division/Station Filter/Sort
|
|
| ACTION() | ; Get action type
|
|
| DISPTY() | ; Get display/output type
|
|
| ERASTA(ERAIEN,STA,STNUM,STNAM) | ; Get the station for this ERA
; read allowed on BILL/CLAIMS file (#399) via IA 3820 ; returns STA: station IEN, STNAM: station name, STNUM: station number |
|
| EOBSTA(EOBIEN,STA,STNUM,STNAM) | ; Get the station for this EOB
|
|
| DTPRB() | ; Get the Start Date type
|
|
| WP(JC) | ; format justification comments
; JC - Justification Comment |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DGCR(399 - [#399] | EXTERNAL^DILFD |
