RCDPEADP ;OIFO-BAYPINES/PJH - AUTO-DECREASE REPORT ;Nov 23, 2014@12:48:50
Source file <RCDPEADP.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RPT | ; entry point for Auto-Decrease Adjustment report [RCDPE AUTO-DECREASE REPORT]
|
|
| STADIV(RCVAUTD) | ; Division/Station Filter
; Input: None ; Output: RCVAUTD() - Array of selected Divisions/Stations if 2 is returned ; Returns: 1 - All Divisions/Stations selected ; 2 - Specified Divisions/Stations selected ; 0 - "^" or timeout |
|
| ASKSORT() | ; Select the sort criteria
; Input: None ; Returns: C - Sort by Claim ; P - Sort by Payer ; N - Sort by Patient Name ; 0 - User entered '^' or timed out |
|
| SORTORD(SORT) | ; Select the sort order
; Input: SORT - 'C' - Sort by Claim Number ; 'P' - Sort by Payer ; 'N' - Sort by Patient Name ; Returns: F - First to Last ; L - Last to First ; 0 - User entered '^' or timed out |
|
| DTRNG() | ; Get the date range for the report
; Input: None ; Returns: A1|A2|A3 - Where: ; A1 - 0 - User up-arrowed or timed out, 1 otherwise ; A2 - Auto-Post Start Date ; A3 - Auto-Post End Date |
|
| DATES(BDATE,EDATE) | ; Get a date range.
; Input: None ; Output: BDATE - Internal Auto-Post Start Date ; EDATE - Internal Auto-Post End Date |
|
| D1 | ; looping tag
|
|
| DISPTY() | ; Get display/output type
; Input: None ; Returns: 1 - Output to Excel ; 0 - Output to paper |
|
| DEVICE(EXCEL,IO) | ; Select the output device
; Input: EXCEL - 1 - Output to Excel, 0 otherwise ; Output: ; IO - Array of selected output info ; Returns: 0 - No device selected, 1 Otherwise |
|
| 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 ; 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 ; 0 - Otherwise ; A6 - 1 - Output to List Manager ; 0 - Otherwise ; A7 - M/P/T/A = Medical/Pharmacy/Tricare/All |
|
| SAVE(ADDATE,ERAIEN,RCRZ,EXCEL,RCSORT,CARCS,RCTR,STNAM,STNUM) | ; Put the data into the ^TMP global
; Input: ADDATE - Current Internal Date being processed ; ERAIEN - Internal IEN of the ERA record ; RCRZ - ERA line number ; EXCEL - 1 output to Excel, 0 otherwise ; RCSORT - C - Sort by Claim ; P - Sort by Payer ; N - Sort by Patient Name ; CARCS - ^ delimited string of CARC information found ; on the EOB record pointed to by the ERA detail record ; A1;A2;A3;A4^B1;B2;B3;B4^...^N1;N2;N3;N4 Where: ; A1 - Auto-Decrease amount of the 1st CARC code ; A2 - 1st CARC code ; A3 - Quantity of the first CARC code ; A4 - Truncated Reason text of the 1st CARC ; DTOTAL() - Current Array of totals by Auto-Post Date ; GTOTAL - Current Grand totals ; RCTR - Current Record Counter ; STNAM - Station name ; STNUM - Station number ; ^TMP("RCDPEADP",$J) - Current report data ; See DISP for a full description ; Output: DTOTAL() - Updated Array of totals by Auto-Post Date ; GTOTAL - Updated Grand totals ; RCTR - Updated Record Counter ; ^TMP("RCDPEADP",$J,A1,A2,A3) - B1^B2^B3^...^Bn 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 ; B1 - External Station Name ; B2 - External Station Number ; B3 - External Claim Number ; B4 - External Patient Name ; B5 - External Payer Name ; B6 - Auto-Decrease Amount ; B7 - Auto-Decrease Date ; ^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) |
|
| DISP(INPUTS,DTOTAL,GTOTAL) | ; Format the display for screen/printer or MS Excel
; 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 ; 0 - Otherwise ; A6 - 1 - Output to List Manager ; 0 - Otherwise ; A7 - C/M/P/T/A = CHAMPVA/Medical/Pharmacy/Tricare/All |
|
| DCARCS(A1,A2,A3,EXCEL,HDRINFO,PAGE,STOP) | ; Display detailes CARC information - added as part of PRCA*4.5*318 re-write
; 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 ; EXCEL - 1 if exporting to Excel, 0 otherwise ; HDRINFO() - Array of header information ; PAGE - Current Page number ; ^TMP("RCDPEADP",$J) - Array of report data. See SAVE for details ; Output: PAGE - Updated Page number ; STOP - 1 if user aborts display, 0 otherwise |
|
| ASK(STOP,TYP) | ; Ask to continue, if TYP=1 then prompt to finish
; Input: TYP - 1 - Prompt to finish, 0 Otherwise ; IOST - Device Type ; Output: STOP - 1 to abort print, 0 otherwise |
| 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 |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344.4 - [#344.4] | GET1^DIQ |
| 344.41 | GET1^DIQ |
