Produced by Araxis Merge on 10/23/2018 6:40:12 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 US2973 SDD - Copy.doc | Mon Oct 22 16:27:48 2018 UTC |
| 2 | docs | TAS ePay US2973 SDD - Copy.doc | Mon Oct 22 16:31:26 2018 UTC |
| Description | Between Files 1 and 2 |
|
|---|---|---|
| Text Blocks | Lines | |
| Unchanged | 1 | 506 |
| 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 US2973 | |
| 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 S2973 | |
| 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 serDisallo w ERAs and EFTS from being man ually matc hed when t heir total s are not equalERA a nd EFT mat ching is i n complian ce with re gulationsC onversatio n | |
| 11 | N/A | |
| 12 | Requiremen t IDDescri ptionUS297 3.1Verify that user cannot man ually matc h an ERA t o an EFT i f their to tals are n ot equalSu mmary: | |
| 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 PEM2us2973 | |
| 17 | Resolution – Added C hanged Obj ects | |
| 18 | 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 | |
| 19 | SETSTA^RCD PEAP | |
| 20 | $$AUTCHK2^ RCDPEAP1 | |
| 21 | $$PNM4^RCD PEWL1 | |
| 22 | INIT^RCDPE WL7 | |
| 23 | $$AMT^RCDP RU | |
| 24 | $$MLO^RCDP RU | |
| 25 | $$RCDATE^R CDPRU | |
| 26 | UPDERA^RCD PRUCurrent Logic. | |
| 27 | . | |
| 28 | . | |
| 29 | MATCH1 ; M anually 'm atch' an E RA to an E FT | |
| 30 | N DA,DIC, DIE,DIR,DR ,DTRNG,DTO UT,DUOUT,E ND,RCEFT,R CERA,RCMAT CH,RCNAME, RCQUIT,STA RT,X,Y,RCM TFLG | |
| 31 | W !,"THIS OPTION WI LL ALLOW Y OU TO MANU ALLY MATCH AN EFT DE TAIL RECOR D",!,"WITH AN ERA RE CORD." | |
| 32 | ; PRCA*4. 5*298 - Ad d ability to specify a date ra nge | |
| 33 | S DIR("A" )="Select by date Ra nge? (Y/N) ",DIR(0)= "YA",DIR(" B")="NO" D ^DIR K DI R | |
| 34 | I $D(DUOU T)!$D(DTOU T) G M1Q | |
| 35 | I Y<1 G M 1 | |
| 36 | S DTRNG=Y ; flag i ndicating date range selected | |
| 37 | K DIR S D IR("?")="E nter the e arliest da te for the selection range." | |
| 38 | ; value i n DIR(0) f or %DT = A PE: ask da te, past a ssumed, ec ho answer | |
| 39 | S DIR(0)= "DAO^:"_DT _":APE",DI R("A")="St art Date: " D ^DIR K DIR | |
| 40 | I $D(DTOU T)!$D(DUOU T)!(Y="") G M1Q | |
| 41 | S START=Y K DIR,X,Y | |
| 42 | S DIR("?" )="Enter t he latest date for t he selecti on range." | |
| 43 | S DIR(0)= "DAO^"_STA RT_":"_DT_ ":APE",DIR ("A")="End Date: ",D IR("B")=$$ FMTE^XLFDT (DT) | |
| 44 | D ^DIR K DIR | |
| 45 | I $D(DTOU T)!$D(DUOU T)!(Y="") G M1Q | |
| 46 | S END=Y | |
| 47 | ; | |
| 48 | M1 ; come here if no date rang e slection | |
| 49 | S DIR("A" )="SELECT THE UNMATC HED EFT TO MATCH TO AN ERA: " | |
| 50 | ; | |
| 51 | ; ** star t PRCA*4.5 *293 Add e xtra check s to filte r out EFTs that have | |
| 52 | ; a payme nt amount of zero or EFTs that have been removed. | |
| 53 | ; Only UN MATCHED EF Ts with pa yment amt >0 and not removed s hould | |
| 54 | ; be sele ctable by the user. | |
| 55 | ; | |
| 56 | S DIR(0)= "PAO^RCY(3 44.31,:AEM Q",DIR("S" )="I ('$P( ^(0),U,8)) &($P($G(^( 0)),U,7))& ('$P($G(^( 3)),U))" | |
| 57 | I $G(DTRN G) S DIR(" S")=DIR("S ")_"&'($P( $G(^(0)),U ,13)<START )&'($P($G( ^(0)),U,13 )>END)" | |
| 58 | ; ** end PRCA*4.5*2 93 | |
| 59 | ; | |
| 60 | W ! D ^DI R K DIR | |
| 61 | I $D(DUOU T)!$D(DTOU T)!(Y<0) G M1Q | |
| 62 | S RCEFT=+ Y,RCEFT(0) =$G(^RCY(3 44.31,+Y,0 )) | |
| 63 | W ! | |
| 64 | S DIC="^R CY(344.31, ",DR="0",D A=RCEFT D EN^DIQ | |
| 65 | W ! | |
| 66 | S DIR("A" )="ARE YOU SURE THIS IS THE EF T YOU WANT TO MATCH? : ",DIR(0) ="YA",DIR( "B")="YES" D ^DIR K DIR | |
| 67 | I $D(DUOU T)!$D(DTOU T) G M1Q | |
| 68 | I Y'=1 G M1 | |
| 69 | M12 S DIR( "A")="SELE CT THE UNM ATCHED ERA TO MATCH TO EFT #"_ RCEFT_": " | |
| 70 | S DIR(0)= "PAO^RCY(3 44.4,:AEMQ ",DIR("S") ="I '$P(^( 0),U,9),'$ P(^(0),U,8 )" | |
| 71 | W ! D ^DI R K DIR | |
| 72 | I $D(DUOU T)!$D(DTOU T)!(Y<0) G M1Q | |
| 73 | S RCERA=+ Y,RCERA(0) =$G(^RCY(3 44.4,+Y,0) ) | |
| 74 | W ! | |
| 75 | S DIC="^R CY(344.4," ,DR="0",DA =RCERA D E N^DIQ | |
| 76 | W ! | |
| 77 | S DIR("A" )="ARE YOU SURE THIS IS THE CO RRECT ERA TO MATCH T O?: ",DIR( 0)="YA",DI R("B")="YE S" D ^DIR K DIR | |
| 78 | I $D(DUOU T)!$D(DTOU T) G M1Q | |
| 79 | I Y'=1 G M12 | |
| 80 | ; | |
| 81 | M12A ; PRC A*4.5*303 - MATCH WL jumps her e to compl ete the ma nual match | |
| 82 | S RCMATCH =(+$P(RCER A(0),U,5)= +$P(RCEFT( 0),U,7)) | |
| 83 | S RCNAME= ($P(RCERA( 0),U,6)=$P (RCEFT(0), U,2)) | |
| 84 | I 'RCMATC H!'RCNAME D G:RCQUI T M1Q | |
| 85 | . N Z | |
| 86 | . S RCQUI T=0,Z=1 | |
| 87 | . S DIR(" A",1)="*** WARNING*** " | |
| 88 | . I 'RCNA ME S Z=Z+1 ,DIR("A",Z )=$J("",3) _"> The pa yer names on these t wo records do not ag ree" | |
| 89 | . I 'RCMA TCH S Z=Z+ 1,DIR("A", Z)=$J("",3 )_"> The a mount of p ayment on these two records do not agree " | |
| 90 | . S DIR(0 )="YA",DIR ("B")="NO" ,DIR("A")= "ARE YOU S URE YOU WA NT TO MATC H THESE 2 RECORDS?: " W ! D ^D IR K DIR | |
| 91 | . I $S($D (DUOUT)!$D (DTOUT):1, Y'=1:1,1:0 ) S RCQUIT =1 Q | |
| 92 | S DIE="^R CY(344.4," ,DR=".09// //1",DA=RC ERA D ^DIE | |
| 93 | I '$D(Y) S DIE="^RC Y(344.31," ,DR=".08// //1;.1//// "_RCERA,DA =RCEFT D ^ DIE | |
| 94 | S RCMTFLG =$S('$D(Y) :1,1:0) | |
| 95 | W !,"EFT #"_RCEFT_" WAS "_$S( RCMTFLG:"S UCCESSFULL Y",1:"NOT" )_" MATCHE D TO ERA # "_RCERA | |
| 96 | I 'RCMTFL G S DIR(0) ="E" D ^DI R K DIR G M1Q | |
| 97 | ;PRCA*4.5 *304 add a bility to use auto-p osting for a manuall y matched item | |
| 98 | ; Only if the amoun t of payme nts match. | |
| 99 | I 'RCMATC H D G M1Q ;if pa yment amou nts don't match, don 't allow f or auto-po sting. | |
| 100 | . W !,"ER A/EFT bala nces do no t match - cannot Mar k for Auto -Post. Pre ss any key ." S DIR(0 )="E" D ^D IR K DIR | |
| 101 | W ! | |
| 102 | K DIR | |
| 103 | S DIR("A" )="Do you wish to ma rk this en try for Au to Posting (Y/N)? " | |
| 104 | S DIR(0)= "YA" | |
| 105 | D ^DIR | |
| 106 | I 'Y K DI R S DIR(0) ="E" D ^DI R G M1Q | |
| 107 | N AUTOPOS T | |
| 108 | S AUTOPOS T=$$AUTOCH K2^RCDPEAP 1(RCERA,1) ; Allow a uto-post f or CHK and ACH type ERA - PRCA *4.5*321 | |
| 109 | I AUTOPOS T D | |
| 110 | . D SETST A^RCDPEAP( RCERA,0,"M anual Matc h: Marked as Auto-Po st Candida te") | |
| 111 | . W !,"ER A has been successfu lly Marked as an Aut o-Post CAN DIDATE" | |
| 112 | I 'AUTOPO ST D | |
| 113 | . D AUDIT LOG^RCDPEA P(RCERA,"" ,"Manual M atch: Not Marked as Auto-Post Candidate- "_$P(AUTOP OST,U,2)) | |
| 114 | . W !,"ER A was NOT Marked as an Auto-Po st CANDIDA TE - ",$P( AUTOPOST,U ,2) | |
| 115 | K DIR S D IR(0)="E" D ^DIR | |
| 116 | M1Q Q | |
| 117 | ; | |
| 118 | . | |
| 119 | . | |
| 120 | . | |
| 121 | Modified L ogic (Chan ges are in bold). | |
| 122 | . | |
| 123 | . | |
| 124 | MATCH1 ; M anually 'm atch' an E RA to an E FT | |
| 125 | N DA,DIC, DIE,DIR,DR ,DTRNG,DTO UT,DUOUT,E ND,RCEFT,R CERA,RCMAT CH,RCNAME, RCQUIT,STA RT,X,Y,RCM TFLG | |
| 126 | W !,"THIS OPTION WI LL ALLOW Y OU TO MANU ALLY MATCH AN EFT DE TAIL RECOR D",!,"WITH AN ERA RE CORD." | |
| 127 | N DA,DIC, DIE,DIR,DI ROUT,DR,DT RNG,DTOUT, DUOUT,EFTT OT,END,ERA TOT | |
| 128 | N RCEFT,R CERA,RCMAT CH,RCMTFLG ,RCNAME,RC QUIT,START ,X,XX,Y,YY | |
| 129 | W !,"THIS OPTION WI LL ALLOW Y OU TO MANU ALLY MATCH AN EFT DE TAIL RECOR D" | |
| 130 | W !,"WITH AN ERA RE CORD." | |
| 131 | ; PRCA*4. 5*298 - Ad d ability to specify a date ra nge | |
| 132 | S DIR("A" )="Select by date Ra nge? (Y/N) ",DIR(0)= "YA",DIR(" B")="NO" D ^DIR K DI R | |
| 133 | S DIR("A" )="Select by date Ra nge? (Y/N) ",DIR(0)= "YA",DIR(" B")="NO" | |
| 134 | D ^DIR K DIR | |
| 135 | I $D(DUOU T)!$D(DTOU T) G M1Q | |
| 136 | I Y<1 G M 1 | |
| 137 | S DTRNG=Y ; flag i ndicating date range selected | |
| 138 | K DIR S D IR("?")="E nter the e arliest da te for the selection range." | |
| 139 | K DIR | |
| 140 | S DIR("?" )="Enter t he earlies t date for the selec tion range ." | |
| 141 | ; value i n DIR(0) f or %DT = A PE: ask da te, past a ssumed, ec ho answer | |
| 142 | S DIR(0)= "DAO^:"_DT _":APE",DI R("A")="St art Date: " D ^DIR K DIR | |
| 143 | S DIR(0)= "DAO^:"_DT _":APE",DI R("A")="St art Date: " | |
| 144 | D ^DIR K DIR | |
| 145 | I $D(DTOU T)!$D(DUOU T)!(Y="") G M1Q | |
| 146 | S START=Y K DIR,X,Y | |
| 147 | S START=Y | |
| 148 | K DIR,X,Y | |
| 149 | S DIR("?" )="Enter t he latest date for t he selecti on range." | |
| 150 | S DIR(0)= "DAO^"_STA RT_":"_DT_ ":APE",DIR ("A")="End Date: ",D IR("B")=$$ FMTE^XLFDT (DT) | |
| 151 | D ^DIR K DIR | |
| 152 | I $D(DTOU T)!$D(DUOU T)!(Y="") G M1Q | |
| 153 | S END=Y | |
| 154 | ; | |
| 155 | M1 ; come here if no date rang e slection | |
| 156 | S DIR("A" )="SELECT THE UNMATC HED EFT TO MATCH TO AN ERA: " | |
| 157 | ; | |
| 158 | ; ** star t PRCA*4.5 *293 Add e xtra check s to filte r out EFTs that have | |
| 159 | ; a payme nt amount of zero or EFTs that have been removed. | |
| 160 | ; Only UN MATCHED EF Ts with pa yment amt >0 and not removed s hould | |
| 161 | ; be sele ctable by the user. | |
| 162 | ; | |
| 163 | S DIR(0)= "PAO^RCY(3 44.31,:AEM Q",DIR("S" )="I ('$P( ^(0),U,8)) &($P($G(^( 0)),U,7))& ('$P($G(^( 3)),U))" | |
| 164 | I $G(DTRN G) S DIR(" S")=DIR("S ")_"&'($P( $G(^(0)),U ,13)<START )&'($P($G( ^(0)),U,13 )>END)" | |
| 165 | ; ** end PRCA*4.5*2 93 | |
| 166 | ; | |
| 167 | W ! D ^DI R K DIR | |
| 168 | W ! | |
| 169 | D ^DIR K DIR | |
| 170 | I $D(DUOU T)!$D(DTOU T)!(Y<0) G M1Q | |
| 171 | S RCEFT=+ Y,RCEFT(0) =$G(^RCY(3 44.31,+Y,0 )) | |
| 172 | S EFTTOT =$$GET1^DI Q(344.31,R CEFT,.07," I") ; EFT Amount of Payment | |
| 173 | W ! | |
| 174 | S DIC="^R CY(344.31, ",DR="0",D A=RCEFT D EN^DIQ | |
| 175 | W ! | |
| 176 | S DIR("A" )="ARE YOU SURE THIS IS THE EF T YOU WANT TO MATCH? : ",DIR(0) ="YA",DIR( "B")="YES" D ^DIR K DIR | |
| 177 | S DIR("A" )="ARE YOU SURE THIS IS THE EF T YOU WANT TO MATCH? : " | |
| 178 | S DIR(0)= "YA",DIR(" B")="YES" | |
| 179 | D ^DIR K DIR | |
| 180 | I $D(DUOU T)!$D(DTOU T) G M1Q | |
| 181 | I Y'=1 G M1 | |
| 182 | M12 S DIR( "A")="SELE CT THE UNM ATCHED ERA TO MATCH TO EFT #"_ RCEFT_": " | |
| 183 | S DIR(0)= "PAO^RCY(3 44.4,:AEMQ ",DIR("S") ="I '$P(^( 0),U,9),'$ P(^(0),U,8 )" | |
| 184 | W ! D ^DI R K DIR | |
| 185 | W ! | |
| 186 | D ^DIR K DIR | |
| 187 | I $D(DUOU T)!$D(DTOU T)!(Y<0) G M1Q | |
| 188 | S RCERA=+ Y,RCERA(0) =$G(^RCY(3 44.4,+Y,0) ) | |
| 189 | W ! | |
| 190 | S DIC="^R CY(344.4," ,DR="0",DA =RCERA D E N^DIQ | |
| 191 | W ! | |
| 192 | S DIR("A" )="ARE YOU SURE THIS IS THE CO RRECT ERA TO MATCH T O?: ",DIR( 0)="YA",DI R("B")="YE S" D ^DIR K DIR | |
| 193 | S DIR("A" )="ARE YOU SURE THIS IS THE CO RRECT ERA TO MATCH T O?: " | |
| 194 | S DIR(0)= "YA",DIR(" B")="YES" | |
| 195 | D ^DIR K DIR | |
| 196 | I $D(DUOU T)!$D(DTOU T) G M1Q | |
| 197 | I Y'=1 G M12 | |
| 198 | ; | |
| 199 | M12A ; PRC A*4.5*303 - MATCH WL jumps her e to compl ete the ma nual match | |
| 200 | S RCMATCH =(+$P(RCER A(0),U,5)= +$P(RCEFT( 0),U,7)) | |
| 201 | S RCMATCH =(+ERATOT= +EFTTOT) ; Do the To tals Match | |
| 202 | ; | |
| 203 | ; If the totals don 't match, manual mat ch is not allowed | |
| 204 | I 'RCMATC H D G M1Q | |
| 205 | . W !,*7, $J("",3)_" > The amou nt of paym ent on the se two rec ords do no t agree." | |
| 206 | . S RCQUI T=1 | |
| 207 | ; | |
| 208 | S RCNAME= ($P(RCERA( 0),U,6)=$P (RCEFT(0), U,2)) | |
| 209 | I 'RCMATC H!'RCNAME D G:RCQUI T M1Q | |
| 210 | S XX=$$GE T1^DIQ(344 .4,RCERA,. 06,I) ; ER A Payer Na me | |
| 211 | S YY=$$GE T1^DIQ(344 .31,RCEFT, .02,I) ; E FT Payer N ame | |
| 212 | S RCNAME= (XX=YY) ; Do the Pay er Names M atch | |
| 213 | I 'RCMATC H!'RCNAME D G:RCQUI T M1Q | |
| 214 | I 'RCNAME D G:RCQU IT M1Q | |
| 215 | . N Z | |
| 216 | . S RCQUI T=0,Z=1 | |
| 217 | . S DIR(" A",1)="*** WARNING*** " | |
| 218 | . I 'RCNA ME S Z=Z+1 ,DIR("A",Z )=$J("",3) _"> The pa yer names on these t wo records do not ag ree" | |
| 219 | . I 'RCMA TCH S Z=Z+ 1,DIR("A", Z)=$J("",3 )_"> The a mount of p ayment on these two records do not agree " | |
| 220 | . S DIR(0 )="YA",DIR ("B")="NO" ,DIR("A")= "ARE YOU S URE YOU WA NT TO MATC H THESE 2 RECORDS?: " W ! D ^D IR K DIR | |
| 221 | . S DIR(0 )="YA",DIR ("B")="NO" | |
| 222 | . S DIR(" A")="ARE Y OU SURE YO U WANT TO MATCH THES E 2 RECORD S?: " | |
| 223 | . W ! D ^ DIR K DIR | |
| 224 | . I $S($D (DUOUT)!$D (DTOUT):1, Y'=1:1,1:0 ) S RCQUIT =1 Q | |
| 225 | S DIE="^R CY(344.4," ,DR=".09// //1",DA=RC ERA D ^DIE | |
| 226 | I '$D(Y) S DIE="^RC Y(344.31," ,DR=".08// //1;.1//// "_RCERA,DA =RCEFT D ^ DIE | |
| 227 | S RCMTFLG =$S('$D(Y) :1,1:0) | |
| 228 | W !,"EFT #"_RCEFT_" WAS "_$S( RCMTFLG:"S UCCESSFULL Y",1:"NOT" )_" MATCHE D TO ERA # "_RCERA | |
| 229 | I 'RCMTFL G S DIR(0) ="E" D ^DI R K DIR G M1Q | |
| 230 | ;PRCA*4.5 *304 add a bility to use auto-p osting for a manuall y matched item | |
| 231 | ; Only if the amoun t of payme nts match. | |
| 232 | I 'RCMATC H D G M1Q ;if pa yment amou nts don't match, don 't allow f or auto-po sting. | |
| 233 | . W !,"ER A/EFT bala nces do no t match - cannot Mar k for Auto -Post. Pre ss any key ." S DIR(0 )="E" D ^D IR K DIR | |
| 234 | W ! | |
| 235 | K DIR | |
| 236 | S DIR("A" )="Do you wish to ma rk this en try for Au to Posting (Y/N)? " | |
| 237 | S DIR(0)= "YA" | |
| 238 | D ^DIR | |
| 239 | I 'Y K DI R S DIR(0) ="E" D ^DI R G M1Q | |
| 240 | N AUTOPOS T | |
| 241 | S AUTOPOS T=$$AUTOCH K2^RCDPEAP 1(RCERA,1) ; Allow a uto-post f or CHK and ACH type ERA - PRCA *4.5*321 | |
| 242 | I AUTOPOS T D | |
| 243 | . D SETST A^RCDPEAP( RCERA,0,"M anual Matc h: Marked as Auto-Po st Candida te") | |
| 244 | . W !,"ER A has been successfu lly Marked as an Aut o-Post CAN DIDATE" | |
| 245 | I 'AUTOPO ST D | |
| 246 | . D AUDIT LOG^RCDPEA P(RCERA,"" ,"Manual M atch: Not Marked as Auto-Post Candidate- "_$P(AUTOP OST,U,2)) | |
| 247 | . W !,"ER A was NOT Marked as an Auto-Po st CANDIDA TE - ",$P( AUTOPOST,U ,2) | |
| 248 | K DIR S D IR(0)="E" D ^DIR | |
| 249 | M1Q Q | |
| 250 | ; | |
| 251 | . | |
| 252 | . | |
| 253 | . |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.