11. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 9/6/2017 3:05:29 PM Eastern 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.

11.1 Files compared

#	Location	File	Last Modified
1	MCCF EDI TAS BPS PSO PSX Bundle.zip\MCCF EDI TAS BPS PSO PSX Bundle	TAS ePhm SDD US209 v1.01.docx	Thu Jul 27 19:17:58 2017 UTC
2	MCCF EDI TAS BPS PSO PSX Bundle.zip\MCCF EDI TAS BPS PSO PSX Bundle	TAS ePhm SDD US209 v1.01.docx	Wed Sep 6 18:25:33 2017 UTC

11.2 Comparison summary

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

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

11.4 Active regular expressions

No regular expressions were active.

11.5 Comparison detail

	1	MCCF EDI T AS US209
	2	System Des ign Docume nt
	3
	4
	5
	6
	7
	8	Department of Vetera ns Affairs
	9	May 2017
	10	Version 1. 01
	11	User Story Number: U SRX-21
	12	User Story Name: All ow printin g of one o r multiple reports o f the VER View ePhar macy Rx
	13	Product Ba cklog ID: 183
	14	Backlog Pr iority: Lo w
	15	Initial Si zing Estim ate:
	16	Rational I D: tbd
	17	Rally ID: US209
	18
	19	Design – S ummary
	20	The existi ng ListMan screen VE R View ePh armacy Rx contains t welve sect ions, with an additi onal two s ections be ing added in US594. The users would like the abili ty to prin t one or m ore of the se section s.
	21
	22	A new acti on of PR P rint Repor t(s) will be added t o the menu protocol. When a us er selects the new a ction PR P rint Repor t(s), the system wil l allow th e user to enter one or more se ctions to be printed . Each sel ected sect ion will b e printed directly f rom the Li stMan List , in ^TMP.
	23
	24	List of Co mponents:
	25	Routine: B PSVRX3
	26	Protocol: BPS VIEW E CME RX MEN U
	27	Protocol: BPS VRX NA V BILL LIS T
	28	Protocol: BPS VRX NA V BILLING EVENTS RPT
	29	Protocol: BPS VRX NA V CRI
	30	Protocol: BPS VRX NA V DG ELIG STATUS
	31	Protocol: BPS VRX NA V DG ELIG VERIFICATI ON
	32	Protocol: BPS VRX NA V ECME CLA IM LOG
	33	Protocol: BPS VRX NA V INS POL
	34	Protocol: BPS VRX NA V MED PROF ILE <- to be added wit h US594
	35	Protocol: BPS VRX NA V PRINT RE PORT
	36	Protocol: BPS VRX NA V SENSITIV E DRUG < - to be ad ded with U S594
	37	Protocol: BPS VRX NA V TPJI AR ACCT PROFI LE
	38	Protocol: BPS VRX NA V TPJI AR COMMENT HI STORY
	39	Protocol: BPS VRX NA V TPJI CLA IM INFORMA TION
	40	Protocol: BPS VRX NA V TPJI ECM E RX INFO
	41	Protocol: BPS VRX NA V VIEWRX
	42	Protocol: VALM BLANK 1 <- pla ceholder u ntil US594
	43	Protocol: VALM BLANK 2 <- pla ceholder u ntil US594
	44	Protocol: VALM BLANK 3
	45	List Templ ate: BPS V IEW ECME R X
	46
	47	Design – D etail
	48	The new ac tion PR Pr int Report (s) will b e added to file #101 , PROTOCOL , as descr ibed by th e followin g table.
	49
	50	Fields
	51	Values
	52	#.01 – NAM E
	53	BPS VRX NA V PRINT RE PORT
	54	#1 – ITEM TEXT
	55	Print Repo rt
	56	#4 – TYPE
	57	ACTION
	58	#12 – PACK AGE
	59	BPS
	60	#15 – EXIT ACTION
	61	S VALMBCK= ”R”
	62	#20 – ENTR Y ACTION
	63	D REPORT^B PSVRX3
	64
	65	The BPS VI EW ECME RX MENU entr y in file# 101, PROT OCOL, will be modifi ed to add the new ac tion PR Pr int Report . Below ar e shown th e actions that are c urrently d isplayed i n the BPS VIEW ECME RX MENU:
	66
	67	VW View Rx CR CRI Rep ort CI TPJI Cl aim Info ER TPJI EC ME Rx
	68	CL Claim L og IN Insuran ce AP TPJI Ac ct Pro ES Elig St atus
	69	BE Billing Events LB List of Bills CM TPJI AR Comm EV Elig Ve rif
	70
	71	After the new action is added, the actio ns will ap pear as fo llows.
	72
	73	VW View Rx CR CRI Rep ort CI TPJI Cl aim Info ER TPJI EC ME Rx
	74	CL Claim L og IN Insuran ce AP TPJI Ac ct Pro ES Elig St atus
	75	BE Billing Events LB List of Bills CM TPJI AR Comm EV Elig Ve rif
	76	SD Sensiti ve Drug MP Med Pro file* PR Print R eport
	77
	78	* The acti ons SD Sen sitive Dru g and MP M ed Profile will be a dded in US 594.
	79
	80	The follow ing table shows all the action s on the B PS VIEW EC ME RX MENU , with the new one h ighlighted . The high lighted ac tion must be added t o this ent ry in file # 101, PRO TOCOL. Eac h of the a ction prot ocols, whe ther new o r existing , must be added to t he build w ith an ins tallation action of “SEND TO S ITE”.
	81
	82	Item
	83	Mnemonic
	84	Sequence
	85	BPS VRX NA V VIEWRX
	86	VW
	87	11
	88	BPS VRX NA V ECME CLA IM LOG
	89	CL
	90	12
	91	BPS VRX NA V BILLING EVENTS RPT
	92	BE
	93	13
	94	VALM BLANK 1*
	95	BPS VRX NA V SENSITIV E DRUG**
	96	SD
	97	14
	98	BPS VRX NA V CRI
	99	CR
	100	21
	101	BPS VRX NA V INS POL
	102	IN
	103	22
	104	BPS VRX NA V BILL LIS T
	105	LB
	106	23
	107	VALM BLANK 2*
	108	BPS VRX NA V MED PROF ILE**
	109	MP
	110	24
	111	BPS VRX NA V TPJI CLA IM INFORMA TION
	112	CI
	113	31
	114	BPS VRX NA V TPJI AR ACCT PROFI LE
	115	AP
	116	32
	117	BPS VRX NA V TPJI AR COMMENT HI STORY
	118	CM
	119	33
	120	VALM BLANK 3
	121
	122	34
	123	BPS VRX NA V TPJI ECM E RX INFO
	124	ER
	125	41
	126	BPS VRX NA V DG ELIG STATUS
	127	ES
	128	42
	129	BPS VRX NA V DG ELIG VERIFICATI ON
	130	EV
	131	43
	132	BPS VRX NA V PRINT RE PORT
	133	PR
	134	44
	135
	136	* Blank ac tions, add ed as plac eholders, until US59 4 is done. These are being use d to force the actio ns to disp lay in the proper or der.
	137	**The acti ons SD Sen sitive Dru g and MP M ed Profile will be a dded in US 594. These actions w ill replac e VALM BLA NK 1 and V ALM BLANK 2 with US5 94.
	138
	139	The BPS VI EW ECME RX entry in file #409. 61 LIST TE MPLATE wil l be modif ied to all ow for an additional row that will allow the new a ction to b e displaye d.
	140
	141	Fields
	142	Values
	143	#.06 – BOT TOM MARGIN (current)
	144	19
	145	#.06 – BOT TOM MARGIN (modified )
	146	18
	147
	148
	149	Subroutine Name
	150	REPORT^BPS VRX3
	151	Enhancemen t Category
	152	New
	153	Modify
	154	Delete
	155	No Change
	156	Story
	157	US209
	158	Related Me nu Options or ListMa n Actions
	159	BPS RPT VI EW ECME RX
	160	Related Ro utines
	161	This Subro utine is C alled By
	162	This Subro utine Call s
	163
	164	Entry acti on on acti on protoco l BPS VRX NAV PRINT REPORT
	165	LIST^BPSVR X3, $$SELE CT^BPSVRX3 , $$STOP^B PSVRX3
	166	Related In tegration Control Re gistration s (ICRs)
	167	n/a
	168	Data Passi ng
	169	Parameter Input
	170	Parameter Output
	171	Function Return Val ue
	172	Global Mo dified
	173	Input Attr ibute Name and Defin ition
	174	Name: n/a
	175	Definition :
	176	New Modify Delete No Cha nge
	177	Output Att ribute Nam e and Defi nition
	178	Name: n/a
	179	Definition :
	180	New Modify Delete No Cha nge
	181	Current Lo gic
	182
	183	n/a
	184
	185	Modified L ogic (Chan ges are hi ghlighted)
	186
	187	BPSVRX3 ;A ITC/PD - P rint Repor t from VER ;5/2/2017
	188	;;1.0;E C LAIMS MGMT ENGINE; 22;
	189	;;Per VA Directive 6402, this routine s hould not be modifie d.
	190	;
	191	Q
	192	;
	193	REPORT ; S elect and print sect ions of th e list.
	194	;
	195	; Allow t he user to select on e or more sections o f the VER list to
	196	; print t o the spec ified devi ce.
	197	;
	198	N BPSJOB, BPSLIST
	199	S BPSJOB= $J
	200	D FULL^VA LM1
	201	;
	202	LIST I '$$ SELECT(.BP SLIST) G R EXIT
	203	;
	204	I '$$DEVI CE() G REX IT:$$STOP, LIST
	205	;
	206	REXIT ; Ex it point.
	207	;
	208	Q
	209
	210
	211	Subroutine Name
	212	SELECT^BPS VRX3
	213	Enhancemen t Category
	214	New
	215	Modify
	216	Delete
	217	No Change
	218	Story
	219	US209
	220	Related Me nu Options or ListMa n Actions
	221	BPS RPT VI EW ECME RX
	222	Related Ro utines
	223	This Subro utine is C alled By
	224	This Subro utine Call s
	225
	226	REPORT^BPS VRX3
	227	^DIR
	228	Related In tegration Control Re gistration s (ICRs)
	229	n/a
	230	Data Passi ng
	231	Parameter Input
	232	Parameter Output
	233	Function Return Val ue
	234	Global Mo dified
	235	Input Attr ibute Name and Defin ition
	236	Name: n/a
	237	Definition :
	238	New Modify Delete No Cha nge
	239	Output Att ribute Nam e and Defi nition
	240	Name: $$SE LECT
	241	Definition : 1 if one or more s ections we re selecte d; 0 other wise.
	242	New Modify Delete No Cha nge
	243	Name: BPSL IST
	244	Definition : Array c ontaining list of se ctions sel ected by t he user.
	245	New Modify Delete No Cha nge
	246	Current Lo gic
	247
	248	n/a
	249
	250	Modified L ogic (Chan ges are hi ghlighted)
	251
	252	SELECT(BPS LIST) ; Al low user t o select s ections of the list to be prin ted.
	253	;
	254	; This fu nction ret urns a 1 i f the user entered o ne or more sections
	255	; to be p rinted, 0 if no sele ction was made.
	256	; This fu nction exp ects the f ollowing v ariables t o exist:
	257	; - BPSJO B will be set to the $J of the current j ob, if for eground,
	258	; or th e job whic h launched this back ground job , if backg round.
	259	; - BPSVR X("LISTNAV ",Section# ) = Beginn ing Line#
	260	; where Section# is a numbe r, 1-14, c orrespondi ng to a se ction of t he
	261	; ListMan list, and Beginning Line# is the first line of th at section .
	262	;
	263	; Returns the BPSLI ST array w ith a list of one or more sect ions:
	264	; BPS LIST(Secti on#) = Fir st Line ^ Last Line
	265	; Where F irst Line and Last L ine are th e first an d last lin es of
	266	; that se ction in t he list an d Section# can be on e or more numbers
	267	; from 1 to 14, eac h correspo nding to a section:
	268	; 8 - AP, TPJI Account P rofile
	269	; 3 - BE, Bill ing Events
	270	; 7 - CI, TPJI Claim Inf o
	271	; 2 - CL, Clai m Log
	272	; 9 - CM, TPJI AR Commen t History
	273	; 4 - CR, Clai ms Respons e Inquiry Report
	274	; 10 - ER, TPJI ECME Rx I nformation
	275	; 11 - ES, Elig ibility St atus
	276	; 12 - EV, Elig ibility Ve rification
	277	; 5 - IN, Insu rance
	278	; 6 - LB, List of Bills
	279	; 14 - MP, Medi cation Pro file
	280	; 13 - SD, Sens itive Drug
	281	; 1 - VW, View Rx
	282	;
	283	N BPSLC,B PSLISTNAV, BPSSECBEGI N,BPSSECEN D,BPSSECNU M,BPSSECLI ST,BPSSEL
	284	N BPSUC,B PSX,BPSY,D A,DIR,DIRO UT,DIRUT,D TOUT,DUOUT ,X,Y
	285	;
	286	S BPSSECL IST=",AP,B E,CI,CL,CM ,CR,ER,ES, EV,IN,LB,M P,SD,VW,"
	287	S BPSLIST NAV("AP")= 8
	288	S BPSLIST NAV("BE")= 3
	289	S BPSLIST NAV("CI")= 7
	290	S BPSLIST NAV("CL")= 2
	291	S BPSLIST NAV("CM")= 9
	292	S BPSLIST NAV("CR")= 4
	293	S BPSLIST NAV("ER")= 10
	294	S BPSLIST NAV("ES")= 11
	295	S BPSLIST NAV("EV")= 12
	296	S BPSLIST NAV("IN")= 5
	297	S BPSLIST NAV("LB")= 6
	298	S BPSLIST NAV("MP")= 14
	299	S BPSLIST NAV("SD")= 13
	300	S BPSLIST NAV("VW")= 1
	301	;
	302	S BPSUC=" ABCDEFGHIJ KLMNOPQRST UVWXYZ"
	303	S BPSLC=" abcdefghij klmnopqrst uvwxyz"
	304	;
	305	; Display the list of actions to the us er once, u pon execut ing the PR option.
	306	; List ca n be re-di splayed to the user by enterin g ??.
	307	W !
	308	W !,"VW V iew Rx CR C RI Report CI T PJI Claim Info ER T PJI ECME R x"
	309	W !,"CL C laim Log IN I nsurance AP T PJI Acct P ro ES E lig Status "
	310	W !,"BE B illing Eve nts LB L ist of Bil ls CM T PJI AR Com m EV E lig Verif"
	311	W !
	312	;
	313	SELECT1 ; Prompt use r for sect ion(s) to print.
	314	;
	315	S DIR(0)= "FO^0:40"
	316	S DIR("A" )="Select Report to Print"
	317	S DIR("?" ,1)=" Sele ct one or many repor t(s) to pr int, separ ated by co mmas. When all"
	318	S DIR("?" ,2)=" repo rts have b een select ed, hit en ter withou t making a nother sel ection."
	319	S DIR("?" ,3)=" Exam ple: "
	320	S DIR("?" ,4)=" Sel ect Report to Print: VW,IN,CM"
	321	S DIR("?" )=" Selec t Report t o Print: E S"
	322	S DIR("?? ")="^D HEL P^BPSVRX3"
	323	;
	324	D ^DIR
	325	;
	326	; If user enters "^ " or "^^", or it tim es out, cl ear out th e
	327	; list an d skip to end.
	328	;
	329	I $D(DTOU T)!$D(DUOU T) K BPSLI ST G SELEC TQ
	330	;
	331	; If user entered n othing, sk ip to end.
	332	;
	333	I X="" G SELECTQ
	334	;
	335	; Convert any lower case to u pper case
	336	S X=$TR(X ,BPSLC,BPS UC)
	337	;
	338	F BPSX=1: 1:$L(X,"," ) D
	339	. S BPSSE L=$P(X,"," ,BPSX)
	340	. I BPSSE CLIST'[(", "_BPSSEL_" ,") W !,*7 ," ",BPSSE L," is not a valid e ntry." Q
	341	. S BPSSE CNUM=BPSLI STNAV(BPSS EL)
	342	. I $D(BP SLIST(BPSS ECNUM)) W !,*7," ",B PSSEL," al ready sele cted." Q
	343	. S BPSSE CBEGIN=$G( BPSVRX("LI STNAV",BPS SECNUM))
	344	. S BPSY= $O(BPSVRX( "LISTNAV", BPSSECNUM) )
	345	. I BPSY' ="" S BPSS ECEND=$G(B PSVRX("LIS TNAV",BPSY ))-1
	346	. E S BP SSECEND=$O (^TMP("BPS VRX",BPSJO B,""),-1)
	347	. S BPSLI ST(BPSSECN UM)=BPSSEC BEGIN_"^"_ BPSSECEND
	348	. Q
	349	;
	350	G SELECT1
	351	;
	352	SELECTQ ;
	353	I '$D(BPS LIST) Q 0
	354	Q 1
	355
	356
	357	Subroutine Name
	358	DEVICE^BPS VRX3
	359	Enhancemen t Category
	360	New
	361	Modify
	362	Delete
	363	No Change
	364	Story
	365	US209
	366	Related Me nu Options or ListMa n Actions
	367	BPS RPT VI EW ECME RX
	368	Related Ro utines
	369	This Subro utine is C alled By
	370	This Subro utine Call s
	371
	372	REPORT^BPS VRX3
	373	^DIR, EN^X UTMDEVQ
	374	Related In tegration Control Re gistration s (ICRs)
	375	n/a
	376	Data Passi ng
	377	Parameter Input
	378	Parameter Output
	379	Function Return Val ue
	380	Global Mo dified
	381	Input Attr ibute Name and Defin ition
	382	Name: n/a
	383	Definition :
	384	New Modify Delete No Cha nge
	385	Output Att ribute Nam e and Defi nition
	386	Name: $$DE VICE
	387	Definition : 1 if rep ort was pr inted, 0 i f user exi ted out
	388	New Modify Delete No Cha nge
	389	Current Lo gic
	390
	391	n/a
	392
	393	Modified L ogic (Chan ges are hi ghlighted)
	394
	395	DEVICE() ; Prompt us er for out put device .
	396	; Functio n return v alues:
	397	; 1 - U ser select ed a devic e.
	398	; 0 - U ser exited out.
	399	;
	400	N BPSRETU RN,DIR,POP ,X,Y,ZTDES C,ZTQUEUED ,ZTREQ,ZTR TN,ZTSAVE, ZTSK
	401	S BPSRETU RN=1
	402	;
	403	S ZTRTN=" PRINT^BPSV RX3"
	404	S ZTDESC= "VER View Prescripti on Report"
	405	S ZTSAVE( "BPS*")=""
	406	;
	407	D EN^XUTM DEVQ(ZTRTN ,ZTDESC,.Z TSAVE,"QM" ,1)
	408	I POP S B PSRETURN=0
	409	I $G(ZTSK ) W !!,"Re port compi lation has started w ith task# ",ZTSK,"." ,! S DIR(0 )="E" D ^D IR
	410	;
	411	Q BPSRETU RN
	412
	413
	414
	415	Subroutine Name
	416	STOP^BPSVR X3
	417	Enhancemen t Category
	418	New
	419	Modify
	420	Delete
	421	No Change
	422	Story
	423	US209
	424	Related Me nu Options or ListMa n Actions
	425	BPS RPT VI EW ECME RX
	426	Related Ro utines
	427	This Subro utine is C alled By
	428	This Subro utine Call s
	429
	430	REPORT^BPS VRX3
	431	^DIR
	432	Related In tegration Control Re gistration s (ICRs)
	433	n/a
	434	Data Passi ng
	435	Parameter Input
	436	Parameter Output
	437	Function Return Val ue
	438	Global Mo dified
	439	Input Attr ibute Name and Defin ition
	440	Name: n/a
	441	Definition :
	442	New Modify Delete No Cha nge
	443	Output Att ribute Nam e and Defi nition
	444	Name: $$ST OP
	445	Definition : 1 if use r wishes t o exit ent irely, els e 0.
	446	New Modify Delete No Cha nge
	447	Current Lo gic
	448
	449	n/a
	450
	451	Modified L ogic (Chan ges are hi ghlighted)
	452
	453	STOP() ; Determine if user w ishes to e xit out of the optio n entirely .
	454	; Functio n return v alues:
	455	; 1 - Y es, exit e ntirely.
	456	; 0 - N o, do not exit but r eturn to t he previou s question .
	457	;
	458	N DIR,DIR UT,Y
	459	;
	460	S DIR(0)= "Y"
	461	S DIR("A" )="Do you want to ex it out of this optio n entirely "
	462	S DIR("B" )="YES"
	463	S DIR("?" ,1)=" Ent er YES to immediatel y exit out of this o ption."
	464	S DIR("?" )=" Enter NO to ret urn to the previous question."
	465	W !
	466	D ^DIR
	467	I $D(DIRU T) S Y=1
	468	Q Y
	469
	470
	471
	472	Subroutine Name
	473	PRINT^BPSV RX3
	474	Enhancemen t Category
	475	New
	476	Modify
	477	Delete
	478	No Change
	479	Story
	480	US209
	481	Related Me nu Options or ListMa n Actions
	482	BPS RPT VI EW ECME RX
	483	Related Ro utines
	484	This Subro utine is C alled By
	485	This Subro utine Call s
	486
	487	REPORT^BPS VRX3
	488	^DIR, HEAD ER^BPSVRX3
	489	Related In tegration Control Re gistration s (ICRs)
	490	n/a
	491	Data Passi ng
	492	Parameter Input
	493	Parameter Output
	494	Function Return Val ue
	495	Global Mo dified
	496	Input Attr ibute Name and Defin ition
	497	Name: n/a
	498	Definition :
	499	New Modify Delete No Cha nge
	500	Output Att ribute Nam e and Defi nition
	501	Name: n/a
	502	Definition :
	503	New Modify Delete No Cha nge
	504	Current Lo gic
	505
	506	n/a
	507
	508	Modified L ogic (Chan ges are hi ghlighted)
	509
	510	PRINT ; Pr int sectio ns of the list.
	511	;
	512	; BPSLIST will be a n array of one or mo re section s from the existing
	513	; ListMan list stor ed in ^TMP ("BPSVRX", $J). Form at of BPSL IST:
	514	; BPS LIST(Secti on#) = Fir st Line ^ Last Line
	515	; Where F irst Line and Last L ine are th e first an d last lin es of
	516	; that se ction in t he list an d Section# can be on e or more numbers
	517	; from 1 to 14, eac h correspo nding to a section:
	518	; 8 - AP, TPJI Account P rofile
	519	; 3 - BE, Bill ing Events
	520	; 7 - CI, TPJI Claim Inf o
	521	; 2 - CL, Clai m Log
	522	; 9 - CM, TPJI AR Commen t History
	523	; 4 - CR, Clai ms Respons e Inquiry Report
	524	; 10 - ER, TPJI ECME Rx I nformation
	525	; 11 - ES, Elig ibility St atus
	526	; 12 - EV, Elig ibility Ve rification
	527	; 5 - IN, Insu rance
	528	; 6 - LB, List of Bills
	529	; 14 - MP, Medi cation Pro file
	530	; 13 - SD, Sens itive Drug
	531	; 1 - VW, View Rx
	532	; BPSJOB will be se t to the $ J of the c urrent job , if foreg round,
	533	; or the job which launched t his backgr ound job, if backgro und.
	534	;
	535	N BPSCRT, BPSBEGIN,B PSDASHES,B PSEND,BPSL INE,BPSPAG E,BPSSECTI ON,BPSSTOP
	536	;
	537	S BPSCRT= $S(IOST["C -":1,1:0)
	538	S BPSPAGE =0,BPSSTOP =0,$P(BPSD ASHES,"=", 79)=""
	539	;
	540	S BPSSECT ION=""
	541	F S BPSS ECTION=$O( BPSLIST(BP SSECTION)) Q:BPSSECT ION="" D Q:BPSSTOP
	542	. S BPSBE GIN=$P(BPS LIST(BPSSE CTION),U,1 )
	543	. S BPSEN D=$P(BPSLI ST(BPSSECT ION),U,2)
	544	. ;
	545	. ; Displ ay the hea der at the top of ea ch section .
	546	. ;
	547	. D HEADE R
	548	. ;
	549	. S BPSLI NE=BPSBEGI N-1
	550	. F S BP SLINE=$O(^ TMP("BPSVR X",BPSJOB, BPSLINE)) Q:'BPSLINE Q:BPSLIN E>BPSEND D Q:BPSST OP
	551	. . ;
	552	. . I $Y+ 3>IOSL D H EADER I BP SSTOP Q
	553	. . ;
	554	. . W !,^ TMP("BPSVR X",BPSJOB, BPSLINE,0)
	555	. . ;
	556	. . Q
	557	. Q
	558	;
	559	I BPSSTOP G PRINTQ
	560	I $Y+4>IO SL D HEADE R I BPSSTO P G PRINTQ
	561	W !!?5,"* End of Report * "
	562	I BPSCRT S DIR(0)=" E" W ! D ^ DIR K DIR
	563	;
	564	PRINTQ ;
	565	;
	566	I $D(ZTQU EUED) S ZT REQ="@" ; If queued , purge th e task aft er exiting .
	567	;
	568	Q
	569
	570
	571	Subroutine Name
	572	HEADER^BPS VRX3
	573	Enhancemen t Category
	574	New
	575	Modify
	576	Delete
	577	No Change
	578	Story
	579	US209
	580	Related Me nu Options or ListMa n Actions
	581	BPS RPT VI EW ECME RX
	582	Related Ro utines
	583	This Subro utine is C alled By
	584	This Subro utine Call s
	585
	586	PRINT^BPSV RX3
	587	^DIR
	588	Related In tegration Control Re gistration s (ICRs)
	589	n/a
	590	Data Passi ng
	591	Parameter Input
	592	Parameter Output
	593	Function Return Val ue
	594	Global Mo dified
	595	Input Attr ibute Name and Defin ition
	596	Name: n/a
	597	Definition :
	598	New Modify Delete No Cha nge
	599	Output Att ribute Nam e and Defi nition
	600	Name: n/a
	601	Definition :
	602	New Modify Delete No Cha nge
	603	Current Lo gic
	604
	605	n/a
	606
	607	Modified L ogic (Chan ges are hi ghlighted)
	608
	609	HEADER ; P rint the h eader.
	610	;
	611	N BPSX
	612	;
	613	; If PAGE (i.e. not the first page) and device is the scree n, do an
	614	; end-of- page reade r call. I f PAGE or screen out put, do a form feed.
	615	; If this is the fi rst page ( 'BPSPAGE), and devic e is file or printer
	616	; ('BPSCR T), reset the left m argin ($C( 13)).
	617	;
	618	I BPSPAGE ,BPSCRT S DIR(0)="E" D ^DIR K DIR I 'Y S BPSSTOP=1 G HEADERQ
	619	I BPSPAGE !BPSCRT W @IOF
	620	I 'BPSPAG E,'BPSCRT W $C(13)
	621	S BPSPAGE =BPSPAGE+1
	622	;
	623	; Write t he report header.
	624	;
	625	W "View P harmacy Rx Report",? 70,"Page: ",BPSPAGE, !
	626	;
	627	S BPSX=0
	628	F S BPSX =$O(VALMHD R(BPSX)) Q :’BPSX W VALMHDR(BP SX),!
	629	W BPSDASH ES
	630	;
	631	HEADERQ ;
	632	Q
	633
	634
	635	Subroutine Name
	636	HELP^BPSVR X3
	637	Enhancemen t Category
	638	New
	639	Modify
	640	Delete
	641	No Change
	642	Story
	643	US209
	644	Related Me nu Options or ListMa n Actions
	645	BPS RPT VI EW ECME RX
	646	Related Ro utines
	647	This Subro utine is C alled By
	648	This Subro utine Call s
	649
	650	SELECT1^BP SVRX3
	651	n/a
	652	Related In tegration Control Re gistration s (ICRs)
	653	n/a
	654	Data Passi ng
	655	Parameter Input
	656	Parameter Output
	657	Function Return Val ue
	658	Global Mo dified
	659	Input Attr ibute Name and Defin ition
	660	Name: n/a
	661	Definition :
	662	New Modify Delete No Cha nge
	663	Output Att ribute Nam e and Defi nition
	664	Name: n/a
	665	Definition :
	666	New Modify Delete No Cha nge
	667	Current Lo gic
	668
	669	n/a
	670
	671	Modified L ogic (Chan ges are hi ghlighted)
	672
	673	HELP ; ?? Help - Dis play Optio ns
	674	W !,"VW V iew Rx CR C RI Report CI T PJI Claim Info ER T PJI ECME R x"
	675	W !,"CL C laim Log IN I nsurance AP T PJI Acct P ro ES E lig Status "
	676	W !,"BE B illing Eve nts LB L ist of Bil ls CM T PJI AR Com m EV E lig Verif"
	677	W !
	678	W !," Sel ect one or many repo rt(s) to p rint, sepa rated by c ommas. Whe n all"
	679	W !," rep orts have been selec ted, hit e nter witho ut making another se lection."
	680	W !," Exa mple: "
	681	W !," Se lect Repor t to Print : VW,IN,CM "
	682	W !," Se lect Repor t to Print : ES"
	683	Q
	684
	685
	686	Back Out/R ollback Pr ocedure
	687	This story includes modificati ons to exi sting rout ines and f iles.
	688
	689	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.
	690
	691	Rolling ba ck the cha nges to th e database would inv olve the f ollowing s teps, whic h could be performed by a deve loper or I RM at each site or v ia an emer gency patc h:
	692	Delete ent ries from file# 101, PROTOCOL:
	693	BPS VRX NA V PRINT RE PORT
	694	VALM BLANK 1
	695	VALM BLANK 2
	696	VALM BLANK 3
	697	Modify ent ry in file # 101, PRO TOCOL:
	698	BPS VIEW E CME RX MEN U
	699	Delete fro m the list of Action s the abov e action p rotocol.
	700	Modify one entry in file# 409. 61, LIST T EMPLATE:
	701	BPS VIEW E CME RX
	702	Change the BOTTOM MA RGIN field from 18 b ack to 19.
	703