28. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 9/19/2018 12:35:56 PM 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.

28.1 Files compared

#	Location	File	Last Modified
1	ePharmacy_Bundle 12.zip	TAS+ePhm+SDD+US3682+v1.0.docx	Wed Sep 12 15:17:00 2018 UTC
2	ePharmacy_Bundle 12.zip	TAS+ePhm+SDD+US3682+v1.0.docx	Wed Sep 19 15:04:39 2018 UTC

28.2 Comparison summary

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

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

28.4 Active regular expressions

No regular expressions were active.

28.5 Comparison detail

	1	MCCF EDI T AS US3682
	2	System Des ign Docume nt
	3
	4
	5
	6
	7
	8	Department of Vetera ns Affairs
	9	March 2018
	10	Version 1. 00
	11
	12	User Story Name: Ad d Reminder When 'ePh armacy Bil lable' Fie ld Not Ans wered.
	13	Rally ID: US3682
	14	Epic Taxon omy: Updat e
	15	Design – S ummary
	16	In option DRUG ENTER /EDIT [PSS DRUG ENTE R/EDIT], d isplay a m essage to the user i f the user is exitin g the opti on and all of the th ree “ePhar macy Billa ble” field s are blan k.
	17
	18	List of Co mponents:
	19	Routine: P SSBPSUT
	20	Routine: P SSDEE
	21
	22	Design – D etail
	23
	24	The Drug I EN will be passed in to this n ew subrout ine. The t hree ePhar macy Billa ble fields will be c hecked. If all three fields ar e nil, an informatio nal messag e will be displayed to the use r and the user will be given t he opportu nity to in put values for the f ields. Thi s new subr outine wil l be calle d from Dru g Enter/Ed it upon ex iting the option.
	25
	26	Subroutine Name
	27	EPHARM^PSS BPSUT
	28	Enhancemen t Category
	29	New
	30	Modify
	31	Delete
	32	No Change
	33	Related Me nu Options or ListMa n Actions
	34	Drug Enter /Edit [PSS DRUG ENTE R/EDIT]
	35	Current Lo gic
	36
	37	PSSBPSUT ; BIRM/MFR - BPS (ECME ) Utilitie s ;05/14/0 7
	38	;;1.0;PHA RMACY DATA MANAGEMEN T;127; 9/30/97;Bu ild 41
	39	;
	40
	41	Modified L ogic (Chan ges are hi ghlighted)
	42
	43	PSSBPSUT ; BIRM/MFR - BPS (ECME ) Utilitie s ;05/14/0 7
	44	;;1.0;PHA RMACY DATA MANAGEMEN T;127,21 4;9/30/9 7;Build 41
	45	;
	46
	47	…
	48
	49	EPHARM(PSS DRUG) ; eP harmacy Bi llable fie lds check
	50	; Check i f the ePha rmacy Bill able field s are all nil. If s o, give th e user the
	51	; opportu nity to in put a valu e into the fields.
	52	;
	53	; Input: (r) PSSDRU G - DRUG f ile (#50) IEN
	54	;
	55	N ARRAY,D A,DATA,DIE ,DIR,DR,I, PSSDRUG1,Y
	56	;
	57	; Pull ex isting val ues from ^ PSDRUG, fo r ePharmac y Billable fields, a nd put int o ARRAY.
	58	S PSSDRUG 1=PSSDRUG_ ","
	59	D GETS^DI Q(50,PSSDR UG1,"84;85 ;86","I"," ARRAY")
	60	;
	61	; Check t he 3 field s in ARRAY . If any field has a value de fined, QUI T.
	62	S DATA=""
	63	F I=84,85 ,86 I $G(A RRAY(50,PS SDRUG1,I," I"))'="" S DATA=1
	64	I DATA=1 Q
	65	;
	66	; All 3 f ields were nil. Pro mpt user i f they wou ld like to enter val ues.
	67	S DIR("A" ,1)=" "
	68	S DIR("A" ,2)=" Non e of the e Pharmacy B illable fi elds are m arked. eP harmacy cl aims"
	69	S DIR("A" ,3)=" wil l not be b illed if n ot marked. Do you w ish to mar k any of t he"
	70	S DIR("A" )=" field s (Y/N)"
	71	S DIR(0)= "Y"
	72	D ^DIR
	73	;
	74	I Y'=1 Q ; If us er did not respond Y ES to ente ring ePhar macy Billa ble fields , QUIT.
	75	;
	76	W !
	77	; Display the 3 ePh armacy Bil lable fiel ds to the user.
	78	S DIE="^P SDRUG("
	79	S DA=PSSD RUG
	80	S DR="84e Pharmacy B illable;85 ePharmac y Billable (TRICARE) ;86 ePhar macy Billa ble (CHAMP VA)"
	81	D ^DIE
	82	;
	83	Q
	84
	85
	86	The call t o the new subroutine will be a dded to th e Drug Ent er/Edit op tion in 2 places. Wh ile inputt ing the va rious fiel ds within Drug Enter /Edit, the user can input ^ to exit from the optio n. Before exiting th e option, the new su broutine w ill be cal led to che ck the 3 e Pharmacy B illable fi elds. If t he user do es not use ^ to exit the optio n early, a call to t he new sub routine wi ll occur t o also che ck the fie lds for ni l values.
	87	Subroutine Name
	88	COMMON^PSS DEE
	89	Enhancemen t Category
	90	New
	91	Modify
	92	Delete
	93	No Change
	94	Related Me nu Options or ListMa n Actions
	95	Drug Enter /Edit [PSS DRUG ENTE R/EDIT]
	96	Current Lo gic
	97
	98	PSSDEE ;BI R/WRT-MAST ER DRUG EN TER/EDIT R OUTINE ;01 /21/00
	99	;;1.0;PHA RMACY DATA MANAGEMEN T;3,5,15 ,16,20,22, 28,32,34,3 3,38,57,47 ,68,61,82, 90,110,155 ,156,180,1 93,200,207 ,195;9/3 0/97;Build 25
	100
	101	…
	102
	103	COMMON S D IE="^PSDRU G(",DR="[P SSCOMMON]" D ^DIE Q: $D(Y)!($D( DTOUT)) W :'$D(Y) !, "PRICE PER DISPENSE UNIT: " S: '$D(^PSDRU G(DA,660)) $P(^PSDRU G(DA,660), "^",6)="" W:'$D(Y) $ P(^PSDRUG( DA,660),"^ ",6)
	104	D DEA,CK, ASKND,OIKI LL^PSSDEE1 ,COMMON1
	105	Q
	106
	107	Modified L ogic (Chan ges are hi ghlighted)
	108
	109	PSSDEE ;BI R/WRT-MAST ER DRUG EN TER/EDIT R OUTINE ;01 /21/00
	110	;;1.0;PHA RMACY DATA MANAGEMEN T;3,5,15 ,16,20,22, 28,32,34,3 3,38,57,47 ,68,61,82, 90,110,155 ,156,180,1 93,200,207 ,195,214 ;9/30/97;B uild 25
	111
	112	…
	113
	114	COMMON S D IE="^PSDRU G(",DR="[P SSCOMMON]" D ^DIE D: $D(Y)!($D( DTOUT)) EP HARM^PSSBP SUT(DISPDR G) Q:$D(Y) !($D(DTOUT )) W:'$D( Y) !,"PRIC E PER DISP ENSE UNIT: " S:'$D(^ PSDRUG(DA, 660)) $P(^ PSDRUG(DA, 660),"^",6 )="" W:'$D (Y) $P(^PS DRUG(DA,66 0),"^",6)
	115	D DEA,CK, ASKND,OIKI LL^PSSDEE1 ,COMMON1,E PHARM^PSSB PSUT(DISPD RG)
	116	Q
	117