21. EPMO Open Source Coordination Office Redaction File Detail Report

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

21.1 Files compared

#	Location	File	Last Modified
1	MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218	TAS+ePhm+SDD+US594+v1.1.docx	Fri Feb 23 17:47:55 2018 UTC
2	MCCF EDI TAS ePharmacy 031218.zip\MCCF EDI TAS ePharmacy 031218	TAS+ePhm+SDD+US594+v1.1.docx	Wed Apr 18 00:24:51 2018 UTC

21.2 Comparison summary

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

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

21.4 Active regular expressions

No regular expressions were active.

21.5 Comparison detail

	1	MCCF EDI T AS US594
	2	System Des ign Docume nt
	3
	4
	5
	6
	7
	8	Department of Vetera ns Affairs
	9	December 2 017
	10	Version 1. 1
	11
	12	User Story Number: U SRX-20
	13	User Story Name: Re view the P harmacy Se nsitive Dr ug and Med ication Pr ofile
	14	Product Ba cklog ID: 182
	15	Backlog Pr iority: (H igh, Mediu m, Low)
	16	Initial Si zing Estim ate:
	17	Rational I D: tbd
	18	Rally ID: US594
	19	Design – S ummary
	20	Add two ne w sections to the Vi ew ePharma cy Rx [BPS RPT VIEW ECME RX] s creen, and add two n ew Actions to the sc reen. The se new sec tions will display t he same in formation as the exi sting menu options a nd actions listed be low.
	21	ROI Releas e of Info / Patient Release of Informati on [IBCNR RELEASE OF INFORMATI ON]
	22	MP Med Pro file / act ion on Rej ect Inform ation scre en: MP Med ication Pr ofile
	23
	24	List of Co mponents:
	25	Routine: B PSVRX
	26	Routine: B PSVRX3
	27	Routine: P SOPMP0
	28	PROTOCOL: BPS VIEW E CME RX MEN U
	29	PROTOCOL: BPS VRX NA V BILL LIS T
	30	PROTOCOL: BPS VRX NA V BILLING EVENTS RPT
	31	PROTOCOL: BPS VRX NA V CRI
	32	PROTOCOL: BPS VRX NA V DG ELIG STATUS
	33	PROTOCOL: BPS VRX NA V DG ELIG VERIFICATI ON
	34	PROTOCOL: BPS VRX NA V ECME CLA IM LOG
	35	PROTOCOL: BPS VRX NA V INS POL
	36	PROTOCOL: BPS VRX NA V MED PROF ILE
	37	PROTOCOL: BPS VRX NA V PRINT RE PORT
	38	PROTOCOL: BPS VRX NA V SENSITIV E DRUG
	39	PROTOCOL: BPS VRX NA V TPJI AR ACCT PROFI LE
	40	PROTOCOL: BPS VRX NA V TPJI AR COMMENT HI STORY
	41	PROTOCOL: BPS VRX NA V TPJI CLA IM INFORMA TION
	42	PROTOCOL: BPS VRX NA V TPJI ECM E RX INFO
	43	PROTOCOL: BPS VRX NA V VIEWRX
	44	PROTOCOL: VALM BLANK 3
	45
	46	Design – D etail
	47	The routin e which bu ilds the l ist will b e modified to includ e two addi tional sec tions.
	48
	49	Subroutine Name
	50	BUILD^BPSV RX
	51	Enhancemen t Category
	52	New
	53	Modify
	54	Delete
	55	No Change
	56	Story
	57	US594
	58	Related Me nu Options or ListMa n Actions
	59	BPS RPT VI EW ECME RX
	60	Related Su broutines
	61	This Subro utine is C alled By
	62	This Subro utine Call s
	63
	64	INIT^BPSVR X
	65	BILL^BPSVR X1, CRI^BP SVRX1, INS ^BPSVRX1, LOG^BPSVRX 1, TPJIARC H^BPSVRX1, TPJIARP^B PSVRX1, TP JICI^BPSVR X1, TPJIEC ME^BPSVRX1 , TPJILST^ BPSVRX1, V IEWRX^BPSV RX1, GELST ^BPSVRX2, DGELV^BPSV RX2
	66	Related In tegration Control Re gistration s (ICRs)
	67	n/a
	68	Data Passi ng
	69	Parameter Input
	70	Parameter Output
	71	Function Return Val ue
	72	Global Mo dified
	73	Input Attr ibute Name and Defin ition
	74	Name: RXIE N
	75	Definition : IEN for Prescripti on
	76	New Modify Delete No Cha nge
	77	Name: FILL
	78	Definition : Fill num ber (0 if original)
	79	New Modify Delete No Cha nge
	80	Name: VIEW TYPE
	81	Definition : If “A”, then inclu de all tra nsaction f or this Rx /Fill; if “M”, then include on ly the mos t recent t ransaction .
	82	New Modify Delete No Cha nge
	83	Output Att ribute Nam e and Defi nition
	84	Name: n/a
	85	Definition :
	86	New Modify Delete No Cha nge
	87	Current Lo gic
	88
	89	BUILD(RXIE N,FILL,VIE WTYPE) ; b uild list
	90	; This is c alled in t he INIT se ction to b uild the L istMan scr atch globa l
	91	; all param eters are required a nd must ex ist when t his is cal led
	92	;
	93	S BPSVRX=1 ; specia l variable indicatin g this is the driver routine
	94	I '$D(ZTQUE UED) W !
	95	K ^TMP("BPS VRX",$J) ; initia lize displ ay array
	96	;
	97	D VIEWRX^BP SVRX1(RXIE N,FILL,VIE WTYPE,1) ; View Pre scriptions [PSO VIEW ]
	98	D LOG^BPSVR X1(RXIEN,F ILL,VIEWTY PE,2) ; ECME Pri nt Claim L og
	99	D BILL^BPSV RX1(RXIEN, FILL,VIEWT YPE,3) ; IB ECME Billing Ev ents Repor t
	100	D CRI^BPSVR X1(RXIEN,F ILL,VIEWTY PE,4) ; ECME Cla ims-Respon se Inquiry Report
	101	D INS^BPSVR X1(RXIEN,F ILL,VIEWTY PE,5) ; View Pha rmacy Insu rance poli cies
	102	D TPJILST^B PSVRX1(RXI EN,FILL,VI EWTYPE,6) ; List of TPJI-eligi ble bills
	103	D TPJICI^BP SVRX1(RXIE N,FILL,VIE WTYPE,7) ; TPJI - C laim Infor mation
	104	D TPJIARP^B PSVRX1(RXI EN,FILL,VI EWTYPE,8) ; TPJI - A R Account Profile
	105	D TPJIARCH^ BPSVRX1(RX IEN,FILL,V IEWTYPE,9) ; TPJI - A R Comment History
	106	D TPJIECME^ BPSVRX1(RX IEN,FILL,V IEWTYPE,10 ) ; TPJI - E CME Rx Res ponse Info
	107	D DGELST^BP SVRX2(RXIE N,FILL,VIE WTYPE,11) ; View Reg istration Elig Statu s
	108	D DGELV^BPS VRX2(RXIEN ,FILL,VIEW TYPE,12) ; View Reg istration Elig Verif ication
	109	;
	110	BUILDX ;
	111	Q
	112
	113	Modified L ogic (Chan ges are hi ghlighted)
	114
	115	BUILD(RXIE N,FILL,VIE WTYPE) ; b uild list
	116	; This is c alled in t he INIT se ction to b uild the L istMan scr atch globa l
	117	; all param eters are required a nd must ex ist when t his is cal led
	118	;
	119	S BPSVRX=1 ; specia l variable indicatin g this is the driver routine
	120	I '$D(ZTQUE UED) W !
	121	K ^TMP("BPS VRX",$J) ; initia lize displ ay array
	122	;
	123	D VIEWRX^BP SVRX1(RXIE N,FILL,VIE WTYPE,1) ; View Pre scriptions [PSO VIEW ]
	124	D LOG^BPSVR X1(RXIEN,F ILL,VIEWTY PE,2) ; ECME Pri nt Claim L og
	125	D BILL^BPSV RX1(RXIEN, FILL,VIEWT YPE,3) ; IB ECME Billing Ev ents Repor t
	126	D SD^BPSVRX 3(RXIEN,FI LL,VIEWTYP E,4) ; SD Sensit ive Drug
	127	D CRI^BPSVR X1(RXIEN,F ILL,VIEWTY PE,5) ; ECME Cla ims-Respon se Inquiry Report
	128	D INS^BPSVR X1(RXIEN,F ILL,VIEWTY PE,6) ; View Pha rmacy Insu rance poli cies
	129	D TPJILST^B PSVRX1(RXI EN,FILL,VI EWTYPE,7) ; List of TPJI-eligi ble bills
	130	D MP^BPSVRX 3(RXIEN,FI LL,VIEWTYP E,8) ; MP Medica tion Profi le
	131	D TPJICI^BP SVRX1(RXIE N,FILL,VIE WTYPE,9) ; TPJI - C laim Infor mation
	132	D TPJIARP^B PSVRX1(RXI EN,FILL,VI EWTYPE,10) ; TPJI - AR Account Profile
	133	D TPJIARCH^ BPSVRX1(RX IEN,FILL,V IEWTYPE,11 ) ; TPJI - AR Comment History
	134	D TPJIECME^ BPSVRX1(RX IEN,FILL,V IEWTYPE,12 ) ; TPJI - E CME Rx Res ponse Info
	135	D DGELST^BP SVRX2(RXIE N,FILL,VIE WTYPE,13) ; View Reg istration Elig Statu s
	136	D DGELV^BPS VRX2(RXIEN ,FILL,VIEW TYPE,14) ; View Reg istration Elig Verif ication
	137	;
	138	BUILDX ;
	139	Q
	140
	141
	142	The existi ng code to pull ROI/ SD informa tion is in ^IBNCPDR. We will c reate a ne w API in ^ IBNCPDR3 w hich will be used by the new S D^BPSVRX3 procedure. The exist ing code w ill be mod ified to m ake use of the new A PI.
	143
	144	Subroutine Name
	145	SD^BPSVRX3
	146	Enhancemen t Category
	147	New
	148	Modify
	149	Delete
	150	No Change
	151	Story
	152	US594
	153	Related Me nu Options or ListMa n Actions
	154	BPS RPT VI EW ECME RX
	155	Related Su broutines
	156	This Subro utine is C alled By
	157	This Subro utine Call s
	158
	159	BUILD^BPSV RX
	160	UPDATE^BPS VRX, $$RXA PI1^BPSUTI L1, SD^IBN CPDR3, $$F MTE^XLFDT
	161	Related In tegration Control Re gistration s (ICRs)
	162	New one, T BD. This p rocedure w ill call a new API i n the IB n amespace ( SD^IBNCPDR 3), so we need a new ICR for t his.
	163	Data Passi ng
	164	Parameter Input
	165	Parameter Output
	166	Function Return Val ue
	167	Global Mo dified
	168	Input Attr ibute Name and Defin ition
	169	Name: RXIE N
	170	Definition : IEN for Prescripti on
	171	New Modify Delete No Cha nge
	172	Name: FIIL L
	173	Definition : Fill num ber (0 if original)
	174	New Modify Delete No Cha nge
	175	Name: VIEW TYPE
	176	Definition : If “A”, then inclu de all tra nsaction f or this Rx /Fill; if “M”, then include on ly the mos t recent t ransaction .
	177	New Modify Delete No Cha nge
	178	Name: BPSS NUM
	179	Definition : Sequence number. E ach sectio n of the s creen has a sequence number to facilitat e allowing the user to jump to a particu lar sectio n.
	180	New Modify Delete No Cha nge
	181	Output Att ribute Nam e and Defi nition
	182	Name: n/a
	183	Definition :
	184	New Modify Delete No Cha nge
	185	Current Lo gic
	186
	187	n/a
	188
	189	Modified L ogic (Chan ges are hi ghlighted)
	190
	191	SD(RXIEN,F ILL,VIEWTY PE,BPSSNUM ) ; SD Sen sitive Dru g ; I '$D( ZTQUEUED) W !,"Compi ling data for Sensit ive Drug . .." ; N BP SCNT,BPSDR UG,BPSDRUG NAME,BPSIN S,BPSINSNA ME,BPSSD N BPSSDEFF, BPSSDEXP,B PSSDSTRING ,DFN ; K ^ TMP("BPSVR X-SD",$J) ; ; Determ ine Patien t, DFN ; S DFN=+$$RX API1^BPSUT IL1(RXIEN, 2,"I") ; P atient IEN . ; ; Call IB API to pull ROI/ SD informa tion for t his patien t. ; D BLD ^IBNCPDR ; S ^TMP("B PSVRX-SD", $J,1,0)="" S ^TMP("B PSVRX-SD", $J,2,0)=" S Drug Ins urance ROI Eff Dt-Ex p Dt" S ^T MP("BPSVRX -SD",$J,3, 0)=" Non-S ensitive D iagnosis A uthorizer Auth Dt" S ^TMP("BPS VRX-SD",$J ,4,0)="--- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---" S BPS CNT=4 ; S BPSLINE=0 F S BPSLI NE=$O(^TMP ("IBNCR",$ J,BPSLINE) ) Q:'BPSLI NE D . S BPSCNT=BPS CNT+1 . S ^TMP("BPSV RX-SD",$J, BPSCNT,0)= ^TMP("IBNC R",$J,BPSL INE,0) ; ; I BPSCNT= 3 D . S ^T MP("BPSVRX -SD",$J,4, 0)="" . S ^TMP("BPSV RX-SD",$J, 5,0)=" -- No SD's on file for patient -- " . S BPSC NT=5 S ^TM P("BPSVRX- SD",$J,BPS CNT+1,0)=" " ; D UPDA TE^BPSVRX( $NA(^TMP(" BPSVRX-SD" ,$J)),""," ","Sensiti ve Drug",B PSSNUM) ; K ^TMP("BP SVRX-SD",$ J) ; Q
	192
	193
	194	To make us e of the e xisting co de that is pulling m edication profile in formation requires c alls to th ree differ ent proced ures withi n the PSO namespace. Rather th an create ICD’s to g overn the use of tho se three e xisting pr ocedures, a new API will be cr eated with in PSO (ME DPRO^PSOPM P0) that w ill perfor m all thos e calls. T he MP proc edure in ^ BPSVRX3 wi ll make us e of that new API.
	195
	196	Subroutine Name
	197	MP^BPSVRX3
	198	Enhancemen t Category
	199	New
	200	Modify
	201	Delete
	202	No Change
	203	Story
	204	US594
	205	Related Me nu Options or ListMa n Actions
	206	BPS RPT VI EW ECME RX
	207	Related Su broutines
	208	This Subro utine is C alled By
	209	This Subro utine Call s
	210
	211	BUILD^BPSV RX
	212	UPDATE^BPS VRX, MEDPR O^PSOPMP0
	213	Related In tegration Control Re gistration s (ICRs)
	214	TBD; a new one will need to be created t o govern t he use of MEDPRO^PSO PMP0.
	215	Data Passi ng
	216	Parameter Input
	217	Parameter Output
	218	Function Return Val ue
	219	Global Mo dified
	220	Input Attr ibute Name and Defin ition
	221	Name: RXIE N
	222	Definition : IEN for Prescripti on
	223	New Modify Delete No Cha nge
	224	Name: FIIL L
	225	Definition : Fill num ber (0 if original)
	226	New Modify Delete No Cha nge
	227	Name: VIEW TYPE
	228	Definition : If “A”, then inclu de all tra nsaction f or this Rx /Fill; if “M”, then include on ly the mos t recent t ransaction .
	229	New Modify Delete No Cha nge
	230	Name: BPSS NUM
	231	Definition : Sequence number. E ach sectio n of the s creen has a sequence number to facilitat e allowing the user to jump to a particu lar sectio n.
	232	New Modify Delete No Cha nge
	233	Output Att ribute Nam e and Defi nition
	234	Name: n/a
	235	Definition :
	236	New Modify Delete No Cha nge
	237	Current Lo gic
	238
	239	n/a
	240
	241	Modified L ogic (Chan ges are hi ghlighted)
	242
	243	MP(RXIEN,F ILL,VIEWTY PE,BPSSNUM ) ; MP Med ication Pr ofile ; ; I '$D(ZTQU EUED) W !, "Compiling data for Medication Profile . .." ; N BP SCNT,BPSLI NE ; K ^TM P("BPSVRX- MP",$J) ; ; Call PSO API to pu ll MP info rmation fo r this pat ient. ; D MEDPRO^PSO PMP0(RXIEN ,FILL) ; D BIA# tbd. ; S ^TMP(" BPSVRX-MP" ,$J,1,0)=" " S ^TMP(" BPSVRX-MP" ,$J,2,0)=" ISSUE LAS T REF DAY" S ^TMP("B PSVRX-MP", $J,3,0)=" # Rx# DRUG [^] QTY S T DATE FIL L REM SUP" S ^TMP("B PSVRX-MP", $J,4,0)="- ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------" S BPSCNT= 4 ; S BPSL INE=0 F S BPSLINE=$ O(^TMP("PS OPMP0",$J, BPSLINE)) Q:'BPSLINE D . S BP SCNT=BPSCN T+1 . S ^T MP("BPSVRX -MP",$J,BP SCNT,0)=^T MP("PSOPMP 0",$J,BPSL INE,0) ; I BPSCNT=4 D . S ^TMP ("BPSVRX-M P",$J,1,0) ="" . S ^T MP("BPSVRX -MP",$J,2, 0)=" -- No prescript ions found for this patient -- " . S BPSC NT=2 S ^TM P("BPSVRX- MP",$J,BPS CNT+1,0)=" " ; D UPDA TE^BPSVRX( $NA(^TMP(" BPSVRX-MP" ,$J)),""," ","Medicat ion Profil e",BPSSNUM ) ; K ^TMP ("BPSVRX-M P",$J),^TM P("PSOPMP0 ",$J) ; Q
	244
	245	Subroutine Name
	246	SELECT^BPS VRX3
	247	Enhancemen t Category
	248	New
	249	Modify
	250	Delete
	251	No Change
	252	Story
	253	US594
	254	Related Me nu Options or ListMa n Actions
	255	BPS RPT VI EW ECME RX
	256	Current Lo gic
	257
	258	SELECT(BPS LIST) ; Al low user t o select s ections of the list to be prin ted. ; ; T his functi on returns a 1 if th e user ent ered one o r more sec tions ; to be printe d, 0 if no selection was made. ; This fu nction exp ects the f ollowing v ariables t o exist: ; - BPSVRX( "LISTNAV", Section#) = Beginnin g Line# ; where Sect ion# is a number, 1- 14, corres ponding to a section of the ; ListMan li st, and Be ginning Li ne# is the first lin e of that section. ; ; Returns the BPSLI ST array w ith a list of one or more sect ions: ; BP SLIST(Sect ion#) = Fi rst Line ^ Last Line ; Where F irst Line and Last L ine are th e first an d last lin es of ; th at section in the li st and Sec tion# can be one or more numbe rs ; from 1 to 14, e ach corres ponding to a section : ; 8 - AP , TPJI Acc ount Profi le ; 3 - B E, Billing Events ; 7 - CI, TP JI Claim I nfo ; 2 - CL, Claim Log ; 9 - CM, TPJI A R Comment History ; 4 - CR, Cl aims Respo nse Inquir y Report ; 10 - ER, TPJI ECME Rx Informa tion ; 11 - ES, Elig ibility St atus ; 12 - EV, Elig ibility Ve rification ; 5 - IN, Insurance ; 6 - LB, List of B ills ; 14 - MP, Medi cation Pro file ; 13 - SD, Sens itive Drug ; 1 - VW, View Rx ; N BPSLC,B PSLISTNAV, BPSSECBEGI N,BPSSECEN D,BPSSECNU M,BPSSECLI ST,BPSSEL N BPSUC,BP SX,BPSY,DA ,DIR,DIROU T,DIRUT,DT OUT,DUOUT, X,Y ; S BP SSECLIST=" ,AP,BE,CI, CL,CM,CR,E R,ES,EV,IN ,LB,MP,SD, VW," S BPS LISTNAV("A P")=8 S BP SLISTNAV(" BE")=3 S B PSLISTNAV( "CI")=7 S BPSLISTNAV ("CL")=2 S BPSLISTNA V("CM")=9 S BPSLISTN AV("CR")=4 S BPSLIST NAV("ER")= 10 S BPSLI STNAV("ES" )=11 S BPS LISTNAV("E V")=12 S B PSLISTNAV( "IN")=5 S BPSLISTNAV ("LB")=6 S BPSLISTNA V("MP")=14 S BPSLIST NAV("SD")= 13 S BPSLI STNAV("VW" )=1 ; S BP SUC="ABCDE FGHIJKLMNO PQRSTUVWXY Z" S BPSLC ="abcdefgh ijklmnopqr stuvwxyz" ; ; Displa y the list of action s to the u ser once, upon execu ting the P R option. ; List can be re-dis played to the user b y entering ??. W ! W !,"VW Vie w Rx CR CR I Report C I TPJI Cla im Info ER TPJI ECME Rx" W !," CL Claim L og IN Insu rance AP T PJI Acct P ro ES Elig Status" W !,"BE Bil ling Event s LB List of Bills C M TPJI AR Comm EV El ig Verif" W ! ;
	259
	260	Modified L ogic (Chan ges are hi ghlighted)
	261
	262	SELECT(BPS LIST) ; Al low user t o select s ections of the list to be prin ted. ; ; T his functi on returns a 1 if th e user ent ered one o r more sec tions ; to be printe d, 0 if no selection was made. ; This fu nction exp ects the f ollowing v ariables t o exist: ; - BPSVRX( "LISTNAV", Section#) = Beginnin g Line# ; where Sect ion# is a number, 1- 14, corres ponding to a section of the ; ListMan li st, and Be ginning Li ne# is the first lin e of that section. ; ; Returns the BPSLI ST array w ith a list of one or more sect ions: ; BP SLIST(Sect ion#) = Fi rst Line ^ Last Line ; Where F irst Line and Last L ine are th e first an d last lin es of ; th at section in the li st and Sec tion# can be one or more numbe rs ; from 1 to 14, e ach corres ponding to a section : ; 10 - A P, TPJI Ac count Prof ile ; 3 - BE, Billin g Events ; 9 - CI, T PJI Claim Info ; 2 - CL, Claim Log ; 11 - CM, TPJI AR Commen t History ; 5 - CR, Claims Res ponse Inqu iry Report ; 12 - ER , TPJI ECM E Rx Infor mation ; 1 3 - ES, El igibility Status ; 1 4 - EV, El igibility Verificati on ; 6 - I N, Insuran ce ; 7 - L B, List of Bills ; 8 - MP, Med ication Pr ofile ; 4 - SD, Sens itive Drug ; 1 - VW, View Rx ; N BPSLC,B PSLISTNAV, BPSSECBEGI N,BPSSECEN D,BPSSECNU M,BPSSECLI ST,BPSSEL N BPSUC,BP SX,BPSY,DA ,DIR,DIROU T,DIRUT,DT OUT,DUOUT, X,Y ; S BP SSECLIST=" ,AP,BE,CI, CL,CM,CR,E R,ES,EV,IN ,LB,MP,SD, VW," S BPS LISTNAV("A P")=10 S B PSLISTNAV( "BE")=3 S BPSLISTNAV ("CI")=9 S BPSLISTNA V("CL")=2 S BPSLISTN AV("CM")=1 1 S BPSLIS TNAV("CR") =5 S BPSLI STNAV("ER" )=12 S BPS LISTNAV("E S")=13 S B PSLISTNAV( "EV")=14 S BPSLISTNA V("IN")=6 S BPSLISTN AV("LB")=7 S BPSLIST NAV("MP")= 8 S BPSLIS TNAV("SD") =4 S BPSLI STNAV("VW" )=1 ; S BP SUC="ABCDE FGHIJKLMNO PQRSTUVWXY Z" S BPSLC ="abcdefgh ijklmnopqr stuvwxyz" ; ; Displa y the list of action s to the u ser once, upon execu ting the P R option. ; List can be re-dis played to the user b y entering ??. W ! W !,"VW Vie w Rx CR CR I Report C I TPJI Cla im Info ER TPJI ECME Rx" W !," CL Claim L og IN Insu rance AP T PJI Acct P ro ES Elig Status" W !,"BE Bil ling Event s LB List of Bills C M TPJI AR Comm EV El ig Verif" W !,"SD Se nsitive Dr ug MP Med Profile" W ! ;
	263
	264
	265	Subroutine Name
	266	PRINT^BPSV RX3
	267	Enhancemen t Category
	268	New
	269	Modify
	270	Delete
	271	No Change
	272	Story
	273	US594
	274	Related Me nu Options or ListMa n Actions
	275	BPS RPT VI EW ECME RX
	276	Current Lo gic
	277
	278	PRINT ; Pr int sectio ns of the list. ; ; BPSLIST wi ll be an a rray of on e or more sections f rom the ex isting ; L istMan lis t stored i n ^TMP("BP SVRX",$J). Format of BPSLIST: ; BPSLIST( Section#) = First Li ne ^ Last Line ; Whe re First L ine and La st Line ar e the firs t and last lines of ; that sec tion in th e list and Section# can be one or more n umbers ; f rom 1 to 1 4, each co rrespondin g to a sec tion: ; 8 - AP, TPJI Account P rofile ; 3 - BE, Bil ling Event s ; 7 - CI , TPJI Cla im Info ; 2 - CL, Cl aim Log ; 9 - CM, TP JI AR Comm ent Histor y ; 4 - CR , Claims R esponse In quiry Repo rt ; 10 - ER, TPJI E CME Rx Inf ormation ; 11 - ES, Eligibilit y Status ; 12 - EV, Eligibilit y Verifica tion ; 5 - IN, Insur ance ; 6 - LB, List of Bills ; 14 - MP, Medication Profile ; 13 - SD, Sensitive Drug ; 1 - VW, View Rx ; N BPS CRT,BPSBEG IN,BPSDASH ES,BPSEND, BPSLINE,BP SPAGE,BPSS ECTION,BPS STOP ; S B PSCRT=$S($ E(IOST,1,2 )="C-":1,1 :0) S BPSP AGE=0,BPSS TOP=0,$P(B PSDASHES," =",79)="" ; S BPSSEC TION="" F S BPSSECT ION=$O(BPS LIST(BPSSE CTION)) Q: BPSSECTION ="" D Q: BPSSTOP . S BPSBEGIN =$P(BPSLIS T(BPSSECTI ON),U,1) . S BPSEND= $P(BPSLIST (BPSSECTIO N),U,2) . ; . ; Disp lay the he ader at th e top of e ach sectio n. . ; . D HEADER . ; . S BPSL INE=BPSBEG IN-1 . F S BPSLINE= $O(BPSAR(B PSLINE)) Q :'BPSLINE Q:BPSLINE >BPSEND D Q:BPSSTO P . . ; . . I $Y+3>I OSL D HEAD ER I BPSST OP Q . . ; . . W !,B PSAR(BPSLI NE) . . ; . . Q . Q ; I BPSSTO P G PRINTQ I $Y+4>IO SL D HEADE R I BPSSTO P G PRINTQ W !!?5,"* End of Report * " I BPSCRT S DIR(0)= "E" W ! D ^DIR K DIR ;
	279
	280	Modified L ogic (Chan ges are hi ghlighted)
	281
	282	PRINT ; Pr int sectio ns of the list. ; ; BPSLIST wi ll be an a rray of on e or more sections f rom the ex isting ; L istMan lis t stored i n ^TMP("BP SVRX",$J). Format of BPSLIST: ; BPSLIST( Section#) = First Li ne ^ Last Line ; Whe re First L ine and La st Line ar e the firs t and last lines of ; that sec tion in th e list and Section# can be one or more n umbers ; f rom 1 to 1 4, each co rrespondin g to a sec tion: ; 1 - VW, View Rx ; 10 - AP, TPJI Account Pr ofile ; 3 - BE, Bill ing Events ; 9 - CI, TPJI Clai m Info ; 2 - CL, Cla im Log ; 1 1 - CM, TP JI AR Comm ent Histor y ; 5 - CR , Claims R esponse In quiry Repo rt ; 12 - ER, TPJI E CME Rx Inf ormation ; 13 - ES, Eligibilit y Status ; 14 - EV, Eligibilit y Verifica tion ; 6 - IN, Insur ance ; 7 - LB, List of Bills ; 8 - MP, M edication Profile ; 4 - SD, Se nsitive Dr ug ; 1 - V W, View Rx ; N BPSCR T,BPSBEGIN ,BPSDASHES ,BPSEND,BP SLINE,BPSP AGE,BPSSEC TION,BPSST OP ; S BPS CRT=$S($E( IOST,1,2)= "C-":1,1:0 ) S BPSPAG E=0,BPSSTO P=0,$P(BPS DASHES,"=" ,79)="" ; S BPSSECTI ON="" F S BPSSECTIO N=$O(BPSLI ST(BPSSECT ION)) Q:BP SSECTION=" " D Q:BP SSTOP . S BPSBEGIN=$ P(BPSLIST( BPSSECTION ),U,1) . S BPSEND=$P (BPSLIST(B PSSECTION) ,U,2) . ; . ; Displa y the head er at the top of eac h section. . ; . D H EADER . ; . S BPSLIN E=BPSBEGIN -1 . F S BPSLINE=$O (BPSAR(BPS LINE)) Q:' BPSLINE Q :BPSLINE>B PSEND D Q:BPSSTOP . . ; . . I $Y+3>IOS L D HEADER I BPSSTOP Q . . ; . . W !,BPS AR(BPSLINE ) . . ; . . Q . Q ; I BPSSTOP G PRINTQ I $Y+4>IOSL D HEADER I BPSSTOP G PRINTQ W !!?5,"* End of Re port *" I BPSCRT S DIR(0)="E " W ! D ^D IR K DIR ;
	283
	284
	285	Subroutine Name
	286	HELP^BPSVR X3
	287	Enhancemen t Category
	288	New
	289	Modify
	290	Delete
	291	No Change
	292	Story
	293	US594
	294	Related Me nu Options or ListMa n Actions
	295	BPS RPT VI EW ECME RX
	296	Current Lo gic
	297
	298	HELP ; ?? Help - Dis play Optio ns W !,"VW View Rx C R CRI Repo rt CI TPJI Claim Inf o ER TPJI ECME Rx" W !,"CL Cla im Log IN Insurance AP TPJI Ac ct Pro ES Elig Statu s" W !,"BE Billing E vents LB L ist of Bil ls CM TPJI AR Comm E V Elig Ver if" W ! W !," Select one or ma ny report( s) to prin t, separat ed by comm as. When a ll" W !," reports ha ve been se lected, hi t enter wi thout maki ng another selection ." W !," E xample: " W !," Sele ct Report to Print: VW,IN,CM" W !," Sele ct Report to Print: ES" Q
	299
	300	Modified L ogic (Chan ges are hi ghlighted)
	301
	302	HELP ; ?? Help - Dis play Optio ns W !,"VW View Rx C R CRI Repo rt CI TPJI Claim Inf o ER TPJI ECME Rx" W !,"CL Cla im Log IN Insurance AP TPJI Ac ct Pro ES Elig Statu s" W !,"BE Billing E vents LB L ist of Bil ls CM TPJI AR Comm E V Elig Ver if" W !,"S D Sensitiv e Drug MP Med Profil e" W ! W ! ," Select one or man y report(s ) to print , separate d by comma s. When al l" W !," r eports hav e been sel ected, hit enter wit hout makin g another selection. " W !," Ex ample: " W !," Selec t Report t o Print: V W,IN,CM" W !," Selec t Report t o Print: E S" Q
	303
	304
	305
	306
	307	Subroutine Name
	308	MEDPRO^PSO PMP0
	309	Enhancemen t Category
	310	New
	311	Modify
	312	Delete
	313	No Change
	314	Story
	315	US594
	316	Related Me nu Options or ListMa n Actions
	317	BPS RPT VI EW ECME RX
	318	Related Su broutines
	319	This Subro utine is C alled By
	320	This Subro utine Call s
	321
	322	MP^BPSVRX
	323	LOAD^PSOPM PPF, SETSO RT^PSOPMP0 , SETLINE^ PSOPMP0
	324	Related In tegration Control Re gistration s (ICRs)
	325	TBD; a new one will need to be created.
	326	Data Passi ng
	327	Parameter Input
	328	Parameter Output
	329	Function Return Val ue
	330	Global Mo dified
	331	Input Attr ibute Name and Defin ition
	332	Name: RXIE N
	333	Definition : IEN for Prescripti on
	334	New Modify Delete No Cha nge
	335	Name: FIIL L
	336	Definition : Fill num ber (0 if original)
	337	New Modify Delete No Cha nge
	338	Output Att ribute Nam e and Defi nition
	339	Name: n/a
	340	Definition :
	341	New Modify Delete No Cha nge
	342	Current Lo gic
	343
	344	n/a
	345
	346	Modified L ogic (Chan ges are hi ghlighted)
	347
	348	MEDPRO(RXI EN,FILL) ; MP Medica tion Profi le ; ; Thi s procedur e relies o n existing procedure s which ar e part ; o f Patient Medication Profile L istMan scr een. ; ; N ew variabl es used in this proc edure. ; N PSODFN,PS OSIGDP,PSO SITE,PSOSR TBY ; K ^T MP("PSOPMP 0",$J),^TM P("PSOPMPS R",$J) ; ; Determine Division IEN, ptr t o file# 59 , and Pati ent IEN. ; S PSOSITE =+$$RXSITE ^PSOBPSUT( RXIEN,FILL ) S PSODFN =+$$GET1^D IQ(52,RXIE N,2,"I") ; ; LOAD de termines D ivision or User pref erences. ; D LOAD^PS OPMPPF(PSO SITE,DUZ) S PSOSIGDP =0 ; Do no t include signetur i nfo. ; ; S ETSORT col lects medi cation dat a into ^TM P("PSOPMPS R"). ; SET LINE takes the data collected in ^TMP("P SOPMPSR") and ; crea tes the di splay line s in ^TMP( "PSOPMP0") . ; D SETS ORT(PSOSRT BY) D SETL INE ; K ^T MP("PSOPMP SR",$J) ; ; Clean up variable set but ne ither Newe d nor Kill ed in LOAD ^PSOPMPPF. ; N PSOEX DCE,PSORDC NT,PSORDER ,PSOSRTBY, PSOSTSEQ,P SOSTSGP ; ; Q
	349
	350
	351	Two new ac tions will be added to file #1 01 PROTOCO L. The ta bles below describe how these actions ar e to be ad ded.
	352
	353	File# 101, PROTOCOL
	354	Fields
	355	Values
	356	#.01 – NAM E
	357	BPS VRX NA V SENSITIV E DRUG
	358	#1 - ITEM TEXT
	359	Sensitive Drug
	360	#4 – TYPE
	361	ACTION
	362	#12 – PACK AGE
	363	BPS
	364	#15 - EXIT ACTION
	365	"S VALMBCK =""R"""
	366	#20 - ENTR Y ACTION
	367	"D NAV^BPS VRX(4)"
	368
	369
	370	File# 101, PROTOCOL
	371	Fields
	372	Values
	373	#.01 - NAM E
	374	BPS VRX NA V MED PROF ILE
	375	#1 - ITEM TEXT
	376	Medication Profile
	377	#4 – TYPE
	378	ACTION
	379	#12 - PACK AGE
	380	BPS
	381	#15 - EXIT ACTION
	382	"S VALMBCK =""R"""
	383	#20 - ENTR Y ACTION
	384	"D NAV^BPS VRX(8)"
	385
	386	The follow ing action s are exis ting proto cols that will need to be edit ed as foll ows:
	387
	388	File# 101, PROTOCOL
	389	Fields
	390	Values
	391	#.01 - NAM E
	392	BPS VRX NA V BILL LIS T
	393	#20 - ENTR Y ACTION
	394	"D NAV^BPS VRX(7)"
	395
	396
	397	File# 101, PROTOCOL
	398	Fields
	399	Values
	400	#.01 - NAM E
	401	BPS VRX NA V CRI
	402	#20 - ENTR Y ACTION
	403	"D NAV^BPS VRX(5)"
	404
	405	File# 101, PROTOCOL
	406	Fields
	407	Values
	408	#.01 - NAM E
	409	BPS VRX NA V DG ELIG STATUS
	410	#20 - ENTR Y ACTION
	411	"D NAV^BPS VRX(13)"
	412
	413	File# 101, PROTOCOL
	414	Fields
	415	Values
	416	#.01 - NAM E
	417	BPS VRX NA V DG ELIG VERIFICATI ON
	418	#20 - ENTR Y ACTION
	419	"D NAV^BPS VRX(14)"
	420
	421	File# 101, PROTOCOL
	422	Fields
	423	Values
	424	#.01 - NAM E
	425	BPS VRX NA V INS POL
	426	#20 - ENTR Y ACTION
	427	"D NAV^BPS VRX(6)"
	428
	429	File# 101, PROTOCOL
	430	Fields
	431	Values
	432	#.01 - NAM E
	433	BPS VRX NA V TPJI AR ACCT PROFI LE
	434	#20 - ENTR Y ACTION
	435	"D NAV^BPS VRX(10)"
	436
	437	File# 101, PROTOCOL
	438	Fields
	439	Values
	440	#.01 - NAM E
	441	BPS VRX NA V TPJI AR COMMENT HI STORY
	442	#20 - ENTR Y ACTION
	443	"D NAV^BPS VRX(11)"
	444
	445	File# 101, PROTOCOL
	446	Fields
	447	Values
	448	#.01 - NAM E
	449	BPS VRX NA V TPJI CLA IM INFORMA TION
	450	#20 - ENTR Y ACTION
	451	"D NAV^BPS VRX(9)"
	452
	453	File# 101, PROTOCOL
	454	Fields
	455	Values
	456	#.01 - NAM E
	457	BPS VRX NA V TPJI ECM E RX INFO
	458	#20 - ENTR Y ACTION
	459	"D NAV^BPS VRX(12)"
	460
	461	The BPS VI EW ECME RX MENU entr y in file# 101, PROT OCOL, will be modifi ed to add the above two new ac tions. Bel ow are sho wn the act ions that are curren tly displa yed in the BPS VIEW ECME RX ME NU.
	462
	463	VW View Rx CR CRI Rep ort CI TPJI Cl aim Info ER TPJI EC ME Rx
	464	CL Claim L og IN Insuran ce AP TPJI Ac ct Pro ES Elig St atus
	465	BE Billing Events LB List of Bills CM TPJI AR Comm EV Elig Ve rif
	466	PR Print R eport
	467
	468	After the two new ac tions are added, the actions w ill appear as follow s.
	469
	470	VW View Rx CR CRI Rep ort CI TPJI Cl aim Info ER TPJI EC ME Rx
	471	CL Claim L og IN Insuran ce AP TPJI Ac ct Pro ES Elig St atus
	472	BE Billing Events LB List of Bills CM TPJI AR Comm EV Elig Ve rif
	473	SD Sensiti ve Drug MP Med Pro file PR Print R eport
	474
	475	The follow ing table shows all the action s on the B PS VIEW EC ME RX MENU , with the new ones highlighte d. The hig hlighted a ctions mus t be added to this e ntry in fi le# 101, P ROTOCOL. E ach of the action pr otocols, w hether new or existi ng, must b e added to the build with an i nstallatio n action o f “SEND TO SITE”.
	476
	477	Item
	478	Mnemonic
	479	Sequence
	480	BPS VRX NA V VIEWRX
	481	VW
	482	11
	483	BPS VRX NA V ECME CLA IM LOG
	484	CL
	485	12
	486	BPS VRX NA V BILLING EVENTS RPT
	487	BE
	488	13
	489	BPS VRX NA V SENSITIV E DRUG
	490	SD
	491	14
	492	BPS VRX NA V CRI
	493	CR
	494	21
	495	BPS VRX NA V INS POL
	496	IN
	497	22
	498	BPS VRX NA V BILL LIS T
	499	LB
	500	23
	501	BPS VRX NA V MED PROF ILE
	502	MP
	503	24
	504	BPS VRX NA V TPJI CLA IM INFORMA TION
	505	CI
	506	31
	507	BPS VRX NA V TPJI AR ACCT PROFI LE
	508	AP
	509	32
	510	BPS VRX NA V TPJI AR COMMENT HI STORY
	511	CM
	512	33
	513	BPS VRX NA V TPJI ECM E RX INFO
	514	ER
	515	41
	516	BPS VRX NA V DG ELIG STATUS
	517	ES
	518	42
	519	BPS VRX NA V DG ELIG VERIFICATI ON
	520	EV
	521	43
	522	BPS VRX NA V PRINT RE PORT
	523	PR
	524	44
	525
	526
	527	Back Out/R ollback Pr ocedure
	528	This story includes modificati ons to exi sting rout ines and f iles.
	529
	530	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.
	531
	532	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:
	533	Delete two entries f rom file# 101, PROTO COL:
	534	BPS VRX NA V MED PROF ILE
	535	BPS VRX NA V SENSITIV E DRUG
	536	Modify one entry in file# 101, PROTOCOL:
	537	BPS VIEW E CME RX MEN U
	538	Delete fro m the list of Action s the abov e two acti on protoco ls.