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 |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RCY( | GETPAY+52, GETPAY+53, GLIST+14, GLIST+16, GLIST+22, GLIST+24 |
| ^TMP("RCDPEM9" | GETPAYS+10!, GETPAYS+31, GETPAYS+44, GETPAYS+47*, GETPAYS+51! |
| ^TMP("RCPAYER" | GETPAY+66!, GLIST+11!, GLIST+18*, GLIST+19*, GLIST+26*, GLIST+27*, GETPAYS+29, GETPAYS+38, GETPAYS+48, GETPAYS+49 , LIST+8, PART+14, PART+16, PART+21, PART+25, PART+27, PART+29, GETPAYR+15, GETPAYR+29, GETPAYR+38 , GETPAYR+41, GETPAYR+42, GETPAYR+43 |
| ^TMP("RCSELPAY" | GETPAY+27!, GETPAY+56*, GETPAY+67!, GETPAYS+23, GETPAYS+49*, SELTIN+23*, PART+32*, GETPAYR+43* |
| Name | Line Occurrences |
|---|---|
| GETPAYR | GETPAY+64 |
| GETPAYS | GETPAY+60 |
| GLIST | GETPAY+60, GETPAY+64 |
| PART | GETPAYS+39, SELTIN+16 |
| SELTIN | GETPAYS+34 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BLANKLN | GETPAY~, GETPAY+22*, GETPAY+42, GETPAY+64, GETPAYR~, GETPAYR+8*, GETPAYR+31 |
| CNT | GETPAY+19~, GETPAY+51*, GETPAY+53*, GETPAY+56, GETPAY+60, GLIST+13*, GLIST+17*, GLIST+18, GLIST+19, GLIST+21* , GLIST+25*, GLIST+26, GLIST+27, GETPAYS~, GETPAYS+42, LIST~, LIST+7, PART+13~, PART+14*, PART+28* , PART+29, PART+30, PART+31 |
| CTR | SELTIN+14~, PART+13~, PART+19*, PART+20, PART+21*, PART+22, PART+24, PART+25, PART+27, PART+29 |
| DIR | GETPAY+19~, GETPAY+43!, GETPAYS+12~, GETPAYS+20!, SELTIN+14~, GETPAYR+10~, GETPAYR+19!, GETPAYR+34! |
| DIR("?" | GETPAY+38*, GETPAY+40*, GETPAY+41*, GETPAYS+16*, GETPAYS+18*, GETPAYR+11*, GETPAYR+17*, GETPAYR+22*, GETPAYR+27* |
| DIR("??" | GETPAYS+19*, GETPAYR+12*, GETPAYR+23* |
| DIR("A" | GETPAY+32*, GETPAY+33*, GETPAY+36*, GETPAY+37*, GETPAYS+13*, GETPAYS+14*, SELTIN+18*, GETPAYR+14*, GETPAYR+18*, GETPAYR+25* , GETPAYR+28* |
| DIR("B" | GETPAY+39*, SELTIN+19*, GETPAYR+15*, GETPAYR+29* |
| DIR(0 | GETPAY+31*, GETPAY+35*, GETPAYS+15*, SELTIN+17*, GETPAYR+13*, GETPAYR+24* |
| DIROUT | GETPAY+19~, GETPAYS+12~, GETPAYS+26, SELTIN+14~, GETPAYR+10~, GETPAYR+20, GETPAYR+35 |
| DIRUT | GETPAY+19~, GETPAYS+12~, GETPAYS+26, SELTIN+14~, GETPAYR+10~, GETPAYR+20, GETPAYR+35 |
| DTOUT | GETPAY+19~, GETPAY+46, GETPAYS+12~, GETPAYS+23, GETPAYS+26, SELTIN+14~, SELTIN+21, GETPAYR+10~, GETPAYR+20, GETPAYR+31 , GETPAYR+35 |
| DUOUT | GETPAY+19~, GETPAY+46, GETPAYS+12~, GETPAYS+26, SELTIN+14~, SELTIN+21, GETPAYR+10~, GETPAYR+20, GETPAYR+31, GETPAYR+35 |
| FILE | GETPAY~, GETPAY+52, GETPAY+53, GETPAY+54, GETPAY+60, GETPAY+64, GLIST~, GLIST+14, GLIST+16, GLIST+22 , GLIST+24 |
| I | GETPAY+19~, LIST+6~, LIST+7*, LIST+8 |
| IEN | GETPAY+19~, GETPAY+53*, GETPAY+54, GLIST+10~ |
| INDX | GETPAY+19~, GETPAY+26*, GETPAYS+34, GETPAYS+39, GETPAYS+49, GETPAYS+50*, SELTIN~, SELTIN+16, SELTIN+24*, PART~ , PART+27*, PART+32*, GETPAYR+10~, GETPAYR+41*, GETPAYR+43, GETPAYR+44*, GETPAYR+46 |
| MIXED | GETPAY~, GETPAY+21*, GETPAY+32, GETPAY+33, GETPAY+36, GETPAY+37, GETPAY+60, GETPAY+64, GETPAYS~, GETPAYS+8* , GETPAYS+14, GETPAYS+18, GETPAYS+32, GETPAYS+33, GETPAYS+45, GETPAYS+46, GETPAYR~, GETPAYR+7*, GETPAYR+16, GETPAYR+26 , GETPAYR+32, GETPAYR+33 |
| NMORTIN | GETPAY~, GETPAY+23*, GETPAY+30, GETPAY+55, GETPAY+60, GETPAY+64, GLIST~, GLIST+12, GLIST+26, GETPAYS~ , GETPAYS+9*, GETPAYS+14, GETPAYS+16, GETPAYS+18, GETPAYS+28, GETPAYS+39, PART~, PART+24, PART+26, PART+31 |
| NUM | GETPAYR+10~, GETPAYR+42*, GETPAYR+43 |
| PAYNAM | GLIST+10~, GLIST+15*, GLIST+16*, GLIST+18, GLIST+19, GLIST+21*, GLIST+22*, GLIST+24, GLIST+26, GLIST+27 |
| RCANS | GETPAY+20~, GETPAYS+27*, GETPAYS+29, GETPAYS+31, GETPAYS+34, GETPAYS+37, GETPAYS+38, GETPAYS+39, GETPAYS+40*, GETPAYS+41 , GETPAYS+42, GETPAYS+43, GETPAYS+44, GETPAYS+47, GETPAYS+48, GETPAYS+49, PART~, PART+14, PART+18 |
| RCANS2 | GETPAY+20~, GETPAYS+27*, GETPAYS+37, GETPAYS+38*, GETPAYS+39, GETPAYS+40 |
| RCINC | GETPAY+20~ |
| RCINSF | GETPAY+20~, GETPAYR+10~, GETPAYR+21*, GETPAYR+31, GETPAYR+38*, GETPAYR+40, GETPAYR+41*, GETPAYR+42 |
| RCINST | GETPAY+20~, GETPAYR+10~, GETPAYR+36*, GETPAYR+40, GETPAYR+41 |
| RCPAR | PART+13~, PART+14*, PART+15, PART+16*, PART+17, PART+18*, PART+21 |
| RCPAY | GETPAY+20~, GETPAY+51*, GETPAY+52*, GETPAY+53, GETPAY+55 |
| RCSAVE | PART+13~, PART+29*, PART+32 |
| RNG1 | GETPAY+20~, GETPAY+26*, GETPAY+70, GETPAYR+40* |
| RNG2 | GETPAY+20~, GETPAY+26*, GETPAY+70, GETPAYR+40* |
| RTNFLG | GETPAY+20~, GETPAY+26*, GETPAY+46*, GETPAY+51*, GETPAY+66, GETPAY+67, GETPAY+70, GETPAYS+11, GETPAYS+23*, GETPAYS+26* , GETPAYR+20*, GETPAYR+35*, GETPAYR+46*, GETPAYR+47* |
| SELPAY | SELTIN+14~, SELTIN+16, PART~ |
| SELPAY("RCSELPAY" | SELTIN+23, SELTIN+24, PART+27* |
| SHOWTIN | GETPAY~, GETPAY+24* |
| TIN | GETPAY+20~, GETPAY+54*, GETPAY+55, GLIST+10~, GLIST+13*, GLIST+14*, GLIST+16, GLIST+18, GLIST+19, GLIST+23* , GLIST+24*, GLIST+26, GLIST+27, SELTIN~, SELTIN+15, SELTIN+16 |
| X | GETPAY+20~, GETPAYS+12~, SELTIN+14~, GETPAYR+10~ |
| XX | GETPAY+20~, GETPAY+55*, GETPAY+56 |
| Y | GETPAY+20~, GETPAY+50, GETPAY+59, GETPAY+63, GETPAYS+12~, GETPAYS+23, GETPAYS+27, SELTIN+14~, SELTIN+22, GETPAYR+10~ , GETPAYR+20, GETPAYR+21, GETPAYR+31, GETPAYR+35, GETPAYR+36 |
