RCDPEAD1 ;OIFO-BAYPINES/PJH - AUTO-DECREASE REPORT ;Nov 23, 2014@12:48:50
Source file <RCDPEAD1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CARCS(A1,A2,A3,CARCS) | ; Get CARC Auto-Decrease data
; Input: A1 - "EXCEL" if exporting to excel ; Internal fileman date if not exporting to excel ; A2 - Excel Line Counter if exporting to excel ; External Claim number is sorting by claim ; External Payer Name if sorting by Payer ; External Patient Name if sorting by Patient Name ; A3 - Record Counter ; CARCS - ^ delimited string of CARC information ; See SAVE for a complete description ; Output: ^TMP("RCDPEADP",$J,A1,A2,A3,A4) - C1^C2^C3^C4 Where: ; - A1 - "EXCEL" if exporting to excel ; Internal fileman date if not exporting to excel ; A2 - Excel Line Counter if exporting to excel ; External Claim number is sorting by claim ; External Payer Name if sorting by Payer ; External Patient Name if sorting by Patient Name ; A3 - Record Counter ; A4 - CARC Counter ; C1 - CARC Code (file 361.111, field .01) ; C2 - Decrease Amount (file 361.111, field .02) ; C3 - Quantity (file 361.111, field .03) ; C4 - Reason (file 361.111, field .04) |
|
| COMPILE(INPUTS,RCVAUTD,DTOTAL,GTOTAL) | ; EP Generate the Auto-Decrease report ^TMP array
; Input: INPUTS - A1^A2^A3^...^An Where: ; A1 - 1 - All divisions selected ; 2 - Selected divisions ; A2 - C - Sort by Claim ; P - Sort by Payer ; N - Sort by Patient Name ; A3 - F - First to Last Sort Order ; L - Last to First Sort Order ; A4 - B1|B2 ; B1 - Auto-Post Start Date ; B2 - Auto-Post End Date ; A5 - 1 - Output to Excel ; 2 - Otherwise ; RCVAUTD - Array of selected Divisions ; Only passed if A1=2 ; Output: DTOTAL() - Array of totals by Auto-Post Date ; GTOTAL - Grand totals ; ^TMP("RCDPEADP",$J) - Array of report data ; See SAVE for a full description |
|
| ERASTA(ERAIEN,STA,STNUM,STNAM) | ; Get the station for this ERA
; Input: ERAIEN - Internal IEN for file 344.4 ; Output: STA - Internal Station IEN ; STNUM - Station Number ; STNAM - Station Name |
|
| HDR(EXCEL,HDRINFO,PAGE,NOLINE) | ; Print the report header
; Input: EXCEL - 1 if output to Excel, 0 otherwise ; HDRINFO() - Array of Header information ; PAGE - Current Page Number ; NOLINE - 1 to not display Claim line header ; Optional, defaults to 0 ; Output: PAGE - Updated Page Number (if EXCEL=0) |
|
| HINFO(INPUTS,HDRINFO) | ;Get header information
; Input: INPUTS - See REPORT^RCDPEADP for a complete description ; HDRINFO - Return array - passed by reference ; Output: HDRINFO - Formatted header array for ListMan |
|
| LMAN(DATA,A1,A2,A3,XX) | ; Format and save List Manager line
; Input: DATA - ERA line adjustment total ; A1,A2,A3 - ^TMP("RCDPEAP") subscripts ; XX - List Counter for ^TMP("RCDPE_ADP",$J) |
|
| LMOUT(INPUT,RCVAUTD,IO) | ; EP Output report to Listman
; Input: INPUT - See REPORT for a complete description ; RCVAUTD - Array of selected Divisions ; Only passed if A1=2 ; IO - Output device array ; Output: ^TMP("RCDPE_LAR",$J,CTR)=Line - Array of display lines (no headers) ; for output to Listman ; Only set when A7-1 |
|
| TOTALD(EXCEL,HDRINFO,PAGE,STOP,DAY,DTOTAL) | ; Totals for a single day
; Input: EXCEL - 1 if output to Excel, 0 otherwise ; HDRINFO() - Array of header information ; PAGE - Current Page Number ; DAY - Internal Fileman date to display totals for ; DTOTAL() - Array of totals by day ; IOSL - Page length ; Output: PAGE - Updated Page Number (if a new header is displayed) ; STOP - 1 if displaying to screen and user asked to stop |
|
| TOTALG(EXCEL,HDRINFO,PAGE,GTOTAL,STOP) | ; Overall report total
; Input: EXCEL - 1 if output to Excel, 0 otherwise ; HDRINFO() - Array of header information ; PAGE - Current Page Number ; GTOTAL() - Grand Totals for report ; IOSL - Page length ; Output: PAGE - Updated Page Number (if a new header is displayed) |
|
| MAX(RCINP,RCMAX) | ; Input CARCs and remove any over what was actually auto-decreased
; INPUT - RCINP - list of all CARCs on EEOB ; RCMAX - total amount auto-decreased on claim ; OUTPUT - RCOUT - list of CARCs actually auto-decreased ; |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| 344.41 | GET1^DIQ |
| ^IBM(361.1 - [#361.1] | GET1^DIQ |
| ^DGCR(399 - [#399] | EXTERNAL^DILFD, GET1^DIQ |
| ^DG(40.8 - [#40.8] | GET1^DIQ |
