RCDPEMAP ;AITC/FA - LIST ALL AUTO-POSTED RECEIPTS REPORT ;Nov 17, 2016
Source file <RCDPEMAP.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_MAP",$J,CTR)=Line - Array of display lines (no headers) ; for output to Listman |
|
| 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 |
|
| SELUSER() | ; Ask the user if they only want to all users or only selected ones
; Input: None ; Returns: 0 - User up-arrowed or timed out ; 1 - Show all users ; 2 - Show selected user |
|
| SELUSER2(PARAM) | ; Allows the user to enter the selected users to filter by
; Input: None ; Output: ^TMP($J,"SELUSER",IEN)="" Where IEN - IEN for file 200 ; Returns: 1 - Success, -1 - Abort |
|
| ASKUSER() | ; Prompt for a User from file 200
; Input: None ; Output: ^TMP($J,"SELUSER",IEN)="" - Selected User ; Returns: 1 - User selected ; 0 - No User selected ; -1 - user typed '^' or timed out |
|
| SECSORT() | ; Ask the user if they want the secondary sort by User or Payer Name
; Input: None ; Returns: 0 - User up-arrowed or timed out ; 1 - Sort by User ; 2 - Sort by Payer Name |
|
| 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
|
|
| 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 - B1|B2 - Where: ; B1 - Auto-Post Start Date ; B2 - Auto-Post End Date ; A3 - 'M' - Medical Payers only ; 'P' - Pharmacy Payers only ; 'T' - Tricare Payers only ; 'C' - CHAMPVA Payers only ;PRCA*4.5*432 Add CHAMPVA ; 'A' - All Payers ; A4 - 'S' - Specific Payers ; 'R' - Range of Payers ; 'A' - All Payers ; A5 - 1 - Display all users ; 2 - Display selected users ; A6 - 1 - Sort by User ; 2 - Sort by Payer Name ; 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 ; RCVAUTD - Array of selected Divisions ; Only passed if A1=2 ; IO - Interface device ; JOB - $J (optional, only passed in when report is queued) ; ^TMP($J,"RCSELPAY") - Global Array of selected insurance companies ; ^TMP($J,"SELUSER") - Global Array of selected users ; Output: ^TMP("RCDPEMAP",$J,CTR)=Line - Array of display lines (no headers) ; for output to Listman ; Only set when A7-1 |
|
| ASKSTOP() | ;EP from RCDPEMA1
; 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 |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^RCY(344.4 - [#344.4] | GET1^DIQ |
| 344.41 | GET1^DIQ |
| ^IBM(361.1 - [#361.1] | GET1^DIQ |
| ^PRCA(430 - [#430] | GET1^DIQ |
