Produced by Araxis Merge on 2/27/2019 2:32:54 PM Eastern Standard 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 | MCCF_EDI_TAS_P2_PRCA_4_5_332.zip\MCCF_EDI_TAS_P2_PRCA_4_5_332\PRCA_4_5_332_IB_2_0_633.zip | TAS ePay US746 SDD.docx | Fri Jan 25 13:48:28 2019 UTC |
2 | MCCF_EDI_TAS_P2_PRCA_4_5_332.zip\MCCF_EDI_TAS_P2_PRCA_4_5_332\PRCA_4_5_332_IB_2_0_633.zip | TAS ePay US746 SDD.docx | Mon Feb 25 20:29:30 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 1 | 204 |
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 US746 | |
2 | System Des ign Docume nt | |
3 | PRCA*4.5*X XX | |
4 | ||
5 | ||
6 | ||
7 | ||
8 | Department of Vetera ns Affairs | |
9 | March 2018 | |
10 | Version 1 | |
11 | User Story Number: U S746 | |
12 | User Story Name: Ne ed data mo ved on ERA /EFT Trend ing Report screen | |
13 | Sizing: 1 | |
14 | ||
15 | Epic Taxon omy | |
16 | eBiz Comp liance | |
17 | Port | |
18 | Update | |
19 | Increa se No Touc h | |
20 | TAS Apps | |
21 | Story | |
22 | As a... | |
23 | I want to. .. | |
24 | So that... | |
25 | ePay User | |
26 | Adjust the format of the ERA/E FT Trendin g Report; specifical ly the ‘TO TAL DIFFER ENCE BETWE EN ERAS (P AID) EFTS (COLLECTED )’ line | |
27 | Flow of in formation is consist ent for th e ‘ERA Mat ched to EF T’ categor y of the r eport. | |
28 | ||
29 | Conversati on (if des ired by de velopers) | |
30 | Additional Detail: E RA/EFT TRE NDING REPO RT: The T OTAL DIFFE RENCE BETW EEN ERAS ( PAID) EFTS (COLLECTE D): appea rs on the top of pag e 2 so it doesn’t re ally flow with the E RA Matched to EFT ca tegory tha t it is re ally repor ting on. | |
31 | Line cutof f/format i s off. | |
32 | Move ‘TOTA L DIFFEREN CE BETWEEN ERAS (PAI D) EFTS (C OLLECTED): ’ from top of page 2 to bottom line of p age 1. | |
33 | Detailed L isting of Acceptance Criteria | |
34 | Requiremen t ID | |
35 | Descriptio n | |
36 | US746.1 | |
37 | Verify the ‘TOTAL DI FFERENCE B ETWEEN ERA s (PAID) - EFTs (COL LECTED):’ line is re moved from page two as per fun ctional de sign. | |
38 | US746.2 | |
39 | Verify the ‘TOTAL DI FFERENCE B ETWEEN ERA s (PAID) - EFTs (COL LECTED):’ line is ad ded to the bottom of page one as per fun ctional de sign. | |
40 | ||
41 | ||
42 | ||
43 | ||
44 | ||
45 | ||
46 | ||
47 | ||
48 | Resoluti on – Added Changed O bjects | |
49 | ||
50 | Routines | |
51 | Activities | |
52 | Routine Na me | |
53 | RCDPENR3 | |
54 | Enhancemen t Category | |
55 | New | |
56 | Modify | |
57 | Delete | |
58 | No Change | |
59 | RTM | |
60 | ||
61 | Related Op tions | |
62 | PRCA NIGHT LY PROCESS | |
63 | RCDPE APAR | |
64 | ||
65 | Related Ro utines | |
66 | Routines “ Called By” | |
67 | Routines “ Called” | |
68 | ||
69 | RCDPENR2 | |
70 | $$DIV^I BJDF2 | |
71 | ASK^RCD PEAP | |
72 | $$BILLG EN^RCDPENR 1 | |
73 | SAVEDAT A^RCDPENR1 | |
74 | $$GETAR PYR^RCDPEN R2 | |
75 | HEADER^ RCDPENR2 | |
76 | PRINTHD R^RCDPENR2 | |
77 | $$ISSEL ^RCDPEU1 | |
78 | $$ISTYP E^RCDPEU1 | |
79 | ||
80 | ||
81 | Current Lo gic | |
82 | . | |
83 | . | |
84 | . | |
85 | ; ;Print t he Grand T otal/Summa ry data fo r the EFT/ ERA Trendi ng ReportP RINTGT(RCT ITLE,RCDAT A,RCDISP,R CERAFLG,RC EXCEL) ; ; ; Undecla red Parame ter(s) - R CRPIEN,RCL INE,RCSTOP ; N RCCOU NT,RCBILL, RCPAID,RCP CT,RCBECT, RCBEDY,RCA VGBE,RCEEC T,RCEEDY N RCEPCT,RC EPDY,RCAVG EP,RCBPCT, RCBPDY,RCA VGBP,RCBOR DER,RCSCDA TA N RCC,R CB,RCAVGEE ,RCLTXT,I, RCSTRDTA,R CSTRNG,RCD TXT ; S RC ERAFLG=+$G (RCERAFLG) ,RCDISP=$G (RCDISP) I $Y>(IOSL- 7),RCDISP D ASK^RCDP EADP(.RCST OP,0) Q:RC STOP D HE ADER^RCDPE NR2 ; ; Di splay repo rt type be ing displa yed D PRIN THDR^RCDPE NR2(RCTITL E) ; ; Ext ract data from strin g and buil d string f or output S $P(RCSCD ATA,U,1)=+ $P(RCDATA, U) S RCBIL L=+$P(RCDA TA,U,2) S RCPAID=+$P (RCDATA,U, 3) S $P(RC SCDATA,U,2 )=RCBILL S $P(RCSCDA TA,U,3)=RC PAID S $P( RCSCDATA,U ,4)=$S(+RC BILL=0:0,1 :RCPAID/RC BILL)*100 ; Convert to percent format S RCBECT=+$P (RCDATA,U, 4) S RCBED Y=+$P(RCDA TA,U,5) S $P(RCSCDAT A,U,6)=$FN ($S(+RCBEC T=0:0,1:RC BEDY/RCBEC T),"",0) S RCEECT=+$ P(RCDATA,U ,6) S RCEE DY=+$P(RCD ATA,U,7) S $P(RCSCDA TA,U,7)=$F N($S(+RCEE CT=0:0,1:R CEEDY/RCEE CT),"",0) S RCEPCT=+ $P(RCDATA, U,8) S RCE PDY=+$P(RC DATA,U,9) S $P(RCSCD ATA,U,8)=$ FN($S(+RCE PCT=0:0,1: RCEPDY/RCE PCT),"",0) S RCBPCT= +$P(RCDATA ,U,10) S R CBPDY=+$P( RCDATA,U,1 1) S $P(RC SCDATA,U,9 )=$FN($S(+ RCBPCT=0:0 ,1:RCBPDY/ RCBPCT),"" ,0) S $P(R CSCDATA,U, 11)=+$P(RC DATA,U,12) S $P(RCSC DATA,U,12) =+$P(RCDAT A,U,13) S $P(RCSCDAT A,U,14)=+$ P(RCDATA,U ,14) S $P( RCSCDATA,U ,15)=+$P(R CDATA,U,15 ) S $P(RCS CDATA,U,16 )=RCPAID-$ P(RCDATA,U ,15) F I=1 :1:16 D Q :RCSTOP . I RCDISP,( $Y>(IOSL-4 )) D Q:RC STOP . . D ASK^RCDPE ADP(.RCSTO P,0) . . Q :RCSTOP . . D HEADER ^RCDPENR2 . ;if prin ting from monthly ba ckground j ob save in file and quit . ;Ot herwise pr int to scr een . S (R CLTXT,RCDT XT)=$P($T( GDTXT+I)," ;;",2) . I RCTITLE[" PAPER" D . . I (I>5) ,(I<9) D ; corr ect displa y for line s 6,7,8,16 . . . I ( I=6),RCTIT LE["CHECK" Q ;Do nt change line 6 if Paper chec k section . . . S RC B="EFT",RC C="CHK" ; Correct d isplay for Paper che ck section . . . I R CTITLE["EO B" S RCB=" ERA",RCC=" EOB" ;co rrect disp lay for pa per eob . . . S RCDT XT=$P(RCLT XT,RCB,1)_ RCC_$P(RCL TXT,RCB,2) . I 'RCDI SP!RCEXCEL D Q . . S RCSTRDTA =$P(RCSCDA TA,U,I) . . ;Format lines: lin es 2&3 are amounts, 4 is a per centage, r emainder a re integer s. . . S R CSTRNG=RCD TXT_"^"_$S (I=4:$J($P (RCSTRDTA, "."),2)_"% ",1:RCSTRD TA) . . I 'RCDISP D SAVEDATA^R CDPENR1(RC STRNG,RCRP IEN) Q . . ;if printi ng in an E XCEL forma t, print " ^" delimit ed and qui t . . I RC EXCEL W RC STRNG,! Q . ;Output to screen . ;currenc y format . I (I=2)!( I=3)!(I=15 ) W RCDTXT ,?65,$J($P (RCSCDATA, U,I),13,2) ,! Q . ; F or the lin e items th at are per centages. Not using $J formatt ing due to rounding errors. . I I=4 W RC DTXT,?65,$ J($P($P(RC SCDATA,U,I ),"."),12) ,"%",! Q . ;Otherwis e print Nu mber forma t . I (I=1 6) D Q . . W:RCERAF LG RCDTXT, ?65,$J($P( RCSCDATA,U ,I),13,2), ! . W RCDT XT,?65,$J( $P(RCSCDAT A,U,I),13) ,! I RCSTO P Q RCSTOP I RCDISP W RCLINE,! ;Otherwis e print Nu mber forma t I 'RCDIS P D SAVEDA TA^RCDPENR 1(RCLINE,R CRPIEN) Q RCSTOP ; | |
86 | . | |
87 | . | |
88 | . | |
89 | ||
90 | Modified L ogic (Chan ges are in bold) | |
91 | . | |
92 | . | |
93 | . | |
94 | ; ;Print t he Grand T otal/Summa ry data fo r the EFT/ ERA Trendi ng ReportP RINTGT(RCT ITLE,RCDAT A,RCDISP,R CERAFLG,RC EXCEL) ;EP ; Print t he Grand T otal/Summa ry data fo r the EFT/ ERA Trendi ng Report | |
95 | ; Input: RCTITLE - Name of th e report ; RCDATA - Line of co mpiled dat a being pr ocessed ; RCDISP - 1 - Display to screen , 0 otherw sie ; RCE RAFLG - 1 if we're i n the ERA matched to an EFT se ction ; 0 otherwise ; RCEXCEL - 1 output to excel, 0 otherwi se ; RCSTO P - Initia lized to 0 ; Output: RCSTOP - User stopp ed the dis play of th e report ; ; Undecla red Parame ter(s) - R CRPIEN,RCL INE,RCSTOP ; RCRPIEN - IEN of the archiv e file (34 4.91( ; RC LINE - Str ing of '-' to be use d as a sep arator lin e ; RCSUMF LG - 'M' - Main Repo rt ; 'G' - Grand tot als ; 'S' – Summary | |
96 | ; N RCCOU NT,RCBILL, RCPAID,RCP CT,RCBECT, RCBEDY,RCA VGBE,RCEEC T,RCEEDY N RCEPCT,RC EPDY,RCAVG EP,RCBPCT, RCBPDY,RCA VGBP,RCBOR DER,RCSCDA TA N RCC,R CB,RCAVGEE ,RCLTXT,I, RCSTRDTA,R CSTRNG,RCD TXT ; S RC ERAFLG=+$G (RCERAFLG) ,RCDISP=$G (RCDISP) I $Y>(IOSL- 7),RCDISP D ASK^RCDP EADP(.RCST OP,0) Q:RC STOP D HE ADER^RCDPE NR2 ; ; Di splay repo rt type be ing displa yed D PRIN THDR^RCDPE NR2(RCTITL E) ; ; Ext ract data from strin g and buil d string f or output S $P(RCSCD ATA,U,1)=+ $P(RCDATA, U) S RCBIL L=+$P(RCDA TA,U,2) S RCPAID=+$P (RCDATA,U, 3) S $P(RC SCDATA,U,2 )=RCBILL S $P(RCSCDA TA,U,3)=RC PAID S $P( RCSCDATA,U ,4)=$S(+RC BILL=0:0,1 :RCPAID/RC BILL)*100 ; Convert to percent format S RCBECT=+$P (RCDATA,U, 4) S RCBED Y=+$P(RCDA TA,U,5) S $P(RCSCDAT A,U,6)=$FN ($S(+RCBEC T=0:0,1:RC BEDY/RCBEC T),"",0) S RCEECT=+$ P(RCDATA,U ,6) S RCEE DY=+$P(RCD ATA,U,7) S $P(RCSCDA TA,U,7)=$F N($S(+RCEE CT=0:0,1:R CEEDY/RCEE CT),"",0) S RCEPCT=+ $P(RCDATA, U,8) S RCE PDY=+$P(RC DATA,U,9) S $P(RCSCD ATA,U,8)=$ FN($S(+RCE PCT=0:0,1: RCEPDY/RCE PCT),"",0) S RCBPCT= +$P(RCDATA ,U,10) S R CBPDY=+$P( RCDATA,U,1 1) S $P(RC SCDATA,U,9 )=$FN($S(+ RCBPCT=0:0 ,1:RCBPDY/ RCBPCT),"" ,0) S $P(R CSCDATA,U, 11)=+$P(RC DATA,U,12) S $P(RCSC DATA,U,12) =+$P(RCDAT A,U,13) S $P(RCSCDAT A,U,14)=+$ P(RCDATA,U ,14) S $P( RCSCDATA,U ,15)=+$P(R CDATA,U,15 ) S $P(RCS CDATA,U,16 )=RCPAID-$ P(RCDATA,U ,15) F I=1 :1:16 D Q :RCSTOP . I (RCSUMFL G'="G"),RC DISP,($Y>( IOSL-4)) D Q:RCSTOP . . D ASK ^RCDPEADP( .RCSTOP,0) . . Q:RCS TOP . . D HEADER^RCD PENR2 . ;i f printing from mont hly backgr ound job s ave in fil e and quit . ;Otherw ise print to screen . S (RCLTX T,RCDTXT)= $P($T(GDTX T+I),";;", 2) . I RCT ITLE["PAPE R" D . . I (I>5),(I< 9) D ; correct display fo r lines 6, 7,8,16 . . . I (I=6) ,RCTITLE[" CHECK" Q ;Dont c hange line 6 if Pape r check se ction . . . S RCB="E FT",RCC="C HK" ; Cor rect displ ay for Pap er check s ection . . . I RCTIT LE["EOB" S RCB="ERA" ,RCC="EOB" ;correc t display for paper eob . . . S RCDTXT=$ P(RCLTXT,R CB,1)_RCC_ $P(RCLTXT, RCB,2) . I 'RCDISP!R CEXCEL D Q . . S RC STRDTA=$P( RCSCDATA,U ,I) . . ;F ormat line s: lines 2 &3 are amo unts, 4 is a percent age, remai nder are i ntegers. . . S RCSTR NG=RCDTXT_ "^"_$S(I=4 :$J($P(RCS TRDTA,".") ,2)_"%",1: RCSTRDTA) . . I 'RCD ISP D SAVE DATA^RCDPE NR1(RCSTRN G,RCRPIEN) Q . .;if printing i n an EXCEL format, p rint "^" d elimited a nd quit . . I RCEXCE L W RCSTRN G,! Q . ;O utput to s creen . ;c urrency fo rmat . I ( I=2)!(I=3) !(I=15) W RCDTXT,?65 ,$J($P(RCS CDATA,U,I) ,13,2),! Q . ; For t he line it ems that a re percent ages. Not using $J f ormatting due to rou nding erro rs. . I I= 4 W RCDTXT ,?65,$J($P ($P(RCSCDA TA,U,I),". "),12),"%" ,! Q . ;Ot herwise pr int Number format . I (I=16) D Q . . W: RCERAFLG R CDTXT,?65, $J($P(RCSC DATA,U,I), 13,2),! . W RCDTXT,? 65,$J($P(R CSCDATA,U, I),13),! I RCSTOP Q RCSTOP I R CDISP W RC LINE,! ;Ot herwise pr int Number format I 'RCDISP D SAVEDATA^R CDPENR1(RC LINE,RCRPI EN) Q RCST OP ; | |
97 | . | |
98 | . | |
99 | . | |
100 | ||
101 | ||
102 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.