RCDPELAR ;EDE/FA - LIST ALL AUTO-POSTED RECEIPTS REPORT ;Nov 17, 2016
Source file <RCDPELAR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Main entry point
|
|
| LMOUT(INPUT,RCVAUTD,IO) | ; Output report to Listman
; Input: INPUT - See REPORT for a complete description ; RCVAUTD - Array of selected Divisions ; Only passed if A1=2 ; Output: ^TMP("RCDPE_LAR",$J,CTR)=Line - Array of display lines (no headers) ; for output to Listman ; Only set when A7-1 |
|
| STADIV(RCVAUTD) | ; Division/Station Filter
; Input: None ; Output: RCVAUTD - Array of selected divisions, if 1 is returned ; Returns: 0 - User up-arrowed or timed out ; 1 - All divisions selected ; 2 - Selected Divisions |
|
| APORERA() | ; Ask the user if they want to filter by Auto-Post Date or ERA Date
; received ; Input: None ; Returns: 0 - User up-arrowed or timed out ; 1 - Filter by Auto-Post date range ; 2 - Filter by ERA Date Received |
|
| DTRNG(WHICH) | ; Allows the user to select the Auto-Post OR ERA Received
; date range to be used ; Input: WHICH - 0 - Auto-Post Date Range ; 1 - ERA Date Received Date Range ; Returns: 0 - User up-arrowed or timed out, 1 otherwise ; A1^A2 - Where: ; A1 - Aut-Post Start Date ; A2 - Auto-Post End Date |
|
| ENDDT | ; Prompt for end date
|
|
| SELERA() | ; Ask the user which types of ERA the want to see on the report
; Input: None ; Returns: 0 - User up-arrowed or timed out ; 1 - Posted/Completed Receipts ; 2 - Only ERAs with Missing Receipts ; 3 - Both Posted/Completed and Missing Receipts |
|
| RPTSORT(WHICH,ERASEL) | ; Ask the user how they want to sort the data
; Input: WHICH - 1- Filtering by Auto-Post Date ; 2 - Filtering by ERA Date Received ; ERASEL - ERA Filter ; 1 - Posted/Completed Receipts ; 2 - Only ERAs with Missing Receipts ; 3 - Both Posted/Completed and Missing Receipts ; Returns: 0 - User up-arrowed or timed out ; 1 - Auto-Post Date sort ; 2 - Missing Receipts |
|
| EXCEL() | ; Ask the user if they want to export to Excel
; Input: None ; Returns: -1 - User up-arrowed or timed out ; 0 - Output to paper ; 1 - Output to Excel |
|
| DEVICE(EXCEL,IO) | ; Select the output device
; Input: EXCEL - 1 - Ouput to Excel, 0 otherwise ; Output: %ZIS - Selected device ; IO - Array of selected output info ; Returns: 0 - No device selected, 1 otherwise |
|
| REPORT(INPUT,RCVAUTD,IO,JOB) | ; Compile and run the report
; Expects ZTQUEUED to be defined already if queued ; Input: INPUT - A1^A2^A3^...^An Where: ; A1 - 1 - All divisions selected ; 2 - Selected divisions ; A2 - 1 - Filter by Auto-Post date range ; 2 - Filter by ERA Date Received date range ; A3 - B1|B2 - Where: ; B1 - ERA Date Received Start Date if A2=2 ; Auto-Post Start Date of A2=1 ; B2 - ERA Date Received End Date if A2=2 ; Auto-Post End Date of A2=1 ; A4 - 1 - Posted/Completed Receipts ; 2 - Only ERAs with Missing Receipts ; 3 - Both Posted/Completed and Missing Receipts ; A5 - 1 - All insurance companies selected ; 2 - Selected insurance companies chosen ; A6 - 1 - Auto-Post Date/ERA Date Received Sort ; 2 - Payer sort ; 3 - Missing Receipts ; A7 - 0 - Do not display in a listman template ; 1 - Display in a listman template ; A8 - 0 - Output to paper ; 1 - Output to Excel ; A9 - Line counter for Listman output ; A10 - M/P/T/C/A = Medical/Pharmacy/Tricare/CHAMPVA/All ; RCVAUTD - Array of selected Divisions ; Only passed if A1=2 ; IO - Interface device ; JOB - $J (optional, only passed in when report is queued) ; ^TMP("RCSELPAY",$J)- Global Array of selected insurance companies ; Output: ^TMP("RCDPE_LAR",$J,CTR)=Line - Array of display lines (no headers) ; for output to Listman ; Only set when A7-1 |
|
| PAYERS(JOB) | ; Rearrange payer global for easier use
; Input: ^TMP("RCSELPAY",$J,nn)=Payer Name - Global Array of selected ; insurance companies ; Output ^TMP($J,"SELPAYER",Payer Name)="" - Global Array of selected ; insurance rearranged for easier checks |
|
| RPTE(DIVFLT,CURDT,SORT,ERAFILT,VAUTD,RCTYPE,RCPAYS) | ; Use the ERA Date Received index and filter out
; divisions, payers that weren't selected ; Input: DIVFLT - 1 - All Divisions selected, 2 otherwise ; CURDT - Date being processed ; SORT - 1 - Auto-Post Date Sort ; 2 - Missing Receipts ; ERAFILT - 1 - Posted/Completed Receipts ; 2 - Only ERAs with Missing Receipts ; 3 - Both Posted/Completed and Missing Receipts ; VAUTD - Array of selected divisions ; RCTYPE - Type of payer - M/P/T/A ; RCPAYS - A - All payers, S - Selected Payers, R - Range of Payers ; ^TMP("RCSELPAY",$J) - Global Array of selected insurance companies ; Output: ^TMP($J,A1,"SEL",A2,A3,A4,A5)="" - if record passed filters Where: ; A1 - "RCDPE_LAR" ; A2 - Uppercased Payer Name (primary sort) ; A3 - Secondary Sort Value ; A4 - Internal IEN for file 344.4 ; A5 - Internal IEN for sub file 344.41 |
|
| RPTA(DIVFLT,CURDT,SORT,ERAFILT,VAUTD,RCTYPE,RCPAYS) | ; Use the Auto-Post Date index and filter out
; divisions, payers that weren't selected ; Input: DIVFLT - 1 - All Divisions selected, 2 otherwise ; CURDT - Date being processed ; SORT - 1 - Auto-Post Date Sort ; 2 - Missing Receipts ; ERAFILT - 1 - Posted/Completed Receipts ; 2 - Only ERAs with Missing Receipts ; 3 - Both Posted/Completed and Missing Receipts ; VAUTD - Array of selected divisions ; RCTYPE - Type of payer - M/P/T/A ; RCPAYS - A - All payers, S - Selected Payers, R - Range of Payers ; ^TMP("RCSELPAY",$J) - Global Array of selected insurance companies ; ^TMP($J,"RCDPE_LAR","ERA") - see output for definition ; Output: ^TMP($J,A1,"SEL",A2,A3,A4,A5)="" - if record passed filters Where: ; A1 - "RCDPE_LAR" ; A2 - Uppercased Payer Name (primary sort) ; A3 - Secondary Sort Value ; A4 - Internal IEN for file 344.4 ; A5 - Internal IEN for sub file 344.41 ; ^TMP($J,A1,"ERA",A2)="" - List of ERAs that were already pulled Where: ; A1 - "RCDPE_LAR" ; A2 - IEN of #344.4 (ERA #) |
|
| COMPLETE(IEN3444) | ; Checks an ERA for missing receipts
; Input: IEN3444 - ERA to be checked ; Returns: 0 if at least one detail line of the ERA has a missing receipt ; 1 otherwise |
|
| ASKSTOP() | ; Ask to continue
; Input: IOST - Device Type ; Returns: 1 - User wants to quit, 0 otherwise |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344.4 - [#344.4] | GET1^DIQ |
