RCDPEM9 ;OIFO-BAYPINES/PJH - PAYER SELECTION ;10/18/11 6:17pm
Source file <RCDPEM9.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETPAY(FILE,MIXED,BLANKLN,NMORTIN,SHOWTIN) | ; Let user select payer for filter
; Input: FILE - File to retrieve Payers from either #344.4 OR ##344.31 ; MIXED - 1 to display prompts in mixed case ; Optional, defaults to 0 ; BLANKLN - 0 skip initial blank line ; Optional, defaults to 1 ; NMORTIN - 1 to look-up Payer by Payer Name, 2 to look-up by TIN ; 0 or undefined - pre-326 behavior, look-up by payer name and don't include TIN in output array. ; Optional, defaults to 0 ; SHOWTIN - 1 to append the Payer Name or Payer TIN when displaying payers ; Optional, defaults to 0 ; Output: ^TMP("RCSELPAY",$J) - Array of selected Payers ; Returns: A1^A2^A3 Where: ; A1 - -1 - None selected ; 1 - Range of payers ; 2 - All payers selected ; 3 - Specific payers ; A2 - From Range (When a from/thru range is selected by user) ; A3 - Thru Range (When a from/thru range is selected by user) |
|
| GLIST(FILE,NMORTIN) | ; Build list for this file
; Input: FILE - File to retrieve Payers from either #344.4 OR ##344.31 ; NMORTIN - 2 - lookup by TIN, 1 - lookup by Payer Name, 0 - pre 326 behavior ; Output: ^TMP("RCPAYER",$J,A1)=A2 Where: ; A1 - Counter ; A2 - Payer Name/TIN if NMORTIN=1, TIN/Payer Name if NMORTIN=2, else Payer Name ; ^TMP("RCPAYER",$J,"B",B1,B2)=B3 Where: ; B1 - Payer TIN if NMORTIN=2, else Payer Name ; B2 - Counter ; B3 - Payer Name if NMORTIN=0 or 1, else Payer TIN |
|
| GETPAYS(CNT,MIXED,NMORTIN) | ; Select Specific payer for filter
; Input: CNT - Number of Payers ; MIXED - 1 to display prompts in mixed case ; Optional, defaults to 0 ; NMORTIN - 2 to lookup by TIN, 1 to lookup by Payer, 0 - Pre 326 behavior ; Optional, defaults to 0 ; Output: RTNFLG -1 - No Payer selected ; 3 - At least one Payer selected |
|
| SELTIN(TIN,INDX) | ; Show all the payers with the selected TIN and ask the user
; if they want to select the TIN ; Input: TIN - User Selected TIN ; INDX - Current # of selected Payers ; ^TMP("RCPAYER",$J,"B") - Array of TINs on file ; ^TMP("RCSELPAY",$J,A1)= A2/A3 Current Selected Payers Where: ; A1 - Counter ; A2 - Selected TIN ; A3 - Selected PAYER ; Output: INDX - Updated # of selected Payers ; ^TMP("RCSELPAY",$J,A1)= A2/A3 Updated Selected Payers Where: ; A1 - Counter ; A2 - Selected TIN ; A3 - Selected PAYER |
|
| LIST(CNT) | ; Display all the Payers
; Prompt users for stations to be used for filtering ; Input: CNT - Total # of Payers in tmp file ; ^TMP("RCPAYER",$J,A1)=A2 Where: ; A1 - Counter ; A2 - Payer Name/TIN if NMORTIN=1, TIN/Payer Name if NMORTIN=2, else Payer Name |
|
| PART(NMORTIN,RCANS,INDX,SELPAY) | ; Give the user a list of partial matches
; Input: NMORTIN - 2 - Lookup by Payer TIN, 0 or 1 - Lookup by Payer Name ; RCANS - User Payer or TIN selection ; INDX - Current # of selected Payers (only passed if NMORTIN=2) ; Output: SELPAY()- Array of selected Payers (only returned if NMORTIN=2) ; ^TMP("RCPAYER",$J,A1)=A2 Where: ; A1 - Counter ; A2 - Payer Name/TIN if NMORTIN=1, TIN/Payer Name if NMORTIN=2, else Payer Name ; ^TMP("RCPAYER",$J,"B",B1,B2)=B3 Where: ; B1 - Payer TIN if NMORTIN=0, else Payer Name ; B2 - Counter ; B3 - Payer Name if NMORTIN=0 or 1, else Payer TIN ; Output: List of Payers that meet the partial match |
|
| GETPAYR(MIXED,BLANKLN) | ;select payer for filter, range
; called from ^RCDPEAR1 ; Input: MIXED - 1 to display prompts in mixed case ; Optional, defaults to 0 ; BLANKLN - 0 skip initial blank line ; Optional, defaults to 1 |
| 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 |
|
