RCDPEFA1 ;AITC/FA - FIRST PARTY AUTO-DECREASE REPORT ; 6/12/19 7:36am
Source file <RCDPEFA1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; entry point for Auto-Decrease Adjustment report [RCDPE FIRST PARTY AUTO-DECREASE]
|
|
| REPORT(INPUTS,RCVAUTD,IO) | ;EP Compile and print report
; Input: INPUTS - A1^A2^A3^...^An Where: ; A1 - 1 - All divisions selected, 2 - Selected divisions ; A2 - C - Sort by Claim, N - Sort by Patient Name ; A3 - F - sort First to Last, L - sort Last to First ; A4 - B1|B2 ; B1 - Auto-Post Start Date ; B2 - Auto-Post End Date ; A5 - 1 - Output to Excel, else 0 ; A6 - 1 - Output to List Manager, else 0 ; A7 - C1|C2 ; C1 - P - Filter list by Patient ; A - Show all 1st Party Auto-Decreases" ; C2 - IEN into file #2 (if C1=P, null otherwise) ; RCVAUTD - Array of selected Divisions, Only passed if A1=2 ; IO - Output Device |
|
| COMPILE(INPUTS,RCVAUTD,DTOTAL,GTOTAL) | ;EP Generate the Auto-Decrease report ^TMP array
; Input: INPUTS - See REPORT for details ; RCVAUTD - Array of Divisions ; Only passed if A1=2 ; Output: DTOTAL - Array of totals by Auto-Post Date ; GTOTAL - Grand totals ; ^TMP("RCDPEFADP",$J)- Array of report data, See SAVE for a full description |
|
| SAVE(RCDEBTOR,RCAMT,RCBILL,RCBILL3,RCOPAY,RCDTI,RCDT,EXCEL,RCSORT,RCTR,STNAM,STNUM,RCCMT) | ; Put data into ^TMP
; Input: RCDEBTOR - Patient Name ; RCAMT - Auto-Decrease amount ; RCBILL - Copay Claim # ; RCBILL3 - 3rd Party Claim # ; RCCOPAY - Copay Amount ; RCDTI - Auto-decrease date (internal) ; RCDT - Auto-decrease date (external) ; EXCEL - 1 output to Excel, 0 otherwise ; RCSORT - C - Sort by Claim, N - Sort by Patient Name ; DTOTAL() - Current array of totals by Auto-Decrease Date ; GTOTAL - Current Grand total ; RCTR - Record Counter ; STNAM - Station name ; STNUM - Station number ; RCCMT - PRCA*4.5*349 - Comments ; ^TMP("RCDPEFADP",$J)- Current report data ; See below for a full description ; Output: DTOTAL() - Updated array of totals by Auto-Post Date ; GTOTAL - Updated Grand totals ; RCTR - Record Counter ; ^TMP("RCDPEFADP",$J,A1,A2,A3) = B1^B2^B3^...^Bn Where: ; A1 - "EXCEL" if report to excel, fileman date if not ; A2 - Excel Line Counter if to excel, Claim # if sort by claim, ; Patient Name if sort by Name ; A3 - Record Counter ; B1 - External Station Name ; B2 - External Station Number ; B3 - External Patient Name/SSN ; B4 - Copay Amount ; B5 - Auto-Decrease Amount ; B6 - Copay Bill Number ; B7 - 3rd Party Bill Number ; B8 - Auto-Decrease Date ; ^TMP("RCDPEFADP",$J,A1,A2,A3,"CMT") = Multi-line comment added for PRCA*4.5*349 |
|
| DISP(INPUTS,DTOTAL,GTOTAL) | ; Format the display for screen/printer or MS Excel
; Input: INPUTS - See REPORT for details ; DTOTAL()- Array of totals by Internal Auto-Post date ; GTOTAL - Grand Totals for the selected date period ; ^TMP("RCDPEFADP",$J) - See SAVE for description |
|
| ASK(STOP,TYP) | ; Ask to continue, if TYP=1 then prompt to finish
; Input: TYP - 1 - Prompt to finish, 0 Otherwise ; Output: STOP - 1 abort print, 0 otherwise |
|
| DIV(STAIEN,STNUM,STNAM) | ; Get the station for this ERA
; Input: DAIEN - AR ACCOUNT IEN ; Output: 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 for description ; HDRINFO - Header array for ListMan, passed by ref. |
|
| LINE(DIV) | ; List selected stations
; Input: DIV() - Array of selected divisions ; Returns: Comma delimited list of selected divisions |
|
| LMOUT(INPUT,RCVAUTD,IO) | ; Output report to Listman
; Input: INPUT - see REPORT for description ; RCVAUTD - Array of selected Divisions ; IO - Device array ; Output: ^TMP("RCDPE_LAR",$J,nn) - Array of display lines (no headers) |
|
| PCENT(AMNT,COPAY) | ; Return percentage of dollars 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 |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^RCD(340 - [#340] | GET1^DIQ |
| ^IB - [#350] | GET1^DIQ |
| ^PRCA(430 - [#430] | GET1^DIQ |
| ^PRCA(433 - [#433] | GET1^DIQ |
