16. EPMO Open Source Coordination Office Redaction File Detail Report

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.

16.1 Files compared

# 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

16.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 1 204
Changed 0 0
Inserted 0 0
Removed 0 0

16.3 Comparison options

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

16.4 Active regular expressions

No regular expressions were active.

16.5 Comparison detail

  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
  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