Produced by Araxis Merge on 10/23/2018 6:40:11 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 US2651 SDD - Copy.doc | Mon Oct 22 16:27:48 2018 UTC |
| 2 | docs | TAS ePay US2651 SDD - Copy.doc | Mon Oct 22 16:31:21 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 154 |
| 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 US2651 | |
| 2 | System Des ign Docume nt | |
| 3 | PRCA*4.5*x xx | |
| 4 | ||
| 5 | Department of Vetera ns Affairs | |
| 6 | September 2017 | |
| 7 | Version 1 | |
| 8 | User Story Number: U S2651 | |
| 9 | Epic Taxon omyComplia nce Por t Update Increase No TouchS tory | |
| 10 | As a...I w ant to...S o that...e Payments E RA Worklis t userPrev ent a bug that occur s if I sel ect the Ma nual Match action fo r an alrea dy matched ERAI can prevent be ing stuck in an infi nite loop with the e rror messa ge ‘ERA is already m atched ple ase select another E RA...’ and no way to quit out other than have IT t erminate m y process. Conversati on: | |
| 11 | Summary: | |
| 12 | Changed Ro utines: | |
| 13 | RCDPRU – E xisting ro utine | |
| 14 | Changed th e go to af ter the er ror messag e display to prevent the infin ite loop. . Note: M odified co de found i n routine ZZRCDPRUus 2651 | |
| 15 | Resolution – Added C hanged Obj ects | |
| 16 | RoutinesAc tivitiesRo utine Name RCDPRUEnha ncement Ca tegory New Modify De lete No Ch angeRTMRel ated Optio nsRCDPE ED I LOCKBOX WORKLIST R elated Rou tinesRouti nes “Calle d By”Routi nes “Calle d” RCDPA RC | |
| 17 | RCDPCCRR | |
| 18 | RCDPEAA4 | |
| 19 | RCDPEAPS | |
| 20 | RCDPEAR1 | |
| 21 | RCDPEM2 | |
| 22 | RCDPENR2 | |
| 23 | RCDPESP5 | |
| 24 | RCDPPLB | |
| 25 | RCDPTAR | |
| 26 | RCDPTAR1$$ SEL^RCDPEW L7 | |
| 27 | Current Lo gic. | |
| 28 | . | |
| 29 | . | |
| 30 | ML0A S RCE RA=$$SEL^R CDPEWL7() ; Select E RA to use from scree n | |
| 31 | S RCMBG=V ALMBG ; Sa ve the lin e, we need it when w e go back to the wor klist. | |
| 32 | I RCERA=0 Q 1 | |
| 33 | S RCERA(0 )=^RCY(344 .4,RCERA,0 ) ; Get th e zero nod e for this ERA | |
| 34 | I ((+($P( RCERA(0),U ,9)))>0)!( $P(RCERA(0 ),U,8)'="" ) W !,"ERA is alread y matched please sel ect anothe r ERA...", ! G ML0A | |
| 35 | S DIR("A" )="Select EFT by dat e Range? ( Y/N) ",DIR (0)="YA",D IR("B")="N O" D ^DIR K DIR | |
| 36 | I $D(DUOU T)!$D(DTOU T) Q 1 | |
| 37 | I Y<1 G M LQ ; Go to the EFT S election | |
| 38 | S DTRNG=Y ; flag i ndicating date range selected | |
| 39 | K DIR S D IR("?")="E nter the e arliest da te for the selection range." | |
| 40 | ; value i n DIR(0) f or %DT = A PE: ask da te, past a ssumed, ec ho answer | |
| 41 | S DIR(0)= "DAO^:"_DT _":APE",DI R("A")="St art Date: " D ^DIR K DIR | |
| 42 | I $D(DTOU T)!$D(DUOU T)!(Y="") Q 1 | |
| 43 | S START=Y K DIR,X,Y | |
| 44 | S DIR("?" )="Enter t he latest date for t he selecti on range." | |
| 45 | S DIR(0)= "DAO^"_STA RT_":"_DT_ ":APE",DIR ("A")="End Date: ",D IR("B")=$$ FMTE^XLFDT (DT) | |
| 46 | D ^DIR K DIR | |
| 47 | I $D(DTOU T)!$D(DUOU T)!(Y="") Q 1 | |
| 48 | S END=Y | |
| 49 | ; | |
| 50 | MLQ Q 0. | |
| 51 | . | |
| 52 | .Modified Logic (Cha nges are i n bold). | |
| 53 | . | |
| 54 | . | |
| 55 | ML0A S RCE RA=$$SEL^R CDPEWL7() ; Select E RA to use from scree n | |
| 56 | S RCMBG=V ALMBG ; Sa ve the lin e, we need it when w e go back to the wor klist. | |
| 57 | I RCERA=0 Q 1 | |
| 58 | S RCERA(0 )=^RCY(344 .4,RCERA,0 ) ; Get th e zero nod e for this ERA | |
| 59 | I ((+($P( RCERA(0),U ,9)))>0)!( $P(RCERA(0 ),U,8)'="" ) W !,"ERA is alread y matched please sel ect anothe r ERA...", ! G MLQ | |
| 60 | S DIR("A" )="Select EFT by dat e Range? ( Y/N) ",DIR (0)="YA",D IR("B")="N O" D ^DIR K DIR | |
| 61 | I $D(DUOU T)!$D(DTOU T) Q 1 | |
| 62 | I Y<1 G M LQ ; Go to the EFT S election | |
| 63 | S DTRNG=Y ; flag i ndicating date range selected | |
| 64 | K DIR S D IR("?")="E nter the e arliest da te for the selection range." | |
| 65 | ; value i n DIR(0) f or %DT = A PE: ask da te, past a ssumed, ec ho answer | |
| 66 | S DIR(0)= "DAO^:"_DT _":APE",DI R("A")="St art Date: " D ^DIR K DIR | |
| 67 | I $D(DTOU T)!$D(DUOU T)!(Y="") Q 1 | |
| 68 | S START=Y K DIR,X,Y | |
| 69 | S DIR("?" )="Enter t he latest date for t he selecti on range." | |
| 70 | S DIR(0)= "DAO^"_STA RT_":"_DT_ ":APE",DIR ("A")="End Date: ",D IR("B")=$$ FMTE^XLFDT (DT) | |
| 71 | D ^DIR K DIR | |
| 72 | I $D(DTOU T)!$D(DUOU T)!(Y="") Q 1 | |
| 73 | S END=Y | |
| 74 | ; | |
| 75 | MLQ Q 0. | |
| 76 | . | |
| 77 | . |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.