17. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 10/23/2018 6:40:24 AM Central Daylight 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.

17.1 Files compared

#	Location	File	Last Modified
1	docs	TAS epay US3525 SDD - Copy.doc	Mon Oct 22 16:27:48 2018 UTC
2	docs	TAS epay US3525 SDD - Copy.doc	Mon Oct 22 16:33:27 2018 UTC

17.2 Comparison summary

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

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

17.4 Active regular expressions

No regular expressions were active.

17.5 Comparison detail

	1	MCCF EDI T AS USxxx
	2	System Des ign Docume nt
	3	PRCA4.5x xx
	4
	5	Department of Vetera ns Affairs
	6	November 2 017
	7	Version 1
	8	User Story ID: US352 5
	9	User Story Name: Du plicate EF T Deposits Audit Rep ort
	10	Sizing: 1
	11	Epic Taxon omy eBiz C ompliance Port Updat e Incre ase No Tou ch TAS Ap psStory
	12	As a...I w ant to...S o that...e Payments u serHave th e selected date rang e on the D uplicate E FT Deposit s Audit Re port work correctlyI can see a ll the dup licate EFT Deposits for a sele cted date range.Conv ersation ( if desired by develo pers)
	13	Currently, any dupli cate EFT D eposits fo r the last day of th e selected date rang e are not displayed.
	14	Summary:
	15	The criter ia to dete ct the end of the us er selecte d date ran ge will be modified to such th at duplica te deposit s on the l ast day of the date range are displayed on the rep ort.
	16	Existing r outine RCD PEM6 will be modifie d.
	17	Resolution – Added C hanged Obj ects
	18	RoutinesAc tivitiesRo utine Name RCDPEM6Enh ancement C ategory Ne w Modify D elete No C hangeRTMRe lated Opti onsDuplica te EFT Dep osits Audi t ReportRe lated Rout inesRoutin es “Called By”Routin es “Called ” RCDPE8 NZ
	19	RCDPEAC
	20	RCDPEADP
	21	RCDPEAPP
	22	RCDPEAR1
	23	RCDPEAR2
	24	RCDPELAR
	25	RCDPEM3
	26	RCDPEM4$$A SKLM^RCDPE ARL
	27	$$ENDORPRT ^RCDPEARL
	28	$$NOW^RCDP EARL
	29	$$PAD^RCDP EARL
	30	HDRLST^RCD PEARL
	31	LMRPT^RCDP EARL
	32	SL^RCDPEAR L
	33	$$DISPTY^R CDPEM3
	34	$$DTRNG^RC DPEM4Curre nt Logic.
	35	.
	36	.
	37	GENRPRT ; Generate t he report ^TMP array
	38	; INPUT: RCDTRNG - date range for repor t
	39	;
	40	N EFTIEN, FRSTDT,IND XDT,LSTDT, X,Y
	41	; INDXDT - date of EFT from " E" x-ref
	42	; FRSTDT - Start da te of repo rt date ra nge
	43	; LSTDT - End date of report date range
	44	; EFTIEN - IEN of E FT
	45	;
	46	K ^TMP($J ,"RC DUP E FT") ; use d for repo rt
	47	S FRSTDT= $P(RCDTRNG ,U,2) S:FR STDT<1 FRS TDT=201010 1 ; 1 Jan 1901
	48	S LSTDT=$ P(RCDTRNG, U,3) S:LST DT<1 LSTDT =4010101 ; 1 Jan 210 1
	49	S INDXDT= FRSTDT-.00 000001 ; i nitial val ue for x-r ef
	50	;
	51	; ^RCY(34 4.31,D0,3) = (#.17) USER WHO R EMOVED EFT [1P:200] ^ (#.18) D ATE/TIME D UPLICATE R EMOVED [2D ] ^ (#.19) EFT REMOV AL REASON [3F]
	52	F S INDX DT=$O(^RCY (344.31,"E ",INDXDT)) Q:'INDXDT !(INDXDT>L STDT) D
	53	.S EFTIEN =0 F S EF TIEN=$O(^R CY(344.31, "E",INDXDT ,EFTIEN)) Q:'EFTIEN D:$D(^RCY (344.31,EF TIEN,3)) P ROC(EFTIEN )
	54	;
	55	Q
	56	;
	57	.
	58	.
	59	.Modified Logic (Cha nges are i n bold).
	60	.
	61	.
	62	GENRPRT ; Generate t he report ^TMP array
	63	; INPUT: RCDTRNG - date range for repor t
	64	;
	65	N EFTIEN, FRSTDT,IND XDT,LSTDT, X,Y
	66	; INDXDT - date of EFT from " E" x-ref
	67	; FRSTDT - Start da te of repo rt date ra nge
	68	; LSTDT - End date of report date range
	69	; EFTIEN - IEN of E FT
	70	;
	71	K ^TMP($J ,"RC DUP E FT") ; use d for repo rt
	72	S FRSTDT= $P(RCDTRNG ,U,2) S:FR STDT<1 FRS TDT=201010 1 ; 1 Jan 1901
	73	S LSTDT=$ P(RCDTRNG, U,3) S:LST DT<1 LSTDT =4010101 ; 1 Jan 210 1
	74	S INDXDT= FRSTDT-.00 000001 ; i nitial val ue for x-r ef
	75	;
	76	; ^RCY(34 4.31,D0,3) = (#.17) USER WHO R EMOVED EFT [1P:200] ^ (#.18) D ATE/TIME D UPLICATE R EMOVED [2D ] ^ (#.19) EFT REMOV AL REASON [3F]
	77	F S INDX DT=$O(^RCY (344.31,"E ",INDXDT)) Q:'INDXDT !(($P(INDX DT,”.”,1)) >LSTDT) D
	78	.S EFTIEN =0 F S EF TIEN=$O(^R CY(344.31, "E",INDXDT ,EFTIEN)) Q:'EFTIEN D:$D(^RCY (344.31,EF TIEN,3)) P ROC(EFTIEN )
	79	;
	80	Q
	81	;
	82	.
	83	.
	84	.