20. EPMO Open Source Coordination Office Redaction File Detail Report

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

20.1 Files compared

#	Location	File	Last Modified
1	ePharmacy_Bundle 12.zip	TAS ePhm SDD US597 v1.0.docx	Wed Sep 12 15:17:00 2018 UTC
2	ePharmacy_Bundle 12.zip	TAS ePhm SDD US597 v1.0.docx	Tue Sep 18 17:48:13 2018 UTC

20.2 Comparison summary

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

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

20.4 Active regular expressions

No regular expressions were active.

20.5 Comparison detail

	1	MCCF EDI T AS US597
	2	System Des ign Docume nt
	3
	4
	5
	6
	7
	8	Department of Vetera ns Affairs
	9	July 2017
	10	Version 1. 0
	11	User Story Number: U SRX-27
	12	User Story Name: Res ubmit clai ms outside of the EC ME User Sc reen
	13	Product Ba cklog ID: 191
	14	Backlog Pr iority: 25
	15	Initial Si zing Estim ate:
	16	Rational I D: 828290
	17	Rally ID: US597
	18
	19	Design – S ummary
	20	US597 will enhance t he existin g ECME opt ion: ROC R e Open CLO SED Claim. The enha ncements w ill includ e the foll owing:
	21	Rename the menu text of the op tion to be : ROC Re O pen CLOSED /Resubmit Claim. Thi s will req uire a pre -install r outine and an Integr ation Cont rol Regist ration Num ber.
	22	Update the initial f ilter ques tions to p rompt for Patient Na me or Pres cription N umber. Cur rently the option on ly allows searches b y Patient Name.
	23	If Patient Name is u sed in the initial s earch, the user will be prompt ed for a d ate range. This is n ot a chang e from exi sting func tionality.
	24	If Prescri ption Numb er is used , the user will NOT be prompte d for a da te range.
	25	Update the search lo gic to dis play OPEN or CLOSED Billable C laims. Cur rently the option on ly display s CLOSED C laims. The updated o ption will need to d isplay OPE N and CLOS ED Claims to allow t he user to Resubmit claims. No n-Billable Claims wi ll not be displayed.
	26	Update the screen di splay to m atch the s creen disp lay used b y ECME Use r Screen.
	27	Update the structure of the ^T MP file cr eated by L istMan. Th e updated structure will mimic that of t he structu re used by ECME User Screen. T his will a llow the u se of exis ting ECME User Scree n actions to be used by the RO C Re Open CLOSED/Res ubmit Clai m option.
	28	Remove cur rent proto col action BPS PRTCL REOPEN. T his will b e replaced by anothe r existing protocol action, BP S PRTCL US RSCR REOPE N CLOSED C LAIMS. Thi s action i s currentl y used by ECME User Screen and allows fo r multiple claims to be select ed.
	29	Add action BPS PRTCL USRSCR RE SUBMIT (RE S Resubmit Claim). T his action is curren tly used b y ECME Use r Screen.
	30
	31	List of Co mponents:
	32	Routine: B PSREOP
	33	Routine: B PSREOP1
	34	Routine: B PSSCRRS
	35	Routine:BP S24PRE
	36	List Templ ate:BPS LS TMN ECME R EOPEN
	37	Protocol:B PS PRTCL R EOPEN MENU (menu)
	38	Protocol:B PS PRTCL U SRSCR REOP EN CLOSED CLAIMS (ac tion)
	39	Protocol: BPS PRTCL USRSCR RES UBMIT (act ion)
	40	Protocol:B PS PRTCL R EOPEN EXIT (action)
	41
	42
	43	Design – D etail
	44	Routine Na me
	45	^BPSREOP
	46	Story
	47	US597
	48	Related Me nu Options or ListMa n Actions
	49	ROC Reopen CLOSED Cl aim
	50	Subroutine
	51	EN1
	52	Enhancemen t Category
	53	New
	54	Modify
	55	Delete
	56	No Change
	57	Related Ro utines
	58	This Subro utine is C alled By
	59	This Subro utine Call s
	60
	61	ROC Option
	62	$$PTRX^BPS REOP
	63	$$PTINFO^B PSREOP
	64	$$ASKDATE^ BPSSCRU6
	65
	66
	67	Subroutine
	68	INIT
	69	Enhancemen t Category
	70	New
	71	Modify
	72	Delete
	73	No Change
	74	Related Ro utines
	75	This Subro utine is C alled By
	76	This Subro utine Call s
	77
	78	ROC Option
	79	COLLPT^BPS REOP1
	80	COLLRX^BPS REOP1
	81	BUILD^BPSR EOP1
	82	$$FORMDATE ^BPSSCRU6
	83
	84
	85	Subroutine
	86	WHATTODO
	87	Enhancemen t Category
	88	New
	89	Modify
	90	Delete
	91	No Change
	92
	93
	94	Subroutine
	95	PTRX
	96	Enhancemen t Category
	97	New
	98	Modify
	99	Delete
	100	No Change
	101	Related Ro utines
	102	This Subro utine is C alled By
	103	This Subro utine Call s
	104
	105	EN1^BPSREO P
	106	^DIR
	107	Data Passi ng
	108	Parameter Input
	109	Parameter Output
	110	Function Return Val ue
	111	Global Mo dified
	112	Input Attr ibute Name and Defin ition
	113	Name: BPSI NPUT
	114	Definition : User Inp ut – Patie nt Name or RX Number s
	115	New Modify Delete No Cha nge
	116
	117
	118	Subroutine
	119	PTINFO
	120	Enhancemen t Category
	121	New
	122	Modify
	123	Delete
	124	No Change
	125	Related Ro utines
	126	This Subro utine is C alled By
	127	This Subro utine Call s
	128
	129	EN1^BPSREO P
	130	^DIC
	131	Data Passi ng
	132	Parameter Input
	133	Parameter Output
	134	Function Return Val ue
	135	Global Mo dified
	136	Input Attr ibute Name and Defin ition
	137	Name: BPSI NPUT
	138	Definition : User Inp ut Patient Name
	139	New Modify Delete No Cha nge
	140	Output Att ribute Nam e and Defi nition
	141	Name: BPSP TID
	142	Definition : Patient IEN
	143	New Modify Delete No Cha nge
	144
	145
	146	Subroutine
	147	RXINFO
	148	Enhancemen t Category
	149	New
	150	Modify
	151	Delete
	152	No Change
	153	Related Ro utines
	154	This Subro utine is C alled By
	155	This Subro utine Call s
	156
	157	EN1^BPSREO P
	158	DIC^PSODI
	159	Related In tegration Control Re gistration s (ICRs)
	160	IA# 4858
	161	Data Passi ng
	162	Parameter Input
	163	Parameter Output
	164	Function Return Val ue
	165	Global Mo dified
	166	Input Attr ibute Name and Defin ition
	167	Name: X
	168	Definition : User inp ut RX Numb er
	169	New Modify Delete No Cha nge
	170	Output Att ribute Nam e and Defi nition
	171	Name: BPSI EN
	172	Definition : Claim IE N
	173	New Modify Delete No Cha nge
	174	Current Lo gic
	175
	176	BPSREOP ;B HAM ISC/SS - REOPEN CLOSED CLA IMS ;05-AP R-05
	177	;;1.0;E C LAIMS MGMT ENGINE; 3;JUN 20 04;Build 2 0
	178	;; Per VH A Directiv e 10-93-14 2, this ro utine shou ld not be modified.
	179	;Reopen c losed clai ms
	180	;Q
	181	EN1 ;
	182	N BPDFN,B PSTRT,BPEN D
	183	W @IOF
	184	I $$WHATT ODO(.BPDFN ,.BPSTRT,. BPEND)<0 Q
	185	;
	186	EN ; -- ma in entry p oint for B PS LSTMN E CME REOPEN
	187	N VALMAR, VALMBCK,VA LMCNT,VALM HDR,X
	188	D EN^VALM ("BPS LSTM N ECME REO PEN")
	189	Q
	190	;
	191	HDR ; -- h eader code
	192	;S VALMHD R(1)="This is a test header fo r BPS LSTM N ECME REO PEN."
	193	;S VALMHD R(2)="This is the se cond line"
	194	Q
	195	;
	196	INIT ; -- init varia bles and l ist array
	197	N BPTMPGL ,Y
	198	;ask what patient a nd what is date rang e
	199	I ('$D(BP DFN))!('$D (BPSTRT))! ('$D(BPEND )) W !,"BP DFN,BPSTRT ,BPEND nee d to be de fined! " Q
	200	D COLLECT ^BPSREOP1( BPDFN,BPST RT,BPEND)
	201	S VALMHDR (1)="PATIE NT: "_$$PA TINF^BPSRE OP1(BPDFN) _" Close d claims f rom "_$$FO RMDATE^BPS SCRU6(BPST RT,3)_" to "_$$FORMD ATE^BPSSCR U6(BPEND,3 )
	202	Q
	203	;
	204	HELP ; -- help code
	205	S X="?" D DISP^XQOR M1 W !!
	206	Q
	207	;
	208	EXIT ; -- exit code
	209	Q
	210	;
	211	EXPND ; -- expand co de
	212	Q
	213	;
	214	;prompts the user t o select p atient , s tart and e nd dates
	215	;input/ou tput (by r eference):
	216	;BPDFN - patient ie n #2
	217	;BPSTRT - start dat e (fileman format)
	218	;BPEND - end date ( fileman fo rmat)
	219	;Return v alue:
	220	;-1 quit
	221	; 1 - con tinue (oka y)_
	222	;
	223	WHATTODO(B PDFN,BPSTR T,BPEND) ;
	224	S BPDFN=$ $PROMPT^BP SSCRCV("P^ DPT(","Sel ect PATIEN T NAME","" )
	225	I BPDFN<0 Q -1
	226	S BPSTRT= $$ASKDATE^ BPSSCRU6(" START WITH DATE:","T ODAY")
	227	I BPSTRT< 0 Q -1
	228	F S BPEN D=$$ASKDAT E^BPSSCRU6 ("GO TO DA TE:","TODA Y") Q:(BPE ND<0)!(BPE ND'<BPSTRT ) D
	229	. W !,"Th e GO TO da te cannot precede th e START da te."
	230	I BPEND<0 Q -1
	231	Q 1
	232	;
	233
	234	Modified L ogic (Chan ges are hi ghlighted)
	235
	236	BPSREOP ;B HAM ISC/SS - REOPEN CLOSED CLA IMS ;05-AP R-05
	237	;;1.0;E C LAIMS MGMT ENGINE; 3,23;JUN 2004;Buil d 20
	238	;; Per VH A Directiv e 10-93-14 2, this ro utine shou ld not be modified.
	239	;;Per VA Directive 6402, this routine s hould not be modifie d.
	240	; Referen ce to DIC^ PSODI supp orted by I A 4858
	241	;
	242	;Reopen c losed clai ms
	243	;Q
	244	EN1 ;
	245	N BPDFN,B PSTRT,BPEN D
	246	N BPSINPU T
	247	W @IOF
	248	I $$WHATT ODO(.BPDFN ,.BPSTRT,. BPEND)<0 Q
	249	N BPSDT1, BPSDT2,BPS IEN,BPSINP UT,BPSPTRX ,RXERR
	250	EN1A ;
	251	S BPSPTRX =""
	252	S RXERR=" "
	253	; Prompt Patient Na me or Rx
	254	I $$PTRX( .BPSINPUT) <0 Q
	255	; Check i f user inp ut is Pati ent relate d
	256	I $$PTINF O(BPSINPUT ,.BPSPTID) >0 D
	257	. S BPSPT RX=1 ; PA TIENT
	258	. S BPSDT 1=$$ASKDAT E^BPSSCRU6 ("START WI TH DATE:", "TODAY")
	259	. I BPSDT 1<0 Q
	260	. F S BP SDT2=$$ASK DATE^BPSSC RU6("GO TO DATE:","T ODAY") Q:( BPSDT2<0)! (BPSDT2'<B PSDT1) D
	261	. . W !," The GO TO date canno t precede the START date."
	262	; Check i f user inp ut is Rx r elated
	263	E D
	264	. I $E(BP SINPUT)'?1 N S RXERR= 11 Q
	265	. S BPSPT RX=2 ; RX
	266	. K BPSRX AR
	267	. F I=1:1 :$L(BPSINP UT,",") D Q:RXERR=1
	268	. . S X=$ P(BPSINPUT ,",",I)
	269	. . I $$R XINFO(X,.B PSIEN)=0 S RXERR=1 Q
	270	. . S BPS RXAR(+BPSI EN)=""
	271	I RXERR=1 1 W " ??" G EN1A
	272	I RXERR=1 G EN1A
	273	I ($G(BPS DT1)<0)!($ G(BPSDT2)< 0 Q
	274	;
	275	EN ; -- ma in entry p oint for B PS LSTMN E CME REOPEN
	276	N VALMAR, VALMBCK,VA LMCNT,VALM HDR,X
	277	D EN^VALM ("BPS LSTM N ECME REO PEN")
	278	Q
	279	;
	280	HDR ; -- h eader code
	281	;S VALMHD R(1)="This is a test header fo r BPS LSTM N ECME REO PEN."
	282	;S VALMHD R(2)="This is the se cond line"
	283	Q
	284	;
	285	INIT ; -- init varia bles and l ist array
	286	N BPTMPGL ,Y
	287	;ask what patient a nd what is date rang e
	288	I ('$D(BP DFN))!('$D (BPSTRT))! ('$D(BPEND )) W !,"BP DFN,BPSTRT ,BPEND nee d to be de fined! " Q
	289	D COLLECT ^BPSREOP1( BPDFN,BPST RT,BPEND)
	290	; Based o n user inp ut, call s pecific ro utine to b uild BPSAR array.
	291	; BPSAR a rray will contain el igible cla ims sorted by patien t.
	292	I BPSPTRX =1 D COLLP T^BPSREOP1 (BPSPTID,B PSDT1,BPSD T2,.BPSAR)
	293	I BPSPTRX =2 D COLLR X^BPSREOP1 (.BPSRXAR, .BPSAR)
	294	; Pass BP SAR array to BUILD r outine to create the actual Li stMan entr ies.
	295	D BUILD^B PSREOP1(BP SPTRX,.BPS AR)
	296	S VALMHDR (1)="PATIE NT: "_$$PA TINF^BPSRE OP1(BPDFN) _" Close d claims f rom "_$$FO RMDATE^BPS SCRU6(BPST RT,3)_" to "_$$FORMD ATE^BPSSCR U6(BPEND,3 )
	297	I BPSPTRX =1 D
	298	. S VALMH DR(1)="Act ivity Date Range: "_ $$FORMDATE ^BPSSCRU6( BPSDT1,3)_ " to "_$$F ORMDATE^BP SSCRU6(BPS DT2,3)
	299	E S VALM HDR(1)=""
	300	Q
	301	;
	302	HELP ; -- help code
	303	S X="?" D DISP^XQOR M1 W !!
	304	Q
	305	;
	306	EXIT ; -- exit code
	307	Q
	308	;
	309	EXPND ; -- expand co de
	310	Q
	311	;
	312	;prompts the user t o select p atient , s tart and e nd dates
	313	;input/ou tput (by r eference):
	314	;BPDFN - patient ie n #2
	315	;BPSTRT - start dat e (fileman format)
	316	;BPEND - end date ( fileman fo rmat)
	317	;Return v alue:
	318	;-1 quit
	319	; 1 - con tinue (oka y)_
	320	;
	321	WHATTODO(B PDFN,BPSTR T,BPEND) ;
	322	S BPDFN=$ $PROMPT^BP SSCRCV("P^ DPT(","Sel ect PATIEN T NAME","" )
	323	I BPDFN<0 Q -1
	324	S BPSTRT= $$ASKDATE^ BPSSCRU6(" START WITH DATE:","T ODAY")
	325	I BPSTRT< 0 Q -1
	326	F S BPEN D=$$ASKDAT E^BPSSCRU6 ("GO TO DA TE:","TODA Y") Q:(BPE ND<0)!(BPE ND'<BPSTRT ) D
	327	. W !,"Th e GO TO da te cannot precede th e START da te."
	328	I BPEND<0 Q -1
	329	Q 1
	330	;
	331	; BPSINPU T - User I nput - Pat ient Info or RX Info
	332	; Return Value 0 or -1=Invali d User Inp ut, 1=Vali d User Inp ut
	333	PTRX(BPSIN PUT) ;
	334	N DIR,DIR UT,Y
	335	S DIR(0)= "FO^3:60"
	336	S DIR("A" )="Select PATIENT NA ME or PRES CRIPTION"
	337	S DIR("?" ,1)="Answe r with PAT IENT NAME, or SOCIAL SECURITY NUMBER, or last 4 di gits"
	338	S DIR("?" ,2)=" of SOCIAL SE CURITY NUM BER, or fi rst initia l of last name with last"
	339	S DIR("?" ,3)=" 4 digits of SOCIAL SEC URITY NUMB ER."
	340	S DIR("?" ,4)="Or en ter a pres cription n umber or m ultiple pr escription numbers:"
	341	S DIR("?" )=" 1234 56,234567, 345678"
	342	W !
	343	D ^DIR K DIR
	344	I $D(DIRU T) Q -1
	345	S BPSINPU T=Y
	346	Q 1
	347	;
	348	; BPSINPU T - User i nput
	349	; BPSPTID - Patien t IEN (out put)
	350	; Return Value 0=In valid Pati ent Info, 1=Valid Pa tient Info
	351	PTINFO(BPS INPUT,BPSP TID) ;
	352	N DIC,X,Y
	353	S DIC="^D PT("
	354	S DIC(0)= "EMN"
	355	S X=BPSIN PUT
	356	D ^DIC
	357	I Y=-1 Q -1
	358	S BPSPTID =+Y
	359	Q 1
	360	;
	361	; X - User inp ut RX #
	362	; BPSIEN - Claim IE N (output)
	363	; Return Value 0=In valid RX I nfo, 1=Val id RX Info
	364	RXINFO(X,B PSIEN) ;
	365	N DIC,X,Y
	366	S DIC=52
	367	S DIC(0)= "I"
	368	D DIC^PSO DI(52,.DIC ,X) ; IA 4858
	369	S BPSIEN= +Y
	370	I BPSIEN' >0 D Q 0
	371	. W !,"Pr escription number "_ X_" is not valid"
	372	Q 1
	373
	374
	375	Routine Na me
	376	^BPSREOP1
	377	Story
	378	US597
	379	Related Me nu Options or ListMa n Actions
	380	ROC Reopen CLOSED Cl aim
	381	Subroutine
	382	COLLECT
	383	Enhancemen t Category
	384	New
	385	Modify
	386	Delete
	387	No Change
	388
	389
	390	Subroutine
	391	COLLPT
	392	Enhancemen t Category
	393	New
	394	Modify
	395	Delete
	396	No Change
	397	Related Ro utines
	398	This Subro utine is C alled By
	399	This Subro utine Call s
	400
	401	INIT^BPSRE OP
	402	REDRAW^BPS REOP1
	403	$$GET1^DIQ
	404	$$RXDEL^BP SREOP1
	405	STATS^BPSR EOP1
	406	Data Passi ng
	407	Parameter Input
	408	Parameter Output
	409	Function Return Val ue
	410	Global Mo dified
	411	Input Attr ibute Name and Defin ition
	412	Name: BPSP TID
	413	Definition : Patient IEN
	414	New Modify Delete No Cha nge
	415	Name: BPSD T1
	416	Definition : From Dat e
	417	New Modify Delete No Cha nge
	418	Name: BPSD T2
	419	Definition : Thru Dat e
	420	New Modify Delete No Cha nge
	421	Output Att ribute Nam e and Defi nition
	422	Name: BPSA R
	423	Definition : Array of eligible claims, so rted by Pa tient
	424	New Modify Delete No Cha nge
	425
	426
	427	Subroutine
	428	COLLRX
	429	Enhancemen t Category
	430	New
	431	Modify
	432	Delete
	433	No Change
	434	Related Ro utines
	435	This Subro utine is C alled By
	436	This Subro utine Call s
	437
	438	INIT^BPSRE OP
	439	REDRAW^BPS REOP1
	440	$$NB^BPSSC R03
	441	MESSAGE^BP SREOP1
	442	$$GET1^DIQ
	443	$$RXDEL^BP SREOP1
	444	STATS^BPSR EOP1
	445	PAUSE^VALM 1
	446	Data Passi ng
	447	Parameter Input
	448	Parameter Output
	449	Function Return Val ue
	450	Global Mo dified
	451	Input Attr ibute Name and Defin ition
	452	Name: BPSR XAR
	453	Definition : Array of Claim IEN s from use r’s input
	454	New Modify Delete No Cha nge
	455	Output Att ribute Nam e and Defi nition
	456	Name: BPSA R
	457	Definition : Array of eligible claims, so rted by Pa tient
	458	New Modify Delete No Cha nge
	459
	460
	461	Subroutine
	462	BUILD
	463	Enhancemen t Category
	464	New
	465	Modify
	466	Delete
	467	No Change
	468	Related Ro utines
	469	This Subro utine is C alled By
	470	This Subro utine Call s
	471
	472	INIT^BPSRE OP
	473	REDRAW^BPS REOP1
	474	CLEAN^VALM 10
	475	$$GETINSUR ^BPSSCRU2
	476	$$PATINF^B PSSCR02
	477	SAVEARR^BP SSCR02
	478	$$CLAIMINF ^BPSSCR02
	479	$$ADDINF^B PSSCR03
	480	Data Passi ng
	481	Parameter Input
	482	Parameter Output
	483	Function Return Val ue
	484	Global Mo dified
	485	Input Attr ibute Name and Defin ition
	486	Name: BPSP TRX
	487	Definition : Flag for user inpu t type; 1= Patient in put, 2=RX input
	488	New Modify Delete No Cha nge
	489	Name: BPSP TID
	490	Definition : Patient IEN
	491	New Modify Delete No Cha nge
	492	Name: BPSD T1
	493	Definition : From Dat e
	494	New Modify Delete No Cha nge
	495	Name: BPSD T2
	496	Definition : Thru Dat e
	497	New Modify Delete No Cha nge
	498	Name: BPSR XAR
	499	Definition : Array of Claim IEN s from use r’s input
	500	New Modify Delete No Cha nge
	501	Name: BPSA R
	502	Definition : Array of eligible claims, so rted by Pa tient
	503	New Modify Delete No Cha nge
	504
	505
	506	Subroutine
	507	RXDEL
	508	Enhancemen t Category
	509	New
	510	Modify
	511	Delete
	512	No Change
	513	Related Ro utines
	514	This Subro utine is C alled By
	515	This Subro utine Call s
	516
	517	COLLPT^BPS REOP1
	518	COLLRX^BPS REOP1
	519	$$RXDEL^BP SOS
	520	Data Passi ng
	521	Parameter Input
	522	Parameter Output
	523	Function Return Val ue
	524	Global Mo dified
	525	Input Attr ibute Name and Defin ition
	526	Name: BPIE N59
	527	Definition : Claim IE N
	528	New Modify Delete No Cha nge
	529
	530
	531	Subroutine
	532	MESSAGE
	533	Enhancemen t Category
	534	New
	535	Modify
	536	Delete
	537	No Change
	538	Related Ro utines
	539	This Subro utine is C alled By
	540	This Subro utine Call s
	541
	542	COLLRX^BPS REOP1
	543	$$RXREF^BP SSCRU2
	544	$$RXNUM^BP SSCRU2
	545	Data Passi ng
	546	Parameter Input
	547	Parameter Output
	548	Function Return Val ue
	549	Global Mo dified
	550	Input Attr ibute Name and Defin ition
	551	Name: BPSI EN1
	552	Definition : Claim IE N
	553	New Modify Delete No Cha nge
	554
	555
	556	Subroutine
	557	STATS
	558	Enhancemen t Category
	559	New
	560	Modify
	561	Delete
	562	No Change
	563	Related Ro utines
	564	This Subro utine is C alled By
	565	This Subro utine Call s
	566
	567	COLLPT^BPS REOP1
	568	COLLRX^BPS REOP1
	569	$$CLAIMST^ BPSSCRU3
	570	$$ELIGCODE ^BPSSCR05
	571	Data Passi ng
	572	Parameter Input
	573	Parameter Output
	574	Function Return Val ue
	575	Global Mo dified
	576	Input Attr ibute Name and Defin ition
	577	Name: BPSP TID
	578	Definition : Patient IEN
	579	New Modify Delete No Cha nge
	580	Name: BPS5 9
	581	Definition : Claim IE N
	582	New Modify Delete No Cha nge
	583	Name: BPSA R
	584	Definition : Array of eligible claims, so rted by Pa tient
	585	New Modify Delete No Cha nge
	586
	587
	588	Subroutine
	589	STATS1
	590	Enhancemen t Category
	591	New
	592	Modify
	593	Delete
	594	No Change
	595	Related Ro utines
	596	This Subro utine is C alled By
	597	This Subro utine Call s
	598
	599	BUILD^BPSR EOP1
	600	N/A
	601	Data Passi ng
	602	Parameter Input
	603	Parameter Output
	604	Function Return Val ue
	605	Global Mo dified
	606	Input Attr ibute Name and Defin ition
	607	Name: BPSP TID
	608	Definition : Patient IEN
	609	New Modify Delete No Cha nge
	610	Name: BPSA R
	611	Definition : Array of eligible claims, so rted by Pa tient
	612	New Modify Delete No Cha nge
	613
	614
	615	Subroutine
	616	EUSCREOP
	617	Enhancemen t Category
	618	New
	619	Modify
	620	Delete
	621	No Change
	622	Related Ro utines
	623	This Subro utine is C alled By
	624	This Subro utine Call s
	625
	626	BPS PRTCL USRSCR REO PEN CLOSED CLAIMS ac tion
	627	PAUSE^VALM 1
	628	FULL^VALM1
	629	$$ASKLINES ^BPSSCRU4
	630	$$LJ^BPSSC R02
	631	$$NB^BPSSC R03
	632	$$CLOSED02 ^BPSSCR03
	633	$$RXDEL^BP SOS
	634	$$YESNO^BP SSCRRS
	635	$$REOPEN^B PSBUTL
	636	REDRAW^BPS REOP1
	637	REDRAW^BPS SCRUD
	638
	639
	640	Subroutine
	641	REDRAW
	642	Enhancemen t Category
	643	New
	644	Modify
	645	Delete
	646	No Change
	647	Related Ro utines
	648	This Subro utine is C alled By
	649	This Subro utine Call s
	650
	651	EUSCREOP^B PSREOP1
	652	RES^BPSSCR RS
	653	CLEAN^VALM 10
	654	COLLPT^BPS REOP1
	655	COLLRX^BPS REOP1
	656	BUILD^BPSR EOP1
	657	Current Lo gic
	658
	659	BPSREOP1 ; BHAM ISC/S S - REOPEN CLOSED CL AIMS ;03/0 7/08 14:5 4
	660	;;1.0;E C LAIMS MGMT ENGINE; 3,7,10,11, 20;JUN 2 004;Build 27
	661	;;Per VA Directive 6402, this routine s hould not be modifie d.
	662	;Reopen c losed clai ms
	663	;
	664	;create a n ^TMP for the list manager
	665	;
	666	COLLECT(BP DFN,BPSTRT ,BPEND) ;
	667	D CLEAN^V ALM10
	668	N LINE
	669	N BPIEN02 ,BPIEN59
	670	S LINE=1
	671	S BPIEN59 =0
	672	F S BPIE N59=$O(^BP ST("AC",BP DFN,BPIEN5 9)) Q:+BPI EN59=0 D
	673	. I $P($G (^BPST(BPI EN59,12)), U,2)<BPSTR T Q
	674	. I $P($G (^BPST(BPI EN59,12)), U,2)>BPEND Q
	675	. ; Don't display d eleted pre scriptions
	676	. I $$RXD EL^BPSOS($ P(^BPST(BP IEN59,1),U ,11),$P(^B PST(BPIEN5 9,1),U,1)) Q
	677	. S BPIEN 02=+$P($G( ^BPST(BPIE N59,0)),U, 4)
	678	. ;if the is no BPS CLAIMS - error
	679	. Q:BPIEN 02=0
	680	. ;if NOT closed
	681	. I +$P($ G(^BPSC(BP IEN02,900) ),U)=0 Q
	682	. D SET^V ALM10(LINE ,$$LJ^BPSS CR02(LINE, 6)_$$CLAIM INF(BPIEN5 9),BPIEN59 )
	683	. S LINE= LINE+1
	684	S VALMCNT =LINE-1 ;" of PAGE" f ix - VALMC NT should be EXACT n umber of l ines on th e screen
	685	Q
	686	;claim in fo for lis t manager screen
	687	CLAIMINF(B P59) ;*/
	688	Q $$CLAIM INF^BPSSCR 02(BP59)
	689	;
	690	;patient info for h eader
	691	PATINF(BPD FN) ;*/
	692	N X
	693	S X=$E($$ PATNAME(BP DFN),1,22) _" "_$$SSN 4^BPSSCRU2 (BPDFN)
	694	Q $$LJ^BP SSCR02(X,2 9) ;name
	695	;
	696	;-------- ---- patie nt's name
	697	PATNAME(BP DFN) ;
	698	Q $E($P($ G(^DPT(BPD FN,0)),U), 1,30)
	699	;
	700	;/**
	701	;ECME Use r Screen R eopen Clos ed Claim H idden Acti on (ROC)
	702	;**/
	703	EUSCREOP ;
	704	N BPREOP, BP59,BPDFN ,BPDISP,BP CNT,BPI,BP J,BPCOMM,B PRETV,BPIE N02,BPSRXN UM
	705	; Check f or BPS MAN AGER secur ity key
	706	I '$D(^XU SEC("BPS M ANAGER",DU Z)) D Q
	707	. W !,"Yo u must hol d the BPS MANAGER Se curity Key to access the",!,"R eopen Clos ed Claims option."
	708	. S VALMB CK="R"
	709	. D PAUSE ^VALM1
	710	S (BP59,B PCNT,BPI,B PJ)=0
	711	I '$D(@(V ALMAR)) G REOP
	712	D FULL^VA LM1
	713	; Select the claim( s) to reop en
	714	W !,"Ente r the line number fo r the clai m you want to reopen ."
	715	I $$ASKLI NES^BPSSCR U4("","C", .BPREOP,VA LMAR) D
	716	. ; Build array to display to user
	717	. F S BP 59=$O(BPRE OP(BP59)) Q:BP59="" D
	718	. . S BPD FN=+$P($G( ^BPST(BP59 ,0)),U,6)
	719	. . S BPC NT=BPCNT+1
	720	. . I '$D (BPDISP(BP DFN)) S BP DISP(BPDFN ,BPCNT)=$$ LJ^BPSSCR0 2($$PATNAM E(BPDFN)_" :",50),BP CNT=BPCNT+ 1
	721	. . S BPD ISP(BPDFN, BPCNT)=@VA LMAR@($P(B PREOP(BP59 ),U,1),0)
	722	. . ;
	723	. . ; che ck for non -billable entry
	724	. . I $$N B^BPSSCR03 (BP59) D Q
	725	. . . S B PCNT=BPCNT +1
	726	. . . S B PDISP(BPDF N,BPCNT)=" Entry is N ON BILLABL E. There is no clai m to reope n."
	727	. . . K B PREOP(BP59 )
	728	. . . Q
	729	. . ;
	730	. . ; Mak e sure thi s claim is closed
	731	. . I '$$ CLOSED02^B PSSCR03($P ($G(^BPST( BP59,0)),U ,4)) D
	732	. . . S B PCNT=BPCNT +1
	733	. . . S B PDISP(BPDF N,BPCNT)=" Claim NOT closed and cannot be reopened. "
	734	. . . K B PREOP(BP59 )
	735	. . ; Mak e sure the Prescript ion isn't deleted
	736	. . I $$R XDEL^BPSOS ($P(^BPST( BP59,1),U, 11),$P(^BP ST(BP59,1) ,U,1)) D
	737	. . . S B PCNT=BPCNT +1
	738	. . . S B PDISP(BPDF N,BPCNT)=" The prescr iption has been mark ed DELETED and canno t be reope ned."
	739	. . . K B PREOP(BP59 )
	740	. ; Displ ay the sel ected clai ms from th e display array
	741	. W !!,"Y ou've chos en to reop en the fol lowing pre scriptions (s) for"
	742	. F S BP I=$O(BPDIS P(BPI)) Q: BPI="" D
	743	. . F S BPJ=$O(BPD ISP(BPI,BP J)) Q:BPJ= "" D
	744	. . . W ! ,BPDISP(BP I,BPJ)
	745	. . Q
	746	. Q
	747	; If ther e are any closed cla ims select ed, verify if the us ers still wants to r eopen
	748	I $D(BPRE OP) D
	749	. W !!,"A ll Selecte d Rxs will be reopen ed using t he same in formation gathered i n the",!," following prompts.", !!
	750	. I $$YES NO^BPSSCRR S("Are you sure?(Y/N )")=1 D
	751	. . ; Get the Reope n Comments to be sto red in the BPS CLAIM S file
	752	. . S BPC OMM=$$PROM PT("REOPEN COMMENTS" ,"","F",1, 40)
	753	. . Q:BPC OMM["^"
	754	. . ; Do we REALLY want to re open the c laims?
	755	. . I $$Y ESNO^BPSSC RRS("ARE Y OU SURE YO U WANT TO RE-OPEN TH IS CLAIM? (Y/N)","No ")=1 D
	756	. . . S ( BPCNT,BP59 )=0
	757	. . . ; L oop throug h all sele cted claim s and reop en them on e at a tim e
	758	. . . ; u sing the s ame commen ts
	759	. . . F S BP59=$O( BPREOP(BP5 9)) Q:BP59 ="" D
	760	. . . . S BPIEN02=+ $P($G(^BPS T(BP59,0)) ,U,4)
	761	. . . . S BPRETV=$$ REOPEN^BPS BUTL(BP59, BPIEN02,$$ NOW^XLFDT, +DUZ,BPCOM M)
	762	. . . . W !,$P(BPRE TV,U,2)
	763	. . . . I +BPRETV S BPCNT=BPC NT+1
	764	. . . . Q
	765	. . . I B PCNT>1 W ! !,BPCNT_" claims hav e been reo pened.",! Q
	766	. . . I B PCNT=1 W ! !,"1 claim has been reopened." ,! Q
	767	. . . I B PCNT=0 W ! !,"Unable to reopen claim" Q
	768	I '$D(BPR EOP) S VAL MBCK="R" D PAUSE^VAL M1 Q
	769	D PAUSE^V ALM1
	770	D REDRAW^ BPSSCRUD(" Updating s creen for reopened c laims...")
	771	Q
	772	;
	773	SELECT ;
	774	I VALMCNT <1 D Q
	775	. W !,"No claims to select." D PAUSE^VA LM1 S VALM BCK="R"
	776	N BP59,BP Q
	777	D FULL^VA LM1
	778	S BP59=0
	779	S BPQ=0
	780	F S BPLI NE=$$PROMP T("Select item",""," A") D Q:B PQ
	781	. I BPLIN E="^" S BP Q=1 Q
	782	. I '(BPL INE?1N.N) W !,"Pleas e select a SINGLE Rx Line Item ." Q
	783	. S BP59= +$$GET59(+ BPLINE) I BP59>0 S B PQ=1 Q
	784	. W !,"Pl ease selec t a VALID Rx Line It em."
	785	I BPLINE= "^" S VALM BCK="R" Q
	786	I BP59=0 S VALMBCK= "R" W !,"I nvalid sel ection." D PAUSE^VAL M1 Q
	787	I $$SELCL AIM(BP59)< 1 S VALMBC K="R" Q
	788	;D RE^VAL M4
	789	D REDRAW
	790	S VALMBCK ="R"
	791	Q
	792	;
	793	GET59(BPLI NE) ;
	794	Q +$O(^TM P("BPSREOP ",$J,"VALM ","IDX",BP LINE,0))
	795	;
	796	;display selected c laim infor mation
	797	SELCLAIM(B P59) ;
	798	D FULL^VA LM1
	799	W @IOF
	800	N BPX,BPX 1,BPDFN,BP IEN02,BPCL DATA,BPCOM M,BPRETV,B PQ
	801	S BPDFN=+ $P($G(^BPS T(BP59,0)) ,U,6)
	802	S BPX1=$$ RXREF^BPSS CRU2(BP59)
	803	W !,?1,$$ LJ^BPSSCR0 2("PATIENT NAME: "_$ $PATNAME(B PDFN),30)
	804	W ?33,$$L J^BPSSCR02 ("RX#: "_$ $RXNUM^BPS SCRU2(+BPX 1)_" "_$P( BPX1,U,2), 22)
	805	W ?57,$$L J^BPSSCR02 ("DRUG: "_ $$DRGNAME^ BPSSCRU2(B P59),22)
	806	;ien in B PS CLAIMS
	807	S BPIEN02 =+$P($G(^B PST(BP59,0 )),U,4)
	808	I BPIEN02 =0 W !,"BP S CLAIMS f ile error! " D PAUSE^ VALM1 Q -1
	809	;Close in fo
	810	S BPCLDAT A=$G(^BPSC (BPIEN02,9 00))
	811	;if the i s no BPS C LAIMS - er ror
	812	W !,?3,"C LOSED ",$ $FORMDATE^ BPSSCRU6(+ $P($G(^BPS C(BPIEN02, 900)),U,2) ,2)
	813	W !,?4,"E CME#: "_$$ ECMENUM^BP SSCRU2(BP5 9)_", DOS: "_$$LASTD OS^BPSUTIL 2(BP59,1)
	814	W ", RELE ASE DATE: "_$$FORMDA TE^BPSSCRU 6($$RELDAT E^BPSSCRU6 (+BPX1,+$P (BPX1,U,2) ),2)
	815	W !,?4,"P LAN: ",$$P LANNAME^BP SSCRU6(BP5 9)," INSUR ANCE: ",$$ INSNAME^BP SSCRU6(BP5 9)
	816	W !,?4,"C LOSE REASO N: ",$$CLR EASON^BPSS CRU6(+$P(B PCLDATA,U, 4))
	817	W !,?4,"D ROP TO PAP ER: ",$S(+ $P(BPCLDAT A,U,5)=1:" YES",1:"NO ")
	818	W !,?4,"C LOSE USER: ",$P($G(^ VA(200,+$P (BPCLDATA, U,3),0)),U )
	819	W !!,"You have sele cted the C LOSED elec tronic cla im listed above.",!
	820	S BPCOMM= $$PROMPT(" REOPEN COM MENTS","", "F",1,40)
	821	Q:BPCOMM[ "^" 0
	822	S BPQ=$$Y ESNO^BPSSC RRS("ARE Y OU SURE YO U WANT TO RE-OPEN TH IS CLAIM? (Y/N)","No ")
	823	Q:BPQ<1 0
	824	S BPRETV= $$REOPEN^B PSBUTL(BP5 9,BPIEN02, $$NOW^XLFD T,+DUZ,BPC OMM)
	825	W !,$P(BP RETV,U,2), !
	826	W !,"1 cl aim has be en reopene d.",!
	827	D PAUSE^V ALM1
	828	Q 1
	829	;
	830	REDRAW ;
	831	N BPARR
	832	D CLEAN^V ALM10
	833	D COLLECT ^BPSREOP1( BPDFN,BPST RT,BPEND)
	834	S VALMBCK ="R"
	835	Q
	836	;input:
	837	;BPSPROM - prompt t ext
	838	;BPSDFVL - default value (opt ional)
	839	;BPMODE - N- to ent er numbers , F - free text, A - free text w/o limit ations
	840	;returns:
	841	; "respon se"
	842	; or "^" for quit
	843	PROMPT(BPS PROM,BPSDF VL,BPMODE, MINLEN,MAX LEN) ;
	844	N IR,X,Y, DIRUT,DIR
	845	I BPMODE= "N" S DIR( 0)="N^::2"
	846	I BPMODE= "A" S DIR( 0)="F^::2"
	847	I BPMODE= "F" S DIR( 0)="F^"_MI NLEN_":"_M AXLEN_":2^ K:(X?1"" " "."" "") X "
	848	S DIR("A" )=BPSPROM
	849	I $L($G(B PSDFVL))>0 S DIR("B" )=$G(BPSDF VL)
	850	D ^DIR I $D(DIRUT) Q "^"
	851	I Y["^" Q "^"
	852	Q Y
	853	;
	854	;Update r eopen reco rd in BPS CLAIM
	855	;Input:
	856	; BP02 - ien in BPS CLAIMS fi le
	857	; BPCLOSE D - value for CLOSED field
	858	; BPREOPD T - reopen date/time
	859	; BPDUZ - user DUZ (#200 ien)
	860	; BPCOMM - reopen c omment tex t
	861	;Output:
	862	; 0^messa ge_error - error
	863	; 1 - suc cess
	864	UPDREOP(BP 02,BPCLOSE D,BPREOPDT ,BPDUZ,BPC OMM) ;
	865	;Now upda te ECME da tabase
	866	N RECIENS ,BPDA,BPLC K,ERRARR
	867	S RECIENS =BP02_","
	868	S BPDA(90 02313.02,R ECIENS,901 )=BPCLOSED ;CLOSED = "NO"
	869	S BPDA(90 02313.02,R ECIENS,906 )=BPREOPDT ;reopen d ate/time
	870	S BPDA(90 02313.02,R ECIENS,907 )=+BPDUZ ; user
	871	S BPDA(90 02313.02,R ECIENS,908 )=BPCOMM ; comment
	872	L +^BPST( 9002313.02 ,+BP02):10
	873	S BPLCK=$ T
	874	I 'BPLCK Q "0^Locke d record" ;quit
	875	D FILE^DI E("","BPDA ","ERRARR" )
	876	I BPLCK L -^BPST(90 02313.02,+ BP02)
	877	I $D(ERRA RR) Q "0^" _ERRARR("D IERR",1,"T EXT",1)
	878	Q 1
	879	;
	880	; Reopen Closed Cla im display ed in ECME User Scre en
	881	REOP ;
	882	Q
	883
	884	Modified L ogic (Chan ges are hi ghlighted)
	885
	886	BPSREOP1 ; BHAM ISC/S S - REOPEN CLOSED CL AIMS ;03/0 7/08 14:5 4
	887	;;1.0;E C LAIMS MGMT ENGINE; 3,7,10,11, 20,23;JU N 2004;Bui ld 27
	888	;;Per VA Directive 6402, this routine s hould not be modifie d.
	889	;Reopen c losed clai ms
	890	;
	891	;create a n ^TMP for the list manager
	892	;
	893	COLLECT(BP DFN,BPSTRT ,BPEND) ;
	894	Q
	895	D CLEAN^V ALM10
	896	N LINE
	897	N BPIEN02 ,BPIEN59
	898	S LINE=1
	899	S BPIEN59 =0
	900	F S BPIE N59=$O(^BP ST("AC",BP DFN,BPIEN5 9)) Q:+BPI EN59=0 D
	901	. ; Verif y claim is within sp ecified da te range
	902	. I $P($G (^BPST(BPI EN59,12)), U,2)<BPSTR T Q
	903	. I $P($G (^BPST(BPI EN59,12)), U,2)>BPEND Q
	904	. ; Don't display d eleted pre scriptions
	905	. I $$RXD EL^BPSOS($ P(^BPST(BP IEN59,1),U ,11),$P(^B PST(BPIEN5 9,1),U,1)) Q
	906	. S BPIEN 02=+$P($G( ^BPST(BPIE N59,0)),U, 4)
	907	. ;if the is no BPS CLAIMS - error
	908	. Q:BPIEN 02=0
	909	. ;if NOT closed
	910	. I +$P($ G(^BPSC(BP IEN02,900) ),U)=0 Q
	911	. D SET^V ALM10(LINE ,$$LJ^BPSS CR02(LINE, 6)_$$CLAIM INF(BPIEN5 9),BPIEN59 )
	912	. S LINE= LINE+1
	913	S VALMCNT =LINE-1 ;" of PAGE" f ix - VALMC NT should be EXACT n umber of l ines on th e screen
	914	Q
	915	;
	916	; BPSPTID - Patient IEN
	917	; BPSDT1 - From Da te
	918	; BPSDT2 - Thru Da te
	919	; BPSAR - Array o f eligible claims, s orted by P atient
	920	COLLPT(BPS PTID,BPSDT 1,BPSDT2,B PSAR) ; Co llect info based on user input of Patien t data
	921	N BPS59,B PSRXDEL
	922	S BPS59=" "
	923	K BPSAR,B PSRXAR
	924	; Loop th rough Tran saction Fi le, for us er input P atient, by Date
	925	F S BPS5 9=$O(^BPST ("AC",BPSP TID,BPS59) ) Q:BPS59= "" D
	926	. I $$GET 1^DIQ(9002 313.59,BPS 59,1202,"I ")<BPSDT1 Q
	927	. I $$GET 1^DIQ(9002 313.59,BPS 59,1202,"I ")>BPSDT2 Q
	928	. S BPSRX DEL=$$RXDE L(BPS59)
	929	. I BPSRX DEL=0 Q
	930	. S BPSAR (BPSPTID,B PS59)=""
	931	. D STATS (BPSPTID,B PS59,.BPSA R)
	932	Q
	933	;
	934	; BPSRXAR - Array o f Claim IE Ns from us er's input
	935	; BPSAR - Array o f eligible claims, s orted by P atient
	936	COLLRX(BPS RXAR,BPSAR ) ; Collec t info bas ed on user input of Rx data
	937	N BPS59,B PSIEN,BPSI EN1,BPSPAU SE,BPSPTID ,BPSRXDEL
	938	S BPSRXER R=""
	939	K BPSAR
	940	S BPSIEN= ""
	941	S BPSPAUS E=""
	942	F S BPSI EN=$O(BPSR XAR(BPSIEN )) Q:BPSIE N="" D
	943	. S BPSIE N1=BPSIEN
	944	. S BPS59 =""
	945	. F S BP SIEN1=$O(^ BPST("B",B PSIEN1)) Q :BPSIEN1'[ BPSIEN D
	946	. . F S BPS59=$O(^ BPST("B",B PSIEN1,BPS 59)) Q:BPS 59="" D
	947	. . . ; D on't inclu de if Non- Billable
	948	. . . I $ $NB^BPSSCR 03(BPS59)= 1 D Q
	949	. . . . D MESSAGE(B PSIEN1)
	950	. . . . S BPSPAUSE= 1
	951	. . . ; G et Patient ID
	952	. . . S B PSPTID=$$G ET1^DIQ(90 02313.59,B PS59,5,"I" )
	953	. . . I B PSPTID="" Q
	954	. . . S B PSRXDEL=$$ RXDEL(BPS5 9)
	955	. . . I B PSRXDEL=0 Q
	956	. . . S B PSAR(BPSPT ID,BPS59)= ""
	957	. . . D S TATS(BPSPT ID,BPS59,. BPSAR)
	958	;
	959	; Pause 1 time if a ny of the user input RX #s are non-billa ble.
	960	; Pausing 1 time wi ll allow a ny/all non -billable messages t o be
	961	; display ed to the user at on ce.
	962	I BPSPAUS E=1 D PAUS E^VALM1
	963	Q
	964	;
	965	; BPSPTRX - Flag fo r user inp ut type; 1 =Patient i nput, 2=RX input
	966	; BPSPTID - Patient IEN
	967	; BPSDT1 - From Da te
	968	; BPSDT2 - Thru Da te
	969	; BPSRXAR - Array o f Claim IE Ns from us er's input
	970	; BPSAR - Array o f eligible claims, s orted by P atient
	971	BUILD(BPSP TRX,BPSPTI D,BPSDT1,B PSDT2,BPSR XAR,BPSAR) ; build t he ListVie w
	972	N BPS59,B PSCLCNT,BP SINSDAT,BP SINSUR,BPS LINE,BPSPT CNT,BPSPTI D1,BPSPTIN FO,BPSSTR
	973	D CLEAN^V ALM10
	974	; Save Al l User inp ut to "FIL TERS" port ion of ^TM P file.
	975	; This wi ll be need ed when th e call to REDRAW the list file is made.
	976	S @VALMAR @("FILTERS ","PTRX")= BPSPTRX
	977	I BPSPTRX =1 D
	978	. S @VALM AR@("FILTE RS","PTID" )=BPSPTID
	979	. S @VALM AR@("FILTE RS","FROMD T")=BPSDT1
	980	. S @VALM AR@("FILTE RS","THRUD T")=BPSDT2
	981	I BPSPTRX =2 D
	982	. M @VALM AR@("FILTE RS","BPSRX AR")=BPSRX AR
	983	S (BPSLIN E,BPSPTCNT )=0
	984	S (BPSPTI D,BPSPTID1 ,BPS59)=""
	985	F S BPSP TID=$O(BPS AR(BPSPTID )) Q:BPSPT ID="" D
	986	. S BPSPT CNT=BPSPTC NT+1
	987	. S BPSCL CNT=0
	988	. S BPSST AT=$$STATS 1(BPSPTID, .BPSAR)
	989	. F S BP S59=$O(BPS AR(BPSPTID ,BPS59)) Q :BPS59="" D
	990	. . I BPS PTID'=BPSP TID1 D
	991	. . . S B PSINSDAT=$ $GETINSUR^ BPSSCRU2(B PS59)
	992	. . . S B PSPTINFO=$ $PATINF^BP SSCR02(BPS PTID,BPSIN SDAT)
	993	. . . S B PSLINE=BPS LINE+1
	994	. . . S B PSSTR=$$LJ ^BPSSCR02( BPSPTCNT,4 )_BPSPTINF O_" "_BPSS TAT
	995	. . . S B PSINSUR=+B PSINSDAT
	996	. . . D S AVEARR^BPS SCR02(VALM AR,BPSPTCN T,BPSCLCNT ,BPSPTID,B PS59,BPSLI NE,BPSSTR, BPSINSUR)
	997	. . . S B PSPTID1=BP SPTID
	998	. . S BPS CLMINFO=$$ CLAIMINF^B PSSCR02(BP S59)
	999	. . S BPS CLCNT=BPSC LCNT+1
	1000	. . S BPS LINE=BPSLI NE+1
	1001	. . S BPS STR=" "_B PSPTCNT_". "_BPSCLCNT _" "_BPSCL MINFO
	1002	. . D SAV EARR^BPSSC R02(VALMAR ,BPSPTCNT, BPSCLCNT,B PSPTID,BPS 59,BPSLINE ,BPSSTR,BP SINSUR)
	1003	. . N BPS CMT,X
	1004	. . S BPS LNS=$$ADDI NF^BPSSCR0 3(BPS59,.B PSCMT,74," R")
	1005	. . F X=1 :1:BPSLNS D
	1006	. . . I $ G(BPSCMT(X ))="" Q
	1007	. . . S B PSLINE=BPS LINE+1
	1008	. . . S B PSSTR=" "_BPSCM T(X)
	1009	. . . D S AVEARR^BPS SCR02(VALM AR,BPSPTCN T,BPSCLCNT ,BPSPTID,B PS59,BPSLI NE,BPSSTR, BPSINSUR)
	1010	S VALMCNT =BPSLINE-1
	1011	Q
	1012	;
	1013	RXDEL(BPIE N59) ; Che ck if RX D eleted
	1014	N BPIEN02 ,BPSTAR,BP ST3,BPST9, BPST11
	1015	D GETS^DI Q("9002313 .59",BPIEN 59,"1.11;9 ;3","I","B PSTAR")
	1016	S BPST11= $G(BPSTAR( "9002313.5 9",BPIEN59 _",",1.11, "I"))
	1017	S BPST9=$ G(BPSTAR(" 9002313.59 ",BPIEN59_ ",",9,"I") )
	1018	S BPST3=$ G(BPSTAR(" 9002313.59 ",BPIEN59_ ",",3,"I") )
	1019	; Don't d isplay del eted presc riptions
	1020	I $$RXDEL ^BPSOS(BPS T11,BPST9) Q 0
	1021	;if there is no BPS CLAIMS - error
	1022	I +BPST3= 0 Q 0
	1023	Q 1
	1024	;
	1025	; BPSIEN1 - Claim I EN
	1026	MESSAGE(BP SIEN1) ; N ot billabl e message to user
	1027	N BPSRX,B PSRX1
	1028	S BPSRX=$ $RXREF^BPS SCRU2(BPSI EN1)
	1029	S BPSRX1= $$RXNUM^BP SSCRU2(+BP SRX)_"/"_$ P(BPSRX,"^ ",2)
	1030	W !,"Pres cription " _BPSRX1_" is not bil lable and will not d isplay."
	1031	Q
	1032	;
	1033	; BPSPTID - Patient ID
	1034	; BPS59 - Claim I EN
	1035	; BPSAR - Array o f eligible claims, s orted by P atient
	1036	; Update the BPSAR array, at the patien t level, w ith counte rs
	1037	; based o n each cla im. Counte rs will ca pture if t he claim i s
	1038	; Payable , Rejected , Reversal Accepted or Reversa l Rejected .
	1039	STATS(BPSP TID,BPS59, BPSAR) ; C apture Pat ient Stats
	1040	N BPSACRV ,BPSELIG,B PSELIG1,BP SJRV,BPSPB ,BPSRJ,BPX
	1041	S BPSPB=$ P($G(BPSAR (BPSPTID)) ,"^",2)
	1042	S BPSRJ=$ P($G(BPSAR (BPSPTID)) ,"^",3)
	1043	S BPSACRV =$P($G(BPS AR(BPSPTID )),"^",4)
	1044	S BPSJRV= $P($G(BPSA R(BPSPTID) ),"^",5)
	1045	S BPX=$P( $$CLAIMST^ BPSSCRU3(B PS59),”^”)
	1046	I BPX="E PAYABLE" S BPSPB=BPS PB+1
	1047	I BPX="E REJECTED" S BPSRJ=BP SRJ+1
	1048	I BPX="E REVERSAL A CCEPTED" S BPSACRV=B PSACRV+1
	1049	I BPX="E REVERSAL R EJECTED" S BPSJRV=BP SJRV+1
	1050	S BPSELIG =$$ELIGCOD E^BPSSCR05 (BPS59)
	1051	S BPSELIG 1="Unk"
	1052	I BPSELIG ="V" S BPS ELIG1="VET "
	1053	I BPSELIG ="T" S BPS ELIG1="TRI "
	1054	I BPSELIG ="C" S BPS ELIG1="CVA "
	1055	S BPSAR(B PSPTID)=BP SELIG1_"^" _BPSPB_"^" _BPSRJ_"^" _BPSACRV_" ^"_BPSJRV
	1056	Q
	1057	;
	1058	; BPSPTID - Patient ID
	1059	; BPSAR - Array o f eligible claims, s orted by P atient
	1060	; Format the patien t level in formation captured i n the STAT S
	1061	; subrout ine for di splay in t he ListVie w. The dis play of th is
	1062	; informa tion will match the display fo rmat used in ECME Us er Screen.
	1063	STATS1(BPS PTID,BPSAR ) ; Format Stats lin e for List View
	1064	N BPSSTAT S,BPSSTAT1
	1065	S BPSSTAT S=$G(BPSAR (BPSPTID))
	1066	S BPSSTAT S1=$P(BPSS TATS,"^")_ " "
	1067	I +$P(BPS STATS,"^", 2)>0,$P(BP SSTATS,"^" ,3,5)="^^" S BPSSTAT S1=BPSSTAT S1_"ALL pa yable"
	1068	E D
	1069	. S BPSST ATS1=BPSST ATS1_"Pb:" _+$P(BPSST ATS,"^",2) _" "
	1070	. S BPSST ATS1=BPSST ATS1_"Rj:" _+$P(BPSST ATS,"^",3) _" "
	1071	. S BPSST ATS1=BPSST ATS1_"AcRv :"_+$P(BPS STATS,"^", 4)_" "
	1072	. S BPSST ATS1=BPSST ATS1_"RjRv :"_+$P(BPS STATS,"^", 5)
	1073	Q BPSSTAT S1
	1074	;
	1075	;claim in fo for lis t manager screen
	1076	CLAIMINF(B P59) ;*/
	1077	Q $$CLAIM INF^BPSSCR 02(BP59)
	1078	;
	1079	;patient info for h eader
	1080	PATINF(BPD FN) ;*/
	1081	N X
	1082	S X=$E($$ PATNAME(BP DFN),1,22) _" "_$$SSN 4^BPSSCRU2 (BPDFN)
	1083	Q $$LJ^BP SSCR02(X,2 9) ;name
	1084	;
	1085	;-------- ---- patie nt's name
	1086	PATNAME(BP DFN) ;
	1087	Q $E($P($ G(^DPT(BPD FN,0)),U), 1,30)
	1088	;
	1089	;/**
	1090	;ECME Use r Screen R eopen Clos ed Claim H idden Acti on (ROC)
	1091	;**/
	1092	EUSCREOP ;
	1093	N BPREOP, BP59,BPDFN ,BPDISP,BP CNT,BPI,BP J,BPCOMM,B PRETV,BPIE N02,BPSRXN UM
	1094	; Check f or BPS MAN AGER secur ity key
	1095	I '$D(^XU SEC("BPS M ANAGER",DU Z)) D Q
	1096	. W !,"Yo u must hol d the BPS MANAGER Se curity Key to access the",!,"R eopen Clos ed Claims option."
	1097	. S VALMB CK="R"
	1098	. D PAUSE ^VALM1
	1099	S (BP59,B PCNT,BPI,B PJ)=0
	1100	I '$D(@(V ALMAR)) G REOP
	1101	D FULL^VA LM1
	1102	; Select the claim( s) to reop en
	1103	W !,"Ente r the line number fo r the clai m you want to reopen ."
	1104	I $$ASKLI NES^BPSSCR U4("","C", .BPREOP,VA LMAR) D
	1105	. ; Build array to display to user
	1106	. F S BP 59=$O(BPRE OP(BP59)) Q:BP59="" D
	1107	. . S BPD FN=+$P($G( ^BPST(BP59 ,0)),U,6)
	1108	. . S BPC NT=BPCNT+1
	1109	. . I '$D (BPDISP(BP DFN)) S BP DISP(BPDFN ,BPCNT)=$$ LJ^BPSSCR0 2($$PATNAM E(BPDFN)_" :",50),BP CNT=BPCNT+ 1
	1110	. . S BPD ISP(BPDFN, BPCNT)=@VA LMAR@($P(B PREOP(BP59 ),U,1),0)
	1111	. . ;
	1112	. . ; che ck for non -billable entry
	1113	. . I $$N B^BPSSCR03 (BP59) D Q
	1114	. . . S B PCNT=BPCNT +1
	1115	. . . S B PDISP(BPDF N,BPCNT)=" Entry is N ON BILLABL E. There is no clai m to reope n."
	1116	. . . K B PREOP(BP59 )
	1117	. . . Q
	1118	. . ;
	1119	. . ; Mak e sure thi s claim is closed
	1120	. . I '$$ CLOSED02^B PSSCR03($P ($G(^BPST( BP59,0)),U ,4)) D
	1121	. . . S B PCNT=BPCNT +1
	1122	. . . S B PDISP(BPDF N,BPCNT)=" Claim NOT closed and cannot be reopened. "
	1123	. . . K B PREOP(BP59 )
	1124	. . ; Mak e sure the Prescript ion isn't deleted
	1125	. . I $$R XDEL^BPSOS ($P(^BPST( BP59,1),U, 11),$P(^BP ST(BP59,1) ,U,1)) D
	1126	. . . S B PCNT=BPCNT +1
	1127	. . . S B PDISP(BPDF N,BPCNT)=" The prescr iption has been mark ed DELETED and canno t be reope ned."
	1128	. . . K B PREOP(BP59 )
	1129	. ; Displ ay the sel ected clai ms from th e display array
	1130	. W !!,"Y ou've chos en to reop en the fol lowing pre scriptions (s) for"
	1131	. F S BP I=$O(BPDIS P(BPI)) Q: BPI="" D
	1132	. . F S BPJ=$O(BPD ISP(BPI,BP J)) Q:BPJ= "" D
	1133	. . . W ! ,BPDISP(BP I,BPJ)
	1134	. . Q
	1135	. Q
	1136	; If ther e are any closed cla ims select ed, verify if the us ers still wants to r eopen
	1137	I $D(BPRE OP) D
	1138	. W !!,"A ll Selecte d Rxs will be reopen ed using t he same in formation gathered i n the",!," following prompts.", !!
	1139	. I $$YES NO^BPSSCRR S("Are you sure?(Y/N )")=1 D
	1140	. . ; Get the Reope n Comments to be sto red in the BPS CLAIM S file
	1141	. . S BPC OMM=$$PROM PT("REOPEN COMMENTS" ,"","F",1, 40)
	1142	. . Q:BPC OMM["^"
	1143	. . ; Do we REALLY want to re open the c laims?
	1144	. . I $$Y ESNO^BPSSC RRS("ARE Y OU SURE YO U WANT TO RE-OPEN TH IS CLAIM? (Y/N)","No ")=1 D
	1145	. . . S ( BPCNT,BP59 )=0
	1146	. . . ; L oop throug h all sele cted claim s and reop en them on e at a tim e
	1147	. . . ; u sing the s ame commen ts
	1148	. . . F S BP59=$O( BPREOP(BP5 9)) Q:BP59 ="" D
	1149	. . . . S BPIEN02=+ $P($G(^BPS T(BP59,0)) ,U,4)
	1150	. . . . S BPRETV=$$ REOPEN^BPS BUTL(BP59, BPIEN02,$$ NOW^XLFDT, +DUZ,BPCOM M)
	1151	. . . . W !,$P(BPRE TV,U,2)
	1152	. . . . I +BPRETV S BPCNT=BPC NT+1
	1153	. . . . Q
	1154	. . . I B PCNT>1 W ! !,BPCNT_" claims hav e been reo pened.",! Q
	1155	. . . I B PCNT=1 W ! !,"1 claim has been reopened." ,! Q
	1156	. . . I B PCNT=0 W ! !,"Unable to reopen claim" Q
	1157	I '$D(BPR EOP) S VAL MBCK="R" D PAUSE^VAL M1 Q
	1158	D PAUSE^V ALM1
	1159	I $D(@VAL MAR@("FILT ERS")) D R EDRAW
	1160	E D REDR AW^BPSSCRU D("Updatin g screen f or reopene d claims.. .")
	1161	Q
	1162	;
	1163	SELECT ;
	1164	I VALMCNT <1 D Q
	1165	. W !,"No claims to select." D PAUSE^VA LM1 S VALM BCK="R"
	1166	N BP59,BP Q
	1167	D FULL^VA LM1
	1168	S BP59=0
	1169	S BPQ=0
	1170	F S BPLI NE=$$PROMP T("Select item",""," A") D Q:B PQ
	1171	. I BPLIN E="^" S BP Q=1 Q
	1172	. I '(BPL INE?1N.N) W !,"Pleas e select a SINGLE Rx Line Item ." Q
	1173	. S BP59= +$$GET59(+ BPLINE) I BP59>0 S B PQ=1 Q
	1174	. W !,"Pl ease selec t a VALID Rx Line It em."
	1175	I BPLINE= "^" S VALM BCK="R" Q
	1176	I BP59=0 S VALMBCK= "R" W !,"I nvalid sel ection." D PAUSE^VAL M1 Q
	1177	I $$SELCL AIM(BP59)< 1 S VALMBC K="R" Q
	1178	;D RE^VAL M4
	1179	D REDRAW
	1180	S VALMBCK ="R"
	1181	Q
	1182	;
	1183	GET59(BPLI NE) ;
	1184	Q +$O(^TM P("BPSREOP ",$J,"VALM ","IDX",BP LINE,0))
	1185	;
	1186	;display selected c laim infor mation
	1187	SELCLAIM(B P59) ;
	1188	D FULL^VA LM1
	1189	W @IOF
	1190	N BPX,BPX 1,BPDFN,BP IEN02,BPCL DATA,BPCOM M,BPRETV,B PQ
	1191	S BPDFN=+ $P($G(^BPS T(BP59,0)) ,U,6)
	1192	S BPX1=$$ RXREF^BPSS CRU2(BP59)
	1193	W !,?1,$$ LJ^BPSSCR0 2("PATIENT NAME: "_$ $PATNAME(B PDFN),30)
	1194	W ?33,$$L J^BPSSCR02 ("RX#: "_$ $RXNUM^BPS SCRU2(+BPX 1)_" "_$P( BPX1,U,2), 22)
	1195	W ?57,$$L J^BPSSCR02 ("DRUG: "_ $$DRGNAME^ BPSSCRU2(B P59),22)
	1196	;ien in B PS CLAIMS
	1197	S BPIEN02 =+$P($G(^B PST(BP59,0 )),U,4)
	1198	I BPIEN02 =0 W !,"BP S CLAIMS f ile error! " D PAUSE^ VALM1 Q -1
	1199	;Close in fo
	1200	S BPCLDAT A=$G(^BPSC (BPIEN02,9 00))
	1201	;if the i s no BPS C LAIMS - er ror
	1202	W !,?3,"C LOSED ",$ $FORMDATE^ BPSSCRU6(+ $P($G(^BPS C(BPIEN02, 900)),U,2) ,2)
	1203	W !,?4,"E CME#: "_$$ ECMENUM^BP SSCRU2(BP5 9)_", DOS: "_$$LASTD OS^BPSUTIL 2(BP59,1)
	1204	W ", RELE ASE DATE: "_$$FORMDA TE^BPSSCRU 6($$RELDAT E^BPSSCRU6 (+BPX1,+$P (BPX1,U,2) ),2)
	1205	W !,?4,"P LAN: ",$$P LANNAME^BP SSCRU6(BP5 9)," INSUR ANCE: ",$$ INSNAME^BP SSCRU6(BP5 9)
	1206	W !,?4,"C LOSE REASO N: ",$$CLR EASON^BPSS CRU6(+$P(B PCLDATA,U, 4))
	1207	W !,?4,"D ROP TO PAP ER: ",$S(+ $P(BPCLDAT A,U,5)=1:" YES",1:"NO ")
	1208	W !,?4,"C LOSE USER: ",$P($G(^ VA(200,+$P (BPCLDATA, U,3),0)),U )
	1209	W !!,"You have sele cted the C LOSED elec tronic cla im listed above.",!
	1210	S BPCOMM= $$PROMPT(" REOPEN COM MENTS","", "F",1,40)
	1211	Q:BPCOMM[ "^" 0
	1212	S BPQ=$$Y ESNO^BPSSC RRS("ARE Y OU SURE YO U WANT TO RE-OPEN TH IS CLAIM? (Y/N)","No ")
	1213	Q:BPQ<1 0
	1214	S BPRETV= $$REOPEN^B PSBUTL(BP5 9,BPIEN02, $$NOW^XLFD T,+DUZ,BPC OMM)
	1215	W !,$P(BP RETV,U,2), !
	1216	W !,"1 cl aim has be en reopene d.",!
	1217	D PAUSE^V ALM1
	1218	Q 1
	1219	;
	1220	REDRAW ;
	1221	N BPARR
	1222	S BPSPTRX =@VALMAR@( "FILTERS", "PTRX")
	1223	I BPSPTRX =1 D
	1224	. S BPSPT ID=@VALMAR @("FILTERS ","PTID")
	1225	. S BPSDT 1=@VALMAR@ ("FILTERS" ,"FROMDT")
	1226	. S BPSDT 2=@VALMAR@ ("FILTERS" ,"THRUDT")
	1227	I BPSPTRX =2 D
	1228	. K BPSRX AR
	1229	. M BPSRX AR=@VALMAR @("FILTERS ","BPSRXAR ")
	1230	D CLEAN^V ALM10
	1231	I BPSPTRX =1 D COLLP T^BPSREOP1 (BPSPTID,B PSDT1,BPSD T2,.BPSAR)
	1232	I BPSPTRX =2 D COLLR X^BPSREOP1 (.BPSRXAR, .BPSAR)
	1233	D BUILD^B PSREOP1(BP SPTRX,.BPS AR)
	1234	D COLLECT ^BPSREOP1( BPDFN,BPST RT,BPEND)
	1235	S VALMBCK ="R"
	1236	Q
	1237	;input:
	1238	;BPSPROM - prompt t ext
	1239	;BPSDFVL - default value (opt ional)
	1240	;BPMODE - N- to ent er numbers , F - free text, A - free text w/o limit ations
	1241	;returns:
	1242	; "respon se"
	1243	; or "^" for quit
	1244	PROMPT(BPS PROM,BPSDF VL,BPMODE, MINLEN,MAX LEN) ;
	1245	N IR,X,Y, DIRUT,DIR
	1246	I BPMODE= "N" S DIR( 0)="N^::2"
	1247	I BPMODE= "A" S DIR( 0)="F^::2"
	1248	I BPMODE= "F" S DIR( 0)="F^"_MI NLEN_":"_M AXLEN_":2^ K:(X?1"" " "."" "") X "
	1249	S DIR("A" )=BPSPROM
	1250	I $L($G(B PSDFVL))>0 S DIR("B" )=$G(BPSDF VL)
	1251	D ^DIR I $D(DIRUT) Q "^"
	1252	I Y["^" Q "^"
	1253	Q Y
	1254	;
	1255	;Update r eopen reco rd in BPS CLAIM
	1256	;Input:
	1257	; BP02 - ien in BPS CLAIMS fi le
	1258	; BPCLOSE D - value for CLOSED field
	1259	; BPREOPD T - reopen date/time
	1260	; BPDUZ - user DUZ (#200 ien)
	1261	; BPCOMM - reopen c omment tex t
	1262	;Output:
	1263	; 0^messa ge_error - error
	1264	; 1 - suc cess
	1265	UPDREOP(BP 02,BPCLOSE D,BPREOPDT ,BPDUZ,BPC OMM) ;
	1266	;Now upda te ECME da tabase
	1267	N RECIENS ,BPDA,BPLC K,ERRARR
	1268	S RECIENS =BP02_","
	1269	S BPDA(90 02313.02,R ECIENS,901 )=BPCLOSED ;CLOSED = "NO"
	1270	S BPDA(90 02313.02,R ECIENS,906 )=BPREOPDT ;reopen d ate/time
	1271	S BPDA(90 02313.02,R ECIENS,907 )=+BPDUZ ; user
	1272	S BPDA(90 02313.02,R ECIENS,908 )=BPCOMM ; comment
	1273	L +^BPST( 9002313.02 ,+BP02):10
	1274	S BPLCK=$ T
	1275	I 'BPLCK Q "0^Locke d record" ;quit
	1276	D FILE^DI E("","BPDA ","ERRARR" )
	1277	I BPLCK L -^BPST(90 02313.02,+ BP02)
	1278	I $D(ERRA RR) Q "0^" _ERRARR("D IERR",1,"T EXT",1)
	1279	Q 1
	1280	;
	1281	; Reopen Closed Cla im display ed in ECME User Scre en
	1282	REOP ;
	1283	Q
	1284
	1285
	1286	Subroutine Name
	1287	RES^BPSSCR RS
	1288	Enhancemen t Category
	1289	New
	1290	Modify
	1291	Delete
	1292	No Change
	1293	Story
	1294	US597
	1295	Related Me nu Options or ListMa n Actions
	1296	ROC Reopen CLOSED Cl aim
	1297	Related Ro utines
	1298	This Subro utine is C alled By
	1299	This Subro utine Call s
	1300
	1301	BPS PRTCL USRSCR RES UBMIT acti on
	1302	FULL^VALM1
	1303	$$ASKLINES ^BPSSCRU4
	1304	$$RESUBMIT ^BPSSCRRS
	1305	REDRAW^BPS REOP1
	1306	REDRAW^BPS SCRUD
	1307	Related In tegration Control Re gistration s (ICRs)
	1308	n/a
	1309	Data Passi ng
	1310	Parameter Input
	1311	Parameter Output
	1312	Function Return Val ue
	1313	Global Mo dified
	1314	Input Attr ibute Name and Defin ition
	1315	Name:
	1316	Definition :
	1317	New Modify Delete No Cha nge
	1318	Current Lo gic
	1319
	1320	BPSSCRRS ; BHAM ISC/S S - ECME S CREEN RESU BMIT ;05-A PR-05
	1321	;;1.0;E C LAIMS MGMT ENGINE; 1,3,5,7,8, 10,11,20 ;JUN 2004; Build 27
	1322	;;Per VA Directive 6402, this routine s hould not be modifie d.
	1323	Q
	1324	;IA 4702
	1325	;IA 5355 for call t o $$RXBILL ^IBNCPUT3
	1326	;
	1327	RES ;
	1328	N BPRET,B PSARR59
	1329	I '$D(@(V ALMAR)) Q
	1330	D FULL^VA LM1
	1331	W !,"Ente r the line numbers f or the cla im(s) to b e resubmit ted."
	1332	S BPRET=$ $ASKLINES^ BPSSCRU4(" Select ite m(s)","C", .BPSARR59, VALMAR)
	1333	I BPRET=" ^" S VALMB CK="R" Q
	1334	;go thru all select ed claims and try to resubmit them separ ately
	1335	;update t he content of the sc reen and d isplay it
	1336	;only if at least o ne claim w as submitt ed success fully
	1337	I $$RESUB MIT(.BPSAR R59) D RED RAW^BPSSCR UD("Updati ng screen for resubm itted clai ms...")
	1338	E S VALM BCK="R"
	1339	Q
	1340
	1341	Modified L ogic (Chan ges are hi ghlighted)
	1342
	1343	BPSSCRRS ; BHAM ISC/S S - ECME S CREEN RESU BMIT ;05-A PR-05
	1344	;;1.0;E C LAIMS MGMT ENGINE; 1,3,5,7,8, 10,11,20,2 3;JUN 20 04;Build 2 7
	1345	;;Per VA Directive 6402, this routine s hould not be modifie d.
	1346	Q
	1347	;IA 4702
	1348	;IA 5355 for call t o $$RXBILL ^IBNCPUT3
	1349	;
	1350	RES ;
	1351	N BPRET,B PSARR59
	1352	I '$D(@(V ALMAR)) Q
	1353	D FULL^VA LM1
	1354	W !,"Ente r the line numbers f or the cla im(s) to b e resubmit ted."
	1355	S BPRET=$ $ASKLINES^ BPSSCRU4(" Select ite m(s)","C", .BPSARR59, VALMAR)
	1356	I BPRET=" ^" S VALMB CK="R" Q
	1357	;go thru all select ed claims and try to resubmit them separ ately
	1358	;update t he content of the sc reen and d isplay it
	1359	;only if at least o ne claim w as submitt ed success fully
	1360	I $$RESUB MIT(.BPSAR R59) D
	1361	. I '$D(@ VALMAR@("F ILTERS")) D REDRAW^B PSSCRUD("U pdating sc reen for r esubmitted claims... ")
	1362	. E D RE DRAW^BPSRE OP1
	1363	E S VALM BCK="R"
	1364	Q
	1365
	1366
	1367	A pre-inst all routin e will be used to up date the m enu title informatio n.
	1368	Routine Na me
	1369	^BPS24PRE
	1370	Enhancemen t Category
	1371	New
	1372	Modify
	1373	Delete
	1374	No Change
	1375	Story
	1376	US597
	1377	Related Me nu Options or ListMa n Actions
	1378	N/A
	1379	Related Ro utines
	1380	This Subro utine is C alled By
	1381	This Subro utine Call s
	1382
	1383	KIDS syste m; Kernel Installati on and Dis tribution System; ca lled upon patch inst allation
	1384	MES^XPDUTL
	1385	BMES^XPDUT L
	1386	^DIE
	1387	Related In tegration Control Re gistration s (ICRs)
	1388	TBD
	1389	Data Passi ng
	1390	Parameter Input
	1391	Parameter Output
	1392	Function Return Val ue
	1393	Global Mo dified
	1394	Input Attr ibute Name and Defin ition
	1395	Name: N/A
	1396	Definition :
	1397	New Modify Delete No Cha nge
	1398	Current Lo gic
	1399
	1400	N/A
	1401
	1402	Modified L ogic (Chan ges are hi ghlighted)
	1403
	1404	BPS24PRE ;AITC/PD - Pre-insta ll for BPS 1.024 ;7 /14/2017
	1405	;;1.0;E C LAIMS MGMT ENGINE; 24;
	1406	;;Per VA Directive 6402, this routine s hould not be modifie d.
	1407	; Change to menu op tion text supported by ICR# TB D
	1408	;
	1409	Q
	1410	;
	1411	PRE ; Pre- install fu nctions ar e coded he re.
	1412	;
	1413	D MES^XPD UTL(" Sta rting pre- install of BPS1.02 4")
	1414	D UPDOPT
	1415	D BMES^XP DUTL(" Fi nished pre -install o f BPS1.0 24")
	1416	Q
	1417	;
	1418	UPDOPT ; R ename Menu Option Te xt
	1419	N BPSMENU ,BPSOPT,DA ,DR
	1420	;
	1421	D MES^XPD UTL(" - Updating O PTION")
	1422	S BPSOPT= "BPS REOPE N CLOSED C LAIM"
	1423	S DA=$O(^ DIC(19,"B" ,BPSOPT,"" ))
	1424	I 'DA D M ES^XPDUTL( " - No IE N found fo r entry "_ BPSOPT) Q
	1425	;
	1426	; Update fields
	1427	S BPSMENU ="Re Open CLOSED/Res ubmit Clai m" ; new menu text
	1428	D FILE("^ DIC(19,",D A,1,BPSMEN U)
	1429	;
	1430	D MES^XPD UTL(" - " _BPSOPT_" entry upda ted")
	1431	D MES^XPD UTL(" - Done with OPTION")
	1432	D MES^XPD UTL(" ")
	1433	Q
	1434	;
	1435	; DIE - Global to update
	1436	; DA - IEN for entry
	1437	; BPSFLD - Field # to update
	1438	; BPSDATA - Data fo r update
	1439	FILE(DIE,D A,BPSFLD,B PSDATA) ;
	1440	; File in to the OPT ION file # 19
	1441	N DR,X,Y
	1442	;
	1443	S DR=BPSF LD_"////"_ BPSDATA
	1444	D ^DIE
	1445	Q
	1446
	1447
	1448	The ListMa n List Tem plate BPS LSTMN ECME REOPEN te mplate wil l require the follow ing change s:
	1449
	1450	Field Attr ibutes
	1451	Values
	1452	List Templ ate
	1453	BPS LSTMN ECME REOPE N
	1454	Screen Tit le
	1455	Old = REOP EN CLOSED CLAIM
	1456	New = REOP EN/RESUBMI T CLAIMS
	1457
	1458	Bottom Mar gin
	1459	Old=18
	1460	New=19
	1461
	1462
	1463	The Menu P rotocol fo r the abov e List Tem plate is B PS PRTCL R EOPEN MENU . It curre ntly has t wo Actions , one of w hich will be deleted . The rema ining exis ting Actio n will be modified ( sequence c hanged fro m 2 to 3) and two ne w Actions will be ad ded.
	1464
	1465	Edits to e xisting ac tions:
	1466
	1467	Action
	1468	Delete Act ion BPS PR TCL REOPEN
	1469	Action
	1470	Edit Actio n: BPS PRT CL REOPEN EXIT
	1471	Old Sequen ce = 2
	1472	New Sequen ce = 3
	1473
	1474
	1475	New action s to be ad ded to men u protocol :
	1476
	1477	Action
	1478	Add Action : BPS PRTC L USRSCR R EOPEN CLOS ED CLAIMS
	1479	Mnemonic: RE
	1480	Sequence: 1
	1481	Action
	1482	Add Action : BPS PRTC L USRSCR R ESUBMIT
	1483	Mnemonic: RES
	1484	Sequence: 2
	1485
	1486	As part of the pre-i nstall rou tine, to u pdate the Menu Text, the follo wing new I CR will be necessary .
	1487
	1488	Integratio n Control Registrati on #
	1489	TBD
	1490	Name
	1491	Change Men u Text of Menu Optio n BPS REOP EN CLOSED CLAIM to b e ‘Re Open CLOSED/Re submit Cla im’.
	1492	Enhancemen t Category
	1493	Modify
	1494	Custodial Package
	1495	KERNEL
	1496	Subscribin g Package( s)
	1497	BPS
	1498	Usage
	1499	Private
	1500	Type
	1501	File
	1502	File
	1503	19
	1504	Root
	1505	DIC(19
	1506	Duration
	1507	Till Other wise Agree d
	1508	Input Vari ables
	1509	Name: n/a
	1510	Descriptio n:
	1511	Output Var iables
	1512	Name: n/a
	1513	Descriptio n:
	1514	Descriptio n
	1515	eBusiness product ow ners wish to change the menu t ext of opt ion BPS RE OPEN CLOSE D CLAIM fr om ‘Re Ope n CLOSED C laim’ to ‘ Re Open CL OSED/Resub mit Claim’ as part o f patch BP S1.024. Permissio n is requi red to Acc omplish th is name ch ange using a pre-ins tall routi ne.
	1516	Keywords
	1517	OPTION
	1518
	1519	Back Out/R ollback Pr ocedure
	1520	This story includes modificati ons to exi sting rout ines, prot ocols and a list tem plate.
	1521	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.
	1522	Rolling ba ck the cha nges to th e protocol s and list template would invo lve the fo llowing st eps, which could be performed by a devel oper or IR M at each site or vi a an emerg ency patch :
	1523	Rename tem plate Scre en Title t o be REOPE N CLOSED C LAIM.
	1524	Reset temp late botto m margin t o be 18.
	1525	Delete pro tocol acti on BPS PRT CL USRSCR REOPEN CLO SED CLAIMS .
	1526	Delete pro tocol acti on BPS PRT CL USRSCR RESUBMIT.
	1527	Add protoc ol action BPS PRTCL REOPEN.
	1528	Modify pro tocol acti on BPS PRT CL REOPEN EXIT to be Sequence = 2.
	1529	Change men u text of option BPS REOPEN CL OSED CLAIM to be “RO C Re Open CLOSED Cla im”.