17. EPMO Open Source Coordination Office Redaction File Detail Report

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

17.1 Files compared

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

17.2 Comparison summary

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

17.3 Comparison options

Whitespace
Character case	Differences in character case are significant
Line endings	Differences in line endings (`CR` and `LF` characters) are ignored
CR/LF characters	Not shown in the comparison detail

17.4 Active regular expressions

No regular expressions were active.

17.5 Comparison detail

	1	MCCF EDI T AS US177
	2	System Des ign Docume nt
	3
	4
	5
	6
	7
	8	Department of Vetera ns Affairs
	9	July 2017
	10	Version 1. 03
	11	User Story Number: U XRX-167D
	12	User Story Name: ECS Edit Clai m Submitte d
	13	Product Ba cklog ID: 167
	14	Priority: 29
	15	Initial Si zing Estim ate:
	16	Rational I D:
	17	Rally ID: US177
	18	Epic Taxon omy: Updat e
	19
	20	Design – S ummary
	21	A claim re quest sent from Vist A to a pay er current ly include s only tho se fields indicated by the pay er sheet p rovided by the payer . This sto ry calls f or giving the user t he ability to add to the claim additiona l fields n ot on the payer shee t when res ubmitting a claim. M uch of the logic mak ing this p ossible wi ll be adde d by US399 (part of Build 3).
	22
	23	A new acti on, ECS / Edit Claim Submitted , will be added to s everal hid den action menus. Wh en the use r performs this acti on, the sy stem will allow the user to se lect one o r more fie lds to be added to t he claim w hich are n ot already on the pa yer sheet and which are not “s tubs” (fie lds that h ave no log ic for pul ling value s). The sy stem will display th e values t o be sent on the cla im, and th e user wil l be able to confirm whether o r not to i nclude tha t field. T he list of fields ad ded to the claim wil l be store d in the A DDL NCPDP FIELD sub- file on th e file BPS NCPDP OVE RRIDE. The values to be sent w ill not be stored at that time .
	24
	25	Because th e various screens to which the new actio n will be added use different variables, two new a ction prot ocols will be create d, both of which wil l call ECS ^PSOBPSU3 but use di fferent va riables to pass the prescripti on number and refill into this subroutin e.
	26
	27	Please ref er to the SDD for US 399 for a more detai led descri ption of h ow the add itional fi elds are a dded to th e claim du ring the c laim submi ssion proc ess.
	28
	29	List of Co mponents:
	30	Routine: B PSPSOU1
	31	Routine: B PSRES
	32	Routine: B PSRES1
	33	Routine: P SOBPSU1
	34	Routine: P SOBPSU3
	35	List Templ ate: PSO R EJECT DISP LAY - RESO LVED
	36	Menu Proto col: PSO H IDDEN ACTI ONS
	37	Menu Proto col: PSO H IDDEN ACTI ONS #6
	38	Menu Proto col: PSO R EJECT DISP LAY HIDDEN MENU
	39	Menu Proto col: PSO R EJECT TRIC ARE HIDDEN MENU
	40	New Action Protocol: PSO EDIT CLAIM SUBM ITTED 1
	41	New Action Protocol: PSO EDIT CLAIM SUBM ITTED 2
	42	Protocol: PSO ACTIVI TY LOGS
	43	Protocol: PSO DISPLA Y DRUG ALL ERGIES
	44	Protocol: PSO DRUG R ESTR/GUIDE INFO
	45	Protocol: PSO ERX OP PRINT
	46	Protocol: PSO HOLD
	47	Protocol: PSO LM BAC KDOOR COPY
	48	Protocol: PSO LM BAC KDOOR MARK AS TITRAT ION
	49	Protocol: PSO LM BAC KDOOR PRTC L USRSCR R ESUBMIT
	50	Protocol: PSO LM BAC KDOOR PRTC L USRSCR R EVERSE
	51	Protocol: PSO LM BAC KDOOR PRTC L USRSCR V ERIFY
	52	Protocol: PSO LM BAC KDOOR TITR ATION RX R EFILL
	53	Protocol: PSO LM HID DEN OTHER #2
	54	Protocol: PSO LM INP ATIENT MED ICATION PR OFILE
	55	Protocol: PSO LM INT ERVENTION MENU
	56	Protocol: PSO PATIEN T INFORMAT ION
	57	Protocol: PSO PULL O NE RX FROM SUSPENSE
	58	Protocol: PSO REJECT DISCONTIN UE
	59	Protocol: PSO REJECT DISPLAY A DD COMMENT
	60	Protocol: PSO REJECT DISPLAY A DDITIONAL INFO
	61	Protocol: PSO REJECT DISPLAY C LARIFICATI ON CODE
	62	Protocol: PSO REJECT DISPLAY O UTSIDE CAL L
	63	Protocol: PSO REJECT DISPLAY P RIOR AUTHO RIZATION
	64	Protocol: PSO REJECT DISPLAY R X EDIT
	65	Protocol: PSO REJECT DISPLAY S MA
	66	Protocol: PSO REJECT SUSPENSE DT CALC
	67	Protocol: PSO REJECT VIEW ECME RX
	68	Protocol: PSO REPRIN T
	69	Protocol: PSO UNHOLD
	70	Protocol: PSO VERIFY
	71	Protocol: VALM DOWN A LINE
	72	Protocol: VALM FIRST SCREEN
	73	Protocol: VALM GOTO PAGE
	74	Protocol: VALM LAST SCREEN
	75	Protocol: VALM LEFT
	76	Protocol: VALM NEXT SCREEN
	77	Protocol: VALM PREVI OUS SCREEN
	78	Protocol: VALM PRINT LIST
	79	Protocol: VALM PRINT SCREEN
	80	Protocol: VALM QUIT
	81	Protocol: VALM REFRE SH
	82	Protocol: VALM RIGHT
	83	Protocol: VALM SEARC H LIST
	84	Protocol: VALM TURN ON/OFF MEN US
	85	Protocol: VALM UP ON E LINE
	86
	87	Design – D etail
	88	We will cr eate two n ew action protocols which will be added to four ex isting hid den action menu prot ocols.
	89
	90	New action protocols :
	91
	92	Field Attr ibutes
	93	Values
	94	NAME
	95	PSO EDIT C LAIM SUBMI TTED 1
	96	ITEM TEXT
	97	Edit Claim Submitted
	98	DESCRIPTIO N
	99	This actio n protocol allows th e user to add to a c laim field s not alre ady on the payer she et.
	100	TYPE
	101	Action
	102	PACKAGE
	103	OUTPATIENT PHARMACY
	104	ENTRY ACTI ON
	105	D ECS^PSOB PSU3($P(PS OLST(ORN), ”^”,2),,1)
	106
	107	Field Attr ibutes
	108	Values
	109	NAME
	110	PSO EDIT C LAIM SUBMI TTED 2
	111	ITEM TEXT
	112	Edit Claim Submitted
	113	DESCRIPTIO N
	114	This actio n protocol allows th e user to add to a c laim field s not alre ady on the payer she et.
	115	TYPE
	116	Action
	117	PACKAGE
	118	OUTPATIENT PHARMACY
	119	ENTRY ACTI ON
	120	D ECS^PSOB PSU3($G(RX ),$G(FILL) ,2)
	121
	122	The follow are exist ing hidden action me nu protoco ls. The ne w action E CS Edit Cl aim Submit ted will b e added to each.
	123
	124	Field Attr ibutes
	125	Values
	126	NAME
	127	PSO HIDDEN ACTIONS
	128	ITEM TEXT
	129	Outpatient Pharmacy Hidden Act ions
	130	ITEM
	131	MNEMONIC
	132	SEQUENCE
	133	VALM NEXT SCREEN
	134	+
	135	<blank>
	136	VALM PREVI OUS SCREEN
	137	-
	138	<blank>
	139	VALM REFRE SH
	140	RD
	141	<blank>
	142	VALM LAST SCREEN
	143	LS
	144	<blank>
	145	VALM FIRST SCREEN
	146	FS
	147	<blank>
	148	VALM UP ON E LINE
	149	UP
	150	<blank>
	151	VALM DOWN A LINE
	152	DN
	153	<blank>
	154	VALM QUIT
	155	QU
	156	<blank>
	157	VALM PRINT SCREEN
	158	PS
	159	<blank>
	160	VALM PRINT LIST
	161	PT
	162	<blank>
	163	VALM TURN ON/OFF MEN US
	164	ADPL
	165	<blank>
	166	VALM SEARC H LIST
	167	SL
	168	<blank>
	169	VALM RIGHT
	170	>
	171	<blank>
	172	VALM LEFT
	173	<
	174	<blank>
	175	VALM GOTO PAGE
	176	GO
	177	<blank>
	178	PSO ACTIVI TY LOGS
	179	AL
	180	11
	181	PSO VERIFY
	182	VF
	183	12
	184	PSO LM BAC KDOOR COPY
	185	CO
	186	13
	187	PSO LM BAC KDOOR TITR ATION RX R EFILL
	188	TR
	189	14
	190	PSO LM BAC KDOOR MARK AS TITRAT ION
	191	TM
	192	15
	193	PSO REPRIN T
	194	RP
	195	21
	196	PSO HOLD
	197	HD
	198	22
	199	PSO UNHOLD
	200	UH
	201	23
	202	PSO PATIEN T INFORMAT ION
	203	PI
	204	31
	205	PSO PULL O NE RX FROM SUSPENSE
	206	PP
	207	32
	208	PSO LM INP ATIENT MED ICATION PR OFILE
	209	IP
	210	33
	211	PSO LM HID DEN OTHER #2
	212	OTH
	213	34
	214	PSO REJECT DISPLAY O UTSIDE CAL L
	215	REJ
	216	35
	217	PSO LM BAC KDOOR PRTC L USRSCR V ERIFY
	218	VER
	219	35.5
	220	PSO LM BAC KDOOR PRTC L USRSCR R ESUBMIT
	221	RES
	222	35.7
	223	PSO LM BAC KDOOR PRTC L USRSCR R EVERSE
	224	REV
	225	35.8
	226	PSO LM INT ERVENTION MENU
	227	IN
	228	36
	229	PSO DISPLA Y DRUG ALL ERGIES
	230	DA
	231	37
	232	PSO DRUG R ESTR/GUIDE INFO
	233	DIN
	234	66
	235	PSO ERX OP PRINT
	236	EP
	237	67
	238	PSO EDIT C LAIM SUBMI TTED 1
	239	ECS
	240	70
	241
	242
	243	Field Attr ibutes
	244	Values
	245	NAME
	246	PSO REJECT DISPLAY H IDDEN MENU
	247	ITEM TEXT
	248	Reject Dis play Hidde n Menu
	249	ITEM
	250	MNEMONIC
	251	SEQUENCE
	252	PSO REJECT DISPLAY A DD COMMENT
	253	COM
	254	1
	255	PSO REJECT DISPLAY C LARIFICATI ON CODE
	256	CLA
	257	2
	258	PSO REJECT DISPLAY R X EDIT
	259	ED
	260	3
	261	PSO REJECT DISCONTIN UE
	262	DC
	263	3.5
	264	PSO REJECT DISPLAY P RIOR AUTHO RIZATION
	265	PA
	266	4
	267	PSO REJECT DISPLAY S MA
	268	SMA
	269	5
	270	VALM NEXT SCREEN
	271	+
	272	10
	273	VALM PREVI OUS SCREEN
	274	-
	275	11
	276	VALM DOWN A LINE
	277	DN
	278	12
	279	VALM UP ON E LINE
	280	UP
	281	13
	282	VALM FIRST SCREEN
	283	FS
	284	16
	285	VALM LAST SCREEN
	286	LS
	287	17
	288	VALM GOTO PAGE
	289	GO
	290	18
	291	VALM REFRE SH
	292	RD
	293	19
	294	VALM PRINT SCREEN
	295	PS
	296	20
	297	VALM PRINT LIST
	298	PT
	299	21
	300	VALM SEARC H LIST
	301	SL
	302	22
	303	VALM TURN ON/OFF MEN US
	304	ADPL
	305	23
	306	VALM QUIT
	307	QU
	308	24
	309	PSO REJECT DISPLAY A DDITIONAL INFO
	310	ARI
	311	25
	312	PSO REJECT SUSPENSE DT CALC
	313	SDC
	314	55
	315	PSO REJECT VIEW ECME RX
	316	VER
	317	65
	318	PSO EDIT C LAIM SUBMI TTED 2
	319	ECS
	320	70
	321
	322
	323	Field Attr ibutes
	324	Values
	325	NAME
	326	PSO REJECT TRICARE H IDDEN MENU
	327	ITEM TEXT
	328	Reject TRI CARE/CHAMP VA Hidden Menu
	329	ITEM
	330	MNEMONIC
	331	SEQUENCE
	332	PSO REJECT DISPLAY A DD COMMENT
	333	COM
	334	1
	335	PSO REJECT DISPLAY C LARIFICATI ON CODE
	336	CLA
	337	2
	338	PSO REJECT DISPLAY R X EDIT
	339	ED
	340	3
	341	PSO REJECT DISPLAY P RIOR AUTHO RIZATION
	342	PA
	343	4
	344	PSO REJECT DISPLAY S MA
	345	SMA
	346	5
	347	VALM NEXT SCREEN
	348	+
	349	10
	350	VALM PREVI OUS SCREEN
	351	-
	352	11
	353	VALM DOWN A LINE
	354	DN
	355	12
	356	VALM UP ON E LINE
	357	UP
	358	13
	359	VALM FIRST SCREEN
	360	FS
	361	16
	362	VALM LAST SCREEN
	363	LS
	364	17
	365	VALM GOTO PAGE
	366	GO
	367	18
	368	VALM REFRE SH
	369	RD
	370	19
	371	VALM PRINT SCREEN
	372	PS
	373	20
	374	VALM PRINT LIST
	375	PT
	376	21
	377	VALM SEARC H LIST
	378	SL
	379	22
	380	VALM TURN ON/OFF MEN US
	381	ADPL
	382	23
	383	VALM QUIT
	384	QU
	385	24
	386	PSO REJECT DISPLAY A DDITIONAL INFO
	387	ARI
	388	25
	389	PSO REJECT SUSPENSE DT CALC
	390	SDC
	391	55
	392	PSO REJECT VIEW ECME RX
	393	VER
	394	65
	395	PSO EDIT C LAIM SUBMI TTED 2
	396	ECS
	397	70
	398
	399
	400	The hidden actions m enu on the Reject In formation (RESOLVED) screen is also used by severa l other sc reens. We wish to ad d the ECS action to the Reject Informati on (RESOLV ED) screen but not t o those ot her screen s. To acco mplish thi s, we will create a new hidden actions m enu – PSO HIDDEN ACT IONS #6 – and modify the List Template f or the Rej ect Inform ation (RES OLVED) scr een to mak e use of t his new hi dden actio ns menu.
	401
	402	Field Attr ibutes
	403	Values
	404	NAME
	405	PSO HIDDEN ACTIONS # 6
	406	ITEM TEXT
	407	Outpatient Pharmacy Hidden Act ions #6
	408	ITEM
	409	MNEMONIC
	410	SEQUENCE
	411	PSO LM INT ERVENTION MENU
	412	IN
	413	10
	414	VALM NEXT SCREEN
	415	+
	416	11
	417	VALM PREVI OUS SCREEN
	418	-
	419	12
	420	VALM UP ON E LINE
	421	UP
	422	13
	423	VALM DOWN A LINE
	424	DN
	425	14
	426	VALM RIGHT
	427	>
	428	15
	429	VALM LEFT
	430	<
	431	16
	432	VALM FIRST SCREEN
	433	FS
	434	21
	435	VALM LAST SCREEN
	436	LS
	437	22
	438	VALM GOTO PAGE
	439	GO
	440	23
	441	VALM REFRE SH
	442	RD
	443	24
	444	VALM PRINT SCREEN
	445	PS
	446	25
	447	VALM PRINT LIST
	448	PT
	449	26
	450	VALM SEARC H LIST
	451	SL
	452	31
	453	VALM TURN ON/OFF MEN US
	454	ADPL
	455	32
	456	VALM QUIT
	457	QU
	458	33
	459	PSO REJECT DISPLAY A DDITIONAL INFO
	460	ARI
	461	34
	462	PSO REJECT VIEW ECME RX
	463	VER
	464	35
	465	PSO EDIT C LAIM SUBMI TTED 2
	466	ECS
	467	36
	468
	469
	470	List Templ ate
	471	PSO REJECT DISPLAY – RESOLVED
	472	HIDDEN ACT ION MENU - Before
	473	PSO HIDDEN ACTIONS # 1
	474	HIDDEN ACT ION MENU - After
	475	PSO HIDDEN ACTIONS # 6
	476
	477
	478
	479	Subroutine Name
	480	ECS^PSOBPS U3
	481	Enhancemen t Category
	482	New
	483	Modify
	484
	485
	486	Current Lo gic
	487
	488	n/a
	489
	490	Modified L ogic (Chan ges are hi ghlighted)
	491
	492	ECS(PSORX, PSOFILL,PS OSCREEN) ; Edit Clai m to be Su bmitted.
	493	;
	494	; Input: P SORX = Pre scription IEN, point er to file #52, ^PSR X
	495	; P SOFILL = R efill#. I f not pass ed in, the n the user
	496	; will be prompted t o select a fill.
	497	; P SOSCREEN = 1 if comi ng from th e Medicati on Profile
	498	; Screen, 2 if comin g from the Reject In fo Screen
	499	;
	500	; This entr y point is associate d with the action EC S Edit Cla im
	501	; Submitted . The use r is asked to select a date to be used a s the
	502	; date of s ervice on the claim. The user is then a ble to sel ect
	503	; one or mo re NCPDP f ields to b e added to the claim . The cla im is
	504	; then resu bmitted.
	505	;
	506	N DIR,DIRUT ,PSOADDLFL DS,PSOALTX T,PSOCLAIM ,PSOCOB,PS ODATESELEC TED
	507	N PSODOS,PS OELIG,PSOI EN59,PSOQU IT,PSORESP ONSE,PSOVA LID,PSOVRI EN
	508	S PSOCOB=""
	509	S PSOQUIT=0
	510	;
	511	I '$D(@(VAL MAR)) G EC SQUIT
	512	D FULL^VALM 1
	513	;
	514	; If Fill w as not pas sed in, th en prompt the user t o select a fill.
	515	; If the us er exited out or the re was not a fill wi th ECME ac tivity,
	516	; then exit out.
	517	;
	518	I $G(PSOFIL L)="" D I PSOQUIT=- 1 G ECSQUI T
	519	. S PSOFILL =$$FILL(PS ORX,DFN)
	520	. I $D(DIRU T) S PSOQU IT=-1 Q
	521	. I PSOFILL ="" D
	522	. . W !!,"N o claim wa s ever sub mitted for this pres cription. Cannot re submit."
	523	. . D PAUSE ^VALM1
	524	. . S PSOQU IT=-1
	525	. . Q
	526	. Q
	527	;
	528	; Determine the Trans action IEN and Claim IEN.
	529	;
	530	S PSOIEN59= $$CLAIM^BP SBUTL(PSOR X,PSOFILL) ; ICR# 4 719
	531	S PSOCLAIM= $P(PSOIEN5 9,U,2)
	532	S PSOIEN59= $P(PSOIEN5 9,U,1)
	533	I PSOIEN59= ""!(PSOCLA IM="") D G ECSQUIT
	534	. W !!,"No Initial Cl aim Submis sion Found - Data El ements are NOT Edita ble for Re -"
	535	. W !,"Subm ission"
	536	. D PAUSE^V ALM1
	537	. Q
	538	;
	539	; Disallow resubmissi on if Fill or Rx has been dele ted.
	540	;
	541	I $$RXDEL(P SORX,PSOFI LL) D G E CSQUIT
	542	. W !!,"The claim can not be Res ubmitted s ince it ha s been del eted in Ph armacy."
	543	. D PAUSE^V ALM1
	544	. Q
	545	;
	546	; $$VAL^BPS PSOU1 perf orms sever al checks to determi ne whether the
	547	; claim can be resubm itted.
	548	;
	549	S PSOELIG=$ $ELIGDISP^ PSOREJP1(P SORX,PSOFI LL)
	550	S PSOVALID= $$VAL^BPSP SOU1(PSORX ,PSOFILL,P SOELIG,"RE S",.PSOCOB ,"",1) ; ICR# 6248
	551	I 'PSOVALID G ECSQUIT
	552	;
	553	W !!,"Enter ^ at any prompt to exit"
	554	;
	555	; If there is an unre solved rej ect for th is Rx/Fill , ask user to
	556	; confirm t hat they w ish to res olve the r eject and resubmit a claim.
	557	;
	558	S PSOQUIT=0
	559	I $$FIND^PS OREJUT(PSO RX,PSOFILL ) D I PSO QUIT'=1 G ECSQUIT
	560	. W !!," When you confirm, a new clai m will be submitted for"
	561	. W !," the presc ription an d this REJ ECT will b e marked"
	562	. W !," resolved. "
	563	. S PSOQUIT =$$YESNO^P SOREJP3(" Confir m","YES")
	564	. Q
	565	;
	566	; Allow use r to selec t a date t o use as t he Date of Service.
	567	; PSODATESE LECTED wil l be reset to 1 if t he user is prompted to
	568	; select a date withi n $$EDITDT and the u ser select ed a date
	569	; not equal to the Re lease Date ; otherwis e it will be left as 0.
	570	;
	571	S PSOALTXT= ""
	572	S PSODATESE LECTED=0
	573	S PSODOS=$$ EDITDT(PSO RX,PSOFILL ,PSOCOB,PS OCLAIM,PSO IEN59,.PSO ALTXT,.PSO DATESELECT ED)
	574	I PSODOS="^ " G ECSQUI T
	575	;
	576	; Allow use r to add t o the clai m addition al fields which are
	577	; not on th e payer sh eet.
	578	;
	579	S PSOQUIT=$ $ADDLFLDS^ BPSRES1(PS OCLAIM,PSO IEN59,.PSO ADDLFLDS,$ S(PSODATES ELECTED:PS ODOS,1:"") ) ; ICR# tbd
	580	I PSOQUIT=- 1 G ECSQUI T
	581	;
	582	; If the us er did not add any a dditional NCPDP fiel ds to the claim
	583	; ('PSOQUIT ), and the user did not select a data of service
	584	; ('PSODATE SELECTED), then disp lay a mess age and Qu it.
	585	;
	586	I 'PSOQUIT, 'PSODATESE LECTED D G ECSQUIT
	587	. W !!,"No value chan ged. A cl aim will n ot be subm itted.",!
	588	. N DIR
	589	. S DIR(0)= "E"
	590	. S DIR("A" )="Press e nter to co ntinue"
	591	. D ^DIR
	592	. Q
	593	;
	594	; Require t he user to confirm t hey wish t o continue .
	595	;
	596	W !!,"A cla im will be submitted now."
	597	S PSOQUIT=$ $YESNO^PSO REJP3("Are you sure (Y/N)","Y" )
	598	I PSOQUIT'= 1 G ECSQUI T
	599	;
	600	; Save the list of ad ditional f ields in f ile# 90023 13.511,
	601	; BPS NCPDP OVERRIDES .
	602	;
	603	I $D(PSOADD LFLDS) D I PSOQUIT= -1 G ECSQU IT
	604	. S PSOQUIT =$$SAVE^BP SRES1("ECS ",PSOIEN59 ,.PSOADDLF LDS,.PSOVR IEN) ; IC R# tbd
	605	. Q
	606	;
	607	; Call ECME SND^PSOBPS U1 to reve rse the ex isting cla im and sub mit a new
	608	; claim. T he additio nal fields indicated by the us er will be added to
	609	; the claim in XLOOP^ BPSOSCF an d XLOOP^BP SOSH2.
	610	;
	611	D ECMESND^P SOBPSU1(PS ORX,PSOFIL L,PSODOS," ED","","", "RX EDITED ","","",.P SORESPONSE ,"",PSOALT XT,"","",P SOCOB,$G(P SOVRIEN(1) ))
	612	;
	613	; If the cl aim submis sion was u nsuccessfu l, then PS ORESPONSE will
	614	; not be bl ank. Disp lay the re ason it fa iled, then quit out.
	615	;
	616	I $G(PSORES PONSE) D G ECSQUIT
	617	. W !!?10," Claim coul d not be s ubmitted. Please tr y again la ter!"
	618	. W !,?10," Reason: ", $S($P(PSOR ESPONSE,"^ ",2)="":"U NKNOWN",1: $P(PSORESP ONSE,"^",2 )),$C(7)
	619	. D PAUSE^V ALM1
	620	. Q
	621	;
	622	; Condition ally promp t the user "Print La bel?". If user wish es to
	623	; print a l abel, then either pu t the Rx o n queue to be printe d when
	624	; the user leaves the screen (i f on Medic ation Prof ile Screen ) or
	625	; print the label now (if on th e Reject I nfo Screen ).
	626	;
	627	I $$PTLBL^P SOREJP2(PS ORX,PSOFIL L) D
	628	. I PSOSCRE EN=1 S PSO RX("PSOL", 1)=PSORX_" ,"
	629	. I PSOSCRE EN=2 D PRI NT^PSOREJP 3(PSORX,PS OFILL)
	630	. Q
	631	;
	632	; If on the Reject In fo Screen, then if t he Status Filter
	633	; (PSOSTFLT ) is not " B"oth, set the CHANG E flag to 1, which
	634	; will caus e the scre en to be r ebuilt.
	635	;
	636	I PSOSCREEN =2,$D(PSOS TFLT),PSOS TFLT'="B" S CHANGE=1
	637	;
	638	D PAUSE^VAL M1
	639	;
	640	ECSQUIT ;
	641	;
	642	S VALMBCK=" R"
	643	;
	644	Q
	645
	646
	647
	648	Subroutine Name
	649	EDITDT^PSO BPSU3
	650	Enhancemen t Category
	651	New
	652	Modify
	653
	654
	655	Current Lo gic
	656
	657	n/a
	658
	659	Modified L ogic (Chan ges are hi ghlighted)
	660
	661	EDITDT(PSO RX,PSOFILL ,PSOCOB,PS OCLAIM,PSO IEN59,PSOA LTXT,PSODA TESELECTED ) ; Allow user to se lect Date of Service .
	662	;
	663	; Input: P SORX = Pre scription IEN, point er to file # 52, ^PSR X
	664	; P SOFILL = R efill#. I f not pass ed in, the n the user
	665	; P SOCOB = CO B (1=Prima ry, etc.)
	666	; P SOCLAIM = Claim IEN, pointer t o file# 90 02313.02, ^BPSC
	667	; P SOIEN59 = Transactio n IEN, poi nter to fi le# 900231 3.59
	668	;
	669	; Output: S elected Da te of Serv ice, in Fi leMan form at
	670	; P SOALTXT = Passed by reference; populate if user
	671	; selects t he Release Date
	672	; P SODATESELE CTED = Pas sed by ref erence; se t to '1' i f
	673	; the user selected a date diff erent from the Relea se
	674	; Date.
	675	;
	676	N DIR,DIRUT ,DIROUT,DT OUT,DUOUT
	677	N PSOCLAIM2 ,PSODATE,P SODATEARRA Y,PSODESC, PSOFILLDT
	678	N PSOIEN57, PSORELEASE DT,PSOTEMP ,X,Y
	679	;
	680	; Determine the Relea se Date, t he Fill Da te, and al l Dates of Service.
	681	; In order to present the entir e list to the user i n chronolo gical
	682	; order, th ey will be put into an array.
	683	;
	684	S PSORELEAS EDT=$$RXRL DT^PSOBPSU T(PSORX,PS OFILL)\1
	685	I +PSORELEA SEDT=0 D Q DT
	686	. S X=$$FMT E^XLFDT(DT ,"5D")
	687	. W !!,"Rx is not rel eased. Da te of Serv ice will b e ",X,"."
	688	. S PSOALTX T="Date of Service ( "_X_")"
	689	. Q
	690	S PSODATEAR RAY(PSOREL EASEDT,3)= "Release D ate"
	691	S PSOFILLDT =$$RXFLDT^ PSOBPSUT(P SORX,PSOFI LL)\1
	692	I PSOFILLDT '="" S PSO DATEARRAY( PSOFILLDT, 1)="Fill D ate"
	693	;
	694	; Add to th e array ea ch Date of Service f rom all pr evious Cla ims,
	695	; which are identifie d by loopi ng through all entri es in the BPS Log
	696	; of Transa ctions fil e for the current BP S Transact ion and pu lling
	697	; the Claim for each entry and the Date o f Service for that C laim.
	698	;
	699	S PSOIEN57= 0
	700	F S PSOIEN 57=$O(^BPS TL("B",PSO IEN59,PSOI EN57)) Q:' PSOIEN57 D
	701	. S PSOCLAI M2=$$GET1^ DIQ(900231 3.57,PSOIE N57,3,"I")
	702	. S PSODATE =$$HL7TFM^ XLFDT($$GE T1^DIQ(900 2313.02,PS OCLAIM2,40 1))
	703	. I PSODATE '="" S PSO DATEARRAY( PSODATE,2) ="Date of Service"
	704	. Q
	705	;
	706	; If the da tes are al l the same , then the user is n ot
	707	; allowed t o select a date.
	708	;
	709	S PSODATE=$ O(PSODATEA RRAY(""))
	710	I $O(PSODAT EARRAY(PSO DATE))="" D Q PSODA TE
	711	. W !
	712	. S X=0
	713	. F S X=$O (PSODATEAR RAY(PSODAT E,X)) Q:'X D
	714	. . W !,?10 ,$$FMTE^XL FDT(PSODAT E,"5D")," ",PSODATEA RRAY(PSODA TE,X)
	715	. . Q
	716	. W !!,"Cla im will be submitted with ",$$ FMTE^XLFDT (PSODATE," 5D")," Dat e of Servi ce."
	717	. S PSOALTX T="Date of Service ( "_$$FMTE^X LFDT(PSODA TE,"5D")_" )"
	718	. Q
	719	;
	720	S DIR("?",1 )=" Ente r a date o f service to overrid e the date algorithm ."
	721	S DIR("?")= " The da te algorit hm will us e the rele ase date a s a defaul t value."
	722	S DIR("A")= "Date of S ervice"
	723	S DIR("B")= 1
	724	S DIR(0)="S ^"
	725	S Y=0
	726	S PSODATE=0
	727	F S PSODAT E=$O(PSODA TEARRAY(PS ODATE)) Q: 'PSODATE D
	728	. S X=0
	729	. F S X=$O (PSODATEAR RAY(PSODAT E,X)) Q:'X D
	730	. . S Y=Y+1
	731	. . S PSOTE MP(Y)=PSOD ATE
	732	. . S PSODE SC=PSODATE ARRAY(PSOD ATE,X)
	733	. . S DIR(0 )=DIR(0)_Y _":"_$$FMT E^XLFDT(PS ODATE,"5D" )_" "_PSOD ESC_";"
	734	. . I PSODE SC="Releas e Date" S DIR("B")=Y
	735	. . Q
	736	. Q
	737	;
	738	D ^DIR
	739	I $D(DIRUT) Q "^"
	740	;
	741	; If we get here, the user sele cted a dat e. Set th e PSODATES ELECTED
	742	; flag to 1 if the us er selecte d a date o ther than the Releas e Date
	743	; and set P SOALTXT, w hich will eventually be put on the Activ ity Log.
	744	;
	745	I Y'=DIR("B ") S PSODA TESELECTED =1
	746	S PSOALTXT= "Date of S ervice ("_ $$FMTE^XLF DT(PSOTEMP (Y),"5D")_ ")"
	747	;
	748	Q PSOTEMP(Y )
	749
	750
	751
	752	Subroutine Name
	753	VAL^BPSPSO U1
	754	Enhancemen t Category
	755	New
	756	Modify
	757
	758
	759	Current Lo gic
	760
	761	VAL(RXIEN, FILL,PSOEL IG,ACTION, COB,REVREA S) ;
	762	; Input:
	763	; RXIE N = Pres cription i en
	764	; FILL = FILL #
	765	; PSOE LIG = TRIC ARE or CHA MPVA
	766	; ACTI ON = "REV " - Revers e or "RES" - Resubmi t
	767
	768	...
	769
	770	I BPINPROG= 0!(BPSYN) D
	771	. W !!,"You 've chosen to "_$S(A CTION="REV ":"REVERSE ",1:"RESUB MIT")_" th e followin g prescrip tion for " _$E(PATNAM E,1,13)_". "
	772	I ACTION="R EV" D
	773	. W !,"Plea se provide the reaso n or enter ^ to aban don the re versal."
	774	. F S REVR EAS=$$COMM ENT^BPSSCR CL("Enter REQUIRED R EVERSAL RE ASON",60) Q:REVREAS= "^" Q:($L (REVREAS)> 0)&(REVREA S'="^")&(' (R
	775	EVREAS?1" "." "))
	776	I $G(REVREA S)["^" W ! !,"The cla im was NOT reversed! " D PAUSE^ VALM1 Q 0
	777	S BPSYN=$$Y ESNO("Are you sure?( Y/N)")
	778	I BPSYN<1 Q 0
	779	Q 1
	780
	781	Modified L ogic (Chan ges are hi ghlighted)
	782
	783	VAL(RXIEN, FILL,PSOEL IG,ACTION, COB,REVREA S,BPSSKIPC ON) ;
	784	; Input:
	785	; RXIE N = Pres cription i en
	786	; FILL = FILL #
	787	; PSOE LIG = TRIC ARE or CHA MPVA
	788	; ACTI ON = "REV " - Revers e or "RES" – Resubmi t
	789	; BPSS KIPCON = I f 1, then skip the c onfirmatio n at the e nd
	790
	791	...
	792
	793	I BPINPROG= 0!(BPSYN) D
	794	. I ACTION= "RES",$G(B PSSKIPCON) Q
	795	. W !!,"You 've chosen to "_$S(A CTION="REV ":"REVERSE ",1:"RESUB MIT")_" th e followin g prescrip tion for " _$E(PATNAM E,1,13)_". "
	796	I ACTION="R EV" D
	797	. W !,"Plea se provide the reaso n or enter ^ to aban don the re versal."
	798	. F S REVR EAS=$$COMM ENT^BPSSCR CL("Enter REQUIRED R EVERSAL RE ASON",60) Q:REVREAS= "^" Q:($L (REVREAS)> 0)&(REVREA S'="^")&(' (R
	799	EVREAS?1" "." "))
	800	I $G(REVREA S)["^" W ! !,"The cla im was NOT reversed! " D PAUSE^ VALM1 Q 0
	801	I $G(BPSSKI PCON) Q 1 ; Skip co nfirmation question if flag is set.
	802	S BPSYN=$$Y ESNO("Are you sure?( Y/N)")
	803	I BPSYN<1 Q 0
	804	Q 1
	805
	806
	807
	808	The pointe r to file #9002313.5 11, BPS NC PDP OVERRI DE, is set inside $$ SAVE^BPSRE S1, but it was not b eing passe d as a par ameter. Si nce that f unction wi ll now be called fro m another routine (i n addition to the be low call), the varia ble will b e added as a paramet er, passed by refere nce, and t he call to $$SAVE^BP SRES1 from PROMPTS^B PSRES will be update d to inclu de it.
	809
	810	Subroutine Name
	811	SAVE^BPSRE S1
	812	Enhancemen t Category
	813	New
	814	Modify
	815
	816
	817	Current Lo gic
	818
	819	SAVE(BPSAC TION,BPS59 ,BPSADDLFL DS) ; Save into BPS NCPDP OVER RIDES (#90 02313.511)
	820	;
	821	; If the user choos es to add any fields to the cl aim, each field
	822	; will be listed as BPSADDLFL DS(Field I EN).
	823	;
	824	; Input: BPSACTION = Action selected b y user (e. g. RED, PR O)
	825	; BPS59 = P ointer to BPS TRANSA CTIONS
	826	; BPSADDLFL DS = Passe d by refer ence, arra y listing the
	827	; NCPDP fields to be added t o the clai m.
	828	; BPSADD LFLDS(NCPD P Field) = ""
	829
	830	...
	831
	832	D UPDATE^ DIE("","BP SFDA","BPO VRIEN","BP SMSG")
	833	;
	834	I $D(BPSM SG("DIERR" )) W !!,"C ould Not S ave Overri de informa tion into BPS NCPDP OVERRIDES FILES.",! Q -1
	835	;
	836	Q 1
	837
	838
	839	Modified L ogic (Chan ges are hi ghlighted)
	840
	841	SAVE(BPSAC TION,BPS59 ,BPSADDLFL DS,BPSOVRI EN) ; Save into BPS NCPDP OVER RIDES (#90 02313.511)
	842	;
	843	; If the user choos es to add any fields to the cl aim, each field
	844	; will be listed as BPSADDLFL DS(Field I EN).
	845	;
	846	; Input: BPSACTION = Action selected b y user (e. g. RED, PR O)
	847	; BPS59 = P ointer to BPS TRANSA CTIONS
	848	; BPSADDLFL DS = Passe d by refer ence, arra y listing the
	849	; NCPDP fields to be added t o the clai m.
	850	; BPSADD LFLDS(NCPD P Field) = ""
	851	; BPSOVRIEN = Passed by referen ce, ien of entry in the
	852	; file B PS NCPDP O VERRIDE
	853
	854	...
	855
	856	D UPDATE^ DIE("","BP SFDA","BPS OVRIEN","B PSMSG")
	857	;
	858	I $D(BPSM SG("DIERR" )) D Q -1
	859	. W !!,"C ould not s ave overri de informa tion into BPS NCPDP OVERRIDE f ile.",!
	860	. N DIR
	861	. S DIR(0 )="E"
	862	. S DIR(" A")="Press Return to continue. "
	863	. D ^DIR
	864	. Q
	865	;
	866	Q 1
	867
	868
	869
	870	Subroutine Name
	871	PROMPTS^BP SRES
	872	Enhancemen t Category
	873	New
	874	Modify
	875
	876
	877	Current Lo gic
	878
	879	I '$$SAVE ^BPSRES1(" RED",BP59, .BPSADDLFL DS) S BPQ= -1
	880
	881	Modified L ogic (Chan ges are hi ghlighted)
	882
	883	I '$$SAVE ^BPSRES1(" RED",BP59, .BPSADDLFL DS,.BPOVRI EN) S BPQ= -1
	884
	885
	886
	887	The Date o f Service will be ad ded as a p arameter o f ADDLFLDS ^BPSRES1 s o that it can be dis played to the user w hen the li st of fiel ds to be t ransmitted is displa yed at the end of th e subrouti ne.
	888
	889	Subroutine Name
	890	ADDLFLDS^B PSRES1
	891	Enhancemen t Category
	892	New
	893	Modify
	894
	895
	896	Current Lo gic
	897
	898	ADDLFLDS(B PS02,BPS59 ,BPSADDLFL DS) ; Add fields to a claim.
	899	; This fu nction all ows the us er to add to claim f ields not on payer
	900	; sheet. It is use d by the R ED/Resubmi t with Edi ts Action on the
	901	; ECME Us er Screen and by the PRO Optio n (Process Secondary /TRICARE
	902	; Rx to E CME).
	903	; Input: BPS02 = Po inter to B PS CLAIMS
	904	; BPS59 = Po inter to B SP TRANSAC TION
	905	; This fu nction wil l return:
	906	; 1 - If user e ntered add itional fi elds.
	907	; 0 - If user a dded no fi elds.
	908	; -1 - If user e xited out via "^".
	909	; This fu nction wil l also set up the ar ray BPSADD FLDS if th e user
	910	; chooses to add an y fields t o the clai m.
	911	; BPSA DDLFLDS(Fi eld IEN) = Value to Send
	912	;
	913	N BPS,BPS FIELD,BPSG ETCODE,BPS PAYER,BPSQ ,BPSSEGMEN T
	914	N DIC,MED N,TRANLIST ,X,Y
	915	;
	916	; Prompt user wheth er to ente r addition al fields. Quit wit h -1 if
	917	; user en tered "^". Quit wit h 0 if use r entered "No".
	918	;
	919	S BPSQ=$$ YESNO^BPSS CRRS("Subm it NCPDP F ield Not o n Payer Sh eet (Y/N)" ,"N")
	920	I BPSQ'=1 Q BPSQ
	921	;
	922	; Kill ar ray that w ill contai n list of fields to be added.
	923	;
	924	K BPSADDL FLDS
	925
	926	...
	927
	928	A2 ; User is done se lecting fi elds to ad d.
	929	;
	930	; If user added no fields, Qu it with 0.
	931	;
	932	I '$D(BPS ADDLFLDS) Q 0
	933	;
	934	; Display to the us er the lis t of field s being ad ded to the claim.
	935	;
	936	W !!,"Fie lds entere d to trans mit:"
	937	S BPSFIEL D=""
	938	F S BPSF IELD=$O(BP SADDLFLDS( BPSFIELD)) Q:'BPSFIE LD D
	939	. W !,?4, $$GET1^DIQ (9002313.9 1,BPSFIELD ,.01),"-"
	940	. W $$GET 1^DIQ(9002 313.91,BPS FIELD,.06) ," "
	941	. W $$GET 1^DIQ(9002 313.91,BPS FIELD,.03) ,": "
	942	. W BPSAD DLFLDS(BPS FIELD)
	943	. Q
	944	;
	945	Q 1
	946
	947
	948	Modified L ogic (Chan ges are hi ghlighted)
	949
	950	ADDLFLDS(B PS02,BPS59 ,BPSADDLFL DS,BPSDOS) ; Add fie lds to a c laim.
	951	; This fu nction all ows the us er to add to claim f ields not on payer
	952	; sheet. It is use d by the R ED/Resubmi t with Edi ts Action on the
	953	; ECME Us er Screen and by the PRO Optio n (Process Secondary /TRICARE
	954	; Rx to E CME).
	955	; Input: BPS02 = Po inter to B PS CLAIMS
	956	; BPS59 = Po inter to B SP TRANSAC TION
	957	; BPSDOS = D ate of Ser vice; if p assed in, then displ ay
	958	; w hen listin g fields t o be added to claim
	959	; This fu nction wil l return:
	960	; 1 - If user e ntered add itional fi elds.
	961	; 0 - If user a dded no fi elds.
	962	; -1 - If user e xited out via "^".
	963	; This fu nction wil l also set up the ar ray BPSADD FLDS if th e user
	964	; chooses to add an y fields t o the clai m.
	965	; BPSA DDLFLDS(Fi eld IEN) = Value to Send
	966	;
	967	N BPS,BPS FIELD,BPSG ETCODE,BPS PAYER,BPSQ ,BPSSEGMEN T
	968	N DIC,MED N,TRANLIST ,X,Y
	969	;
	970	; Prompt user wheth er to ente r addition al fields. If user enters
	971	; "No", d isplay the Date of S ervice, if it exists , then Qui t with 0.
	972	; If user enters "^ ", Quit wi th -1.
	973	;
	974	W !
	975	S BPSQ=$$ YESNO^BPSS CRRS("Subm it NCPDP F ield Not o n Payer Sh eet (Y/N)" ,"N")
	976	I BPSQ=0, $G(BPSDOS) '="" W !!, "Fields en tered to t ransmit:", !,?4,"Date of Servic e: ",$$FMT E^XLFDT(BP SDOS,"5D")
	977	I BPSQ'=1 Q BPSQ
	978	;
	979	; Kill ar ray that w ill contai n list of fields to be added.
	980	;
	981	K BPSADDL FLDS
	982
	983	...
	984
	985	A2 ; User is done se lecting fi elds to ad d.
	986	;
	987	; If user added no fields, Qu it with 0.
	988	;
	989	I '$D(BPS ADDLFLDS), '$G(BPSDOS ) Q 0
	990	;
	991	; Display to the us er the lis t of field s being ad ded to the claim.
	992	;
	993	W !!,"Fie lds entere d to trans mit:"
	994	I $G(BPSD OS)'="" W !,?4,"Date of Servic e: ",$$FMT E^XLFDT(BP SDOS,"5D")
	995	S BPSFIEL D=""
	996	F S BPSF IELD=$O(BP SADDLFLDS( BPSFIELD)) Q:'BPSFIE LD D
	997	. W !,?4, $$GET1^DIQ (9002313.9 1,BPSFIELD ,.01),"-"
	998	. W $$GET 1^DIQ(9002 313.91,BPS FIELD,.06) ," "
	999	. W $$GET 1^DIQ(9002 313.91,BPS FIELD,.03) ,": "
	1000	. W BPSAD DLFLDS(BPS FIELD)
	1001	. Q
	1002	;
	1003	Q 1
	1004
	1005
	1006
	1007	From Outpa tient Phar macy, the claims sub mission pr ocess is i nitiated v ia a call to ECMESND ^PSOBPSU1, which the n calls EN ^BPSNCPDP. To commun icate to t he claims submission process t hat additi onal field s need to be added t o the clai m, the IEN to file# 9002313.51 1, BPS NCP DP OVERRID E, needs t o be passe d into ECM ESND^PSOBP SU1 so tha t it can b e passed i nto EN^BPS NCPDP. Tha t field al ready exis ts as a pa rameter of EN^BPSNCP DP, but it needs to be added t o the list of parame ters of EC MESND^PSOB PSU1, and it needs t o be added to the ca ll to EN^B PSNCPDP.
	1008
	1009	Subroutine Name
	1010	ECMESND^PS OBPSU1
	1011	Enhancemen t Category
	1012	New
	1013	Modify
	1014
	1015
	1016	Current Lo gic
	1017
	1018	ECMESND(RX ,RFL,DATE, FROM,NDC,C MOP,RVTX,O VRC,CNDC,R ESP,IGSW,A LTX,CLA,PA ,RXCOB) ; - Sends Rx Release
	1019
	1020	...
	1021
	1022	; ( o) RXCOB- Payer Sequ ence
	1023	;Output: RESP - Response f rom $$EN^B PSNCPDP ap i
	1024
	1025	...
	1026
	1027	S RESP=$$ EN^BPSNCPD P(RX,RFL,$ $DOS(RX,RF L,.DATE),F ROM,NDC,$G (RVTX),$G( OVRC),,$G( CLA),$G(PA ),$G(RXCOB ))
	1028
	1029
	1030	Modified L ogic (Chan ges are hi ghlighted)
	1031
	1032	ECMESND(RX ,RFL,DATE, FROM,NDC,C MOP,RVTX,O VRC,CNDC,R ESP,IGSW,A LTX,CLA,PA ,RXCOB,PSO VRIEN) ; - Sends Rx Release
	1033
	1034	...
	1035
	1036	; ( o) RXCOB- Payer Sequ ence
	1037	; ( o) PSOVRIE N - IEN to BPS NCPDP OVERRIDE (#9002313. 511)
	1038	;Output: RESP - Response f rom $$EN^B PSNCPDP ap i
	1039
	1040	...
	1041
	1042	S RESP=$$ EN^BPSNCPD P(RX,RFL,$ $DOS(RX,RF L,.DATE),F ROM,NDC,$G (RVTX),$G( OVRC),$G(P SOVRIEN),$ G(CLA),$G( PA),$G(RXC OB))
	1043
	1044
	1045
	1046	One new IC R will nee d to be cr eated to a llow routi nes in PSO to call $ $ADDLFLDS^ BPSRES1 an d $$SAVE^B PSRES1.