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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 614 |
Changed | 1 | 2 |
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 | 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 | ; |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.