14. EPMO Open Source Coordination Office Redaction File Detail Report

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

14.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 US4968 SDD.docx Fri Jan 25 14:01:04 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 US4968 SDD.docx Tue Feb 26 14:38:08 2019 UTC

14.2 Comparison summary

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

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

14.4 Active regular expressions

No regular expressions were active.

14.5 Comparison detail

  1   MCCF EDI T AS US4968
  2   System Des ign Docume nt
  3   PRCA*4.5*x xx
  4  
  5  
  6  
  7  
  8   Department  of Vetera ns Affairs
  9   August 201 8
  10   Version 1
  11   User Story  Number: U 4968
  12   User Story  Name:  Re move Key f rom AR Sup  Menu Opti on
  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   AR Supervi sor
  26   Access to  the Admini strative C ost Adjust ment optio n [PRCAF A DJ ADMIN],  located o n the AR S upervisor  Menu, with out a key
  27   I can add  interest/a dmin to 3r d party cl aims, when  applicabl e
  28  
  29   Conversati on (if des ired by de velopers)
  30   ePay added  the RCDPE AR key to  the AR fun ctions in  worklist,  scratchpad  and APAR,  including  the Admin istrative  Cost Adjus tment.  Th e key shou ld ONLY lo ck the opt ions while  utilizing  the ePay  options.   Any option s accessed  outside t he ePay op tions, sho uldn’t be  locked wit h the RCDP EAR key.   It appears  the Admin istrative  Cost Adjus tment opti on, found  on the AR  Supervisor  Menu – ou tside the  ePay menu( s), has be en locked  with the R CDPEAR key .  We need  the key r emoved.  
  31  
  32   Summary
  33   Currently,  the user  needs the  RCDPEAR se curity key  to run th e Administ ration Cos t Adjustme nt [PRCAF  SUPERVISOR  MENU] opt ion is run  from the  Supervisor ’s AR Menu .  This sa me code is  also call ed from th e ERA Work list (WL)  [RCDPE EDI  LOCKBOX W ORKLIST] w hen the us er runs th e Admin Co st Adj [RC DPE EOB WO RKLIST ADM IN COST AD J] protoco l action t hat also r equires th e RCDPEAR  security k ey.  This  user story  will chan ge to code  to pass a n optional  parameter  to make t he securit y key requ ired when  called fro m the prot ocol but n ot require d when cal led from t he menu op tion
  34  
  35  
  36   Protocols  to Modify 
  37  
  38   RCDPE EOB  WORKLIST A DMIN COST  ADJ –  Mod ified 
  39   Added new  parameter  to check f or the RCD PEAR secur ity key
  40  
  41  
  42   Routines t o Modify
  43  
  44   PRCAEXM -  Modified
  45   Added a pa rameter to  the EN me thod to op tionally m ake the RC DPEAR secu rity key r equired
  46  
  47  
  48  
  49   Resolution  – Added C hanged Obj ects
  50  
  51  
  52   Routines
  53   Activities
  54   Routine Na me
  55   PRCAEXM
  56   Enhancemen t Category
  57    New
  58    Modify
  59    Delete
  60    No Change
  61   RTM
  62  
  63   Related Op tions
  64   Administra tive Cost  Adjustment
  65  
  66   Related Ro utines
  67   Routines “ Called By”
  68   Routines “ Called”   
  69  
  70   PRCAT03
  71   BEGIN^PRCA WO
  72   DELETE^PRC AWO1
  73   DIEEN^PRCA WO1
  74   LOCKF^PRCA WO1
  75   TRANST^PRC AWO1
  76   DECADJ^RCT SPU          
  77  
  78   Current Lo gic – PRCA EXM
  79   PRCAEXM ;S F-ISC/YJK- ADMIN.COST  CHARGE TR ANSACTION  ;3/30/94 1 1:19 AM ;; 4.5;Accoun ts Receiva ble;**67,1 03,196,301 ,318,315** ;Mar 20, 1 995;Build  67 ;;Per V A Directiv e 6402, th is routine  should no t be modif ied. ;Upda te Int/adm .balance a nd Adminis trative co st charge  transactio n, is call ed by ^PRC AWO. ;EN1  ;Adjustmen t Interest /admin.cos t from an  AR - this  makes the  int/adm.ba lance ; ,m arshal fee  and court  cost zero ,0. N PRCA IND,ADMINT OT,PRCAERR ,PRCABN0 I  $G(KEYCHK )=1,'$D(^X USEC("RCDP EAR",DUZ))  D  Q  ; P RCA*4.5*31 8 Added se curity key  check . W  !!,"This  action can  only be t aken by us ers that h ave the RC DPEAR secu rity key." ,! . S VAL MBCK="R" .  D PAUSE^V ALM1 D BEG IN^PRCAWO  G:('$D(PRC ABN))!('$D (PRCAEN))  END G:'$D( ^PRCA(430, PRCABN,7))  END L +^P RCA(430,PR CABN):1 I  '$T W !!,* 7,"ANOTHER  USER IS E DITING THI S BILL" G  EN1 S PRCA BN0=PRCABN  S PRCAIND =$G(^PRCA( 430,PRCABN ,7)) S PRC AMT=$P(PRC AIND,U,2)+ $P(PRCAIND ,U,3)+$P(P RCAIND,U,4 )+$P(PRCAI ND,U,5) S  %=$P(^PRCA (430,PRCAB N,0),U,2)  I "PC"'[$P (^PRCA(430 .2,%,0),U, 6) W *7,!, "This AR m ay not be  appropriat e to charg e Interest /Administr ative cost .",!,"Plea se check t he categor y of this  AR.",! H 3  K % W !!, "You may e xempt the  account fr om all the  interest  and admini strative c ost balanc es - makin g those ba lances zer o (0),",!, "or adjust  them."EN0 11 S %=2 W  !!,"Do yo u want to  exempt the  account f rom all th e Int/Adm.  costs" D  YN^DICN I  %<0 S PRCA COMM="User  Canceled"  D DELETE^ PRCAWO1 K  PRCACOMM G  EN1 I %=1  D EN11,EN D G EN1 I  %=0 W !,"A NSWER 'YES ' OR 'NO'  " G EN011  W !,"Adjus ting the a dministrat ive/Intere st charge  ...",! D D IEEN^PRCAW O1,END G E N1 ; ; exe mpt intere st and adm in charges EN11 S PRC ATYPE=14,D IE="^PRCA( 433,",DA=P RCAEN S DR =".03////^ S X="_PRCA BN_";11/// /^S X="_DT _";12////^ S X="_PRCA TYPE_";15/ ///^S X="_ PRCAMT_";"  S DR=DR_" 27////^S X ="_+$P(PRC AIND,U,2)_ ";"  ;inte rest S DR= DR_"28//// ^S X="_+$P (PRCAIND,U ,3)_";"  ; admin char ge S DR=DR _"25////^S  X="_+$P(P RCAIND,U,4 )_";"  ;ma rshal fee  S DR=DR_"2 6////^S X= "_+$P(PRCA IND,U,5)_" ;"  ;court  cost S DI C=DIE,PRCA ("LOCK")=0  D LOCKF^P RCAWO1 Q:P RCA("LOCK" )=1 D ^DIE  I PRCAEN, $D(^PRCA(4 30,"TCSP", PRCABN)) D  DECADJ^RC TCSPU(PRCA BN,PRCAEN)  ;prca*4.5 *301 add c s 5B flag  S $P(^PRCA (430,PRCAB N,7),U,2,5 )="0^0^0^0 " D TRANST ^PRCAWO1 Q  ; ;EN2 Q: '$D(PRCAEN ) Q:($P(^P RCA(433,PR CAEN,2),U, 8)="")&($P (^PRCA(433 ,PRCAEN,2) ,U,7)="")  W !,"MONTH LY ADMIN.  CHARGE: ", ?25,+$P(^P RCA(433,PR CAEN,2),U, 8),?40,"IN TEREST CHA RGE: ",+$P (^PRCA(433 ,PRCAEN,2) ,U,7) Q ;E ND L -^PRC A(433,+$G( PRCAEN)),- ^PRCA(430, +$G(PRCABN )) S X(1)= 0,X=$G(^PR CA(430,+$G (PRCABN0), 7)),X(1)=+ X,X(1)=$P( X,"^",2)+X (1),X(1)=$ P(X,"^",3) +X(1),X(1) =$P(X,"^", 4)+X(1),X( 1)=$P(X,"^ ",5)+X(1)  K PRCA("ST ATUS") I X (1)=0,$G(P RCABN0) D  .;Check fo r payment  transactio ns .F X=0: 0 S X=$O(^ PRCA(433," C",PRCABN0 ,X)) Q:'X   I ",2,7,2 0,"[(","_$ P($G(^PRCA (430.3,+$P ($G(^PRCA( 433,X,1)), "^",2),0)) ,"^",3)_", ") S PRCA( "STATUS")= $O(^PRCA(4 30.3,"AC", 108,0)) .S :'$D(PRCA( "STATUS"))  PRCA("STA TUS")=$O(^ PRCA(430.3 ,"AC",111, 0)) .S DA= PRCABN0,DI E="^PRCA(4 30,",DR="8 ////"_PRCA ("STATUS")  D ^DIE K  PRCATY,PRC A,PRCA2,PR CAD,PRCABN ,PRCAEN,PR CATYPE,DA, DIE,DIC,PR CAMT,DR,X, % Q
  80  
  81   Modified L ogic (Chan ges are in  bold) - P RCAEXM
  82   PRCAEXM ;S F-ISC/YJK- ADMIN.COST  CHARGE TR ANSACTION  ;3/30/94 1 1:19 AM ;; 4.5;Accoun ts Receiva ble;**67,1 03,196,301 ,318,315** ;Mar 20, 1 995;Build  67 ;;Per V A Directiv e 6402, th is routine  should no t be modif ied. ;Upda te Int/adm .balance a nd Adminis trative co st charge  transactio n, is call ed by ^PRC AWO. ; D E N1(0) Q ;E N1(KEYCHK)  ;Adjustme nt Interes t/admin.co st from an  AR - this  makes the  int/adm.b alance ; , marshal fe e and cour t cost zer o,0.
  83    ; Input:  KEYCHK – 1  to check  for RCDPEA R security  key, 0 ot herwise
  84    ;                  o ptional, d efaults to  0 N PRCAI ND,ADMINTO T,PRCAERR, PRCABN0
  85    S:’$D(KEY CHK) KEYCH K=0 I KEYC HK=1,'$D(^ XUSEC("RCD PEAR",DUZ) ) D  Q  ;  PRCA*4.5*3 18 Added s ecurity ke y check .  W !!,"This  action ca n only be  taken by u sers that  have the R CDPEAR sec urity key. ",! . S VA LMBCK="R"  . D PAUSE^ VALM1 D BE GIN^PRCAWO  G:('$D(PR CABN))!('$ D(PRCAEN))  END G:'$D (^PRCA(430 ,PRCABN,7) ) END L +^ PRCA(430,P RCABN):1 I  '$T W !!, *7,"ANOTHE R USER IS  EDITING TH IS BILL" G  EN1 S PRC ABN0=PRCAB N S PRCAIN D=$G(^PRCA (430,PRCAB N,7)) S PR CAMT=$P(PR CAIND,U,2) +$P(PRCAIN D,U,3)+$P( PRCAIND,U, 4)+$P(PRCA IND,U,5) S  %=$P(^PRC A(430,PRCA BN,0),U,2)  I "PC"'[$ P(^PRCA(43 0.2,%,0),U ,6) W *7,! ,"This AR  may not be  appropria te to char ge Interes t/Administ rative cos t.",!,"Ple ase check  the catego ry of this  AR.",! H  3 K % W !! ,"You may  exempt the  account f rom all th e interest  and admin istrative  cost balan ces - maki ng those b alances ze ro (0),",! ,"or adjus t them."EN 011 S %=2  W !!,"Do y ou want to  exempt th e account  from all t he Int/Adm . costs" D  YN^DICN I  %<0 S PRC ACOMM="Use r Canceled " D DELETE ^PRCAWO1 K  PRCACOMM  G EN1 I %= 1 D EN11,E ND G EN1 I  %=0 W !," ANSWER 'YE S' OR 'NO'  " G EN011  W !,"Adju sting the  administra tive/Inter est charge  ...",! D  DIEEN^PRCA WO1,END G  EN1 ; ; ex empt inter est and ad min charge sEN11 S PR CATYPE=14, DIE="^PRCA (433,",DA= PRCAEN S D R=".03//// ^S X="_PRC ABN_";11// //^S X="_D T_";12//// ^S X="_PRC ATYPE_";15 ////^S X=" _PRCAMT_"; " S DR=DR_ "27////^S  X="_+$P(PR CAIND,U,2) _";"  ;int erest S DR =DR_"28/// /^S X="_+$ P(PRCAIND, U,3)_";"   ;admin cha rge S DR=D R_"25////^ S X="_+$P( PRCAIND,U, 4)_";"  ;m arshal fee  S DR=DR_" 26////^S X ="_+$P(PRC AIND,U,5)_ ";"  ;cour t cost S D IC=DIE,PRC A("LOCK")= 0 D LOCKF^ PRCAWO1 Q: PRCA("LOCK ")=1 D ^DI E I PRCAEN ,$D(^PRCA( 430,"TCSP" ,PRCABN))  D DECADJ^R CTCSPU(PRC ABN,PRCAEN ) ;prca*4. 5*301 add  cs 5B flag  S $P(^PRC A(430,PRCA BN,7),U,2, 5)="0^0^0^ 0" D TRANS T^PRCAWO1  Q ; ;EN2 Q :'$D(PRCAE N) Q:($P(^ PRCA(433,P RCAEN,2),U ,8)="")&($ P(^PRCA(43 3,PRCAEN,2 ),U,7)="")  W !,"MONT HLY ADMIN.  CHARGE: " ,?25,+$P(^ PRCA(433,P RCAEN,2),U ,8),?40,"I NTEREST CH ARGE: ",+$ P(^PRCA(43 3,PRCAEN,2 ),U,7) Q ; END L -^PR CA(433,+$G (PRCAEN)), -^PRCA(430 ,+$G(PRCAB N)) S X(1) =0,X=$G(^P RCA(430,+$ G(PRCABN0) ,7)),X(1)= +X,X(1)=$P (X,"^",2)+ X(1),X(1)= $P(X,"^",3 )+X(1),X(1 )=$P(X,"^" ,4)+X(1),X (1)=$P(X," ^",5)+X(1)  K PRCA("S TATUS") I  X(1)=0,$G( PRCABN0) D  .;Check f or payment  transacti ons .F X=0 :0 S X=$O( ^PRCA(433, "C",PRCABN 0,X)) Q:'X   I ",2,7, 20,"[(","_ $P($G(^PRC A(430.3,+$ P($G(^PRCA (433,X,1)) ,"^",2),0) ),"^",3)_" ,") S PRCA ("STATUS") =$O(^PRCA( 430.3,"AC" ,108,0)) . S:'$D(PRCA ("STATUS") ) PRCA("ST ATUS")=$O( ^PRCA(430. 3,"AC",111 ,0)) .S DA =PRCABN0,D IE="^PRCA( 430,",DR=" 8////"_PRC A("STATUS" ) D ^DIE K  PRCATY,PR CA,PRCA2,P RCAD,PRCAB N,PRCAEN,P RCATYPE,DA ,DIE,DIC,P RCAMT,DR,X ,% Q
  86  
  87  
  88  
  89   Protocols
  90   Activities
  91   Protocol N ame
  92   RCDPE EOB  WORKLIST A DMIN COST  ADJ]
  93   Enhancemen t Category
  94    New
  95    Modify
  96    Delete
  97    No Change
  98   Associated  Protocols
  99  
  100   Data Passi ng
  101    Input
  102    Output
  103    Both
  104    Global Re ference
  105    Local Ref erence
  106   Item Text  Descriptio n
  107   N/A
  108   Protocol T ype
  109    Action
  110    Menu
  111    Protocol
  112    Protocol  Menu
  113  
  114    Limited P rotocol
  115    Extended  Action
  116    Dialog
  117  
  118    Other
  119   Associated  Routine
  120  
  121   Current En try Action  Logic
  122   S PRCASUP= 1 D FULL^V ALM1 D ^PR CAEXM K DT OUT
  123   Modified E ntry Actio n Logic (C hanges are  in bold)
  124   S PRCASUP= 1 D FULL^V ALM1 D EN1 ^PRCAEXM(1 ) K DTOUT
  125   Current Ex it Action  Logic
  126   S VALMBCK= "R" K PRCA SUP
  127   Modified E xit Action  Logic (Ch anges are  in bold)
  128