RCDPEE ;AITC/FA -Select Partially Matched EFTs ; 29-MAY-2018
Source file <RCDPEE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(ERAIEN) | ;EP from Manual Match, MATCH1^RCDPEM2
; Input: ERAIEN - IEN of the ERA to show partial matches for ; Returns: IEN of the selected EFT or "" if none selected |
|
| DTR() | ;EP from RCDPEPMR
; Date Range Selection ; Input: ^TMP("RCPM_PARAMS",$J,"RCDT") - Current selected Date Range (if any) ; Output: ^TMP("RCPM_PARAMS",$J,"RCDT") - Updated Selected Date Range ; Returns: 1 if user quit or timed out, 0 otherwise |
|
| DTRANGE(DEFFROM,DEFTO) | ; Asks for and returns a Date Range
; Input: DEFFROM - Default FROM date ; DEFTO - Default TO date ; Output: From_Date^To_Date (YYYMMDD^YYYDDMM) or "^" (timeout or ^ entered) |
|
| CLAIMTYP() | ||
| PAYR() | ;EP from RCDPEPMR
; Payer Selection ; Input: ^TMP("RCPM_PARAMS",$J,"RCTYPE") - M/P/T filter selection ; Output: ^TMP("RCPM_PARAMS",$J,"RCPAYR") - Payer filter selection ; ^TMP("RCDPEU1",$J) - If specific payers were selected ; Returns: 1 if user quit or timed out, 0 otherwise |
|
| HDR | ;EP from listman template RCDPE EFT PARTIAL MATCH
; Display listman header ; Input: ^TMP("RCPM_PARAMS",$J) ; Output: VALMHDR |
|
| INIT | ;EP from listman template RCDPE EFT PARTIAL MATCH
; Display listman body ; Build the display of EFTs that are partially matched ; Input: ^TMP("RCPM_PARAMS",#J) - Selected Parameters |
|
| EFTCHK(EFTIEN,ERATIN,ERATOT,ERATR) | ; Check for partially matched EFTs
; Input: EFTIEN - IEN of the EFT being checked (#344.31) ; ERATIN - Payer TIN on the ERA record ; ERATOT - ERA Total Amount Paid ; ERATR - ERA Trace # ; Output: ^TMP($J,"RCPM_LIST,MATCHW,EFTSEQ)=A1^...^A11 Where ; MATCHW - Weighted number derived from partial matches ; EFTSEQ - Unique EFT Sequence # ; A1 - Number of matches between the ERA and the EFT ; A2 - Payer TIN # if matched, else "" ; A3 - Payer Trace # if matched, else "" ; A4 - Total Amount paid if matched else "" ; A5 - Matched weighted value ; 10 points for a match on Trace Number ; 5 points for a match on Total Amount ; 1 point for a match on TIN ; Only matches with a weigted value of 5 or more are displayed ; A6 - EFT IEN ; A7 - Deposit # ; A8 - Internal Deposit Date ; A9 - Payer Name/TIN (max 58 characters) ; A10- EFT Trace # ; A11- EFT Total Amount Paid |
|
| FILTEFT(EFTIEN) | ; Check to see if the EFT passes filter checks
; Input: EFTIEN - IEN for the EFT (#344.31) ; ^TMP("RCPM_PARAMS",$J,"RCPAYR") - Payer Selection - 'A','S' or 'R' ; ^TMP("RCPM_PARAMS",$J,"RCTYPE") - M/P/T Selection - 'A','M', 'P' or 'T' ; ^TMP("RCDPEU1",$J) - Selected payers if ALL not selected ; Returns: 1 if EFT passes filter checks, 0 otherwise |
|
| BLD | ; Build listman dislay
; Input: ^TMP($J,"RCPM_LIST,MATCHW,EFTSEQ)=A1^...^A11 Where: ; MATCHW - Weighted number derived from partial matches ; EFTSEQ - Unique EFT Sequence # ; A1 - Number of matches between the ERA and the EFT ; A2 - Payer TIN # if matched, else "" ; A3 - Payer Trace # if matched, else "" ; A4 - Total Amount paid if matched else "" ; A5 - Matched weighted value ; 10 points for a match on Trace Number ; 5 points for a match on Total Amount ; 1 point for a match on TIN ; Only matches with a weigted value of 5 or more are displayed ; A6 - EFT IEN ; A7 - Deposit # ; A8 - Internal Deposit Date ; A9 - Payer Name/TIN (max 58 characters) ; A10- EFT Trace # ; A11- EFT Total Amount Paid |
|
| DISPEFT(MATCH,EFTSEQ,CTR,VALMCNT) | ; Build the display for one EFT
; Input: MATCH - A1^...^A11 Where: ; A1 - Number of matches between the ERA and the EFT ; A2 - Payer TIN # if matched, else "" ; A3 - Payer Trace # if matched, else "" ; A4 - Total Amount paid if matched else "" ; A5 - Matched weighted value ; 10 points for a match on Trace Number ; 5 points for a match on Total Amount ; 1 point for a match on TIN ; Only matches with a weigted value of 5 or more are displayed ; A6 - EFT IEN ; A7 - Deposit # ; A8 - Internal Deposit Date ; A9 - Payer Name/TIN (max 58 characters) ; A10- EFT Trace # ; A11- EFT Total Amount Paid ; EFTSEQ - Unique EFT sequence # ; CTR - Current EFT counter ; VALMCNT - Current Listman body line counter ; Output: CTR - Updated EFT counter ; VALMCNT - Updated Listman body line counter |
|
| SET(X,RCSEQ,EFTIEN,VALMCNT) | ; Set listman body and selection arrays
; Input: X - Data to set into the display line ; RCSEQ - Selectable line # ; EFTIEN - IEN of the EFT record (#344.31) ; VALMCNT - Current Display line counter ; ^TMP("RCPM-WL",$J) - Current global array of body display lines ; ^TMP("RCPM-WL_WLDX",$J,RCSEQ) -VALMCNT_"^"_EFTIEN ; Output: VALMCNT - Updated Display line counter ; ^TMP("RCPM--WL",$J,VALMCNT,0) - Updated display lines with new line ; ^TMP("RCPM-WL_WLDX",$J,RCSEQ) -VALMCNT_"^"_ERAIEN |
|
| HELP | ;EP from listman template RCDPE EFT PARTIAL MATCH
; help code |
|
| EXIT | ;EP from listman template RCDPE EFT PARTIAL MATCH
; Exit code |
|
| SELEFT | ;EP from RCDPE EFT PARTIAL MATCH SELECT
; Input: None ; Output: ^TMP($J,"SELEFT")-EFTIEN if an EFT was selected |
|
| SHOWM(RCEFT) | ; Show EFT details and ask user if this is the correct one
; Input : RCEFT - IEN of EFT from file 344.31 ; Returns : 1 - If match was made, 0 - to refresh patial match list, -1 to exit |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^RCY(344.3 - [#344.3] | GET1^DIQ |
| ^RCY(344.31 - [#344.31] | Classic Fileman Calls, GET1^DIQ |
| ^RCY(344.4 - [#344.4] | GET1^DIQ |
