9. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 4/17/2018 8:06:29 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.

9.1 Files compared

#	Location	File	Last Modified
1	MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218	TAS+ePhm+SDD+US1441+v1.02.docx	Wed Dec 13 12:49:49 2017 UTC
2	MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218	TAS+ePhm+SDD+US1441+v1.02.docx	Wed Apr 18 00:47:04 2018 UTC

9.2 Comparison summary

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

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

9.4 Active regular expressions

No regular expressions were active.

9.5 Comparison detail

	1	MCCF EDI T AS US1441
	2	System Des ign Docume nt
	3
	4
	5
	6
	7
	8	Department of Vetera ns Affairs
	9	September 2017
	10	Version 1. 02
	11	User Story Number: U SRX-198
	12	User Story Name: Pre vent Proce ssing Fill ing of RTS DUR RRR P rescriptio ns
	13	Product Ba cklog ID: 198
	14	Backlog Pr iority: 4
	15	Initial Si zing Estim ate:
	16	Rational I D:
	17	Rally ID: US1441
	18	Epic Taxon omy: Updat e
	19
	20	Design – S ummary
	21	The ECME D evelopers Log needs to be enha nced to al low for be tter troub leshooting when futu re label i ssues are identified . The ECME Claim Sta tus, Menu option and action, a nd any Ope n Rejects on Third P arty Payer Rejects W orklist wi ll be capt ured and a dded to th e Develope rs Log at the time a label is printed. This infor mation wil l be obtai ned when a label is printed fo r the foll owing Menu option an d actions.
	22	Medication Profile S creen, pic k Rx
	23	ED Edit
	24	PP Pull Rx (OP)
	25	Worklist, pick Rx
	26	RES Resubm it Claim
	27	OVR Submit Override Codes
	28	CLA Submit Clarif. C ode
	29	ED Edit Rx
	30	PA Submit Prior Auth .
	31	SMA Submit Mutli. Ac tions
	32	Stand-alon e options
	33	EDIT PRESC RIPTIONS [ PSO RXEDIT ]
	34	PULL EARLY FROM SUSP ENSE [PSO PNDRX]
	35
	36	List of Co mponents:
	37	Routine: P SOLBLN
	38
	39	Design – D etail
	40	A new subr outine wil l be creat ed in orde r to captu re informa tion that will be ad ded to the Developer s Log.
	41	Subroutine Name
	42	LOGLBL^PSO LBLN
	43	Enhancemen t Category
	44	New
	45	Modify
	46	Delete
	47	No Change
	48	Story
	49	US1441
	50	Related Me nu Options or ListMa n Actions
	51	Medication Profile a nd Worklis t Actions
	52	Related Ro utines
	53	This Subro utine is C alled By
	54	This Subro utine Call s
	55
	56	REP^PSOLBL N,
	57	QLBL^PSORX L,
	58	BEG^PSOSUP RX
	59	LOG^BPSOSL ,
	60	$$IEN59^BP SOSRX,
	61	$$GET1^DIQ ,
	62	$$FIND^PSO REJUT
	63	Related In tegration Control Re gistration s (ICRs)
	64	ICR #4412 – referenc e to IEN59 ^BPSOSRX
	65	ICR #6764 – referenc e to LOG^B PSOSL
	66	Data Passi ng
	67	Parameter Input
	68	Parameter Output
	69	Function Return Val ue
	70	Global Mo dified
	71	Input Attr ibute Name and Defin ition
	72	Name: PSOR X
	73	Definition : IEN to t he Prescri ption file
	74	New Modify Delete No Cha nge
	75	Name: PSOR XF
	76	Definition : Refill n umber of t he Rx
	77	New Modify Delete No Cha nge
	78	Name: RESP
	79	Definition : ECME Res ponse Info , if defin ed the 4th piece wil l contain the ECME S tatus
	80	New Modify Delete No Cha nge
	81	Output Att ribute Nam e and Defi nition
	82	Name: n/a
	83	Definition :
	84	New Modify Delete No Cha nge
	85	Current Lo gic
	86
	87	n/a – new subroutine
	88
	89	Modified L ogic (Chan ges are hi ghlighted)
	90
	91	PSOLBLN ;B IR/RTR - N EW PRINTS LABEL ;11/ 18/92
	92	;;7.0;OUT PATIENT PH ARMACY;1 6,36,71,10 7,110,117, 135,233,25 1,387,379, 367,383,31 8,482;DE C 1997;Bui ld 13
	93	;External reference to ^PSDRU G supporte d by DBIA 221
	94	;External reference to ^PS(55 supported by DBIA 2 228
	95	;External reference to ^VA(20 0 supporte d by DBIA 224
	96	;External reference to ^SC( s upported b y DBIA 254
	97	;Referenc e to IEN59 ^BPSOSRX s upported b y ICR# 441 2
	98	;Referenc e to LOG^B PSOSL supp orted by I CR# 6764
	99	;
	100
	101	. . .
	102
	103	LOGLBL(PSO RX,PSORXF, PSORESP) ; ;Input Pa rameters: ; PSORX - IEN to the Prescript ion file ; PSORXF - Refill num ber of the Rx ; PSOR ESP - ECME Response Info, if d efined the 4th piece will cont ain the EC ME Status ; ; Log EC ME Claim S tatus, Men u Option a nd Action, and wheth er or not there are ; any Open Rejects, to the Dev eloper's L og. If the re are Ope n Rejects, log the ; Code and date/time. This will help in t roubleshoo ting when future lab el ; issue s are iden tified. ; N PSOCD,PS ODT,PSOFND ,PSOIEN59, PSOLOG,PSO ORD,PSOREJ DATA,PSORI EN,PSOSTAT ; ; If PS OIEN59 is not found Quit, it i s required in order make an en try in ; D evelopers Log. S PSO IEN59=$$IE N59^BPSOSR X(PSORX,PS ORXF) I PS OIEN59="" Q ; S PSOS TAT=$P($G( PSORESP),U ,4) I PSOS TAT="" S P SOSTAT=$$S TATUS^PSOB PSUT(PSORX ,PSORXF) D LOG^BPSOS L(PSOIEN59 ,$T(+0)_"- ECME Claim Status: " _PSOSTAT) ; ICR #441 2,6764 ; I $D(XQY0) D LOG^BPSO SL(PSOIEN5 9,$T(+0)_" -Menu Opti on: "_$P(X QY0,U)_"-" _$P(XQY0,U ,2)) I $D( XQORNOD(0) ) D . S PS OORD=$P(XQ ORNOD(0),U ,2) . S PS OLOG=$$GET 1^DIQ(101, PSOORD,.01 )_"-"_$$GE T1^DIQ(101 ,PSOORD,1) . I $$GET 1^DIQ(101, PSOORD,44) S PSOLOG= PSOLOG_"-" _$$GET1^DI Q(101,PSOO RD,44) . D LOG^BPSOS L(PSOIEN59 ,$T(+0)_"- Action: "_ PSOLOG) E D . D LOG ^BPSOSL(PS OIEN59,$T( +0)_"-Acti on: Unavai lable")
	104	; ; Check for any O pen Reject s on Third Party Pay er Reject Worklist. S PSOFND=$ $FIND^PSOR EJUT(PSORX ,PSORXF,.P SOREJDATA) ; ; Log a message i f no Open Rejects we re found. I 'PSOFND D LOG^BPSO SL(PSOIEN5 9,$T(+0)_" -Open Reje cts: None on WL") E D . ; . ; If Open Rejects ar e found, l og the Cod e and Date /Time for each rejec t. . S PSO RIEN="" . F S PSORI EN=$O(PSOR EJDATA(PSO RIEN)) Q:' PSORIEN D . . S PSO CD=PSOREJD ATA(PSORIE N,"CODE"), PSODT=PSOR EJDATA(PSO RIEN,"DATE /TIME") . . D LOG^BP SOSL(PSOIE N59,$T(+0) _"-Open Re jects: "_P SOCD_", "_ PSODT) ; Q
	105
	106
	107	The subrou tine REP^P SOLBLN at the time a label is printed. This subro utine is c alled by m ultiple ac tions with in the Med ication Pr ofile and Worklist o ptions as well as th e stand al one option s Edit Pr escription s [PSO RXE DIT] and P ull Early From Suspe nse [PSO P NDRX]. Th is subrout ine will b e modified to call L OGLBL^PSOL BLN in ord er to capt ure inform ation that will be a dded to th e Develope rs Log.
	108	Subroutine Name
	109	REP^PSOLBL N
	110	Enhancemen t Category
	111	New
	112	Modify
	113	Delete
	114	No Change
	115	Story
	116	US1441
	117	Related Me nu Options or ListMa n Actions
	118	Medication Profile a nd Worklis t Actions
	119	Related Ro utines
	120	This Subro utine is C alled By
	121	This Subro utine Call s
	122
	123	Medication Profile a nd Worklis t Actions
	124	NOW^%DTC,
	125	$$CHKRX^PS OBAI, $$MG ONFILE^PSO FDAUT, ALL WARN^PSOLB LN1,
	126	ALL^PSOLBL S,
	127	CHK2^PSOTR LBL,
	128	TRAIL^PSOL BL2,
	129	KILL^PSOLB L2,
	130	LOGLBL
	131	Related In tegration Control Re gistration s (ICRs)
	132	N/A
	133	Data Passi ng
	134	Parameter Input
	135	Parameter Output
	136	Function Return Val ue
	137	Global Mo dified
	138	Input Attr ibute Name and Defin ition
	139	Name: n/a
	140	Definition :
	141	New Modify Delete No Cha nge
	142	Output Att ribute Nam e and Defi nition
	143	Name: n/a
	144	Definition :
	145	New Modify Delete No Cha nge
	146	Current Lo gic
	147
	148	REP I COPI ES>0 S SID E=1 G ST
	149	D NOW^%DT C S NOW=% K %,%H,%I I $G(RXF)= "" S RXF=0 F I=0:0 S I=$O(^PSR X(RX,1,I)) Q:'I S R XF=I
	150	S IR=0 F FDA=0:0 S FDA=$O(^PS RX(RX,"L", FDA)) Q:'F DA S IR=F DA
	151	S IR=IR+1 ,^PSRX(RX, "L",0)="^5 2.032DA^"_ IR_"^"_IR
	152	S ^PSRX(R X,"L",IR,0 )=NOW_"^"_ $S($G(RXP) :99-RXPI,1 :RXF)_"^"_ $S($G(PCOM X)]"":$G(P COMX),$G(P COMH(RX))] "":PCOMH(R X),1:"From RX number "_$P(^PSR X(RX,0),"^ "))_$S($G( RXP):" (Pa rtial)",1: "")_$S($G( REPRINT):" (Reprint) ",1:"")_"^ "_PDUZ
	153	N PSOBADR ,PSOTEMP
	154	S PSOBADR =$$CHKRX^P SOBAI(RX)
	155	I $G(PSOB ADR) S PSO TEMP=$P(PS OBADR,"^", 2),PSOBADR =$P(PSOBAD R,"^")
	156	I $G(PSOB ADR),'$G(P SOTEMP) D
	157	.S IR=IR+ 1,^PSRX(RX ,"L",0)="^ 52.032DA^" _IR_"^"_IR
	158	.S ^PSRX( RX,"L",IR, 0)=NOW_"^" _$S($G(RXP ):99-RXPI, 1:RXF)_"^" _"ROUTING= "_$G(MW)_" (BAD ADDR ESS)"_"^"_ PDUZ
	159	;Storing FDA Medica tion Guide filename in the Pre scription file
	160	I $$MGONF ILE^PSOFDA UT(RX) D
	161	. I $G(RX RP(RX)),'$ G(RXRP(RX, "MG")) Q
	162	. S ^PSRX (RX,"L",IR ,"FDA")=$P ($$MGONFIL E^PSOFDAUT (RX),"^",2 )
	163	S ^PSRX(R X,"TYPE")= 0 K RXF,IR ,FDA,NOW,I ,PCOMH(RX)
	164	I $G(WARN )'="" I $G (PSDFNFLG) !($G(PSOLA PPL)) D AL LWARN^PSOL BLN1
	165	I $G(WARN )="" I $G( PSDFNFLG)! ($G(PSOLAP PL)) D ALL ^PSOLBLS
	166	I $G(PSOB LALL) D:$G (WARN)="" ALL^PSOLBL S D:$G(WAR N)'="" ALL WARN^PSOLB LN1
	167	I '$D(PSS PND),$P(PS OPAR,"^",1 8) I $G(PS DFNFLG)!($ G(PSOLAPPL ))!($G(PSO BLALL)) D CHCK2^PSOT RLBL
	168	D:$G(PSOB LALL) TRAI L^PSOLBL2
	169	END ;
	170	I $D(RXFL X(RX)) S R XFL(RX)=$G (RXFLX(RX) ) K RXFLX
	171	D KILL^PS OLBL2 Q
	172
	173	Modified L ogic (Chan ges are hi ghlighted)
	174
	175	REP I COPI ES>0 S SID E=1 G ST
	176	D NOW^%DT C S NOW=% K %,%H,%I I $G(RXF)= "" S RXF=0 F I=0:0 S I=$O(^PSR X(RX,1,I)) Q:'I S R XF=I
	177	S IR=0 F FDA=0:0 S FDA=$O(^PS RX(RX,"L", FDA)) Q:'F DA S IR=F DA
	178	S IR=IR+1 ,^PSRX(RX, "L",0)="^5 2.032DA^"_ IR_"^"_IR
	179	S ^PSRX(R X,"L",IR,0 )=NOW_"^"_ $S($G(RXP) :99-RXPI,1 :RXF)_"^"_ $S($G(PCOM X)]"":$G(P COMX),$G(P COMH(RX))] "":PCOMH(R X),1:"From RX number "_$P(^PSR X(RX,0),"^ "))_$S($G( RXP):" (Pa rtial)",1: "")_$S($G( REPRINT):" (Reprint) ",1:"")_"^ "_PDUZ
	180	;
	181	; Add inf o about th e label be ing printe d to the D eveloper’s Log.
	182	D LOGLBL( RX,RXF,$G( RESP))
	183	;
	184	N PSOBADR ,PSOTEMP
	185	S PSOBADR =$$CHKRX^P SOBAI(RX)
	186	I $G(PSOB ADR) S PSO TEMP=$P(PS OBADR,"^", 2),PSOBADR =$P(PSOBAD R,"^")
	187	I $G(PSOB ADR),'$G(P SOTEMP) D
	188	.S IR=IR+ 1,^PSRX(RX ,"L",0)="^ 52.032DA^" _IR_"^"_IR
	189	.S ^PSRX( RX,"L",IR, 0)=NOW_"^" _$S($G(RXP ):99-RXPI, 1:RXF)_"^" _"ROUTING= "_$G(MW)_" (BAD ADDR ESS)"_"^"_ PDUZ
	190	;Storing FDA Medica tion Guide filename in the Pre scription file
	191	I $$MGONF ILE^PSOFDA UT(RX) D
	192	. I $G(RX RP(RX)),'$ G(RXRP(RX, "MG")) Q
	193	. S ^PSRX (RX,"L",IR ,"FDA")=$P ($$MGONFIL E^PSOFDAUT (RX),"^",2 )
	194	S ^PSRX(R X,"TYPE")= 0 K RXF,IR ,FDA,NOW,I ,PCOMH(RX)
	195	I $G(WARN )'="" I $G (PSDFNFLG) !($G(PSOLA PPL)) D AL LWARN^PSOL BLN1
	196	I $G(WARN )="" I $G( PSDFNFLG)! ($G(PSOLAP PL)) D ALL ^PSOLBLS
	197	I $G(PSOB LALL) D:$G (WARN)="" ALL^PSOLBL S D:$G(WAR N)'="" ALL WARN^PSOLB LN1
	198	I '$D(PSS PND),$P(PS OPAR,"^",1 8) I $G(PS DFNFLG)!($ G(PSOLAPPL ))!($G(PSO BLALL)) D CHCK2^PSOT RLBL
	199	D:$G(PSOB LALL) TRAI L^PSOLBL2
	200	END ;
	201	I $D(RXFL X(RX)) S R XFL(RX)=$G (RXFLX(RX) ) K RXFLX
	202	D KILL^PS OLBL2 Q
	203
	204
	205	Back Out/R ollback Pr ocedure
	206	This story includes modificati ons to exi sting rout ines.
	207	To back ou t this enh ancement, all the ro utines whi ch are a p art of thi s patch sh ould be ba cked up pr ior to ins tallation. Reverting to the pr evious ver sion of th ese routin es would b ack out th is enhance ment. Alte rnatively, the previ ous versio n of these routines could be d istributed via an em ergency pa tch.