Produced by Araxis Merge on 10/23/2018 6:40:26 AM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
| # | Location | File | Last Modified |
|---|---|---|---|
| 1 | docs | TAS ePay US744 SDD - Copy.doc | Mon Oct 22 16:27:48 2018 UTC |
| 2 | docs | TAS ePay US744 SDD - Copy.doc | Mon Oct 22 16:32:06 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 186 |
| Changed | 0 | 0 |
| Inserted | 0 | 0 |
| Removed | 0 | 0 |
| Whitespace | |
|---|---|
| Character case | Differences in character case are significant |
| Line endings | Differences in line endings (CR and LF characters) are ignored |
| CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
| 1 | MCCF EDI T AS US744 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*? ?? | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | November 2 017 | |
| 7 | Version 1 | |
| 8 | User Story ID: US744 | |
| 9 | User Story Name: Ne ed Adminis trative Co st Adjustm ent option to adjust the balan ce AND be recognized | |
| 10 | Sizing: | |
| 11 | Epic Taxon omy eBiz C ompliance Port Updat e Incre ase No Tou ch TAS Ap psStory | |
| 12 | As a...I w ant to...S o that...e Payments u serHave th e Administ rative Cos t Adjustme nt action to adjust the balanc e, AND be recognized , on payme nts on the APAR list , the same way it wo rks on pay ments outs ide the AP AR list.Th e function ality is c onsistent across ePa y optionsC onversatio n (if desi red by dev elopers) | |
| 13 | Summary: | |
| 14 | The functi on current ly used to calculate d the bala nce for a claim used in nightl y auto-pos ting and A PAR only i ncludes th e PRINICPL E BALANCE of the AR claim. | |
| 15 | The existi ng routine (CHECKPAY ^RCDPEAP) will be mo dified to calculate the accoun t balance as the sum of the fo llowing fi elds on th e AR CLAIM (file #43 0): | |
| 16 | #430,#71 | |
| 17 | PRINCIPLE BALANCE | |
| 18 | #430, #72 | |
| 19 | INTEREST B ALANCE | |
| 20 | #430, #73 | |
| 21 | ADMINISTRA TIVE COST BALANCE | |
| 22 | #430, #74 | |
| 23 | MARSHAL FE E | |
| 24 | #430, #75 | |
| 25 | COURT COST | |
| 26 | The functi on used to calculate the balan ce of a cl aim in man ual receip t creation (CHECKPAY ^RCDPRPL3) already i ncludes th ese fields and is no t changed. | |
| 27 | Resolution – Added C hanged Obj ects | |
| 28 | RoutinesAc tivitiesRo utine Name RCDPEAPEnh ancement C ategory Ne w Modify D elete No C hangeRTMRe lated Opti onsPRCA NI GHTLY PROC ESS | |
| 29 | RCDPE APAR Related Ro utinesRout ines “Call ed By”Rout ines “Call ed” RCDP EAA2 | |
| 30 | RCDPEAD | |
| 31 | RCDPEAP1 | |
| 32 | RCDPEM0 | |
| 33 | RCDPEM2 | |
| 34 | RCDPEWL8 | |
| 35 | RCDPEX32 ^DIE | |
| 36 | UPDATE^ DIE | |
| 37 | ^DIK | |
| 38 | $$GET1^ DIQ | |
| 39 | $$LOCKD EP^RCDPDPL U | |
| 40 | $$UNBAL ^RCDPEAP1 | |
| 41 | ERADET^ RCDPEAP1 | |
| 42 | VALID^R CDPEAP1 | |
| 43 | RCPTDET ^RCDPEM | |
| 44 | $$BLDRC PT^RCDPEMA | |
| 45 | RCPTDET ^RCDPEMA | |
| 46 | $$ADDRE C^RCDPEWL | |
| 47 | ADDLINE S^RCDPEWLA | |
| 48 | $$LOCKR EC^RCDPRPL U | |
| 49 | PROCESS ^RCDPURE1 | |
| 50 | $$BLDRC PT^RCDPURE C | |
| 51 | $$FMSST AT^RCDPURE C | |
| 52 | $$PENDP AY^RCDPURE T | |
| 53 | $$NOW^X LFDT Current Logic ; | |
| 54 | CHECKPAY(A RRAY,CLAIM ) ;Check b alance ver sus paymen ts | |
| 55 | ; ARRAY = array of claim numb ers and re spective p ayment amo unts | |
| 56 | ; e.g. AR RAY(430 ie n) = 123.0 4 | |
| 57 | ; CLAIM = AR BILL ( 344.491, . 07) - IEN of file 43 0 | |
| 58 | Q:'CLAIM 0 | |
| 59 | ; get the payment a mount to b e posted t o the clai m | |
| 60 | S AMT=ARR AY(CLAIM) | |
| 61 | ;Payment exceeds pr inciple ba lance | |
| 62 | Q:AMT>$P( $G(^PRCA(4 30,CLAIM,7 )),U) 0 | |
| 63 | ;Check pe nding paym ents for c laim | |
| 64 | N PENDING S PENDING =$$PENDPAY ^RCDPURET( CLAIM) K ^ TMP($J,"RC DPUREC","P P") | |
| 65 | ;Pending payments i s > billed | |
| 66 | I PENDING >AMT Q 0 | |
| 67 | ;otherwis e OK to po st payment | |
| 68 | Q 1Modifi ed Logic ( Changes ar e in bold) ; | |
| 69 | CHECKPAY(A RRAY,CLAIM ) ;Check b alance ver sus paymen ts | |
| 70 | ; ARRAY = array of claim numb ers and re spective p ayment amo unts | |
| 71 | ; e.g. AR RAY(430 ie n) = 123.0 4 | |
| 72 | ; CLAIM = AR BILL ( 344.491, . 07) - IEN of file 43 0 | |
| 73 | Q:'CLAIM 0 | |
| 74 | ; | |
| 75 | N RCADMIN ,RCBAL,RCC OURT,RCINT ,RCMAR,RCP RIN | |
| 76 | S RCPRIN= $$GET1^DIQ (430,CLAIM _",",71) ; Principle Balance | |
| 77 | S RCINT=$ $GET1^DIQ( 430,CLAIM_ ",",72) ; Interest | |
| 78 | S RCADMIN =$$GET1^DI Q(430,CLAI M_",",73) ; Admin Co st | |
| 79 | S RCMAR=$ $GET1^DIQ( 430,CLAIM_ ",",74) ; Marshal Fe e | |
| 80 | S RCCOURT =$$GET1^DI Q(430,CLAI M_",",75) ; Court Co st | |
| 81 | S RCBAL=R CPRIN+RCIN T+RCADMIN+ RCMAR+RCCO URT ; Tota l balance | |
| 82 | ; | |
| 83 | ; get the payment a mount to b e posted t o the clai m | |
| 84 | S AMT=ARR AY(CLAIM) | |
| 85 | ;Payment exceeds ba lance | |
| 86 | Q:AMT>RCB AL 0 | |
| 87 | ; | |
| 88 | ;Check pe nding paym ents for c laim | |
| 89 | N PENDING S PENDING =$$PENDPAY ^RCDPURET( CLAIM) K ^ TMP($J,"RC DPUREC","P P") | |
| 90 | ;Pending payments i s > billed | |
| 91 | I PENDING >AMT Q 0 | |
| 92 | ;otherwis e OK to po st payment | |
| 93 | Q 1 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.