15. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 2/27/2019 2:32:53 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.

15.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 US5159 SDD.docx Fri Jan 25 13:57:18 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 US5159 SDD.docx Tue Feb 26 14:44:59 2019 UTC

15.2 Comparison summary

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

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

15.4 Active regular expressions

No regular expressions were active.

15.5 Comparison detail

  1   MCCF EDI T AS US5159
  2   System Des ign Docume nt
  3   PRCA*4.5*x xx
  4  
  5  
  6  
  7  
  8   Department  of Vetera ns Affairs
  9   October 20 18
  10   Version 1
  11   User Story  Number: U S5159
  12   User Story  Name: Add  Refresh A ction Back  to APAR W
  13   Sizing:  8
  14   Story
  15   As a...
  16   I need...
  17   So that...
  18   ePay User
  19   The refres h action a dded back  to the APA R Worklist
  20   I can refr esh an ERA  line befo re it is a uto-posted  if I inco rrectly sp lit/edit i t.
  21  
  22   Conversati on (if des ired by de velopers)
  23   Old APAR R efresh had  security  key RCDPEP P.  Keep s ecurity ke y
  24   Refresh wi ll delete  any Split/ Edits, Rev iews or Di stributed  adjustment s on the l ine
  25   Where shou ld the Ref resh actio n appear o n the acti on list –  Replace th e ‘Review  Line’ acti on in the  first row  of the 3rd  column of  actions
  26   Should we  change ‘Re fresh Scra tch Pad’ t o ‘Refresh  Scratch P ad Line’ –  Action na me will be  ‘Refresh  Line’
  27   Warning me ssage shou ld read:
  28   This actio n will del ete and re build this  EEOB Work list Scrat ch Pad for  Line 1. A ll Splits/ Edits/Revi ews/Distri bute Adjus tments ent ered for t his line w ill be era sed and al l entries  marked as  manually v erified wi ll be unma rked.
  29  
  30   Summary 
  31   The abilit y to refre sh from th e apar wor klist will  be added  back in as  a protoco l action t hat can be  performed  after the  user sele cts a line  from the  APAR workl ist.  Howe ver, it wi ll be rest ricted to  only refre shing the  line and n ot refresh ing the en tire scrat ch pad of  the ERA.   The new ‘R efresh Lin e’ action  will repla cr the ‘re view line’  action in  protocol  menu ‘RCDP E APAR SEL ECTED EEOB  MENU’.  T he ‘Review  Line’ act ion will s till be av ailable fr om the ‘Re search’ me nu of acti ons.
  32  
  33   Routines t o Modify
  34  
  35   RCDPEAA3 -  Modified
  36   Modified R EFRESH met hod to onl y refresh  the line a nd not the  entire sc ratch pad.  Also modi fied the w arning mes sage descr ibed above  in the co nversation . See rout ine RCDPEA A3us5159.
  37  
  38  
  39   Protocols  to Modify
  40  
  41   RCDPE APAR  SELECTED  EEOB MENU  - Modified
  42   Removed th e ‘Review  Line’ acti on and rep laced it w ith the ‘R efresh Lin e’ action  (RCDPE APA R EEOB REF RESH) in t he same or der.
  43  
  44   Resolution  – Added C hanged Obj ects
  45  
  46   Current Pr otocol Def inition
  47  
  48   Protocols
  49   Activities
  50   Protocol N ame
  51   RCDPE APAR  SELECTED  EEOB MENU                                                                                                   
  52   Enhancemen t Category
  53    New
  54    Modify
  55    Delete
  56    No Change
  57   Associated  Protocols
  58   VALM QUIT                                      SEQUENC E 999 RCDP E MARK FOR  AUTOPOST                      S EQUENCE 10 0  RCDPE A PAR VIEW/P RINT ERA                    SEQU ENCE 220    RCDPE APA R SPLIT LI NE                        SEQUEN CE 50   RC DPE APAR R ESEARCH                           SEQUENCE  240  RCDPE  APAR EEOB  REVIEW                       SE QUENCE 310   RCDPE AP AR VIEW/PR INT EOB                    SEQUE NCE 210  R CDPE APAR  VERIFY                             SEQUENCE  320  VALM  BLANK 1                                  S EQUENCE 25 0    RCDPE  APAR CLAI M COMMENT                     SE QUENCE 170
  59                                                                                                                                   
  60   Data Passi ng
  61    Input
  62    Output
  63    Both
  64    Global Re ference
  65    Local Ref erence
  66  
  67  
  68  
  69  
  70  
  71  
  72   Item Text  Descriptio n
  73   N/A
  74   Protocol T ype
  75    Action
  76    Menu
  77    Protocol
  78    Protocol  Menu
  79  
  80    Limited P rotocol
  81    Extended  Action
  82    Dialog
  83  
  84    Other
  85   Associated  Routine
  86  
  87   Current En try Action  Logic
  88   N/A
  89   Modified E ntry Actio n Logic (C hanges are  in bold)
  90  
  91   Current Ex it Action  Logic
  92   I $G(RCFAS TXT) S VAL MBCK="Q"
  93   Modified E xit Action  Logic (Ch anges are  in bold)
  94   N/A
  95  
  96  
  97   Modified P rotocol De finition
  98  
  99   Protocols
  100   Activities
  101   Protocol N ame
  102   RCDPE APAR  SELECTED  EEOB MENU                                                                                                   
  103   Enhancemen t Category
  104    New
  105    Modify
  106    Delete
  107    No Change
  108   Associated  Protocols
  109   VALM QUIT                                      SEQUENC E 999 RCDP E MARK FOR  AUTOPOST                      S EQUENCE 10 0  RCDPE A PAR VIEW/P RINT ERA                    SEQU ENCE 220    RCDPE APA R SPLIT LI NE                        SEQUEN CE 50   RC DPE APAR R ESEARCH                           SEQUENCE  240  RCDPE  APAR EEOB  REFRESH                      SE QUENCE 310   RCDPE AP AR VIEW/PR INT EOB                    SEQUE NCE 210  R CDPE APAR  VERIFY                             SEQUENCE  320  VALM  BLANK 1                                  S EQUENCE 25 0    RCDPE  APAR CLAI M COMMENT                     SE QUENCE 170
  110                                                                                                                                   
  111   Data Passi ng
  112    Input
  113    Output
  114    Both
  115    Global Re ference
  116    Local Ref erence
  117   Item Text  Descriptio n
  118   N/A
  119   Protocol T ype
  120    Action
  121    Menu
  122    Protocol
  123    Protocol  Menu
  124  
  125    Limited P rotocol
  126    Extended  Action
  127    Dialog
  128  
  129    Other
  130   Associated  Routine
  131  
  132   Current En try Action  Logic
  133   N/A
  134   Modified E ntry Actio n Logic (C hanges are  in bold)
  135  
  136   Current Ex it Action  Logic
  137   I $G(RCFAS TXT) S VAL MBCK="Q"
  138   Modified E xit Action  Logic (Ch anges are  in bold)
  139   N/A
  140  
  141  
  142   Routines
  143   Activities
  144   Routine Na me
  145   RCDPEAA3
  146   Enhancemen t Category
  147    New
  148    Modify
  149    Delete
  150    No Change
  151   RTM
  152  
  153   Related Op tions
  154    Auto-Post  Awaiting  Resolution  (APAR)    [RCDPE APA R]
  155  
  156   Related Ro utines
  157   Routines “ Called By”
  158   Routines “ Called”   
  159  
  160   N/A
  161   INIT^RCDPE AA2
  162   $$GETBILL^ RCDPESR0
  163   $$VER^RCDP EV
  164   RPT^RCDPEV 0
  165   SEL^RCDPEW L
  166   $$STOPLINE ^RCDPEWL1
  167   VP^RCDPEWL 2
  168   SPLIT^RCDP EWL3
  169   VR^RCDPEWL P       
  170  
  171   Current Lo gic – RCDP EAA3
  172   .
  173   .
  174   .
  175   REFRESH(RC IENS) ;EP  - Protocol  action -  RCDPE APAR  EEOB REFR ESH ; Refr esh the en try in fil e 344.49 t o remove a ll user ad justments  ; Input: R CIENS - In ternal IEN  of entry  in file 34 4.49^ien o f  ; 344.4 91^selecta ble line i tem from l istman scr een N DA,D IK,DIR,X,Y ,Z,Z0 D FU LL^VALM1 I  '$D(^XUSE C("RCDPEPP ",DUZ)) D   Q  ; PRCA *4.5*318 A dded secur ity key ch eck . S VA LMBCK="R"  . W !!,"Th is action  can only b e taken by  users tha t have the  RCDPEPP s ecurity ke y.",! . D  PAUSE^VALM 1 ; S DIR( 0)="YA" S  DIR("A",1) ="THIS ACT ION WILL D ELETE AND  REBUILD TH IS EEOB WO RKLIST SCR ATCH PAD E NTRY",DIR( "A",2)="AL L EDITS/SP LITS/DISTR IBUTE ADJU STMENTS EN TERED FOR  THIS ERA W ILL BE ERA SED" S DIR ("A",3)="A ND ALL ENT RIES MARKE D AS MANUA LLY VERIFI ED WILL BE  UNMARKED" ,DIR("A",4 )=" " S DI R("A")="AR E YOU SURE  YOU WANT  TO DO THIS ?: " W ! D  ^DIR K DI R I Y'=1 G  REFQ D AD DLINES^RCD PEWLA($P(R CIENS,U))  D INIT^RCD PEAA2(RCIE NS)REFQ S  VALMBG=1,V ALMBCK="R"  Q ;
  176   .
  177   .
  178   .
  179  
  180   Modified L ogic – RCD PEAA3
  181   .
  182   .
  183   .
  184   REFRESH(RC IENS) ;EP  - Protocol  action -  RCDPE APAR  EEOB REFR ESH ; Refr esh the en try in fil e 344.49 t o remove a ll user ad justments  ; Input: R CIENS - In ternal IEN  of entry  in file 34 4.49^ien o f  ; 344.4 91^selecta ble line i tem from l istman scr een N DA,D IK,DIR,IEN S,OSEQ,SEQ ,X,XX,Y,Z, ZZ,Z0 D FU LL^VALM1
  185    S XX=$P(R CIENS,"^", 2)_","_$P( RCIENS,"^" ,1)_"," S  SEQ=$$GET1 ^DIQ(344.4 91,XX,.01, "I") ; Lin e Sequence  # I '$D(^ XUSEC("RCD PEPP",DUZ) ) D  Q  ;  PRCA*4.5*3 18 Added s ecurity ke y check .  S VALMBCK= "R" . W !! ,"This act ion can on ly be take n by users  that have  the RCDPE PP securit y key.",!  . D PAUSE^ VALM1 ; S  DIR(0)="YA " S DIR("A ",1)="THIS  ACTION WI LL DELETE  AND REBUIL D THIS EEO B WORKLIST  SCRATCH P AD ENTRY", DIR("A",2) ="ALL EDIT S/SPLITS/D ISTRIBUTE  ADJUSTMENT S ENTERED  FOR THIS E RA WILL BE  ERASED" S  DIR("A",3 )="AND ALL  ENTRIES M ARKED AS M ANUALLY VE RIFIED WIL L BE UNMAR KED",DIR(" A",4)=" "  S DIR("A", 1)="This a ction will  delete an d rebuild  this EEOB  Worklist S cratch Pad  for Line  "_SEQ_"."  S DIR("A", 2)="All Sp lits/Edits /Reviews/D istribute  Adjustment s entered  for this l ine will b e" S DIR(" A",3)="era sed and al l entries  marked as  manually v erified wi ll be unma rked.",DIR ("A",4)="  "
  186    S DIR("A" )="ARE YOU  SURE YOU  WANT TO DO  THIS?: "  W ! D ^DIR  K DIR I Y '=1 G REFQ  D ADDLINE S^RCDPEWLA ($P(RCIENS ,U)) D INI T^RCDPEAA2 (RCIENS)RE FQ S VALMB G=1,VALMBC K="R" W !  D ^DIR K D IR I Y'=1  D REFQ Q ;  ; First r emove Revi ew and Ver ify inform ation S DA =$P(RCIENS ,"^",2),DA (1)=$P(RCI ENS,"^",1)  S DIE="^R CY(344.49, "_DA(1)_", 1,",DA=$P( RCIENS,"^" ,2),DA(1)= $P(RCIENS, "^",1) S D R=".1///@; .11///@;.1 2///W@;.14 ///@" D ^D IE S XX=0, DA(2)=DA(1 ),DA(1)=DA  F  D  Q:' XX . S XX= $O(^RCY(34 4.49,DA(2) ,1,DA(1),4 ,XX)) . Q: 'XX . S DA =XX . S DI K="^RCY(34 4.49,"_DA( 2)_",1,"_D A(1)_",4,"  . D ^DIK  ; ; Next r emove and  distribute d adjustme nts S XX=0  F  D  Q:' XX . S XX= $O(^RCY(34 4.49,DA(2) ,1,DA(1),1 ,XX)) . Q: 'XX . S DA =XX,DIK="^ RCY(344.49 ,"_DA(2)_" 1,"_DA(1)_ ",1," . D  ^DIK ; ; F inally rem ove Split/ Edited lin es K DA S  IENS=$P(RC IENS,"^",2 )_","_$P(R CIENS,"^", 1)_"," D G ETS^DIQ(34 4.491,IENS ,"**","I", "OSEQ") ;  Get Origin al line va lues S DA= $P(RCIENS, "^",2)+1,D A(1)=$P(RC IENS,"^",1 ) K DR S D IE="^RCY(3 44.49,"_DA (1)_",1,"  S DR=".02/ //"_OSEQ(3 44.491,IEN S,.02,"I") _";"            ; Ori ginal Clai m # S DR=D R_".03///" _OSEQ(344. 491,IENS,. 03,"I")_"; "        ;  Amount to  Post on R eceipt S D R=DR_".04/ //"_OSEQ(3 44.491,IEN S,.04,"I") _";"         ; Includ e on Recei pt S DR=DR _".05///"_ OSEQ(344.4 91,IENS,.0 5,"I")_";"         ;  Amount of  Payment S  DR=DR_".06 ///"_OSEQ( 344.491,IE NS,.06,"I" )_";"         ; Net A mount of P ayment S D R=DR_".08/ //@;.09/// @;.10///@; 2.03///@;2 .04///@"     ; Null o ut the oth er fields  D ^DIE S X X=DA,DONE= 0 F  D  Q: DONE . S X X=$O(^RCY( 344.49,DA( 1),1,XX))  . I 'XX S  DONE=1 Q .  Q:$P($P(^ RCY(344.49 ,DA(1),1,X X,0),"^",1 ),".",1)'= SEQ     ;  Not line b eing refre shed . S D A=XX,DIK=" ^RCY(344.4 9,"_DA(1)_ ",1," . D  ^DIK ; D I NIT^RCDPEA A2(RCIENS) REFQ ; S V ALMBG=1,VA LMBCK="R"
  187    Q ;
  188   .
  189   .
  190   .
  191  
  192  
  193  
  194  
  195  
  196