2. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 3/2/2018 12:46:56 PM Central 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.

2.1 Files compared

# Location File Last Modified
1 PRCA_IB_EPAYMENTS_BUNDLE_2_0_V25.zip\PRCA_4_5_326 Documents TAS ePay US1906 SDD.doc Fri Mar 2 17:50:08 2018 UTC
2 PRCA_IB_EPAYMENTS_BUNDLE_2_0_V25.zip\PRCA_4_5_326 Documents TAS ePay US1906 SDD.doc Fri Mar 2 18:32:41 2018 UTC

2.2 Comparison summary

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

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

2.4 Active regular expressions

No regular expressions were active.

2.5 Comparison detail

  1   System Des ign Docume ntMCCF EDI  TAS US190 6
  2   System Des ign Docume nt
  3   PRCA*4.5*X XX
  4  
  5   Department  of Vetera ns Affairs
  6   May 2017
  7   Version 1
  8   Story
  9   As a clerk , I need t o be able  to self-en roll into  the RCDPE  AUDIT mail group, cre ated by th e ePay tea m, that wo uld allow  me to rece ive the ni ghtly, wee kly, month ly bulleti ns – as de fined in t he paramet ers.  In a ddition we  need a ne w site par ameter for  Standardi zed bullet in notific ation to s pecify whi ch day of  the week t o receive  notificati ons from t he RCDPE A UDIT mailg roup.
  10   Conversati on
  11  
  12   Self-enrol l in the R CDPE AUDIT  mail grou p, standar dized bull etin param eter appli es to this  group onl y
  13   RCDPE AUDI T: This gr oup will s ystematica lly notify  managemen t of criti cal outsta nding work load relat ed to aged  ERAs and  EFTs. This  includes    
  14   Unmatched  ERAs great er than 30  days 
  15   Matched/no t posted E RAs greate r than 30  days 
  16   EFTs great er than 14  days 
  17   The AR app lication w ill flag t he above-m entioned b ulletins a s high pri ority. The se bulleti ns can be  scheduled  weekly for  a specifi ed day. Al l bulletin s will be  scheduled  for the sa me cycle.
  18   5/10/17
  19   Need to mo dify the R CDPE AUDIT  mail grou p to enabl e self-enr oll
  20   Site Param eter wordi ng – 
  21   Site Param eter place ment – 
  22   5/17/17
  23   Unposted E FT Overrid e – this o ne needs t o stay on  the daily  schedule w ith no par ameter set ting
  24   Will not a ffect curr ently enro lled users ?
  25   How can we  remove th e ePayment s team fro m the mult itude of b ulletins a nd notific ations the y are rece iving toda y?
  26   Revisit on  5/24/17
  27   Summary:
  28   New Data F ields:
  29   New field  DAY FOR WO RKLOAD NOT IFICATIONS  (#.1) add ed to the  RCDPE PARA METERS fil e #344.61.  Field .1  is a SET w ith values  MONDAY th rough SUND AY. TITLE  for this f ield is SE LECT DAY T O SEND WOR KLOAD NOTI FICATION a nd is used  as the in put prompt  in RCDPES P.
  30   Routines C hanged:
  31   RCDPESP –  Existing r outine mod ified to a llow edit  of the new  DAY TO SE ND WORKLOA D NOTIFICA TIONS fiel d in the R CDPE PARAM ETERS file  #344.61.
  32   RCDPEM7 –  Existing r outine for  scheduled  option RC DPE WORKLO AD NOTIFIC ATION modi fied to ch eck if the  day mache s paramete r field DA Y TO SEND  WORKLOAD N OTIFICATIO NS before  producing  bulletins.  No bullet ins ar epr oduced if  the day do es not mat ch.
  33   POST^PRCAP XXX – New  post Insta ll routine  to delete  the REMOT E MEMBER v ha835notif y@ DOMAIN  from the  RCDPE AUDI T mail gro up. 
  34   The RCDPE  AUDIT mail  group is  already se lf-enrollm ent (from  PATVEE)
  35   NAME: RCDP E AUDIT                          TYPE: publ ic
  36     ALLOW SE LF ENROLLM ENT?: YES             RESTRICTIO NS: UNREST RICTED
  37    DESCRIPTI ON:   This  is the ma il group t hat will r eceive war ning bulle tins
  38    produced  by the ePa yments Wor kload Noti fication p rocess. Wa rnings for  overdue
  39    EFT and E RA are sen t to this  group.  
  40     ORGANIZE R: MOODY,S USAN
  41   RCDPEM – f or discuss ion – Exis ting routi ne for the  nightly j ob will ha ve an addi tional cal l to EN^RC DPEM7. Thi s call rep laces the  existing s cheduled o ption RCDP E WORKLOAD  NOTIFICAT ION (which  will need  to be uns cheduled).
  42   Resolution  – Added C hanged Obj ects 
  43   RoutinesAc tivitiesRo utine Name RCDPEM7Enh ancement C ategory Ne w Modify D elete No C hangeRTMRe lated Opti onsRCDPE W ORKLOAD NO TIFICATION  (retracte d)Related  RoutinesRo utines “Ca lled By”Ro utines “Ca lled”   EN ^RCDPEM$$G ET1^DIQ           
  44   $$SITE^VAS ITE      
  45   $$FMDIFF^X LFDT      
  46   $$FMTE^XLF DT        
  47   $$FMTH^XLF DT        
  48   $$NOW^XLFD T         
  49   $$UP^XLFST R         
  50   SENDMSG^XM XAPI Curre nt LogicRC DPEM7 ;OIF O-BAYPINES /PJH - OVE RDUE EFT A ND ERA BUL LETINS ;Ju n 06, 2014 @19:11:19
  51    ;;4.5;Acc ounts Rece ivable;**2 76,298,303 ,304**;Mar  20, 1995; Build 104
  52    ;;Per VA  Directive  6402, this  routine s hould not  be modifie d.
  53    ;
  54   EN ; Main  entry poin t for over due EFT/ER A bulletin s
  55    ;
  56    N TODAY,E RACNT,ERAT OT,ERA1CNT ,ERA2CNT,E RA1TOT,ERA 2TOT,EFTCN T,EFTTOT,R CPROG,RCSU SCNT,RCSUS AMT,RCMXDY S
  57    ;Clear wo rkfiles
  58    S RCPROG= "RCDPEM7"  K ^TMP(RCP ROG,$J)
  59    ;Set coun ters and t otals
  60    S (EFTCNT ,ERACNT,ER A1CNT,ERA2 CNT,EFTTOT ,ERATOT,ER A1TOT,ERA2 TOT,RCSUSC NT,RCSUSAM T)=0
  61    ;Cuttoff  of 12:00 a m today
  62    S TODAY=$ P($$NOW^XL FDT,".")
  63    ;
  64    ;Retrieve  the max d ays allowe d in suspe nse parame ter
  65    S RCMXDYS =$$GET1^DI Q(342,"1," ,7.04)
  66    ;
  67    ;Scan for  overdue E RA and unp osted ERA
  68    D ERASCAN
  69    ;Scan for  overdue E FT
  70    D EFTSCAN
  71    ;Scan for  overdue S uspended E RA's - PRC A*4.5*304
  72    D SUSPSCA N
  73    ;Bulletin s
  74    D BULLETI N
  75    ;Clear wo rkfiles
  76    K ^TMP(RC PROG,$J)
  77    QModified  Logic (Ch anges are  in bold)RC DPEM7 ;OIF O-BAYPINES /PJH - OVE RDUE EFT A ND ERA BUL LETINS ;Ju n 06, 2014 @19:11:19
  78    ;;4.5;Acc ounts Rece ivable;**2 76,298,303 ,304,XXX** ;Mar 20, 1 995;Build  104
  79    ;;Per VA  Directive  6402, this  routine s hould not  be modifie d.
  80    ;
  81   EN ; Main  entry poin t for over due EFT/ER A bulletin s – EP EN^ RCDPEM
  82    ;
  83    N TODAY,E RACNT,ERAT OT,ERA1CNT ,ERA2CNT,E RA1TOT,ERA 2TOT,EFTCN T,EFTTOT,R CPROG,RCSU SCNT,RCSUS AMT,RCMXDY S,X
  84    ;Clear wo rkfiles
  85    S RCPROG= "RCDPEM7"  K ^TMP(RCP ROG,$J)
  86    ;
  87    ;Cuttoff  of 12:00 a m today
  88    S TODAY=$ P($$NOW^XL FDT,".")
  89    ;
  90    ;Verify t his is cor rect day f or bulleti ns – PRCA* 4.5*XXX
  91    S X=TODAY
  92    D DW^%DTC
  93    Q:$$GET1^ DIQ(344.61 ,”1,”,.1)’ =X ;Set co unters and  totals
  94    ;
  95    S (EFTCNT ,ERACNT,ER A1CNT,ERA2 CNT,EFTTOT ,ERATOT,ER A1TOT,ERA2 TOT,RCSUSC NT,RCSUSAM T)=0
  96    ;
  97    ;Retrieve  the max d ays allowe d in suspe nse parame ter
  98    S RCMXDYS =$$GET1^DI Q(342,"1," ,7.04)
  99    ;
  100    ;Scan for  overdue E RA and unp osted ERA
  101    D ERASCAN
  102    ;Scan for  overdue E FT
  103    D EFTSCAN
  104    ;Scan for  overdue S uspended E RA's - PRC A*4.5*304
  105    D SUSPSCA N
  106    ;Bulletin s
  107    D BULLETI N
  108    ;Clear wo rkfiles
  109    K ^TMP(RC PROG,$J)
  110    QRoutines Activities Routine Na meRCDPESPE nhancement  Category  New Modify  Delete No  ChangeRTM Related Op tionsRCDPE  EDI LOCKB OX PARAMET ERSRelated  RoutinesR outines “C alled By”R outines “C alled”   R CDPESP5^DI C                 
  111   $$GET1^DID           
  112   FILE^DIE             
  113   UPDATE^DIE           
  114   $$GET1^DIQ           
  115   ^DIR                 
  116   $$AUDIT^RC DPESP5    
  117   CARC^RCDPE SP5       
  118   $$EDILOCK^ RCMSITE   
  119   $$SITE^VAS ITE       
  120   $$FMADD^XL FDT       
  121   $$FMTE^XLF DT        
  122   $$NOW^XLFD T         
  123   SENDMSG^XM XAPI      
  124   MES^XPDUTL           
  125   $$PROD^XUP ROD        Current Lo gicRCDPESP  ;BIRM/EWL  - ePaymen t Lockbox  Site Param eters Defi nition - F iles 344.6 1 & 344.6  ;Nov 19, 2 014@15:26: 16
  126    ;;4.5;Acc ounts Rece ivable;**2 98,304,318 **;Mar 20,  1995;Buil d 104
  127    ;;Per VA  Directive  6402, this  routine s hould not  be modifie d.
  128    ;
  129   EN ; entry  point for  EDI Lockb ox Paramet ers [RCDPE  EDI LOCKB OX PARAMET ERS]
  130    N DA,DIC, DIE,DIR,DI RUT,DLAYGO ,DR,DTOUT, DUOUT,X,Y   ; FileMan  variables
  131    ;
  132    W !," Upd ate AR Sit e Paramete rs",!
  133    ;
  134    S X="RCDP E AUTO DEC " I '$D(^X USEC(X,DUZ )) W !!,"Y ou do not  hold the " _X_" secur ity key."  Q
  135    ; Lock th e paramete r file
  136    L +^RCY(3 44.61,1):D ILOCKTM E   D  Q
  137    .W !!," A nother use r is curre ntly using  the AR Si te Paramet ers option ."
  138    .W !," Pl ease try a gain later ."
  139    ;
  140    ; Check p arameter f ile
  141    N FDAEDI, FDAPAYER,I EN,IENS,RC QUIT
  142    ; FDAPAYE R - FDA ar ray for RC DPE AUTO-P AY EXCLUSI ON file (# 344.6)
  143    ; FDAEDI  - FDA arra y for RCDP E PARAMETE R file (#3 44.61)
  144    ; RCAUDVA L - audit  data for R CDPE PARAM ETER AUDIT  file (#34 4.7)
  145    ; IEN - e ntry #
  146    ; IENS -  IEN_comma
  147    ; RCQUIT  - exit fla g
  148    ;
  149    ; functio n returns  1 on succe ss
  150    S Y=$$EDI LOCK^RCMSI TE ; Updat e EDI Lock box site p arameters
  151    I 'Y G AB ORT  ; use r entered  '^'
  152    ;
  153    ;-------- ---------- ---------- ---------- --------
  154    ; prca*4. 5*304
  155    ; Enable/ disable au to-auditin g of paper  bills
  156    ;-------- ---------- ---------- ---------- --------
  157    ;
  158    S RCQUIT= 0 W !
  159    S RCQUIT= $$AUDIT^RC DPESP5
  160    Q:RCQUIT
  161    ;
  162    W !
  163    I '$D(^RC Y(344.61,1 ,0)) W !," There is a  problem w ith the RC DPE PARAME TER file ( #344.61)."  G EXIT
  164    ;
  165    Modified  Logic (Cha nges are i n bold)RCD PESP ;BIRM /EWL - ePa yment Lock box Site P arameters  Definition  - Files 3 44.61 & 34 4.6 ;Nov 1 9, 2014@15 :26:16
  166    ;;4.5;Acc ounts Rece ivable;**2 98,304,318 ,XXX**;Mar  20, 1995; Build 104
  167    ;;Per VA  Directive  6402, this  routine s hould not  be modifie d.
  168    ;
  169   EN ; entry  point for  EDI Lockb ox Paramet ers [RCDPE  EDI LOCKB OX PARAMET ERS]
  170    N DA,DIC, DIE,DIR,DI RUT,DLAYGO ,DR,DTOUT, DUOUT,X,Y   ; FileMan  variables
  171    ;
  172    W !," Upd ate AR Sit e Paramete rs",!
  173    ;
  174    S X="RCDP E AUTO DEC " I '$D(^X USEC(X,DUZ )) W !!,"Y ou do not  hold the " _X_" secur ity key."  Q
  175    ; Lock th e paramete r file
  176    L +^RCY(3 44.61,1):D ILOCKTM E   D  Q
  177    .W !!," A nother use r is curre ntly using  the AR Si te Paramet ers option ."
  178    .W !," Pl ease try a gain later ."
  179    ;
  180    ; Check p arameter f ile
  181    N FDAEDI, FDAPAYER,I EN,IENS,RC QUIT
  182    ; FDAPAYE R - FDA ar ray for RC DPE AUTO-P AY EXCLUSI ON file (# 344.6)
  183    ; FDAEDI  - FDA arra y for RCDP E PARAMETE R file (#3 44.61)
  184    ; RCAUDVA L - audit  data for R CDPE PARAM ETER AUDIT  file (#34 4.7)
  185    ; IEN - e ntry #
  186    ; IENS -  IEN_comma
  187    ; RCQUIT  - exit fla g
  188    ;
  189    ; functio n returns  1 on succe ss
  190    S Y=$$EDI LOCK^RCMSI TE ; Updat e EDI Lock box site p arameters
  191    I 'Y G AB ORT  ; use r entered  '^'
  192    ;
  193    ;-------- ---------- ---------- ---------- --------
  194    ; prca*4. 5*304
  195    ; Enable/ disable au to-auditin g of paper  bills
  196    ;-------- ---------- ---------- ---------- --------
  197    ;
  198    S RCQUIT= 0 W !
  199    S RCQUIT= $$AUDIT^RC DPESP5
  200    Q:RCQUIT
  201    ;
  202    W !
  203    I '$D(^RC Y(344.61,1 ,0)) W !," There is a  problem w ith the RC DPE PARAME TER file ( #344.61)."  G EXIT
  204    ;
  205    
  206    ;-------- ---------- ---------- ---------- --------
  207    ; prca*4. 5*XXX
  208    ; WORKLOA D NOTIFICA TION BULLE TIN DAYS
  209    ;-------- ---------- ---------- ---------- --------
  210    N BULL S  BULL=$$GET 1^DIQ(344. 61,"1,",.1 )
  211    K DIR S:B ULL]"" DIR ("B")=BULL
  212    S DIR("?" )=$$GET1^D ID(344.61, .1,,"HELP- PROMPT")
  213    S DIR("A" )=$$GET1^D ID(344.61, .1,,"TITLE ")
  214    S DIR(0)= "344.61,.1 "
  215    D ^DIR I  $D(DTOUT)! $D(DUOUT)  G ABORT
  216    I BULL'=Y  D  ; upda te and aud it
  217    .S RCAUDV AL(1)="344 .61^.1^1^" _Y_U_BULL
  218    .S FDAEDI (344.61,"1 ,",.1)=Y D  FILE^DIE( ,"FDAEDI")
  219    .D AUDIT( .RCAUDVAL)  K RCAUDVA L
  220   RoutinesAc tivitiesRo utine Name PRCAPXXXEn hancement  Category N ew Modify  Delete No  ChangeRTMR elated Opt ionsN/A –  post insta ll routine  for patch  PRCA*4.5* XXXRelated  RoutinesR outines “C alled By”R outines “C alled”   N /A Current  LogicN/AM odified Lo gic (Chang es are in  bold)POST  ; PRCA*4.5 *XXX post- installati on process ing
  221    N RCAUD,R CRMEM,DIK, DA,Z
  222    D MES^XPD UTL("Updat ing RCDPE  AUDIT mail  group.")
  223    ; Integra tion Agree ment NNNN  for 3.8
  224    S RCAUD=+ $O(^XMB(3. 8,"B","RCD PE AUDIT", 0)) Q:'RCA UD
  225    ; Delete  any REMOTE  MEMBER co ntaining t ext of VHA 835NOTIFY  (upper or  lower case )
  226    S Z=0
  227    F  S Z=$O (^XMB(3.8, RCAUD,6,Z) ) Q:'Z  D
  228    . S RCRME M=$$GET1^D IQ(3.812,Z _","_DCAUD _",",.01)
  229    . Q:$$UP^ XLFSTR(RCR MEM)'["VHA 835NOTIFY"
  230    . S DA(1) =RCAUD,DA= Z,DIK="^XM B(3.8,"_DA (1)_",6,"  D ^DIK
  231    . D MES^X PDUTL("Rem oved REMOT E MEMBER =  "_RCRMEM)
  232    QRoutines Activities Routine Na meRCDPEMEn hancement  Category N ew Modify  Delete No  ChangeRTMR elated Opt ionsPRCA N IGHTLY JOB Related Ro utinesRout ines “Call ed By”Rout ines “Call ed”   PRCA BJ
  233   RCDPEM0
  234   RCDPEM1
  235   RCDPEU^DIE                  
  236   SPL1^IBCEO BAR      
  237   EN^RCDPEAD          
  238   EN^RCDPEAP          
  239   AUDIT^RCDP ECH      
  240   $$ADDDEP^R CDPEM0    
  241   $$ADDREC^R CDPEM0    
  242   $$SETERR^R CDPEM0   
  243   MATCH^RCDP EM0           
  244   STORERR^RC DPEM0     
  245   BULL^RCDPE M1        
  246   EN2^RCDPEM 1         
  247   SENDBULL^R CDPEM1    
  248   EN^RCDPEM8          
  249   NEWPYR^RCD PESP    
  250   $$CHKSUM^R CDPESR3  
  251   EN^RCDPEX4           
  252   CONFIRM^RC DPUDEP    
  253   $$ADDTRAN^ RCDPURET   Current Lo gicRCDPEM  ;ALB/TMK/P JH - POST  EFT, ERA M ATCHING TO  EFT ;Jun  06, 2014@1 9:11:19
  254    ;;4.5;Acc ounts Rece ivable;**1 73,255,269 ,276,283,2 98,304,318 ,321**;Mar  20, 1995; Build 104
  255    ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  256    ; IA 4050  covers ca ll to SPL1 ^IBCEOBAR
  257    ; Note -  keep proce ssing in l ine with R CDPXPAP
  258    ;
  259   EN ; Post  EFT deposi ts, auto-m atch EFT's  and ERA's  
  260    ;
  261    K ^TMP($J ,"RCDPETOT "),^TMP("R CDPEAP",$J )
  262   .
  263   .
  264   .
  265    ;Update p ayer table  for new p ayers - PR CA*4.5*298
  266    D NEWPYR^ RCDPESP
  267    ;Scan Non -Released  Rx Excepti ons for re leased Rx  - PRCA*4.5 *298
  268    D EN^RCDP EX4
  269    ;
  270    D MATCH(0 ,1)
  271    ;
  272    ;Auto Pos t - PRCA*4 .5*298
  273    D EN^RCDP EAP
  274    ;Auto Dec rease - PR CA*4.5*298
  275    D EN^RCDP EAD
  276    ;
  277    L -^RCY(3 44.3,"ALOC K")
  278   ENQ K ^TMP ($J,"RCDPE TOT"),^TMP ("RCDPEAP" ,$J)
  279    ;Modified  Logic (Ch anges are  in bold)RC DPEM ;ALB/ TMK/PJH -  POST EFT,  ERA MATCHI NG TO EFT  ;Jun 06, 2 014@19:11: 19
  280    ;;4.5;Acc ounts Rece ivable;**1 73,255,269 ,276,283,2 98,304,318 ,321,XXX** ;Mar 20, 1 995;Build  104
  281    ;Per VA D irective 6 402, this  routine sh ould not b e modified .
  282    ; IA 4050  covers ca ll to SPL1 ^IBCEOBAR
  283    ; Note -  keep proce ssing in l ine with R CDPXPAP
  284    ;
  285   EN ; Post  EFT deposi ts, auto-m atch EFT's  and ERA's  
  286    ;
  287    K ^TMP($J ,"RCDPETOT "),^TMP("R CDPEAP",$J )
  288   .
  289   .
  290   .
  291    ;Update p ayer table  for new p ayers - PR CA*4.5*298
  292    D NEWPYR^ RCDPESP
  293    ;Scan Non -Released  Rx Excepti ons for re leased Rx  - PRCA*4.5 *298
  294    D EN^RCDP EX4
  295    ;
  296    D MATCH(0 ,1)
  297    ;
  298    ;Auto Pos t - PRCA*4 .5*298
  299    D EN^RCDP EAP
  300    ;Auto Dec rease - PR CA*4.5*298
  301    D EN^RCDP EAD
  302    ;
  303    ;Workload  Notificat ions – PRC A*4.5*XXX
  304    D EN^RCDP EM7
  305    ;
  306    L -^RCY(3 44.3,"ALOC K")
  307   ENQ K ^TMP ($J,"RCDPE TOT"),^TMP ("RCDPEAP" ,$J)
  308    ;