Produced by Araxis Merge on 10/23/2018 6:40:14 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 US2974 SDD - Copy.doc | Mon Oct 22 16:27:48 2018 UTC |
| 2 | docs | TAS ePay US2974 SDD - Copy.doc | Mon Oct 22 16:31:31 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 206 |
| 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 US2974 | |
| 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 S2974 | |
| 9 | Epic Taxon omy eBiz C ompliance Port Updat e Incre ase No Tou ch TAS Ap psStory | |
| 10 | As a...I w ant to...S o that...e Payments u serBe prom pted with “This ERA already ha s a Scratc hpad entry and must be deleted before it can be un matched. D o you want to delete the Scrat chpad entr y for this ERA now?” when dele ting an ER A worklist scratchpa d instead of the cur rent promp t “This ER A already has a Work list entry and must be deleted before it can be un matched. D o you want to delete the Workl ist Entry for this E RA now?” I can be a ssured I a m only del eting the scratchpad entry for an ERA.Co nversation | |
| 11 | N/A | |
| 12 | Requiremen t IDDescri ptionUS297 4.1Verify the prompt verbiage when delet ing a ERA scratchpad entry rea ds “This E RA already has a Scr atchpad en try and mu st be dele ted before it can be unmatched . Do you w ant to del ete the Sc ratchpad e ntry for t his ERA no w?”Summary : | |
| 13 | Changed Ro utines: | |
| 14 | RCDPEM2 – Existing r outine | |
| 15 | Changed pr ompt wordi ng in subr outine UNM ATCH. | |
| 16 | Note: exam ple code m ay be foun d in zzRCD PEM2us2974 | |
| 17 | User Inter face | |
| 18 | Current – Manual Mat ch EFT-ERA Prompt | |
| 19 | THIS ERA A LREADY HAS A WORKLIS T ENTRY AN D MUST BE DELETED BE FORE IT CA N BE | |
| 20 | UNMATCHED. DO YOU W ANT TO DEL ETE THE WO RKLIST ENT RY FOR THI S ERA NOW? | |
| 21 | Proposed – Manual Ma tch EFT-ER A Prompt | |
| 22 | THIS ERA A LREADY HAS A SCRATCH PAD ENTRY AND MUST BE DELETED BEFORE IT CAN BE | |
| 23 | UNM ATCHED. D O YOU WANT TO DELETE THE SCRAT CH PAD ENT RY FOR THI S ERA | |
| 24 | NOW? | |
| 25 | Resolution – Added C hanged Obj ects | |
| 26 | RoutinesAc tivitiesRo utine Name RCDPEM2Enh ancement C ategory Ne w Modify D elete No C hangeRTMRe lated Opti onsRCDPE M ANUAL MATC H EFT-ERA Related Ro utinesRout ines “Call ed By”Rout ines “Call ed” N/AA UDITLOG^RC DPEAP | |
| 27 | SETSTA^RCD PEAP | |
| 28 | $$AUTCHK2^ RCDPEAP1 | |
| 29 | $$PNM4^RCD PEWL1 | |
| 30 | INIT^RCDPE WL7 | |
| 31 | $$AMT^RCDP RU | |
| 32 | $$MLO^RCDP RU | |
| 33 | $$RCDATE^R CDPRU | |
| 34 | UPDERA^RCD PRUCurrent Logic. | |
| 35 | . | |
| 36 | . | |
| 37 | UNMATCH ; Used to 'u nmatch' an ERA match ed in erro r | |
| 38 | N X,Y,DIR ,DIC,DIE,D IK,DA,DR,R CWL,RCEFT, RCQUIT,AUT OPOST | |
| 39 | S DIC(0)= "AEMQ",DIC ="^RCY(344 .4,",DIC(" S")="I '$P (^(0),U,8) ,$S('$P(^( 0),U,14):1 ,1:$P(^(0) ,U,9)=3),$ P(^(0),U,9 )" D ^DIC K DIC | |
| 40 | Q:Y'>0 | |
| 41 | S RCWL=+Y ,RCQUIT=0 | |
| 42 | I $D(^RCY (344.49,RC WL,0)) D Q:RCQUIT | |
| 43 | . S DIR(0 )="YA",DIR ("A",1)="T HIS ERA AL READY HAS A WORKLIST ENTRY AND MUST BE D ELETED BEF ORE IT CAN BE UNMATC HED",DIR(" A")="DO YO U WANT TO DELETE THE WORKLIST ENTRY FOR THIS ERA N OW? " | |
| 44 | . W ! D ^ DIR K DIR | |
| 45 | . I Y'=1 S RCQUIT=1 Q | |
| 46 | . S DIK=" ^RCY(344.4 9,",DA=RCW L D ^DIK | |
| 47 | S AUTOPOS T="" | |
| 48 | I $O(^RCY (344.31,"A ERA",RCWL, 0)) S RCEF T=+$O(^(0) ) D Q:RCQ UIT | |
| 49 | . S AUTOP OST=$$GET1 ^DIQ(344.4 ,RCWL_",", 4.02,"I") | |
| 50 | . W !!,"T HIS ERA IS MATCHED T O EFT #"_R CEFT | |
| 51 | . I AUTOP OST=0 W !, "* WARNING : This ERA will be U n-Marked a s an Auto- Post CANDI DATE" | |
| 52 | . S DIR(" A")="ARE Y OU SURE YO U WANT TO UNMATCH TH EM? ",DIR( 0)="YA" | |
| 53 | . D ^DIR K DIR | |
| 54 | . I Y'=1 S RCQUIT=1 Q | |
| 55 | . S DIE=" ^RCY(344.3 1,",DR=".1 ///@;.08// //0",DA=RC EFT D ^DIE | |
| 56 | . W !,"EF T #"_RCEFT _" IS NOW UNMATCHED" ,! | |
| 57 | S DIE="^R CY(344.4," ,DR=".09// //0;.13/// @;.14////0 ",DA=RCWL D ^DIE | |
| 58 | I AUTOPOS T=0 D SETS TA^RCDPEAP (RCWL,"@", "Unmatch: Removed as Auto-Post Candidate ") | |
| 59 | S DIR("A" )="ERA HAS BEEN SUCC ESSFULLY U NMATCHED - Press ENT ER to cont inue: " | |
| 60 | S DIR(0)= "EA" W ! D ^DIR K DI R | |
| 61 | Q | |
| 62 | ; | |
| 63 | . | |
| 64 | . | |
| 65 | .Modified Logic (Cha nges are i n bold). | |
| 66 | . | |
| 67 | . | |
| 68 | UNMATCH ; Used to 'u nmatch' an ERA match ed in erro r | |
| 69 | N X,Y,DIR ,DIC,DIE,D IK,DA,DR,R CWL,RCEFT, RCQUIT,AUT OPOST | |
| 70 | N AUTOPOS T,DA,DIC,D IE,DIK,DIR ,DIROUT,DR ,DTOUT,DUO UTX,RCEFT, RCQUIT,RCW L,XX,Y | |
| 71 | S DIC(0)= "AEMQ",DIC ="^RCY(344 .4," | |
| 72 | S DIC("S" )="I '$P(^ (0),U,8),$ S('$P(^(0) ,U,14):1,1 :$P(^(0),U ,9)=3),$P( ^(0),U,9)" | |
| 73 | D ^DIC K DIC | |
| 74 | Q:Y'>0 | |
| 75 | S RCWL=+Y ,RCQUIT=0 | |
| 76 | I $D(^RCY (344.49,RC WL,0)) D Q:RCQUIT | |
| 77 | . S DIR(0 )="YA" | |
| 78 | . S XX="T HIS ERA AL READY HAS A SCRATCH PAD ENTRY AND MUST B E DELETED BEFORE IT CAN BE" | |
| 79 | . S DIR(" A",1)=XX | |
| 80 | . S DIR(" A")="UNMAT CHED DO YO U WANT TO DELETE THE SCRATCH P AD ENTRY F OR THIS ER A NOW? " | |
| 81 | . W ! D ^ DIR K DIR | |
| 82 | . I Y'=1 S RCQUIT=1 Q | |
| 83 | . S DIK=" ^RCY(344.4 9,",DA=RCW L D ^DIK | |
| 84 | S AUTOPOS T="" | |
| 85 | I $O(^RCY (344.31,"A ERA",RCWL, 0)) S RCEF T=+$O(^(0) ) D Q:RCQ UIT | |
| 86 | . S AUTOP OST=$$GET1 ^DIQ(344.4 ,RCWL_",", 4.02,"I") | |
| 87 | . W !!,"T HIS ERA IS MATCHED T O EFT #"_R CEFT | |
| 88 | . I AUTOP OST=0 W !, "* WARNING : This ERA will be U n-Marked a s an Auto- Post CANDI DATE" | |
| 89 | . S DIR(" A")="ARE Y OU SURE YO U WANT TO UNMATCH TH EM? ",DIR( 0)="YA" | |
| 90 | . D ^DIR K DIR | |
| 91 | . I Y'=1 S RCQUIT=1 Q | |
| 92 | . S DIE=" ^RCY(344.3 1,",DR=".1 ///@;.08// //0",DA=RC EFT D ^DIE | |
| 93 | . W !,"EF T #"_RCEFT _" IS NOW UNMATCHED" ,! | |
| 94 | S DIE="^R CY(344.4," ,DR=".09// //0;.13/// @;.14////0 ",DA=RCWL | |
| 95 | D ^DIE | |
| 96 | I AUTOPOS T=0 D SETS TA^RCDPEAP (RCWL,"@", "Unmatch: Removed as Auto-Post Candidate ") | |
| 97 | S DIR("A" )="ERA HAS BEEN SUCC ESSFULLY U NMATCHED - Press ENT ER to cont inue: " | |
| 98 | S DIR(0)= "EA" | |
| 99 | W ! D ^DI R K DIR | |
| 100 | Q | |
| 101 | . | |
| 102 | . | |
| 103 | . |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.