RCDPEFA3 ;AITC/CJE - 1ST PARTY AUTO DECREASE VS MANUAL DECREASE REPORT;Jun 06, 2014@19:11:19 ; 7/3/19 8:41am
Source file <RCDPEFA3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry point for Manual vs Auto-Decrease Adjustment Report [RCDPE FIRST PARTY MANUAL VS AUTO]
|
|
| REPORT(INPUTS,RCVAUTD,IO) | ; Compile and print report
; Input: INPUTS - A1^A2^A3^...^An Where: ; A1 - 1 - All divisions selected, 2 - Selected divisions ; A2 - D - Detail Report, S - Summary Report ; A3 - F - sort First to Last, L - sort Last to First ; A4 - B1|B2 ; B1 - Decrease Transaction Date Entered Start ; B2 - Decrease Transaction Date Entered End ; A5 - 1 - Output to List Manager, else 0 ; A6 - 1 - Output to Excel, else 0 ; RCVAUTD - Array of selected Divisions, Only passed if A1=2 ; IO - Output Device |
|
| COMPILE(INPUTS,RCVAUTD) | ; Compile Report Data
|
|
| CHKBILL(RCBILL,BEG,END,RCTR) | ; Check date of last decrease transaction, store if inside date range.
; Input: RCBILL - Internal entry number to file 430. ; BEG - Beginning date range -1 day, FileMan format ; END - Ending date range, FileMan format ; RCTR - Record counter passed by reference |
|
| SAVE(RCBILL,RCBILL3,RCDTI,RCCOPAY,RELEASE,RCTOT,RCTR) | ; Put data into ^TMP
; Input: RCBILL - Copay Claim # ; RCBILL3 - 3rd Party Claim # ; RCDTI - Auto-decrease date (internal) ; RCCOPAY - Copay Amount ; RELEASE - 1 charge was auto-released from hold, 0 otherwise ; RCTOT - Decrease totals in an array passed by reference ; RCTOT("A") - Auto-decrease total ; RCTOT("M") - Manual decrease total ; RCTOT("T") - Total decrease ; Output: DTOTAL() - RCTR - Record Counter passed by reference ; ^TMP("RCDPEFADP3",$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, ; A3 - Record Counter ; B1 - External Station Name ; B2 - External Station Number ; B3 - Copay Bill Number ; B4 - 3rd Party Bill Number ; B5 - Auto-Decrease Date ; B6 - Copay Amount ; B7 - Auto-Decrease Amount ; B8 - Manual Decrease Amount ; B9 - Total decrease Amount ; B10 - Auto-release from hold flag |
|
| TOTAL(RCTOTAL,RCCOPAY,RELEASE,RCTOT) | ; Increment daily or overall totals
; Input : RCTOTAL - old total ; : RCCOPAY - COPAY amount ; : RELEASE - Flag 0, 1 if bill was created by auto-releasing a charge from hold ; : RCTOTAL - Array passed by reference of manual, auto and total decreases for this bill |
|
| DISP(INPUTS) | ; Format the display for screen/printer or MS Excel
; Input: INPUTS - See REPORT for details ; ^TMP("RCDPEFADP",$J) - See SAVE for description |
|
| LINE(DIV) | ; List selected stations
; Input: DIV() - Array of selected divisions ; Returns: Comma delimited list of selected divisions |
|
| TOTALG(LMAN,HDRINFO,PAGE,STOP,LCNT) | ;
; Input: LMAN - 1 if output to Listman, 0 otherwise ; HDRINFO - Array of header info ; PAGE - Current Page Number ; LCNT - Current line count (only passedif LMAN=1) ; Output: PAGE - Updated Page Number (if new header is displayed) ; LCNT - Updated line count (only passedif LMAN=1) |
|
| TOTALD(LMAN,HDRINFO,PAGE,STOP,DAY,LCNT) | ; Totals for a single day
; Input: LMAN - 1 if output to List Template, 0 otherwise ; HDRINFO - Array of header information ; PAGE - Page Number ; DAY - FileMan date to display totals for ; LCNT - Current line count (only passedif LMAN=1) ; Output: PAGE - Updated Page Number (if a new header is displayed) ; STOP - 1 if user indiacted to stop ; LCNT - Updated line count (only passedif LMAN=1) |
|
| TOTALS(LABLE,DATA) | ; Build Daily or Grand Total string
; Input: LABLE - Text to prepend to totals line ; DATA - Delimited totals data ; Returns: Line of text for output to report |
|
| PERCENTS(LABLE,DATA) | ; Build Daily or Grand Total percentage line
; Input: LABLE - Text to prepend to totals line ; DATA - Delimited totals data ; Returns: Line of text for output to report |
|
| FMT(VALUE,PLACES,JUST) | ; Format a % value for output
; Input: VALUE - Value to be formated ; PLACES - Number of decimal places for number ; JUST - Length in which to $JUSTIFY (optional defaults to 7) ; Returns: Formated value |
|
| 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) |
| 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 |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RCD(340 - [#340] | GET1^DIQ |
| ^IB - [#350] | GET1^DIQ |
| ^PRCA(430 - [#430] | GET1^DIQ |
| ^PRCA(433 - [#433] | GET1^DIQ |
