Call Graph
RCDPEE ;AITC/FA -Select Partially Matched EFTs ; 29-MAY-2018
Source file <RCDPEE.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Accounts Receivable | 3 | RCDPE EFT PARTIAL MATCH RCDPE EFT PARTIAL MATCH SELECT RCDPEM2 |
| Kernel | 1 | ^ORD(101 |
| 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 | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | HDR+25, HDR+31, HDR+32, HDR+38, INIT+11, INIT+13, INIT+15, INIT+23, INIT+25, INIT+27 , EFTCHK+25, EFTCHK+26, EFTCHK+27, EFTCHK+30, EFTCHK+32, EFTCHK+33, EFTCHK+35, EFTCHK+52 |
| EN^DIQ | SHOWM+7 |
| ^DIR | DTRANGE+10, DTRANGE+19, SHOWM+10 |
| GETDINFO^RCDPEM2 | SHOWM+5 |
| M12A^RCDPEM2 | SHOWM+15 |
| $$ISSEL^RCDPEU1 | FILTEFT+13 |
| $$ISTYPE^RCDPEU1 | FILTEFT+17 |
| $$PAYRNG^RCDPEU1 | PAYR+9 |
| $$RTYPE^RCDPEU1 | CLAIMTYP+6 |
| $$SELPAY^RCDPEU1 | PAYR+17 |
| EN^VALM | EN+14 |
| $$SETSTR^VALM1 | HDR+12, HDR+19, HDR+27 |
| FULL^VALM1 | EN+7, SELEFT+4 |
| CLEAN^VALM10 | INIT+5 |
| EN^VALM2 | SELEFT+6 |
| $$FMDIFF^XLFDT | INIT+28, INIT+29 |
| $$FMTE^XLFDT | DTRANGE+9, DTRANGE+12, DTRANGE+18, HDR+7, HDR+8 |
| $$UP^XLFSTR | INIT+12, INIT+14, EFTCHK+34, EFTCHK+36 |
| DISP^XQORM1 | HELP+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^RCY(344.31 - [#344.31] | INIT+21 |
| ^TMP("RCDPEU1" | EN+5!, EXIT+2! |
| ^TMP("RCPDEU1" | PAYR+7! |
| ^TMP("RCPM-WL" | INIT+6!, INIT+36*, SET+10*, SET+11*, EXIT+3! |
| ^TMP("RCPM-WL_WLDX" | INIT+6!, SET+12*, EXIT+3!, SELEFT+9 |
| ^TMP("RCPM_PARAMS" | EN+5!, EN+6*, DTR+6*, DTR+8, DTR+9, DTR+12*, CLAIMTYP+8*, PAYR+8, PAYR+18*, HDR+5 , HDR+9, HDR+14, HDR+23, INIT+7, INIT+8, FILTEFT+7, FILTEFT+9, EXIT+2! |
| ^TMP($J | INIT+6!, INIT+33, EFTCHK+58*, BLD+24, BLD+28, BLD+30, BLD+33!, EXIT+3! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CTR | BLD+19~, BLD+20*, BLD+31, DISPEFT~, DISPEFT+27, DISPEFT+29, DISPEFT+34, DISPEFT+35, DISPEFT+36* |
| >> DA | SHOWM+7* |
| DEFFROM | DTRANGE~, DTRANGE+9 |
| DEFTO | DTRANGE~, DTRANGE+18 |
| DEPDT | EFTCHK+23~, EFTCHK+27*, EFTCHK+51, SHOWM+4~, SHOWM+5, SHOWM+8 |
| DEPNUM | EFTCHK+23~, EFTCHK+26*, EFTCHK+28, EFTCHK+50, SHOWM+4~, SHOWM+5, SHOWM+8 |
| >> DIC | SHOWM+7* |
| DIR | DTR+5~, DTRANGE+4~, DTRANGE+13!, SHOWM+10! |
| DIR("?" | DTRANGE+8*, DTRANGE+16*, DTRANGE+17* |
| DIR("A" | DTRANGE+7*, DTRANGE+15*, SHOWM+10* |
| DIR("B" | DTRANGE+9*, DTRANGE+18*, SHOWM+10* |
| DIR(0 | DTRANGE+6*, DTRANGE+14*, SHOWM+10* |
| DIRUT | DTR+5~ |
| >> DR | SHOWM+7* |
| DT | DTR+6, DTRANGE+6, DTRANGE+14, INIT+10 |
| DTOUT | DTR+5~, DTRANGE+4~, DTRANGE+11, DTRANGE+20, SHOWM+11 |
| DTQUIT | DTR+5~, DTR+7* |
| DUOUT | DTR+5~, DTRANGE+4~, DTRANGE+11, DTRANGE+20, SHOWM+11 |
| EFTAMT | INIT+4~, INIT+25*, INIT+26 |
| EFTDR | INIT+4~, INIT+27*, INIT+28, INIT+29 |
| EFTIEN | INIT+16*, INIT+20, INIT+21*, INIT+22, INIT+23, INIT+25, INIT+27, INIT+30, INIT+31, EFTCHK~ , EFTCHK+25, EFTCHK+30, EFTCHK+32, EFTCHK+33, EFTCHK+35, EFTCHK+49, EFTCHK+52, FILTEFT~, FILTEFT+13, FILTEFT+17 , DISPEFT+22~, DISPEFT+23*, DISPEFT+29, DISPEFT+34, SET~, SET+11, SET+12 |
| EFTREM | INIT+4~, INIT+23*, INIT+24 |
| EFTSEQ | EFTCHK+23~, EFTCHK+25*, EFTCHK+31*, EFTCHK+58, BLD+19~, BLD+26*, BLD+27, BLD+28*, BLD+29, BLD+30 , BLD+31, DISPEFT~, DISPEFT+27 |
| EFTTIN | INIT+4~, EFTCHK+23~, EFTCHK+33*, EFTCHK+34*, EFTCHK+37, EFTCHK+39, EFTCHK+53, EFTCHK+54 |
| EFTTOT | EFTCHK+23~, EFTCHK+32*, EFTCHK+44, EFTCHK+47, EFTCHK+57 |
| EFTTR | INIT+4~, EFTCHK+23~, EFTCHK+35*, EFTCHK+36*, EFTCHK+40, EFTCHK+43, EFTCHK+56 |
| ERAIEN | EN~, EN+6, HDR+4~, HDR+23*, HDR+24, HDR+25, HDR+31, HDR+32, HDR+38, INIT+4~ , INIT+7*, INIT+11, INIT+13, INIT+15 |
| ERATIN | INIT+4~, INIT+11*, INIT+12*, INIT+31, EFTCHK~, EFTCHK+37 |
| ERATOT | INIT+4~, INIT+15*, INIT+31, EFTCHK~, EFTCHK+44 |
| ERATR | INIT+4~, INIT+13*, INIT+14*, INIT+31, EFTCHK~, EFTCHK+40 |
| FROM | DTR+5~, DTR+8*, DTR+10 |
| MATCH | EFTCHK+23~, EFTCHK+29*, EFTCHK+38*, EFTCHK+39*, EFTCHK+41, EFTCHK+42*, EFTCHK+43*, EFTCHK+45, EFTCHK+46*, EFTCHK+47* , EFTCHK+49*, EFTCHK+50*, EFTCHK+51*, EFTCHK+55*, EFTCHK+56*, EFTCHK+57*, EFTCHK+58, BLD+19~, BLD+30*, BLD+31 , DISPEFT~, DISPEFT+23, DISPEFT+26, DISPEFT+28, DISPEFT+32 |
| MATCHW | EFTCHK+23~, EFTCHK+29*, EFTCHK+38*, EFTCHK+41*, EFTCHK+45*, EFTCHK+48, EFTCHK+58, BLD+19~, BLD+22*, BLD+23 , BLD+24*, BLD+25, BLD+28, BLD+30 |
| PAYNM | EFTCHK+23~, EFTCHK+52*, EFTCHK+53, EFTCHK+54 |
| PCNT | SELEFT+3~, SELEFT+7*, SELEFT+8, SELEFT+9 |
| PROMPT | SELEFT+3~ |
| RCDFR | DTRANGE+4~, DTRANGE+12*, DTRANGE+14, DTRANGE+21 |
| RCDTFR | INIT+4~, INIT+9*, INIT+28 |
| RCDTRNG | DTR+5~, DTR+10*, DTR+11, DTR+12 |
| RCDTTO | INIT+4~, INIT+10*, INIT+29 |
| RCEFT | SELEFT+3~, SELEFT+9*, SELEFT+10, SELEFT+12, SHOWM~, SHOWM+5, SHOWM+7 |
| RCFLAG | FILTEFT+6~ |
| RCPAR | PAYR+6~, PAYR+17 |
| RCPAR("DICA" | PAYR+16* |
| RCPAR("FILE" | PAYR+15* |
| RCPAR("SELC" | PAYR+13* |
| RCPAR("TYPE" | PAYR+14* |
| RCPAY | PAYR+6~, PAYR+9*, PAYR+10, PAYR+12, PAYR+13, PAYR+18, FILTEFT+6~, FILTEFT+8*, FILTEFT+12 |
| RCQUIT | EN+3~, EN+4*, EN+8*, EN+9, EN+10*, EN+11, EN+12*, EN+13, DTRANGE+5*, SELEFT+12* , SELEFT+13, SHOWM+4~, SHOWM+11*, SHOWM+14*, SHOWM+16 |
| RCSEQ | SET~, SET+11, SET+12 |
| RCTYPE | CLAIMTYP+5~, CLAIMTYP+6*, CLAIMTYP+7, CLAIMTYP+8, PAYR+6~, PAYR+8*, PAYR+14, FILTEFT+6~, FILTEFT+9*, FILTEFT+16 , FILTEFT+17 |
| SEL | SELEFT+3~ |
| START | DTRANGE+4~, DTRANGE+12*, DTRANGE+17 |
| TO | DTR+5~, DTR+9*, DTR+10 |
| TT | DISPEFT+22~ |
| >> VALM("ENTITY" | SELEFT+5* |
| >> VALMBCK | SELEFT+11*, SELEFT+13* |
| VALMCNT | INIT+37*, BLD+21*, BLD+31, DISPEFT~, DISPEFT+29, DISPEFT+34, DISPEFT+35, SET~, SET+10*, SET+11 , SET+12 |
| >> VALMHDR(1 | HDR+20* |
| >> VALMHDR(2 | HDR+28* |
| >> VALMHDR(3 | HDR+35* |
| >> VALMHDR(4 | HDR+40* |
| >> VALMHDR(5 | HDR+42* |
| >> VALMHDR(6 | HDR+43* |
| >> VALMSG | BLD+34*, DISPEFT+37* |
| >> VALMY(0 | SELEFT+7 |
| X | HDR+4~, HDR+5*, HDR+7, HDR+8, HDR+9*, HDR+11, HDR+14*, HDR+15, DISPEFT+22~, DISPEFT+27* , DISPEFT+28*, DISPEFT+29, DISPEFT+33*, DISPEFT+34, SET~, SET+10, HELP+2* |
| >> XQORNOD(0 | SELEFT+6 |
| XX | EN+3~, PAYR+6~, PAYR+12, PAYR+17*, HDR+4~, HDR+6*, HDR+7*, HDR+8*, HDR+12*, HDR+19* , HDR+20, HDR+24*, HDR+27*, HDR+28, HDR+32*, HDR+33, HDR+34, HDR+39*, HDR+40, INIT+4~ , INIT+8*, INIT+9, INIT+10, EFTCHK+23~, EFTCHK+25*, EFTCHK+26, EFTCHK+27, EFTCHK+30*, EFTCHK+31, EFTCHK+41* , EFTCHK+42, EFTCHK+45*, EFTCHK+46, EFTCHK+53*, EFTCHK+54*, EFTCHK+55, FILTEFT+6~, FILTEFT+7*, FILTEFT+8, FILTEFT+12 , FILTEFT+13*, FILTEFT+16, FILTEFT+17*, DISPEFT+22~, DISPEFT+32*, DISPEFT+33 |
| XX2 | HDR+4~, HDR+10*, HDR+11*, HDR+12, HDR+16*, HDR+17*, HDR+18*, HDR+19, HDR+25*, HDR+26* , HDR+27, HDR+33*, HDR+34*, HDR+35 |
| Y | DTR+5~, DTRANGE+4~, DTRANGE+12, DTRANGE+21, SHOWM+12 |
| YY | HDR+4~, HDR+31*, HDR+33, HDR+34, HDR+38*, HDR+39, EFTCHK+23~, DISPEFT+26*, DISPEFT+27 |
